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