TITLE SECOND - FORTRAN SUBROUTINE TO RETURN FLOATING POINT SECONDS OF RUN TIME ;STANDARD FORTRAN-10 LINKAGE ;ARGUMENTS ARE PASSED STARTING AT THE LOCATION POINTED TO BY AC16 ;CALL IS BY PUSHJ ENTRY SECOND SECOND: SETZ 0, ; ZERO MEANS THIS JOB RUNTIM 0, FLTR 0,0 ; FLOAT IT FDVRI 0,212764 ; DIVIDE BY 1000. MOVEM 0, @(16) ;RETURN DATA POPJ 17, END