I encounter this Fortran runtime error when start solver from ElmerGUI:
Code: Select all
Fortran runtime error: Incorrect extent in VALUE argument to DATE_AND_TIME intrinsic: is 1, should be >=8
Error termination. Backtrace:
#0 0x7f88f513b38d in ???
#1 0x7f88f513bf25 in ???
#2 0x7f88f513c217 in ???
#3 0x7f88f535a0b2 in ???
#4 0x7f88f56bd663 in __generalutils_MOD_formatdate
at /home/zhiy/Elmer/fem/src/GeneralUtils.F90:318
#5 0x5570050c6fe9 in solver
at /home/zhiy/Elmer/fem/src/Solver.F90:52
#6 0x5570050c6dfe in main
at /home/zhiy/Elmer/fem/src/Solver.F90:34
Code: Select all
FUNCTION FormatDate() RESULT( date )
!------------------------------------------------------------------------------
CHARACTER( LEN=20 ) :: date
INTEGER :: dates(8)
CALL DATE_AND_TIME( VALUES=dates )
WRITE( date, &
'(I4,"/",I2.2,"/",I2.2," ",I2.2,":",I2.2,":",I2.2)' ) &
dates(1),dates(2),dates(3),dates(5),dates(6),dates(7)
!------------------------------------------------------------------------------
END FUNCTION FormatDate