Single precision constants.
More...
Go to the source code of this file.
Single precision constants.
- Author
- R. J. Purser
- Date
- 2014 Some of the commonly used constants (pi etc) 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.
Definition in file pietc_s.f90.
Definition at line 10 of file pietc_s.f90.
| Data Fields |
|---|
|
complex(spc), parameter |
c0 |
complex zero |
|
complex(spc), parameter |
c1 |
complex one |
|
complex(spc), parameter |
ci |
complex i=sqrt(-1) |
|
complex(spc), parameter |
cipi |
complex i*pi |
|
real(sp), parameter |
dtor |
Degrees to radians. |
|
real(sp), parameter |
euler |
Euler-Mascheroni constant. |
|
logical, parameter |
f |
for pain-relief in logical ops |
|
complex(spc), parameter |
mc1 |
complex minus-one |
|
complex(spc), parameter |
mci |
complex minus-i |
|
real(sp), parameter |
mo2 |
minus-half |
|
real(sp), parameter |
mo3 |
minus-third |
|
real(sp), parameter |
mo4 |
minus-fourth |
|
real(sp), parameter |
mo5 |
minus-fifth |
|
real(sp), parameter |
mo6 |
minus-sixth |
|
real(sp), parameter |
ms10 |
minus-sine(10 deg) |
|
real(sp), parameter |
ms11 |
minus-sine(90/8 deg) |
|
real(sp), parameter |
ms13 |
minus-sine(90/7 deg) |
|
real(sp), parameter |
ms15 |
minus-sine(15 deg) |
|
real(sp), parameter |
ms18 |
minus-sine(18 deg) |
|
real(sp), parameter |
ms20 |
minus-sine(20 deg) |
|
real(sp), parameter |
ms22 |
minus-sine(22.5 deg) |
|
real(sp), parameter |
ms26 |
minus-sine(90*2/7 deg) |
|
real(sp), parameter |
ms30 |
minus-sine(30 deg) |
|
real(sp), parameter |
ms34 |
minus-sine(90*3/8 deg) |
|
real(sp), parameter |
ms36 |
minus-sine(36 deg) |
|
real(sp), parameter |
ms39 |
minus-sine(90*3/7 deg) |
|
real(sp), parameter |
ms40 |
minus-sine(40 deg) |
|
real(sp), parameter |
ms45 |
minus-sine(45 deg) |
|
real(sp), parameter |
ms50 |
minus-sine(50 deg) |
|
real(sp), parameter |
ms51 |
minus-sine(90*4/7 deg) |
|
real(sp), parameter |
ms54 |
minus-sine(54 deg) |
|
real(sp), parameter |
ms56 |
minus-sine(90*5/8 deg) |
|
real(sp), parameter |
ms60 |
minus-sine(60 deg) |
|
real(sp), parameter |
ms64 |
minus-sine(90*5/7 deg) |
|
real(sp), parameter |
ms68 |
minus-sine(67.5 deg) |
|
real(sp), parameter |
ms70 |
minus-sine(70 deg) |
|
real(sp), parameter |
ms72 |
minus-sine(72 deg) |
|
real(sp), parameter |
ms75 |
minus-sine(75 deg) |
|
real(sp), parameter |
ms77 |
minus-sine(90*6/7 deg) |
|
real(sp), parameter |
ms79 |
minus-sine(90*7/8 deg) |
|
real(sp), parameter |
ms80 |
minus-sine(80 deg) |
|
real(sp), parameter |
mu1 |
minus-one |
|
real(sp), parameter |
mu2 |
minus-two |
|
real(sp), parameter |
mu3 |
minus-three |
|
real(sp), parameter |
mu4 |
minus-four |
|
real(sp), parameter |
mu5 |
minus-five |
|
real(sp), parameter |
mu6 |
minus-six |
|
real(sp), parameter |
o2 |
half |
|
real(sp), parameter |
o3 |
third |
|
real(sp), parameter |
o4 |
fourth |
|
real(sp), parameter |
o5 |
fifth |
|
real(sp), parameter |
o6 |
sixth |
|
real(sp), parameter |
or2 |
1. /root of two
|
|
real(sp), parameter |
or3 |
1. /root of three
|
|
real(sp), parameter |
or5 |
1. /root of five
|
|
real(sp), parameter |
phi |
Golden number. |
|
real(sp), parameter |
pi |
pi |
|
real(sp), parameter |
pi2 |
pi*2 |
|
real(sp), parameter |
pih |
pi*half |
|
real(sp), parameter |
r2 |
Square root of 2. |
|
real(sp), parameter |
r3 |
Square root of 3. |
|
real(sp), parameter |
r5 |
Square root of 5. |
|
real(sp), parameter |
rpi |
square root of pi |
|
real(sp), parameter |
rtod |
radians to degrees |
|
real(sp), parameter |
s10 |
sine(10 deg) |
|
real(sp), parameter |
s11 |
sine(90/8 deg) |
|
real(sp), parameter |
s13 |
sine(90/7 deg) |
|
real(sp), parameter |
s15 |
sine(15 deg) |
|
real(sp), parameter |
s18 |
sine(18 deg) |
|
real(sp), parameter |
s20 |
sine(20 deg) |
|
real(sp), parameter |
s22 |
sine(22.5 deg) |
|
real(sp), parameter |
s26 |
sine(90*2/7 deg) |
|
real(sp), parameter |
s30 |
sine(30 deg) |
|
real(sp), parameter |
s34 |
sine(90*3/8 deg) |
|
real(sp), parameter |
s36 |
sine(36 deg) |
|
real(sp), parameter |
s39 |
sine(90*3/7 deg) |
|
real(sp), parameter |
s40 |
sine(40 deg) |
|
real(sp), parameter |
s45 |
sine(45 deg) |
|
real(sp), parameter |
s50 |
sine(50 deg) |
|
real(sp), parameter |
s51 |
sine(90*4/7 deg) |
|
real(sp), parameter |
s54 |
sine(54 deg) |
|
real(sp), parameter |
s56 |
sine(90*5/8 deg) |
|
real(sp), parameter |
s60 |
sine(60 deg) |
|
real(sp), parameter |
s64 |
sine(90*5/7 deg) |
|
real(sp), parameter |
s68 |
sine(67.5 deg) |
|
real(sp), parameter |
s70 |
sine(70 deg) |
|
real(sp), parameter |
s72 |
sine(72 deg) |
|
real(sp), parameter |
s75 |
sine(75 deg) |
|
real(sp), parameter |
s77 |
sine(90*6/7 deg) |
|
real(sp), parameter |
s79 |
sine(90*7/8 deg) |
|
real(sp), parameter |
s80 |
sine(80 deg) |
|
logical, parameter |
t |
for pain-relief in logical ops |
|
real(sp), parameter |
u0 |
zero |
|
real(sp), parameter |
u1 |
one |
|
real(sp), parameter |
u2 |
two |
|
real(sp), parameter |
u3 |
three |
|
real(sp), parameter |
u4 |
four |
|
real(sp), parameter |
u5 |
five |
|
real(sp), parameter |
u6 |
six |
|
complex(spc), parameter |
z000 |
exp(2*pi*i*0) |
|
complex(spc), parameter |
z010 |
exp(2*pi*i/36) |
|
complex(spc), parameter |
z011 |
exp(2*pi*i/32) |
|
complex(spc), parameter |
z013 |
exp(2*pi*i/28) |
|
complex(spc), parameter |
z015 |
exp(2*pi*i/24) |
|
complex(spc), parameter |
z018 |
exp(2*pi*i/20) |
|
complex(spc), parameter |
z020 |
exp(2*pi*i/18) |
|
complex(spc), parameter |
z022 |
exp(2*pi*i/16) |
|
complex(spc), parameter |
z026 |
exp(2*pi*i/14) |
|
complex(spc), parameter |
z030 |
exp(2*pi*i/12) |
|
complex(spc), parameter |
z034 |
exp(2*pi*i*3/32) |
|
complex(spc), parameter |
z036 |
exp(2*pi*i/10) |
|
complex(spc), parameter |
z039 |
exp(2*pi*i*3/28) |
|
complex(spc), parameter |
z040 |
exp(2*pi*i/9) |
|
complex(spc), parameter |
z045 |
exp(2*pi*i/8) |
|
complex(spc), parameter |
z050 |
exp(2*pi*i*5/36) |
|
complex(spc), parameter |
z051 |
exp(2*pi*i/7) |
|
complex(spc), parameter |
z054 |
exp(2*pi*i*3/20) |
|
complex(spc), parameter |
z056 |
exp(2*pi*i*5/32) |
|
complex(spc), parameter |
z060 |
exp(2*pi*i/6) |
|
complex(spc), parameter |
z064 |
exp(2*pi*i*5/28) |
|
complex(spc), parameter |
z068 |
exp(2*pi*i*3/16) |
|
complex(spc), parameter |
z070 |
exp(2*pi*i*7/36) |
|
complex(spc), parameter |
z072 |
exp(2*pi*i/5) |
|
complex(spc), parameter |
z075 |
exp(2*pi*i*5/24) |
|
complex(spc), parameter |
z077 |
exp(2*pi*i*3/14) |
|
complex(spc), parameter |
z079 |
exp(2*pi*i*7/32) |
|
complex(spc), parameter |
z080 |
exp(2*pi*i*2/9) |
|
complex(spc), parameter |
z090 |
exp(2*pi*i/4) |
|
complex(spc), parameter |
z100 |
exp(2*pi*i*5/18) |
|
complex(spc), parameter |
z101 |
exp(2*pi*i*9/32) |
|
complex(spc), parameter |
z103 |
exp(2*pi*i*2/7) |
|
complex(spc), parameter |
z105 |
exp(2*pi*i*7/24) |
|
complex(spc), parameter |
z108 |
exp(2*pi*i*3/10) |
|
complex(spc), parameter |
z110 |
exp(2*pi*i*11/36) |
|
complex(spc), parameter |
z112 |
exp(2*pi*i*5/16) |
|
complex(spc), parameter |
z116 |
exp(2*pi*i*9/28) |
|
complex(spc), parameter |
z120 |
exp(2*pi*i/3) |
|
complex(spc), parameter |
z124 |
exp(2*pi*i*11/32) |
|
complex(spc), parameter |
z126 |
exp(2*pi*i*7/20) |
|
complex(spc), parameter |
z129 |
exp(2*pi*i*5/14) |
|
complex(spc), parameter |
z130 |
exp(2*pi*i*13/36) |
|
complex(spc), parameter |
z135 |
exp(2*pi*i*3/8) |
|
complex(spc), parameter |
z140 |
exp(2*pi*i*7/18) |
|
complex(spc), parameter |
z141 |
exp(2*pi*i*11/28) |
|
complex(spc), parameter |
z144 |
exp(2*pi*i*2/5) |
|
complex(spc), parameter |
z146 |
exp(2*pi*i*13/32) |
|
complex(spc), parameter |
z150 |
exp(2*pi*i*5/12) |
|
complex(spc), parameter |
z154 |
exp(2*pi*i*3/7) |
|
complex(spc), parameter |
z158 |
exp(2*pi*i*7/16) |
|
complex(spc), parameter |
z160 |
exp(2*pi*i*4/9) |
|
complex(spc), parameter |
z162 |
exp(2*pi*i*9/20) |
|
complex(spc), parameter |
z165 |
exp(2*pi*i*11/24) |
|
complex(spc), parameter |
z167 |
exp(2*pi*i*13/28) |
|
complex(spc), parameter |
z169 |
exp(2*pi*i*15/32) |
|
complex(spc), parameter |
z170 |
exp(2*pi*i*17/36) |
|
complex(spc), parameter |
z180 |
exp(2*pi*i/2) |
|
complex(spc), parameter |
z190 |
exp(2*pi*i*19/36) |
|
complex(spc), parameter |
z191 |
exp(2*pi*i*17/32) |
|
complex(spc), parameter |
z193 |
exp(2*pi*i*15/28) |
|
complex(spc), parameter |
z195 |
exp(2*pi*i*13/24) |
|
complex(spc), parameter |
z198 |
exp(2*pi*i*11/20) |
|
complex(spc), parameter |
z200 |
exp(2*pi*i*5/9) |
|
complex(spc), parameter |
z202 |
exp(2*pi*i*9/16) |
|
complex(spc), parameter |
z206 |
exp(2*pi*i*4/7) |
|
complex(spc), parameter |
z210 |
exp(2*pi*i*7/12) |
|
complex(spc), parameter |
z214 |
exp(2*pi*i*19/32) |
|
complex(spc), parameter |
z216 |
exp(2*pi*i*3/5) |
|
complex(spc), parameter |
z219 |
exp(2*pi*i*17/28) |
|
complex(spc), parameter |
z220 |
exp(2*pi*i*11/18) |
|
complex(spc), parameter |
z225 |
exp(2*pi*i*5/8) |
|
complex(spc), parameter |
z230 |
exp(2*pi*i*23/36) |
|
complex(spc), parameter |
z231 |
exp(2*pi*i*9/14) |
|
complex(spc), parameter |
z234 |
exp(2*pi*i*13/20) |
|
complex(spc), parameter |
z236 |
exp(2*pi*i*21/32) |
|
complex(spc), parameter |
z240 |
exp(2*pi*i*2/3) |
|
complex(spc), parameter |
z244 |
exp(2*pi*i*19/28) |
|
complex(spc), parameter |
z248 |
exp(2*pi*i*11/16) |
|
complex(spc), parameter |
z250 |
exp(2*pi*i*25/36) |
|
complex(spc), parameter |
z252 |
exp(2*pi*i*7/10) |
|
complex(spc), parameter |
z255 |
exp(2*pi*i*17/24) |
|
complex(spc), parameter |
z257 |
exp(2*pi*i*5/7) |
|
complex(spc), parameter |
z259 |
exp(2*pi*i*23/32) |
|
complex(spc), parameter |
z260 |
exp(2*pi*i*13/18) |
|
complex(spc), parameter |
z270 |
exp(2*pi*i*3/4) |
|
complex(spc), parameter |
z280 |
exp(2*pi*i*7/9) |
|
complex(spc), parameter |
z281 |
exp(2*pi*i*25/32) |
|
complex(spc), parameter |
z283 |
exp(2*pi*i*11/14) |
|
complex(spc), parameter |
z285 |
exp(2*pi*i*19/24) |
|
complex(spc), parameter |
z288 |
exp(2*pi*i*4/5) |
|
complex(spc), parameter |
z290 |
exp(2*pi*i*29/36) |
|
complex(spc), parameter |
z292 |
exp(2*pi*i*13/16) |
|
complex(spc), parameter |
z296 |
exp(2*pi*i*23/28) |
|
complex(spc), parameter |
z300 |
exp(2*pi*i*5/6) |
|
complex(spc), parameter |
z304 |
exp(2*pi*i*27/32) |
|
complex(spc), parameter |
z306 |
exp(2*pi*i*17/20) |
|
complex(spc), parameter |
z309 |
exp(2*pi*i*6/7) |
|
complex(spc), parameter |
z310 |
exp(2*pi*i*31/36) |
|
complex(spc), parameter |
z315 |
exp(2*pi*i*7/8) |
|
complex(spc), parameter |
z320 |
exp(2*pi*i*8/9) |
|
complex(spc), parameter |
z321 |
exp(2*pi*i*25/28) |
|
complex(spc), parameter |
z324 |
exp(2*pi*i*9/10) |
|
complex(spc), parameter |
z326 |
exp(2*pi*i*29/32) |
|
complex(spc), parameter |
z330 |
exp(2*pi*i*11/12) |
|
complex(spc), parameter |
z334 |
exp(2*pi*i*13/14) |
|
complex(spc), parameter |
z338 |
exp(2*pi*i*15/16) |
|
complex(spc), parameter |
z340 |
exp(2*pi*i*17/18) |
|
complex(spc), parameter |
z342 |
exp(2*pi*i*19/20) |
|
complex(spc), parameter |
z345 |
exp(2*pi*i*23/24) |
|
complex(spc), parameter |
z347 |
exp(2*pi*i*27/28) |
|
complex(spc), parameter |
z349 |
exp(2*pi*i*31/32) |
|
complex(spc), parameter |
z350 |
exp(2*pi*i*35/36) |
1.8.5 
