!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
!Code distribution @ https://git.em3d.cn/
    
!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