Home
last modified time | relevance | path

Searched refs:NMTEST (Results 1 – 6 of 6) sorted by relevance

/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dtestor.f8 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 Dlvalue.f8 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 Dnmlist.f90 LOGICAL FUNCTION NMTEST(KOL,KEY,NCHAR) function
104 NMTEST=.TRUE.
109 1010 NMTEST=.FALSE.
H A Dvname.f5 LOGICAL FOUND, ARRAY, NMTEST, FLAG local
12 IF(.NOT. NMTEST(KOL(L),NAMES(J),LEN(I))) GO TO 1000
H A Dconerr.f9 LOGICAL NMTEST local
63 IF(.NOT. NMTEST(KOL(3),NLNAME(I),L)) GO TO 1080
H A Dccard.f17 LOGICAL NMTEST local
132 IF(NMTEST(KOL(NS),KEYDP(LOC),NDP(J))) GO TO 1050