summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libU77/secnds_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libU77/secnds_.c')
-rw-r--r--contrib/libf2c/libU77/secnds_.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/contrib/libf2c/libU77/secnds_.c b/contrib/libf2c/libU77/secnds_.c
index 1942528..1d661a9 100644
--- a/contrib/libf2c/libU77/secnds_.c
+++ b/contrib/libf2c/libU77/secnds_.c
@@ -36,16 +36,16 @@ Boston, MA 02111-1307, USA. */
/* This is a VMS intrinsic. */
-double G77_secnds_0 (real *r)
+double
+G77_secnds_0 (real * r)
{
- struct tm *lt;
- time_t clock;
- float f;
-
- clock = time (NULL);
- lt = localtime (&clock);
- f= (3600.0*((real)lt->tm_hour) + 60.0*((real)lt->tm_min) +
- (real)lt->tm_sec - *r);
- return f;
+ struct tm *lt;
+ time_t clock;
+ float f;
+
+ clock = time (NULL);
+ lt = localtime (&clock);
+ f = (3600.0 * ((real) lt->tm_hour) + 60.0 * ((real) lt->tm_min) +
+ (real) lt->tm_sec - *r);
+ return f;
}
-
OpenPOWER on IntegriCloud