[net.micro.pc] MS-FORTRAN Time and Date

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