Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by heimbach, Fri Nov 15 04:03:25 2002 UTC | revision 1.3 by edhill, Tue Nov 11 20:38:27 2003 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 | #ifdef HAVE_FDATE |
#ifndef TARGET_CRAY_VECTOR | ||
38 | CALL FDATE( string ) | CALL FDATE( string ) |
39 | #endif | #endif |
#endif | ||
40 | C | C |
41 | 1000 CONTINUE | 1000 CONTINUE |
42 | RETURN | RETURN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |