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