grid_tools  1.4.0
 All Data Structures Files Functions Variables
Data Types
pietc.f90 File Reference

Double-precision constants. More...

Go to the source code of this file.

Data Types

module  pietc
 Some of the commonly used constants (pi etc) mainly for double-precision subroutines. More...
 

Detailed Description

Double-precision constants.

Author
R. J. Purser
Date
2014

Definition in file pietc.f90.

Data Type Documentation

module pietc

Some of the commonly used constants (pi etc) mainly for double-precision subroutines.

ms10 etc are needed to satisfy the some (eg., gnu fortran) compilers' more rigorous standards regarding the way "data" statements are initialized. Zero and the first few units are u0,u1,u2, etc., their reciprocals being, o2,o3 etc and their square roots, r2,r3. Reciprocal roots are or2,or3 etc.

Author
R. J. Purser
Date
2014

Definition at line 14 of file pietc.f90.

Data Fields
complex(dpc), parameter c0 complex zero
complex(dpc), parameter c1 complex one
complex(dpc), parameter ci complex i=sqrt(-1)
complex(dpc), parameter cipi complex i*pi
real(dp), parameter dtor Degrees to radians.
real(dp), parameter euler Euler-Mascheroni constant.
logical, parameter f for pain-relief in logical ops
complex(dpc), parameter mc1 complex minus-one
complex(dpc), parameter mci complex minus-i
real(dp), parameter mo2 minus-half
real(dp), parameter mo3 minus-third
real(dp), parameter mo4 minus-fourth
real(dp), parameter mo5 minus-fifth
real(dp), parameter mo6 minus-sixth
real(dp), parameter ms10 minus-sine(10 deg)
real(dp), parameter ms11 minus-sine(90/8 deg)
real(dp), parameter ms13 minus-sine(90/7 deg)
real(dp), parameter ms15 minus-sine(15 deg)
real(dp), parameter ms18 minus-sine(18 deg)
real(dp), parameter ms20 minus-sine(20 deg)
real(dp), parameter ms22 minus-sine(22.5 deg)
real(dp), parameter ms26 minus-sine(90*2/7 deg)
real(dp), parameter ms30 minus-sine(30 deg)
real(dp), parameter ms34 minus-sine(90*3/8 deg)
real(dp), parameter ms36 minus-sine(36 deg)
real(dp), parameter ms39 minus-sine(90*3/7 deg)
real(dp), parameter ms40 minus-sine(40 deg)
real(dp), parameter ms45 minus-sine(45 deg)
real(dp), parameter ms50 minus-sine(50 deg)
real(dp), parameter ms51 minus-sine(90*4/7 deg)
real(dp), parameter ms54 minus-sine(54 deg)
real(dp), parameter ms56 minus-sine(90*5/8 deg)
real(dp), parameter ms60 minus-sine(60 deg)
real(dp), parameter ms64 minus-sine(90*5/7 deg)
real(dp), parameter ms68 minus-sine(67.5 deg)
real(dp), parameter ms70 minus-sine(70 deg)
real(dp), parameter ms72 minus-sine(72 deg)
real(dp), parameter ms75 minus-sine(75 deg)
real(dp), parameter ms77 minus-sine(90*6/7 deg)
real(dp), parameter ms79 minus-sine(90*7/8 deg)
real(dp), parameter ms80 minus-sine(80 deg)
real(dp), parameter mu1 minus-one
real(dp), parameter mu2 minus-two
real(dp), parameter mu3 minus-three
real(dp), parameter mu4 minus-four
real(dp), parameter mu5 minus-five
real(dp), parameter mu6 minus-six
real(dp), parameter o2 half
real(dp), parameter o3 third
real(dp), parameter o4 fourth
real(dp), parameter o5 fifth
real(dp), parameter o6 sixth
real(dp), parameter or2 1.

/root of two

real(dp), parameter or3 1.

/root of three

real(dp), parameter or5 1.

/root of five

