libf2c/libU77/date_.c

   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_0 (char *buf, ftnlen buf_len)
  13 {
  14     /* System generated locals */
  15     address a__1[5];
  16     integer i__1, i__2[5];
  17     char ch__1[24];
  18
  19     /* Builtin functions */
  20     /* Subroutine */ int s_copy(), s_cat();
  21
  22     /* Local variables */
  23     static char cbuf[24];
  24     extern integer G77_time_0 ();
  25     extern /* Character */ VOID G77_ctime_0 ();
  26
  27     i__1 = G77_time_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);
  37     return 0;
  38 } /* date_ */
  39