SUBROUTINE SCVTTI (RTIME, STIME, IRET) C***************************************************************************** C C Description : This routine converts a real (=time in seconds past midnight) C to a string with notation: hh:mm:ss.tt C C Arguments : RTIME = REAL with time C STIME = STRING returning the time in: hh:mm:ss.tt C IRET = return code C -1 - illegal (=negative) time C 0 - normal return C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 20-may-83 C C Module name : SCVTTI.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE SCVTTI C C Updates : name version C C***************************************************************************** BYTE STIME(12) C CALL SCOPY(' ',STIME) IRET=-1 IF (RTIME.LT.0.) GOTO 99 RTIMO=RTIME IHT=RTIMO/3600. IHOUR=MOD(IHT,24) ! determine hours RTIMO=RTIMO-FLOAT(IHT)*3600. IMIN=RTIMO/60. ! determine minutes RTIMO=RTIMO-FLOAT(IMIN)*60. ISEC=RTIMO ! determine seconds RTIKS=(RTIMO-FLOAT(ISEC))/2. ! and tiks RTIMO=FLOAT(IHOUR)*10000.+FLOAT(IMIN)*100.+FLOAT(ISEC)+RTIKS CALL SCVTR(RTIMO,'99:99:99.99',STIME) IRET=0 99 RETURN END