45 行
1.6 KiB
Fortran
45 行
1.6 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
|
|
! CALL idate(FortranDate)
|
|
! CALL itime(FortranTime)
|
|
! 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
|
|
|
|
SUBROUTINE GET_SYS_TIMEDATA(OUTPUT)
|
|
|
|
IMPLICIT NONE
|
|
|
|
CHARACTER(LEN=20) :: OUTPUT
|
|
CHARACTER(LEN=8) :: DATE
|
|
CHARACTER(LEN=10) :: TIME
|
|
|
|
CALL DATE_AND_TIME(DATE,TIME)
|
|
|
|
OUTPUT = DATE(1:4)//'-'// &
|
|
DATE(5:6)//'-'// &
|
|
DATE(7:8)//' '// &
|
|
TIME(1:2)//':'// &
|
|
TIME(3:4)//':'// &
|
|
TIME(5:6)
|
|
|
|
END SUBROUTINE GET_SYS_TIMEDATA |