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