initial

tem3dfdtd/lib/get-system-timedata.f90

@@ -0,0 +1,35 @@
+!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!Code distribution @ tdem.org or sunhuaifeng.com
+    
+SUBROUTINE GET_SYS_TIMEDATA(OUTPUT)
+  ! The original subroutien written by Huaifeng Sun can not work in PGI compiler, so I change it into what it looks like here.
+  IMPLICIT NONE
+  CHARACTER*4 TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6
+  CHARACTER*20 OUTPUT
+  integer*4 FortranDate(3),FortranTime(3)
+  INTEGER(4) TMPDAY, TMPMONTH, TMPYEAR
+  INTEGER(4) TMPHOUR, TMPMINUTE, TMPSECOND
+  
+  !the following code is optimized by hfsun@2017-5-29 to modify an warning on the use of idate
+  !I also replace the function idate with idate4 to get a 4 digital year.
+  !But I received errors when use CALL idate4(FortranDate), so I use the temp solution idate4(tmpmonth,tmpday,tmpyear)
+     
+  !CALL idate4(FortranDate)
+  CALL itime(FortranTime)
+  !tmpday=FortranDate(2); tmpmonth=FortranDate(1); tmpyear=FortranDate(3)
+  tmphour=FortranTime(1); tmpminute=FortranTime(2); tmpsecond=FortranTime(3)
+  CALL idate4(tmpmonth,tmpday,tmpyear)
+  !CALL itime(tmphour,tmpminute,tmpsecond)
+  !tmpday=FortranDate(2); tmpmonth=FortranDate(1); tmpyear=FortranDate(3)
+  !tmphour=FortranTime(1); tmpminute=FortranTime(2); tmpsecond=FortranTime(3)
+  WRITE(TEMP1,'(I4)')TMPYEAR
+  WRITE(TEMP2,'(I2)')TMPMONTH
+  WRITE(TEMP3,'(I2)')TMPDAY
+  WRITE(TEMP4,'(I4)')TMPHOUR
+  WRITE(TEMP5,'(I4)')TMPMINUTE
+  WRITE(TEMP6,'(I4)')TMPSECOND
+  OUTPUT=TRIM(ADJUSTL(TEMP1))//'-'//TRIM(ADJUSTL(TEMP2))//'-'//TRIM(ADJUSTL(TEMP3))//'  '//TRIM(ADJUSTL(TEMP4))//':'//TRIM(ADJUSTL(TEMP5))//':'//TRIM(ADJUSTL(TEMP6))
+  OUTPUT=TRIM(ADJUSTL(OUTPUT))
+  RETURN
+ENDSUBROUTINE GET_SYS_TIMEDATA