Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!mips!dimacs.rutgers.edu!aramis.rutgers.edu!paul.rutgers.edu!njin!spcvxb.spc.edu!terry
From: terry@spcvxb.spc.edu (Terry Kennedy, Operations Mgr.)
Newsgroups: comp.os.rsts
Subject: Re: Getting the time in Fortran-IV
Message-ID: <1991Apr25.192354.1284@spcvxb.spc.edu>
Date: 25 Apr 91 19:23:54 GMT
References: <1991Apr24.040058.26544@panix.uucp>
Organization: St. Peter's College, US
Lines: 30

[As requested, I've sent the original poster this answer via mail. I'm copying 
the group in case anyone else wanted to know - tmk]

>Hi, can anyone tell me how to get the time in Fortran-IV under RSTS/E (v10)?
>I don't have any documentation for my Fortran compiler (nor do I know fortran
>very well). Please e-mail me. Thanks.

  Here's a snippet to do what you want. I've tested it using Fortran IV V2.6
under RSTS/E V10.0:

	PROGRAM DEMO
        INTEGER H,M,S
C
	CALL ITIME(H,M,S)
	WRITE (7,100) H,M,S
 100	FORMAT (1X,3(I2,1X))
	END
C ------ SNIP HERE ------
	SUBROUTINE ITIME(H,M,S)
	IMPLICIT INTEGER(A-Z)
	INTEGER*4 T
C
	CALL GTIM(T)			!GET TIME IN TICKS.
	CALL CVTTIM(T,H,M,S,TK)		!CONVERT TO H,M,S,TICKS.
	RETURN
	END

	Terry Kennedy		Operations Manager, Academic Computing
	terry@spcvxa.bitnet	St. Peter's College, US
	terry@spcvxa.spc.edu	(201) 915-9381