| 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 |
|
|---|
| 12 | /* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
|
|---|
| 13 | {
|
|---|
| 14 | /* System generated locals */
|
|---|
| 15 | address a__1[5];
|
|---|
| 16 | longint i__1;
|
|---|
| 17 | integer i__2[5];
|
|---|
| 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];
|
|---|
| 25 | extern longint G77_time_0 ();
|
|---|
| 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 |
|
|---|
| 41 | #ifdef PIC
|
|---|
| 42 | # include <stdio.h>
|
|---|
| 43 |
|
|---|
| 44 | const char *G77_Non_Y2K_Compliance_Message =
|
|---|
| 45 | "Call to non Y2K compliant subroutine detected.";
|
|---|
| 46 |
|
|---|
| 47 | int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
|
|---|
| 48 | {
|
|---|
| 49 | extern int G77_abort_0();
|
|---|
| 50 | fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
|
|---|
| 51 | G77_abort_0();
|
|---|
| 52 | }
|
|---|
| 53 | #endif
|
|---|
| 54 |
|
|---|
| 55 |
|
|---|
