/[MITgcm]/MITgcm/eesupp/src/utils.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/utils.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by adcroft, Tue May 18 17:39:22 1999 UTC revision 1.7 by adcroft, Tue Mar 14 20:28:13 2000 UTC
# Line 34  C Line 34  C
34        lDate = 24        lDate = 24
35        IF ( LEN(string) .LT. lDate ) GOTO 901        IF ( LEN(string) .LT. lDate ) GOTO 901
36        string = ' '        string = ' '
37    #ifndef TARGET_T3E
38        CALL FDATE( string )        CALL FDATE( string )
39    #endif
40  C    C  
41   1000 CONTINUE   1000 CONTINUE
42        RETURN        RETURN
# Line 189  C Line 191  C
191        strTmp = 'UNKNOWN'        strTmp = 'UNKNOWN'
192        iFree  = 1        iFree  = 1
193        idSize = LEN(string)        idSize = LEN(string)
194    #ifdef TARGET_T3E
195          IFirst = 0
196          CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend  )
197    #else
198        CALL GETENV('USER',strTmp  )        CALL GETENV('USER',strTmp  )
199    #endif
200        IF ( strTmp .NE. ' ' ) THEN        IF ( strTmp .NE. ' ' ) THEN
201          iFirst = IFNBLNK(strTmp)          iFirst = IFNBLNK(strTmp)
202          iLast  = ILNBLNK(strTmp)          iLast  = ILNBLNK(strTmp)
# Line 204  C Line 211  C
211          ENDIF          ENDIF
212        ENDIF        ENDIF
213        strTmp = 'UNKNOWN'        strTmp = 'UNKNOWN'
214        CALL GETENV('HOST',strtmp )  #ifdef TARGET_T3E
215          IFirst = 0
216          CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend  )
217    #else
218          CALL GETENV('HOST',strTmp  )
219    #endif
220        IF ( strTmp .NE. ' ' ) THEN        IF ( strTmp .NE. ' ' ) THEN
221          iFirst = IFNBLNK(strTmp)          iFirst = IFNBLNK(strTmp)
222          iLast  = ILNBLNK(strTmp)          iLast  = ILNBLNK(strTmp)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22