datetime_.c (G77_date_and_time_0): Return milliseconds as such, not as microseconds.

1999-01-15  Dave Love  <fx@gnu.org>
	* libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as
	such, not as microseconds.
	(scopy): Declare.

From-SVN: r24677

libf2c/ChangeLog

+1999-01-15  Dave Love  <fx@gnu.org>
+
+	* libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as
+	such, not as microseconds.
+	(scopy): Declare.
+
 1998-11-26  Manfred Hollstein  <manfred@s-direktnet.de>
 
 	* configure.in (compiler_name): Add check to detect if this
@@ -6,10 +12,10 @@
 
 Mon Nov 23 16:52:22 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
-	*  configure.in: Use AC_PREREQ(2.12.1).
-	*  libF77/configure.in: Likewise.
-	*  libI77/configure.in: Likewise.
-	*  libU77/configure.in: Likewise.
+	* configure.in: Use AC_PREREQ(2.12.1).
+	* libF77/configure.in: Likewise.
+	* libI77/configure.in: Likewise.
+	* libU77/configure.in: Likewise.
 
 1998-10-24  Dave Love  <d.love@dl.ac.uk>
 

libf2c/libU77/datetime_.c

@@ -32,6 +32,12 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
+#ifdef KR_headers
+VOID s_copy ();
+#else
+void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+#endif
+
 int G77_date_and_time_0 (char *date, char *fftime, char *zone,
 			 integer *values, ftnlen date_len,
 			 ftnlen fftime_len, ftnlen zone_len)
@@ -58,7 +64,7 @@ int G77_date_and_time_0 (char *date, char *fftime, char *zone,
     struct timeval tp;
     struct timezone tzp;
     if (! gettimeofday (&tp, &tzp))
-      vals[7] = tp.tv_usec;
+      vals[7] = tp.tv_usec/1000;
   }
 #endif
   if (values)			/* null pointer for missing optional */