Searched refs:NMTEST (Results 1 – 6 of 6) sorted by relevance
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | testor.f | 8 LOGICAL END, FLAG, ARRAY, FOUND, NMTEST local 99 IF(NMTEST(KOL(L),TRUE,4)) L = L+3 100 IF(NMTEST(KOL(L),TRUE,4)) GO TO 1085 101 IF(NMTEST(KOL(L),FALSE,5)) L = L+4 102 IF(NMTEST(KOL(L),FALSE,5)) GO TO 1085
|
H A D | lvalue.f | 8 LOGICAL STAR, NMTEST local 43 IF(NMTEST(KOL(L),TRUE,NCHR)) GO TO 1060 45 IF(NMTEST(KOL(L),FALSE,NCHR)) GO TO 1060
|
H A D | nmlist.f | 90 LOGICAL FUNCTION NMTEST(KOL,KEY,NCHAR) function 104 NMTEST=.TRUE. 109 1010 NMTEST=.FALSE.
|
H A D | vname.f | 5 LOGICAL FOUND, ARRAY, NMTEST, FLAG local 12 IF(.NOT. NMTEST(KOL(L),NAMES(J),LEN(I))) GO TO 1000
|
H A D | conerr.f | 9 LOGICAL NMTEST local 63 IF(.NOT. NMTEST(KOL(3),NLNAME(I),L)) GO TO 1080
|
H A D | ccard.f | 17 LOGICAL NMTEST local 132 IF(NMTEST(KOL(NS),KEYDP(LOC),NDP(J))) GO TO 1050
|