moved ioinit.f from libI77 to here (from dlw).

[unix-history] / usr / src / usr.bin / f77 / libU77 / fdate_.c

/*
char id_fdate[] = "@(#)fdate_.c 1.1";
*
* Return date and time in an ASCII string.
*
* calling sequence:
*      character*24 string
*      call fdate(string)
* where:
*      the 24 character string will be filled with the date & time in
*      ascii form as described under ctime(3).
*      No 'newline' or NULL will be included.
*/

fdate_(s, strlen)
char *s; long strlen;
{
       char *ctime(), *c;
       long time(), t;

       t = time(0);
       c = ctime(&t);
       c[24] = '\0';
       b_char(c, s, strlen);
}