]>
Commit | Line | Data |
---|---|---|
81fea2b1 JL |
1 | /* date_.f -- translated by f2c (version 19961001). |
2 | You must link the resulting object file with the libraries: | |
3 | -lf2c -lm (in that order) | |
4 | */ | |
5 | ||
6 | #include "f2c.h" | |
7 | ||
8 | /* Table of constant values */ | |
9 | ||
10 | static integer c__5 = 5; | |
11 | ||
411d4e28 | 12 | /* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len) |
81fea2b1 JL |
13 | { |
14 | /* System generated locals */ | |
15 | address a__1[5]; | |
a24f233f CB |
16 | longint i__1; |
17 | integer i__2[5]; | |
81fea2b1 JL |
18 | char ch__1[24]; |
19 | ||
20 | /* Builtin functions */ | |
21 | /* Subroutine */ int s_copy(), s_cat(); | |
22 | ||
23 | /* Local variables */ | |
24 | static char cbuf[24]; | |
a24f233f | 25 | extern longint G77_time_0 (); |
81fea2b1 JL |
26 | extern /* Character */ VOID G77_ctime_0 (); |
27 | ||
28 | i__1 = G77_time_0 (); | |
29 | G77_ctime_0 (ch__1, 24L, &i__1); | |
30 | s_copy(cbuf, ch__1, 24L, 24L); | |
31 | /* Writing concatenation */ | |
32 | i__2[0] = 2, a__1[0] = cbuf + 8; | |
33 | i__2[1] = 1, a__1[1] = "-"; | |
34 | i__2[2] = 3, a__1[2] = cbuf + 4; | |
35 | i__2[3] = 1, a__1[3] = "-"; | |
36 | i__2[4] = 2, a__1[4] = cbuf + 22; | |
37 | s_cat(buf, a__1, i__2, &c__5, buf_len); | |
38 | return 0; | |
39 | } /* date_ */ | |
40 |