Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site uscvax.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!mhuxt!houxm!mtuxo!mtunh!mtung!mtunf!ariel!vax135!petsd!pesnta!hplabs!sdcrdcf!uscvax!nadji
From: nadji@uscvax.UUCP (Behzad Nadji)
Newsgroups: net.micro.pc,net.lang.f77
Subject: MS-FORTRAN Time and Date
Message-ID: <626@uscvax.UUCP>
Date: Wed, 3-Jul-85 21:38:52 EDT
Article-I.D.: uscvax.626
Posted: Wed Jul  3 21:38:52 1985
Date-Received: Sun, 7-Jul-85 05:48:55 EDT
Distribution: net
Organization: CS&CE Depts, U.S.C., Los Angeles, CA
Lines: 56
Xref: watmath net.micro.pc:4466 net.lang.f77:325

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