real(dp), parameter phi Golden number.
real(dp), parameter pi Pi.
real(dp), parameter pi2 Pi*2.
real(dp), parameter pih pi*half
real(dp), parameter r2 Square root of 2.
real(dp), parameter r3 Square root of 3.
real(dp), parameter r5 Square root of 5.
real(dp), parameter rpi square root of pi
real(dp), parameter rtod radians to degrees
real(dp), parameter s10 sine(10 deg)
real(dp), parameter s11 sine(90/8 deg)
real(dp), parameter s13 sine(90/7 deg)
real(dp), parameter s15 sine(15 deg)
real(dp), parameter s18 sine(18 deg)
real(dp), parameter s20 sine(20 deg)
real(dp), parameter s22 sine(22.5 deg)
real(dp), parameter s26 sine(90*2/7 deg)
real(dp), parameter s30 sine(30 deg)
real(dp), parameter s34 sine(90*3/8 deg)
real(dp), parameter s36 sine(36 deg)
real(dp), parameter s39 sine(90*3/7 deg)
real(dp), parameter s40 sine(40 deg)
real(dp), parameter s45 sine(45 deg)
real(dp), parameter s50 sine(50 deg)
real(dp), parameter s51 sine(90*4/7 deg)
real(dp), parameter s54 sine(54 deg)
real(dp), parameter s56 sine(90*5/8 deg)
real(dp), parameter s60 sine(60 deg)
real(dp), parameter s64 sine(90*5/7 deg)
real(dp), parameter s68 sine(67.5 deg)
real(dp), parameter s70 sine(70 deg)
real(dp), parameter s72 sine(72 deg)
real(dp), parameter s75 sine(75 deg)
real(dp), parameter s77 sine(90*6/7 deg)
real(dp), parameter s79 sine(90*7/8 deg)
real(dp), parameter s80 sine(80 deg)
logical, parameter t for pain-relief in logical ops
real(dp), parameter u0 zero
real(dp), parameter u1 one
real(dp), parameter u2 two
real(dp), parameter u3 three
real(dp), parameter u4 four
real(dp), parameter u5 five
real(dp), parameter u6 six
complex(dpc), parameter z000 exp(2*pi*i*0)
complex(dpc), parameter z010 exp(2*pi*i/36)
complex(dpc), parameter z011 exp(2*pi*i/32)
complex(dpc), parameter z013 exp(2*pi*i/28)
complex(dpc), parameter z015 exp(2*pi*i/24)
complex(dpc), parameter z018 exp(2*pi*i/20)
complex(dpc), parameter z020 exp(2*pi*i/18)
complex(dpc), parameter z022 exp(2*pi*i/16)
complex(dpc), parameter z026 exp(2*pi*i/14)
complex(dpc), parameter z030 exp(2*pi*i/12)
complex(dpc), parameter z034 exp(2*pi*i*3/32)
complex(dpc), parameter z036 exp(2*pi*i/10)
complex(dpc), parameter z039 exp(2*pi*i*3/28)
complex(dpc), parameter z040 exp(2*pi*i/9)
complex(dpc), parameter z045 exp(2*pi*i/8)
complex(dpc), parameter z050 exp(2*pi*i*5/36)
complex(dpc), parameter z051 exp(2*pi*i/7)
complex(dpc), parameter z054 exp(2*pi*i*3/20)
complex(dpc), parameter z056 exp(2*pi*i*5/32)
complex(dpc), parameter z060 exp(2*pi*i/6)
complex(dpc), parameter z064 exp(2*pi*i*5/28)
complex(dpc), parameter z068 exp(2*pi*i*3/16)
complex(dpc), parameter z070 exp(2*pi*i*7/36)
complex(dpc), parameter z072 exp(2*pi*i/5)
complex(dpc), parameter z075 exp(2*pi*i*5/24)
complex(dpc), parameter z077 exp(2*pi*i*3/14)
complex(dpc), parameter z079 exp(2*pi*i*7/32)
complex(dpc), parameter z080 exp(2*pi*i*2/9)
complex(dpc), parameter z090 exp(2*pi*i/4)
complex(dpc), parameter z100 exp(2*pi*i*5/18)
complex(dpc), parameter z101 exp(2*pi*i*9/32)
complex(dpc), parameter z103 exp(2*pi*i*2/7)
complex(dpc), parameter z105 exp(2*pi*i*7/24)
complex(dpc), parameter z108 exp(2*pi*i*3/10)
complex(dpc), parameter z110 exp(2*pi*i*11/36)
complex(dpc), parameter z112 exp(2*pi*i*5/16)
complex(dpc), parameter z116 exp(2*pi*i*9/28)
complex(dpc), parameter z120 exp(2*pi*i/3)
complex(dpc), parameter z124 exp(2*pi*i*11/32)
complex(dpc), parameter z126 exp(2*pi*i*7/20)
complex(dpc), parameter z129 exp(2*pi*i*5/14)
complex(dpc), parameter z130 exp(2*pi*i*13/36)
complex(dpc), parameter z135 exp(2*pi*i*3/8)
complex(dpc), parameter z140 exp(2*pi*i*7/18)
complex(dpc), parameter z141 exp(2*pi*i*11/28)
complex(dpc), parameter z144 exp(2*pi*i*2/5)
complex(dpc), parameter z146 exp(2*pi*i*13/32)
complex(dpc), parameter z150 exp(2*pi*i*5/12)
complex(dpc), parameter z154 exp(2*pi*i*3/7)
complex(dpc), parameter z158 exp(2*pi*i*7/16)
complex(dpc), parameter z160 exp(2*pi*i*4/9)
complex(dpc), parameter z162 exp(2*pi*i*9/20)
complex(dpc), parameter z165 exp(2*pi*i*11/24)
complex(dpc), parameter z167 exp(2*pi*i*13/28)
complex(dpc), parameter z169 exp(2*pi*i*15/32)
complex(dpc), parameter z170 exp(2*pi*i*17/36)
complex(dpc), parameter z180 exp(2*pi*i/2)
complex(dpc), parameter z190 exp(2*pi*i*19/36)
complex(dpc), parameter z191 exp(2*pi*i*17/32)
complex(dpc), parameter z193 exp(2*pi*i*15/28)
complex(dpc), parameter z195 exp(2*pi*i*13/24)
complex(dpc), parameter z198 exp(2*pi*i*11/20)
complex(dpc), parameter z200 exp(2*pi*i*5/9)
complex(dpc), parameter z202 exp(2*pi*i*9/16)
complex(dpc), parameter z206 exp(2*pi*i*4/7)
complex(dpc), parameter z210 exp(2*pi*i*7/12)
complex(dpc), parameter z214 exp(2*pi*i*19/32)
complex(dpc), parameter z216 exp(2*pi*i*3/5)
complex(dpc), parameter z219 exp(2*pi*i*17/28)
complex(dpc), parameter z220 exp(2*pi*i*11/18)
complex(dpc), parameter z225 exp(2*pi*i*5/8)
complex(dpc), parameter z230 exp(2*pi*i*23/36)
complex(dpc), parameter z231 exp(2*pi*i*9/14)
complex(dpc), parameter z234 exp(2*pi*i*13/20)
complex(dpc), parameter z236 exp(2*pi*i*21/32)
complex(dpc), parameter z240 exp(2*pi*i*2/3)
complex(dpc), parameter z244 exp(2*pi*i*19/28)
complex(dpc), parameter z248 exp(2*pi*i*11/16)
complex(dpc), parameter z250 exp(2*pi*i*25/36)
complex(dpc), parameter z252 exp(2*pi*i*7/10)
complex(dpc), parameter z255 exp(2*pi*i*17/24)
complex(dpc), parameter z257 exp(2*pi*i*5/7)
complex(dpc), parameter z259 exp(2*pi*i*23/32)
complex(dpc), parameter z260 exp(2*pi*i*13/18)
complex(dpc), parameter z270 exp(2*pi*i*3/4)
complex(dpc), parameter z280 exp(2*pi*i*7/9)
complex(dpc), parameter z281 exp(2*pi*i*25/32)
complex(dpc), parameter z283 exp(2*pi*i*11/14)
complex(dpc), parameter z285 exp(2*pi*i*19/24)
complex(dpc), parameter z288 exp(2*pi*i*4/5)
complex(dpc), parameter z290 exp(2*pi*i*29/36)
complex(dpc), parameter z292 exp(2*pi*i*13/16)
complex(dpc), parameter z296 exp(2*pi*i*23/28)
complex(dpc), parameter z300 exp(2*pi*i*5/6)
complex(dpc), parameter z304 exp(2*pi*i*27/32)
complex(dpc), parameter z306 exp(2*pi*i*17/20)
complex(dpc), parameter z309 exp(2*pi*i*6/7)
complex(dpc), parameter z310 exp(2*pi*i*31/36)
complex(dpc), parameter z315 exp(2*pi*i*7/8)
complex(dpc), parameter z320 exp(2*pi*i*8/9)
complex(dpc), parameter z321 exp(2*pi*i*25/28)
complex(dpc), parameter z324 exp(2*pi*i*9/10)
complex(dpc), parameter z326 exp(2*pi*i*29/32)
complex(dpc), parameter z330 exp(2*pi*i*11/12)
complex(dpc), parameter z334 exp(2*pi*i*13/14)
complex(dpc), parameter z338 exp(2*pi*i*15/16)
complex(dpc), parameter z340 exp(2*pi*i*17/18)
complex(dpc), parameter z342 exp(2*pi*i*19/20)
complex(dpc), parameter z345 exp(2*pi*i*23/24)
complex(dpc), parameter z347 exp(2*pi*i*27/28)
complex(dpc), parameter z349 exp(2*pi*i*31/32)
complex(dpc), parameter z350 exp(2*pi*i*35/36)