tjh.dev
1diff --git a/src/gctime.c b/src/gctime.c
2index 34fcb6f..832459c 100644
3--- a/src/gctime.c
4+++ b/src/gctime.c
5@@ -1,14 +1,15 @@
6+#include <string.h>
7 typedef long f77_int; /* Fortran integer type */
8 typedef char * f77_char; /* Fortran character argument */
9 #define CH_F2C(X) ((char *) (X)) /* How to get char ptr from F77 argument */
10-gctime (fstr, lstr) f77_char *fstr; int lstr; {
11+int gctime (fstr, lstr) f77_char *fstr; int lstr; {
12 long time(), t;
13 char *ctime();
14 t = time ( (long *) 0);
15 strcpy(CH_F2C(fstr),ctime(&t));
16 return (0);
17 }
18-gctime_(fstr, lstr) f77_char *fstr; int lstr; {
19+int gctime_(fstr, lstr) f77_char *fstr; int lstr; {
20 long time(), t;
21 char *ctime();
22 t = time ( (long *) 0);