TIMDY
Gets time of day.
Required Arguments
IHOUR — Hour of the day. (Output)
IHOUR is between 0 and 23 inclusive.
MINUTE — Minute within the hour. (Output)
MINUTE is between 0 and 59 inclusive.
ISEC — Second within the minute. (Output)
ISEC is between 0 and 59 inclusive.
FORTRAN 90 Interface
Generic: CALL TIMDY (IHOUR, MINUTE, ISEC)
Specific: The specific interface name is TIMDY.
FORTRAN 77 Interface
Single: CALL TIMDY (IHOUR, MINUTE, ISEC)
Description
Routine TIMDY is used to retrieve the time of day.
Example
The following example uses TIMDY to return the current time. Obviously, the output is dependent upon the time at which the program is run.
USE TIMDY_INT
USE UMACH_INT
IMPLICIT NONE
INTEGER IHOUR, IMIN, ISEC, NOUT
!
CALL TIMDY (IHOUR, IMIN, ISEC)
CALL UMACH (2, NOUT)
WRITE (NOUT,*) 'Hour:Minute:Second = ', IHOUR, ':', IMIN, &
':', ISEC
IF (IHOUR .EQ. 0) THEN
WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC, &
' second(s) past midnight.'
ELSE IF (IHOUR .LT. 12) THEN
WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC, &
' second(s) past ', IHOUR, ' am.'
ELSE IF (IHOUR .EQ. 12) THEN
WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC, &
' second(s) past noon.'
ELSE
WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC, &
' second(s) past ', IHOUR-12, ' pm.'
END IF
END
Output
Hour:Minute:Second = 14 : 34 : 30
The time is 34 minute(s), 30 second(s) past 2 pm.
