nadji@uscvax.UUCP (Behzad Nadji) (07/04/85)
Using MS-FORTRAN compiler Version 3.3, one can INTERFACE to library
functions TIME and DATE by:
INTERFACE TO SUBROUTINE DATE(N,STR)
INTEGER*2 N
CHARACTER*8 STR
END
PROGRAM GETDAT
CHARACTER*8 D
CALL DATE(8,D)
WRITE(*,*)D
END
and a similar routine for TIME. Unfortunately, the TIME routine does
not return fractions of a second which I need for time-stamping. Browsing
through the FORTRAN.LIB (using LIB.EXE) I noticed that there are
some other public symbols in the same module (TIDGL) as TIME and DATE.
Namely:
DATE DIG2 MIN8 TICS
TIDQQ TIME
Knowing that TICS is in fact a builtin function in MS-PASCAL which returns
an integer representing hundredths of a second, I thought the TICS routine
of FORTRAN.LIB should do a similar thing. So I tried the following
INTERFACE:
INTERFACE TO SUBROUTINE TICS(I)
INTEGER*2 I
also
INTERFACE TO INTEGER*2 FUNCTION TICS
and even
INTERFACE TO SUBROUTINE TICS(N,STR)
CHARACTER*2 STR
INTEGER*2 N
but no luck. I tried several combinations of *n but in all cases the result
was either 0 or a blank string.
Now my questions are:
- Does anyone have a list of these library functions and their
arguments? Are they (especially TICS) listed anywhere? (They are
NOT in the manual).
- Besides interfacing to other languages, has anyone succeeded in getting
the system time accurate to fractions of a second using MS-FORTRAN?
I appreciate enlightening comments and/or pointers.
ARPA: nadji%usc-cse@csnet-relay.arpa
CSNET: nadji@usc-cse.csnet
TEL: (213) 743 - 8079
US MAIL: B. Nadji, EE-SYS, SAL339, USC
Los Angels, CA 90089-0781