Lines Matching refs:PATH
64 SUBROUTINE SLAHD2( IOUNIT, PATH ) argument
71 CHARACTER*3 PATH
90 SORD = LSAME( PATH, 'S' ) .OR. LSAME( PATH, 'D' )
91 CORZ = LSAME( PATH, 'C' ) .OR. LSAME( PATH, 'Z' )
93 WRITE( IOUNIT, FMT = 9999 )PATH
95 C2 = PATH( 2: 3 )
102 WRITE( IOUNIT, FMT = 9998 )PATH
121 WRITE( IOUNIT, FMT = 9997 )PATH
143 WRITE( IOUNIT, FMT = 9996 )PATH
159 WRITE( IOUNIT, FMT = 9995 )PATH
178 WRITE( IOUNIT, FMT = 9992 )PATH
195 WRITE( IOUNIT, FMT = 9991 )PATH
216 WRITE( IOUNIT, FMT = 9994 )PATH
230 WRITE( IOUNIT, FMT = 9993 )PATH
248 WRITE( IOUNIT, FMT = 9990 )PATH
261 WRITE( IOUNIT, FMT = 9989 )PATH
274 WRITE( IOUNIT, FMT = 9999 )PATH