Searched defs:DINITS (Results 1 – 1 of 1) sorted by relevance
1 subroutine DINITS (DOS, NOS, ETA, NTERMS) subroutine27 IF (NOS .LT. 1) CALL IERM1('DINITS',1,0, argument36 20 IF (I .EQ. NOS) CALL DERM1('DINITS',2,0, argument