1      SUBROUTINE LVALUE(KOL,L,NDML,NF,BLANK,COMMA,NUMBER)
2C
3C TEST FOR LEGAL LOGICAL CONSTANTS AND MULTIPLICTION FACTOR FOR INPUT
4C
5      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
6      DIMENSION KOL(80), NUMBER(15), TRUE(6), FALSE(7)
7      INTEGER BLANK, COMMA, TRUE, FALSE
8      LOGICAL STAR, NMTEST
9      DATA TRUE  / 4H.   ,4HT   ,4HR   ,4HU   ,4HE   ,4H.   /
10      DATA FALSE / 4H.   ,4HF   ,4HA   ,4HL   ,4HS   ,4HE   ,4H.   /
11C
12 1010 CONTINUE
13      MULT = 0
14      STAR = .FALSE.
15      IF(L .GE. 81) GO TO 1090
16      IF(KOL(L) .NE. BLANK) GO TO 1020
17        L = L+1
18        GO TO 1010
19 1020 CONTINUE
20C
21C***  TEST FOR MULTIPLICATION FACTOR
22C
23      DO 1030 J=1,14
24        IF(J .GE. 11 .AND. J .LE. 13) GO TO 1030
25        IF(KOL(L) .EQ. NUMBER(J)) GO TO 1040
26        IF(L .GE. 80) GO TO 1050
27 1030 CONTINUE
28      GO TO 1050
29 1040 CONTINUE
30      IF(STAR)      NF = NF+1
31      IF(J .EQ. 14) STAR = .TRUE.
32      IF(J .LE. 10) MULT = 10*MULT+J-1
33      L = L+1
34      GO TO 1020
35 1050 CONTINUE
36      IF(.NOT. STAR .AND. MULT .GT. 0) NF = NF+1
37      IF(STAR .AND. MULT .EQ. 0)       NF = NF+1
38      IF(MULT .EQ. 0) MULT = 1
39C
40C***  TEST FOR LOGICAL CONSTANTS
41C
42      NCHR = 6
43      IF(NMTEST(KOL(L),TRUE,NCHR))  GO TO 1060
44      NCHR = 7
45      IF(NMTEST(KOL(L),FALSE,NCHR)) GO TO 1060
46      GO TO 1090
47 1060 CONTINUE
48      L = L+NCHR
49 1070 CONTINUE
50      IF(L .GE. 80) GO TO 1080
51      IF(KOL(L) .NE. BLANK) GO TO 1080
52        NF = NF+1
53        L = L+1
54        GO TO 1070
55 1080 CONTINUE
56      IF(KOL(L) .NE. COMMA .AND. KOL(L) .NE. KAND) NF = NF+1
57      IF(KOL(L) .EQ. COMMA) L = L+1
58      NDML = NDML+MULT
59      GO TO 1010
60C
61C***  END OF CARD OR NON-LOGICAL VARIABLE FOUND
62C
63 1090 CONTINUE
64      IF(NDML .EQ. 0) NF = NF+1
65      RETURN
66      END
67