Page 1 Source Listing RADIAN2023 2023-12-19 11:24 FOR\RADIAN2023.F90 1 program RADIAN2023 2 implicit none 3 real(4), parameter :: pi = 4.0 * atan(1.0) 4 real(4) :: deg, rad 5 real(8), parameter :: pid = 4.0d0 * datan(1.0d0) 6 real(8) :: degd, radd 7 real(16), parameter :: piq = 4.0q0 * qatan(1.0q0) 8 real(16) :: degq, radq 9 10 print *, "PRECISION of RADIAN by Fortran 2023" 11 12 deg = 90.0 13 rad = deg / 180.0 * pi 14 print *, "+SINGLE PRECISION" 15 print *, sind(deg), sin(rad) 16 print *, cosd(deg), cos(rad) 17 print *, tand(deg), tan(rad) 18 19 degd = 90.0d0 20 radd = degd / 180.0d0 * pid 21 print *, "+DOUBLE PRECISION" 22 print *, dsind(degd), dsin(radd) 23 print *, dcosd(degd), dcos(radd) 24 print *, dtand(degd), dtan(radd) 25 26 degq = 90.0q0 27 radq = degq / 180.0q0 * piq 28 print *, "+QUAD PRECISION" 29 print *, qsind(degq), qsin(radq) 30 print *, qcosd(degq), qcos(radq) 31 print *, qtand(degq), qtan(radq) 32 33 end program RADIAN2023 Page 2 Source Listing RADIAN2023 2023-12-19 11:24 Entry Points FOR\RADIAN2023.F90 ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ATAN Func 3 scalar 3 COS Func 16 scalar 16 COSD Func 16 scalar 16 DATAN Func 5 scalar 5 DCOS Func 23 scalar 23 DCOSD Func 23 scalar 23 DEG Local 4 R(4) 4 scalar 12,13,15,16,17 DEGD Local 6 R(8) 8 scalar 19,20,22,23,24 DEGQ Local 8 R(16) 16 scalar 26,27,29,30,31 DSIN Func 22 scalar 22 DSIND Func 22 scalar 22 DTAN Func 24 scalar 24 DTAND Func 24 scalar 24 PI Param 3 R(4) 4 scalar 13 PID Param 5 R(8) 8 scalar 20 PIQ Param 7 R(16) 16 scalar 27 QATAN Func 7 scalar 7 QCOS Func 30 scalar 30 QCOSD Func 30 scalar 30 QSIN Func 29 scalar 29 QSIND Func 29 scalar 29 QTAN Func 31 scalar 31 QTAND Func 31 scalar 31 RAD Local 4 R(4) 4 scalar 13,15,16,17 RADD Local 6 R(8) 8 scalar 20,22,23,24 RADIAN2023 Prog 1 RADQ Local 8 R(16) 16 scalar 27,29,30,31 SIN Func 15 scalar 15 SIND Func 15 scalar 15 TAN Func 17 scalar 17 TAND Func 17 scalar 17 Page 3 Source Listing RADIAN2023 2023-12-19 11:24 Subprograms/Common Blocks FOR\RADIAN2023.F90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References RADIAN2023 Prog 1 COMPILER: Intel(R) Fortran 24.0-1238 RADIAN2023.EXEyIntel Fortran CompilerzŽÀsŒ‹‰Ê PRECISION of RADIAN by Fortran 2023 +SINGLE PRECISION 1.000000 1.000000 0.0000000E+00 -1.6292068E-07 Infinity -6137956. +DOUBLE PRECISION 1.00000000000000 1.00000000000000 0.000000000000000E+000 6.123233995736766E-017 Infinity 1.633123935319537E+016 +QUAD PRECISION 1.00000000000000000000000000000000 1.00000000000000000000000000000000 0.000000000000000000000000000000000E+0000 4.335905065061890512398522013021676E-0035 Infinity 2.306323558737156172766198381637374E+0034