Page 1 Source Listing STDENV08 2024-02-06 10:44 FOR\STDENV08.F90 1 PROGRAM STDENV08 2 3 USE,INTRINSIC :: ISO_FORTRAN_ENV 4 5 INTEGER*2 GETDATES(3),GETTIMES(4), GETDATEE(3),GETTIMEE(4) 6 7 INTEGER DATE_TIME(8) 8 CHARACTER(LEN=10) SYS_TIME(3) 9 10 CHARACTER(*),PARAMETER :: version = COMPILER_VERSION() 11 CHARACTER(*),PARAMETER :: options = COMPILER_OPTIONS() 12 13 CALL GETDAT( GETDATES(1),GETDATES(2),GETDATES(3) ) 14 CALL GETTIM( GETTIMES(1),GETTIMES(2),GETTIMES(3),GETTIMES(4) ) 15 WRITE(*,'(A\)') 'Started Date and Time : ' 16 WRITE(*,'(I5,2I3\)') GETDATES(1),GETDATES(2),GETDATES(3) 17 WRITE(*,'(4I3)') GETTIMES(1),GETTIMES(2),GETTIMES(3),GETTIMES(4) 18 19 PRINT *,'Compiler Version:' 20 WRITE(*,'(A/)') version 21 PRINT *,'Compiler Options:' 22 WRITE(*,'(A/)') options 23 24 CALL DATE_AND_TIME( SYS_TIME(1),SYS_TIME(2),SYS_TIME(3),DATE_TIME ) 25 PRINT *,'System Date and Time:' 26 WRITE(*,'(A,1X,A)') "SYS_TIME(1) YYYYMMDD =",SYS_TIME(1) 27 WRITE(*,'(A,1X,A)') "SYS_TIME(2) hhmmss.sss =",SYS_TIME(2) 28 WRITE(*,'(A,1X,A)') "SYS_TIME(3) Time Zone =",SYS_TIME(3) 29 WRITE(*,'(A,1X,I4)') "DATE_TIME(1) YYYY =",DATE_TIME(1) 30 WRITE(*,'(A,1X,I4)') "DATE_TIME(2) MM =",DATE_TIME(2) 31 WRITE(*,'(A,1X,I4)') "DATE_TIME(3) DD =",DATE_TIME(3) 32 WRITE(*,'(A,1X,I4)') "DATE_TIME(4) Zone min. =",DATE_TIME(4) 33 WRITE(*,'(A,1X,I4)') "DATE_TIME(5) hh =",DATE_TIME(5) 34 WRITE(*,'(A,1X,I4)') "DATE_TIME(6) mm =",DATE_TIME(6) 35 WRITE(*,'(A,1X,I4)') "DATE_TIME(7) ss =",DATE_TIME(7) 36 WRITE(*,'(A,1X,I4)') "DATE_TIME(8) sss =",DATE_TIME(8) 37 38 CALL GETDAT( GETDATEE(1),GETDATEE(2),GETDATEE(3) ) 39 CALL GETTIM( GETTIMEE(1),GETTIMEE(2),GETTIMEE(3),GETTIMEE(4) ) 40 WRITE(*,'(A\)') 'Ended Date and Time : ' 41 WRITE(*,'(I5,2I3\)') GETDATEE(1),GETDATEE(2),GETDATEE(3) 42 WRITE(*,'(4I3)') GETTIMEE(1),GETTIMEE(2),GETTIMEE(3),GETTIMEE(4) 43 44 END PROGRAM STDENV08 Page 2 Source Listing STDENV08 2024-02-06 10:44 Entry Points FOR\STDENV08.F90 ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COMPILER_OPTIONS Func 11 scalar 11 COMPILER_VERSION Func 10 scalar 10 DATE_AND_TIME Intrin 24 24 DATE_TIME Local 7 I(4) 4 1 8 24,29,30,31,32,33,34,35,36 GETDAT Subr 13 13,38 GETDATEE Local 5 I(2) 2 1 3 38,41 GETDATES Local 5 I(2) 2 1 3 13,16 GETTIM Subr 14 14,39 GETTIMEE Local 5 I(2) 2 1 4 39,42 GETTIMES Local 5 I(2) 2 1 4 14,17 ISO_FORTRAN_ENV Module 3 3 OPTIONS Param 11 CHAR 177 scalar 22 STDENV08 Prog 1 SYS_TIME Local 8 CHAR 10 1 3 24,26,27,28 VERSION Param 10 CHAR 98 scalar 20 Page 3 Source Listing STDENV08 2024-02-06 10:44 Subprograms/Common Blocks FOR\STDENV08.F90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References STDENV08 Prog 1 COMPILER: Intel(R) Fortran 24.0-1238 STDENV08.EXEyIntel Fortran CompilerzŽÀsŒ‹‰Ê Started Date and Time : 2024 2 6 10 45 0 0 Compiler Version: Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version 2024.0.2 Build 20231213 Compiler Options: /check:all /debug:all /debug-parameters:all /traceback /list:LST\STDENV08.LST /show:noinclude,nooptions /pdbfile:PDB\STDENV08.PDB /object:OBJ\STDENV08.OBJ /exe:EXE\STDENV08.EXE System Date and Time: SYS_TIME(1) YYYYMMDD = 20240206 SYS_TIME(2) hhmmss.sss = 104459.997 SYS_TIME(3) Time Zone = +0900 DATE_TIME(1) YYYY = 2024 DATE_TIME(2) MM = 2 DATE_TIME(3) DD = 6 DATE_TIME(4) Zone min. = 540 DATE_TIME(5) hh = 10 DATE_TIME(6) mm = 44 DATE_TIME(7) ss = 59 DATE_TIME(8) sss = 997 Ended Date and Time : 2024 2 6 10 45 0 1