SUBROUTINE GETDATETIME ( DATETIME )

Argument Definitions (+ indicates altered content)
CHARACTER*80      +DATETIME
Description
                                                                        * 
  Copyright (C) 2010 Jacek Kobus                    * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### getDateTime ### 
    Returns current date and time as a string. 
    This routine works for gfortran, g77 and ifort compilers 
    Comment the lines 
       stime=time() 
       call ctime(stime,datetime) 
    or replace them with appropriate equivalents
Source file:getDateTime.f
External Functions and Subroutines Called
SUBROUTINE         DATE_AND_TIME
Local Variables (+ indicates altered content)
CHARACTER*8        DATE
CHARACTER          DATES(8)
CHARACTER*80      +DATETIMEX
CHARACTER         +STR(80)
CHARACTER*10       TIME
CHARACTER          TIMES(10)
INTEGER           +I
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              CHARACTER*8        DATE       Local Var
                   CHARACTER          DATES()    Local Var
EQUIV              CHARACTER*80      +DATETIMEX  Local Var
                   CHARACTER         +STR()      Local Var
EQUIV              CHARACTER*10       TIME       Local Var
                   CHARACTER          TIMES()    Local Var