35 |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
36 |
string = ' ' |
string = ' ' |
37 |
#ifndef TARGET_T3E |
#ifndef TARGET_T3E |
38 |
|
#ifndef TARGET_CRAY_VECTOR |
39 |
CALL FDATE( string ) |
CALL FDATE( string ) |
40 |
#endif |
#endif |
41 |
|
#endif |
42 |
C |
C |
43 |
1000 CONTINUE |
1000 CONTINUE |
44 |
RETURN |
RETURN |
192 |
strTmp = 'UNKNOWN' |
strTmp = 'UNKNOWN' |
193 |
iFree = 1 |
iFree = 1 |
194 |
idSize = LEN(string) |
idSize = LEN(string) |
195 |
#ifdef TARGET_T3E |
#if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR)) |
196 |
IFirst = 0 |
IFirst = 0 |
197 |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
198 |
#else |
#else |
212 |
ENDIF |
ENDIF |
213 |
ENDIF |
ENDIF |
214 |
strTmp = 'UNKNOWN' |
strTmp = 'UNKNOWN' |
215 |
#ifdef TARGET_T3E |
#if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR)) |
216 |
IFirst = 0 |
IFirst = 0 |
217 |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
218 |
#else |
#else |