你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-04 11:56:53 +08:00
36 行
1.7 KiB
Fortran
36 行
1.7 KiB
Fortran
!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
|