11537657f329d61960352d9b60d38ab2b8ace296
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 */
16 integer i__1
, i__2
[5];
19 /* Builtin functions */
20 /* Subroutine */ int s_copy(), s_cat();
24 extern integer
G77_time_0 ();
25 extern /* Character */ VOID
G77_ctime_0 ();
28 G77_ctime_0 (ch__1
, 24L, &i__1
);
29 s_copy(cbuf
, ch__1
, 24L, 24L);
30 /* Writing concatenation */
31 i__2
[0] = 2, a__1
[0] = cbuf
+ 8;
32 i__2
[1] = 1, a__1
[1] = "-";
33 i__2
[2] = 3, a__1
[2] = cbuf
+ 4;
34 i__2
[3] = 1, a__1
[3] = "-";
35 i__2
[4] = 2, a__1
[4] = cbuf
+ 22;
36 s_cat(buf
, a__1
, i__2
, &c__5
, buf_len
);