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)
8 /* Table of constant values */
10 static integer c__5
= 5;
12 /* Subroutine */ int G77_date_y2kbug_0 (char *buf
, ftnlen buf_len
)
14 /* System generated locals */
20 /* Builtin functions */
21 /* Subroutine */ int s_copy(), s_cat();
25 extern longint
G77_time_0 ();
26 extern /* Character */ VOID
G77_ctime_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
);