[comp.os.rsts] Getting the time in Fortran-IV

jhawk@panix.uucp (John Hawkinson) (04/24/91)

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.

John Hawkinson
jhawk@panix.uucp

terry@spcvxb.spc.edu (Terry Kennedy, Operations Mgr.) (04/26/91)

[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