Lines Matching refs:PATH
66 SUBROUTINE SLAHD2( IOUNIT, PATH ) argument
74 CHARACTER*3 PATH local
93 SORD = LSAME( PATH, 'S' ) .OR. LSAME( PATH, 'D' )
94 CORZ = LSAME( PATH, 'C' ) .OR. LSAME( PATH, 'Z' )
96 WRITE( IOUNIT, FMT = 9999 )PATH
98 C2 = PATH( 2: 3 )
105 WRITE( IOUNIT, FMT = 9998 )PATH
124 WRITE( IOUNIT, FMT = 9997 )PATH
146 WRITE( IOUNIT, FMT = 9996 )PATH
162 WRITE( IOUNIT, FMT = 9995 )PATH
181 WRITE( IOUNIT, FMT = 9992 )PATH
198 WRITE( IOUNIT, FMT = 9991 )PATH
219 WRITE( IOUNIT, FMT = 9994 )PATH
233 WRITE( IOUNIT, FMT = 9993 )PATH
251 WRITE( IOUNIT, FMT = 9990 )PATH
264 WRITE( IOUNIT, FMT = 9989 )PATH
277 WRITE( IOUNIT, FMT = 9999 )PATH