hto_puttime Module Reference

Functions/Subroutines
subroutine	hto_timestamp ()

Function/Subroutine Documentation

hto_timestamp()

subroutine hto_puttime::hto_timestamp

Definition at line 101 of file CALLING_cpHTO.f.

*
!**************************************************************************80
!
!! TIMESTAMP prints the current YMDHMS date as a time stamp.
!
!  Example:
!
!    31 May 2001   9:45:54.872 AM
!
!  Modified:
!
!    06 August 2005
!
!  Author:
!
!    John Burkardt
!
!  Parameters:
!
!    None
!
      IMPLICIT NONE
      
      CHARACTER (len=8) ampm
      INTEGER d
      INTEGER h
      INTEGER m
      INTEGER mm
      CHARACTER (len= 9), parameter, dimension(12) :: month= (/ 
     #  'January  ', 'February ', 'March    ', 'April    ', 
     #  'May      ', 'June     ', 'July     ', 'August   ', 
     #  'September', 'October  ', 'November ', 'December ' /)
      INTEGER n
      INTEGER s
      INTEGER values(8)
      INTEGER y
      
      CALL date_and_time (values= values)
      
      y= values(1)
      m= values(2)
      d= values(3)
      h= values(5)
      n= values(6)
      s= values(7)
      mm= values(8)
      
      IF(h < 12) THEN
         ampm= 'AM'
      ELSE IF (h== 12) THEN
         IF(n== 0 .and. s== 0) THEN
            ampm= 'Noon'
         ELSE
            ampm= 'PM'
         ENDIF
      ELSE
         h= h-12
         IF(h < 12) THEN
            ampm= 'PM'
         ELSE IF (h== 12) THEN
            IF(n== 0 .and. s== 0) THEN
               ampm= 'Midnight'
            ELSE
               ampm= 'AM'
            ENDIF
         ENDIF
      ENDIF
      
      WRITE (*,'(i2,1x,a,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3,1x,a)') 
     #    d,trim(month(m)),y,h,':',n,':',s,'.',mm,trim(ampm)
 
      RETURN