diff options
Diffstat (limited to 'contrib/libf2c/libU77/idate_.c')
-rw-r--r-- | contrib/libf2c/libU77/idate_.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/contrib/libf2c/libU77/idate_.c b/contrib/libf2c/libU77/idate_.c index 572efd9..f2bea12 100644 --- a/contrib/libf2c/libU77/idate_.c +++ b/contrib/libf2c/libU77/idate_.c @@ -37,17 +37,13 @@ Boston, MA 02111-1307, USA. */ /* libU77 one: */ -#ifdef KR_headers -/* Subroutine */ int G77_idate_0 (iarray) - int iarray[3]; -#else -/* Subroutine */ int G77_idate_0 (int iarray[3]) -#endif +/* Subroutine */ int +G77_idate_0 (int iarray[3]) { struct tm *lt; time_t tim; - tim = time(NULL); - lt = localtime(&tim); + tim = time (NULL); + lt = localtime (&tim); iarray[0] = lt->tm_mday; iarray[1] = lt->tm_mon + 1; /* in range 1-12 in SunOS (experimentally) */ /* The `+1900' is consistent with SunOS and Irix, but they don't say |