Line data    Source code

       1             : module datetime_mod
       2             : 
       3             : implicit none
       4             : 
       5             : private
       6             : 
       7             : public :: datetime
       8             : 
       9             : contains
      10             : 
      11      122880 :    subroutine datetime(cdate, ctime) 
      12             : !-----------------------------------------------------------------------
      13             : !
      14             : ! Purpose:
      15             : !
      16             : !  A generic Date and Time routine
      17             : !
      18             : ! Author: CCM Core group
      19             : !
      20             : !-----------------------------------------------------------------------
      21             : !
      22             : ! $Id$
      23             : !
      24             : !-----------------------------------------------------------------------
      25             :    implicit none
      26             : !-----------------------------------------------------------------------
      27             : !
      28             : !-----------------------------Arguments---------------------------------
      29             :    character , intent(out) :: cdate*8 
      30             :    character , intent(out) :: ctime*8 
      31             : !-----------------------------------------------------------------------
      32             : !
      33             : !---------------------------Local Variables------------------------------
      34             :    integer, dimension(8) :: values 
      35             :    character :: date*8, time*10, zone*5 
      36             : !-----------------------------------------------------------------------
      37             :  
      38      122880 :    call date_and_time (date, time, zone, values) 
      39      122880 :    cdate(1:2) = date(5:6) 
      40      122880 :    cdate(3:3) = '/' 
      41      122880 :    cdate(4:5) = date(7:8) 
      42      122880 :    cdate(6:6) = '/' 
      43      122880 :    cdate(7:8) = date(3:4) 
      44      122880 :    ctime(1:2) = time(1:2) 
      45      122880 :    ctime(3:3) = ':' 
      46      122880 :    ctime(4:5) = time(3:4) 
      47      122880 :    ctime(6:6) = ':' 
      48      122880 :    ctime(7:8) = time(5:6) 
      49             :  
      50      122880 :    return  
      51             :    end subroutine datetime 
      52             :  
      53             : end module datetime_mod