Page 1 Source Listing MAIN 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 1 C ****************************************************************** 2 C ** ** 3 C ** Calculation of PAI ** 4 C ** for IBM FORTRAN77 Subset Compiler V1.00 ** 5 C ** arrangement by Intel Fortran Compiler V2023.1.0 ** 6 C ** ** 7 C ** K,Sudou.(C)1985-2023 ** 8 C ** ** 9 C ****************************************************************** 10 C 11 C ****************************************************** 12 C 13 C MAIN-PROGRAMM : MAIN ( FORT77PI90 ) 14 C 15 PROGRAM MAIN 16 C 17 USE DFPORT 18 USE DFLIB 19 INTEGER*2 GETDATES(3),GETTIMES(4), GETDATEE(3),GETTIMEE(4) 20 C 21 INTEGER*4 A(252),B(252),C(10),CS,EF,I,ID,II,IP2,IS,ISS,J,K,KETA 22 & L,LD,M,MM,N,PAI(252),TE 23 COMMON PAI,A,B,L,M,ISS 24 C 25 ****** 26 C OPEN(6,FILE=' ',STATUS='NEW') 27 WRITE(*,'(A\)') ' KETA(I5)=' 28 ****** 29 LD=1 30 TE=10 31 EF=239 32 READ(*,200) KETA 33 200 FORMAT(I5) 34 35 CALL GETDAT( GETDATES(1),GETDATES(2),GETDATES(3) ) 36 CALL GETTIM( GETTIMES(1),GETTIMES(2),GETTIMES(3),GETTIMES(4) ) 37 WRITE(*,'(3I4\)') GETDATES(1),GETDATES(2),GETDATES(3) 38 WRITE(*,'(4I3)') GETTIMES(1),GETTIMES(2),GETTIMES(3),GETTIMES(4) 39 40 IS=KETA/4+1 41 ISS=IS+1 42 CALL CLEAR(PAI,ISS) 43 CALL CLEAR(A,ISS) 44 CALL CLEAR(B,ISS) 45 L=10000 46 M=1 47 A(1)=16*5 48 ID=5*5 49 C 50 DO 10 I=1,10000,4 51 CALL DIVID(ID,A) 52 II=I 53 CALL DIVID(II,B) 54 CALL ADD 55 IP2=I+2 56 CALL DIVID(ID,A) 57 CALL DIVID(IP2,B) Page 2 Source Listing MAIN 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 58 CALL SUBTR 59 1 IF(A(M)) 10,2,10 60 2 M=M+1 61 IF(M-ISS) 1,1,11 62 10 CONTINUE 63 C 64 11 CALL CLEAR(A,ISS) 65 CALL CLEAR(B,ISS) 66 M=1 67 A(1)=4*239 68 ID=EF*EF 69 C 70 DO 20 I=1,10000,4 71 CALL DIVID(ID,A) 72 II=I 73 CALL DIVID(II,B) 74 CALL SUBTR 75 IP2=I+2 76 CALL DIVID(ID,A) 77 CALL DIVID(IP2,B) 78 CALL ADD 79 12 IF(A(M)) 20,13,20 80 13 M=M+1 81 IF(M-ISS) 12,12,21 82 20 CONTINUE 83 C 84 21 DO 99 MM=1,10 85 C(MM)=0 86 99 CONTINUE 87 C 88 DO 40 I=2,IS 89 N=PAI(I) 90 DO 30 J=1,4 91 K=N-N/TE*TE+LD 92 C(K)=C(K)+LD 93 N=N/TE 94 30 CONTINUE 95 40 CONTINUE 96 C 97 CALL GETDAT( GETDATEE(1),GETDATEE(2),GETDATEE(3) ) 98 CALL GETTIM( GETTIMEE(1),GETTIMEE(2),GETTIMEE(3),GETTIMEE(4) ) 99 WRITE(*,'(3I4\)') GETDATEE(1),GETDATEE(2),GETDATEE(3) 100 WRITE(*,'(4I3)') GETTIMEE(1),GETTIMEE(2),GETTIMEE(3),GETTIMEE(4) 101 C 102 WRITE(6,110) KETA,PAI(1) 103 110 FORMAT(/,10X,'***** CALCULATION OF PAI -', 104 & ' ',I5,' DECIMAL PLACES *****'//I2,1H./) 105 CALL PRINT(IS) 106 WRITE(6,130) 107 130 FORMAT(/,3X,5HSUUJI,7X,5HDOSUU) 108 DO 50 I=1,10 109 J=I-1 110 WRITE(6,140) J,C(I) 111 140 FORMAT(1H ,6X,I2,7X,I5) 112 50 CONTINUE 113 C 114 STOP Page 3 Source Listing MAIN 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 115 END ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References Common 23 3036 1 Label 59 61 10 Label 62 50,59 11 Label 64 61 110 Label 103 102 12 Label 79 81 13 Label 80 79 130 Label 107 106 140 Label 111 110 2 Label 60 59 20 Label 82 70,79 200 Label 33 32 21 Label 84 81 30 Label 94 90 40 Label 95 88 50 Label 112 108 99 Label 86 84 ADD Subr 54 54,78 C Local 21 I(4) 4 1 10 85,92,110 CLEAR Subr 42 42,43,44,64,65 CS Local 21 I(4) 4 scalar DFLIB Module 18 18 DFPORT Module 17 17 DIVID Subr 51 51,53,56,57,71,73,76,77 EF Local 21 I(4) 4 scalar 31,68 GETDAT Subr 35 35,97 GETDATEE Local 19 I(2) 2 1 3 97,99 GETDATES Local 19 I(2) 2 1 3 35,37 GETDATI2 Subr 35 35,97 GETTIM Subr 36 36,98 GETTIMEE Local 19 I(2) 2 1 4 98,100 GETTIMES Local 19 I(2) 2 1 4 36,38 GETTIMI2 Subr 36 36,98 I Local 21 I(4) 4 scalar 50,52,55,70,72,75,88,89,108,109,11 0 ID Local 21 I(4) 4 scalar 48,51,56,68,71,76 II Local 21 I(4) 4 scalar 52,53,72,73 IP2 Local 21 I(4) 4 scalar 55,57,75,77 IS Local 21 I(4) 4 scalar 40,41,88,105 J Local 21 I(4) 4 scalar 90,109,110 K Local 21 I(4) 4 scalar 91,92 KETA Local 32 I(4) 4 scalar 32,40,102 KETAL Local 21 I(4) 4 scalar Page 4 Source Listing MAIN 2024-02-18 13:18 Symbol Table FOR\FORT77PIiFX.FOR Name Object Declared Type Bytes Dimen Elements Attributes References LD Local 22 I(4) 4 scalar 29,91,92 MAIN Prog 15 MM Local 22 I(4) 4 scalar 84,85 N Local 22 I(4) 4 scalar 89,91,93 PRINT Subr 105 105 SUBTR Subr 58 58,74 TE Local 22 I(4) 4 scalar 30,91,93 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References A I(4) 4 1008 1 252 COM 43,47,51,56,59,64,67,71,76,79 B I(4) 4 2016 1 252 COM 44,53,57,65,73,77 ISS I(4) 4 3032 scalar COM 41,42,43,44,61,64,65,81 L I(4) 4 3024 scalar COM 45 M I(4) 4 3028 scalar COM 46,59,60,61,66,79,80,81 PAI I(4) 4 0 1 252 COM 42,89,102 Page 5 Source Listing MAIN 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 116 117 C 118 C SUB-PROGRAMM : CLEAR 119 C 120 SUBROUTINE CLEAR(U,V) 121 C 122 INTEGER*4 I,U(252),V 123 C 124 DO 10 I=1,V 125 U(I)=0 126 10 CONTINUE 127 C 128 RETURN 129 END ENTRY POINTS Address Type Name CLEAR SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 126 124 CLEAR Subr 120 I Local 122 I(4) 4 scalar 124,125 U Dummy 122 I(4) 4 1 252 ARG,INOUT 125 V Dummy 122 I(4) 4 scalar ARG,INOUT 124 Page 6 Source Listing CLEAR 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 130 131 C 132 C SUB-PROGRAMM : DIVIDE 133 C 134 SUBROUTINE DIVID(NN,AB) 135 C 136 INTEGER*4 A(252),AB(252),B(252),I,ISS,L,M,NN,O,PAI(252),R 137 COMMON PAI,A,B,L,M,ISS 138 C 139 R=0 140 DO 10 I=M,ISS 141 O=A(I)+R*L 142 AB(I)=O/NN 143 R=O-NN*AB(I) 144 10 CONTINUE 145 C 146 RETURN 147 END ENTRY POINTS Address Type Name DIVID SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References Common 137 3036 10 Label 144 140 AB Dummy 136 I(4) 4 1 252 ARG,INOUT 142,143 DIVID Subr 134 I Local 136 I(4) 4 scalar 140,141,142,143 NN Dummy 136 I(4) 4 scalar ARG,INOUT 142,143 O Local 136 I(4) 4 scalar 141,142,143 R Local 136 I(4) 4 scalar 139,141,143 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References A I(4) 4 1008 1 252 COM 141 B I(4) 4 2016 1 252 COM ISS I(4) 4 3032 scalar COM 140 L I(4) 4 3024 scalar COM 141 M I(4) 4 3028 scalar COM 140 PAI I(4) 4 0 1 252 COM Page 7 Source Listing DIVID 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 148 149 C 150 C SUB-PROGRAMM : ADD 151 C 152 SUBROUTINE ADD 153 C 154 INTEGER*4 A(252),B(252),I,IC,ISS,J,L,M,PAI(252) 155 COMMON PAI,A,B,L,M,ISS 156 C 157 IC=0 158 DO 10 I=M,ISS 159 J=M+ISS-I 160 PAI(J)=PAI(J)+B(J)+IC 161 IC=0 162 IF(PAI(J)-L) 10,1,1 163 1 PAI(J)=PAI(J)-L 164 IC=1 165 10 CONTINUE 166 C 167 RETURN 168 END ENTRY POINTS Address Type Name ADD Page 8 Source Listing ADD 2024-02-18 13:18 Symbol Table FOR\FORT77PIiFX.FOR SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References Common 155 3036 1 Label 163 162 10 Label 165 158,162 ADD Subr 152 I Local 154 I(4) 4 scalar 158,159 IC Local 154 I(4) 4 scalar 157,160,161,164 J Local 154 I(4) 4 scalar 159,160,162,163 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References A I(4) 4 1008 1 252 COM B I(4) 4 2016 1 252 COM 160 ISS I(4) 4 3032 scalar COM 158,159 L I(4) 4 3024 scalar COM 162,163 M I(4) 4 3028 scalar COM 158,159 PAI I(4) 4 0 1 252 COM 160,162,163 Page 9 Source Listing ADD 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 169 170 C 171 C SUB-PROGRAMM : SUBTRACT 172 C 173 SUBROUTINE SUBTR 174 C 175 INTEGER*4 A(252),B(252),I,IB,ISS,J,L,M,PAI(252) 176 COMMON PAI,A,B,L,M,ISS 177 C 178 IB=0 179 DO 10 I=M,ISS 180 J=M+ISS-I 181 PAI(J)=PAI(J)-B(J)-IB 182 IB=0 183 IF(PAI(J)) 1,10,10 184 1 PAI(J)=PAI(J)+L 185 IB=1 186 10 CONTINUE 187 C 188 RETURN 189 END ENTRY POINTS Address Type Name SUBTR Page 10 Source Listing SUBTR 2024-02-18 13:18 Symbol Table FOR\FORT77PIiFX.FOR SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References Common 176 3036 1 Label 184 183 10 Label 186 179,183 I Local 175 I(4) 4 scalar 179,180 IB Local 175 I(4) 4 scalar 178,181,182,185 J Local 175 I(4) 4 scalar 180,181,183,184 SUBTR Subr 173 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References A I(4) 4 1008 1 252 COM B I(4) 4 2016 1 252 COM 181 ISS I(4) 4 3032 scalar COM 179,180 L I(4) 4 3024 scalar COM 184 M I(4) 4 3028 scalar COM 179,180 PAI I(4) 4 0 1 252 COM 181,183,184 Page 11 Source Listing SUBTR 2024-02-18 13:18 FOR\FORT77PIiFX.FOR 190 191 C 192 C SUB-PROGRAMM : PRINT 193 C 194 SUBROUTINE PRINT(IS) 195 C 196 INTEGER*4 I,IS,J,K2,K3,K4,KO(100),L,PAI(252) 197 COMMON PAI 198 C 199 I=2 200 20 DO 10 J=1,100,4 201 K2=PAI(I) 202 KO(J)=K2/1000 203 K3=MOD(K2,1000) 204 KO(J+1)=K3/100 205 K4=MOD(K3,100) 206 KO(J+2)=K4/10 207 KO(J+3)=MOD(K4,10) 208 I=I+1 209 10 CONTINUE 210 C 211 WRITE(6,120) (KO(L),L=1,100) 212 120 FORMAT(1H ,10(1X,10I1)) 213 IF(I.LE.IS) GO TO 20 214 C 215 RETURN 216 END ENTRY POINTS Address Type Name PRINT Page 12 Source Listing PRINT 2024-02-18 13:18 Symbol Table FOR\FORT77PIiFX.FOR SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References Common 197 1008 10 Label 209 200 120 Label 212 211 20 Label 200 213 I Local 196 I(4) 4 scalar 199,201,208,213 IS Dummy 196 I(4) 4 scalar ARG,INOUT 213 J Local 196 I(4) 4 scalar 200,202,204,206,207 K2 Local 196 I(4) 4 scalar 201,202,203 K3 Local 196 I(4) 4 scalar 203,204,205 K4 Local 196 I(4) 4 scalar 205,206,207 KO Local 196 I(4) 4 1 100 202,204,206,207,211 L Local 196 I(4) 4 scalar 211 MOD Func 203 scalar 203,205,207 PRINT Subr 194 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References PAI I(4) 4 0 1 252 COM 201 Page 13 Source Listing PRINT 2024-02-18 13:18 Subprograms/Common Blocks FOR\FORT77PIiFX.FOR SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ADD Subr 152 CLEAR Subr 120 DIVID Subr 134 MAIN Prog 15 PRINT Subr 194 SUBTR Subr 173 COMPILER OPTIONS BEING USED /noOa /Qansi-alias /align:noall /align:nonone /align:nocommons /align:nodcommons /align:noqcommons /align:nozcommons /align:records /align:nosequence /align:norec1byte /align:norec2byte /align:norec4byte /align:norec8byte /align:norec16byte /align:norec32byte /align:norec64byte /align:noarray8byte /align:noarray16byte /align:noarray32byte /align:noarray64byte /align:noarray128byte /align:noarray256byte /altparam /assume:accuracy_sensitive /assume:noaligned_dummy_args /assume:nobscc /assume:nobuffered_io /assume:nobuffered_stdout /assume:nobyterecl /assume:nocontiguous_assumed_shape /assume:nocontiguous_pointer /assume:nocc_omp /assume:nocstring /assume:nodummy_aliases /assume:nofailed_images /assume:nofpe_summary /assume:noieee_compares /assume:noieee_fpe_flags /assume:nominus0 /assume:noold_boz /assume:old_complex_align /assume:old_e0g0_format /assume:old_unit_star /assume:old_inquire_recl /assume:old_ldout_format /assume:old_ldout_zero /assume:noold_logical_assign /assume:noold_logical_ldio /assume:old_maxminloc /assume:old_xor /assume:noprotect_allocates /assume:protect_constants /assume:noprotect_parens /assume:realloc_lhs /assume:norecursion /assume:source_include /assume:nostd_fp_fmt /assume:nostd_intent_in /assume:std_minus0_rounding /assume:nostd_mod_proc_name /assume:std_value /assume:nounderscore /assume:no2underscores /noauto /auto_scalar /nobintext /ccdefault:default /check:noarg_temp_created /check:noassume /check:nobounds /check:nocontiguous /check:noformat /check:nooutput_conversion /check:nooverflow /check:nopointers /check:noshape /check:nostack /check:noteams /check:nouninitialized /check:noudio_iostat /Qcoarray-num-procs:0 /noQcoarray-config-file /convert:native Page 14 Source Listing PRINT 2024-02-18 13:18 FOR\FORT77PIiFX.FOR /cross_reference /D:__INTEL_LLVM_COMPILER=20240002 /D:__INTEL_LLVM_COMPILER_UPDATE=2 /D:_WIN32 /D:_M_AMD64=100 /D:_M_X64=100 /D:_WIN64=1 /D:_MSC_VER=1939 /D:_MSC_FULL_VER=193933519 /D:_MSC_EXTENSIONS /D:__MS_VC_INSTALL_PATH='D:\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.39.33519\' /D:_MT /D:__INTEL_COMPILER_BUILD_DATE=20231213 /D:__INTEL_COMPILER=20240002 /D:__INTEL_COMPILER_UPDATE=2 /double_size:64 /nod_lines /noQdyncom /emit-obj /error_limit:30 /nof66 /f77rtl /nofast /fpscomp:nofilesfromcmd /fpscomp:nogeneral /fpscomp:noioformat /fpscomp:noldio_spacing /fpscomp:nolibs /fpscomp:nologicals /fveclib=:SVML /floopopt-pipeline=:light /fixed /nofpconstant /fpe3 /ftz /fp_model:noprecise /fp_model:fast /fp_model:nostrict /fp_model:nosource /fp_model:nodouble /fp_model:noextended /fp_model:novery_fast /fp_model:noexcept /fp_model:nono_except /heap_arrays:0 /nothreadprivate_compat /fintel-libirc-allowed /mframe-pointer:noall /mframe-pointer:nonon-leaf /mframe-pointer:none /debug0 /nogcodeview /iface:noc /iface:nocref /iface:nocvf /iface:default /iface:nostdcall /iface:nostdref /iface:nomixed_str_len_arg /iface:nono_mixed_str_len_arg /Qinit:noarrays /Qinit:nohuge /Qinit:noinfinity /Qinit:nominus_huge /Qinit:nominus_infinity /Qinit:nominus_tiny /Qinit:nonan /Qinit:nosnan /Qinit:notiny /Qinit:nozero /nointconstant /integer_size:32 /libdir:automatic /libdir:user /nomodule /names: /nonoinclude /object:OBJ\FORT77PIiFX.OBJ /-dependent-lib:libcmt /-dependent-lib:ifconsol.lib /-dependent-lib:libifcoremt.lib /-dependent-lib:libifport.lib /-dependent-lib:libircmt /-dependent-lib:libmmt /-dependent-lib:oldnames /-dependent-lib:svml_dispmt /Qoffload-build:host /Qopenmp-target-do-concurrent /Qopenmp-simd /O2 /nopad_source /pic-level:2 /real_size:32 /norecursive /reentrancy:threaded /Qvec:simd /show:fullpath /show:noinclude /show:map /show:options /nosyntax_only /target-cpu:x86-64 /nothreadcom /triple:x86_64-pc-windows-msvc /noU /novms /warn:noall /warn:nonone /warn:alignments /warn:nodeclarations /warn:noexternals /warn:general /warn:noignore_bounds /warn:noignore_loc Page 15 Source Listing PRINT 2024-02-18 13:18 FOR\FORT77PIiFX.FOR /warn:nointerfaces /warn:noshape /warn:notruncated_source /warn:uncalled /warn:uninitialized /warn:nounused /warn:usage /nowrap-margins /include path : C:\Program Files (x86)\Intel\oneAPI\mpi\latest\env\\..\include\,C:\Program Files (x86)\Intel\oneAPI\ipp\latest\include\, C:\Program Files (x86)\Intel\oneAPI\dal\latest\include\dal\,C:\PROGRA~2\Intel\oneAPI\compiler\latest\lib\clang\17\include\, D:\Windows Kits\10\include\10.0.22621.0\ucrt\,D:\Windows Kits\10\\include\10.0.22621.0\\cppwinrt\,FOR\, .\,C:\Program Files (x86)\Intel\oneAPI\tbb\latest\env\..\include\,C:\Program Files (x86)\Intel\oneAPI\mpi\latest\env\\..\include\, C:\Program Files (x86)\Intel\oneAPI\mkl\latest\include\,C:\Program Files (x86)\Intel\oneAPI\itac\2022.0\include\, C:\Program Files (x86)\Intel\oneAPI\ippcp\latest\include\,C:\Program Files (x86)\Intel\oneAPI\ipp\latest\include\, C:\Program Files (x86)\Intel\oneAPI\dpcpp-ct\latest\env\..\include\,C:\Program Files (x86)\Intel\oneAPI\dnnl\latest\env\..\include\, C:\Program Files (x86)\Intel\oneAPI\dev-utilities\latest\include\,C:\Program Files (x86)\Intel\oneAPI\dal\latest\include\dal\, C:\Program Files (x86)\Intel\oneAPI\compiler\latest\include\,C:\PROGRA~2\Intel\oneAPI\compiler\latest\include\, C:\PROGRA~2\Intel\oneAPI\compiler\latest\opt\compiler\include\,C:\PROGRA~2\Intel\oneAPI\compiler\latest\lib\clang\17\include\, D:\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.39.33519\include\,D:\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.39.33519\ATLMFC\include\, D:\Microsoft Visual Studio\2022\Community\VC\Auxiliary\VS\include\,D:\Windows Kits\10\include\10.0.22621.0\ucrt\, D:\Windows Kits\10\\include\10.0.22621.0\\um\,D:\Windows Kits\10\\include\10.0.22621.0\\shared\,D:\Windows Kits\10\\include\10.0.22621.0\\winrt\, D:\Windows Kits\10\\include\10.0.22621.0\\cppwinrt\,C:\Program Files (x86)\Intel\oneAPI\tbb\latest\env\..\include\, C:\Program Files (x86)\Intel\oneAPI\mpi\latest\env\\..\include\,C:\Program Files (x86)\Intel\oneAPI\mkl\latest\include\, C:\Program Files (x86)\Intel\oneAPI\itac\2022.0\include\,C:\Program Files (x86)\Intel\oneAPI\ippcp\latest\include\, C:\Program Files (x86)\Intel\oneAPI\ipp\latest\include\,C:\Program Files (x86)\Intel\oneAPI\dpcpp-ct\latest\env\..\include\, C:\Program Files (x86)\Intel\oneAPI\dnnl\latest\env\..\include\,C:\Program Files (x86)\Intel\oneAPI\dev-utilities\latest\include\, C:\Program Files (x86)\Intel\oneAPI\dal\latest\include\dal\,C:\Program Files (x86)\Intel\oneAPI\compiler\latest\include\, D:\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.39.33519\include\,D:\Microsoft Visual Studio\2022\Community\VC\Tools\MSVC\14.39.33519\ATLMFC\include\, D:\Microsoft Visual Studio\2022\Community\VC\Auxiliary\VS\include\,D:\Windows Kits\10\include\10.0.22621.0\ucrt\, D:\Windows Kits\10\\include\10.0.22621.0\\um\,D:\Windows Kits\10\\include\10.0.22621.0\\shared\,D:\Windows Kits\10\\include\10.0.22621.0\\winrt\, D:\Windows Kits\10\\include\10.0.22621.0\\cppwinrt\ /list filename : LST\FORT77PIiFX.LST /object:OBJ\FORT77PIiFX.OBJ /Fd filename : none COMPILER: Intel(R) Fortran 24.0-1238