ver-1.14.0/grid_tools/pietc_8f90_source.html

module pietc

use pkind, only: dp,dpc

implicit none

logical ,parameter:: t=.true.

logical ,parameter:: f=.false.

real(dp),parameter:: u0=0_dp

real(dp),parameter:: u1=1_dp

real(dp),parameter:: mu1=-u1

real(dp),parameter:: u2=2_dp

real(dp),parameter:: mu2=-u2

real(dp),parameter:: u3=3_dp

real(dp),parameter:: mu3=-u3

real(dp),parameter:: u4=4_dp

real(dp),parameter:: mu4=-u4

real(dp),parameter:: u5=5_dp

real(dp),parameter:: mu5=-u5

real(dp),parameter:: u6=6_dp

real(dp),parameter:: mu6=-u6

real(dp),parameter:: o2=u1/u2

real(dp),parameter:: o3=u1/u3

real(dp),parameter:: o4=u1/u4

real(dp),parameter:: o5=u1/u5

real(dp),parameter:: o6=u1/u6

real(dp),parameter:: mo2=-o2

real(dp),parameter:: mo3=-o3

real(dp),parameter:: mo4=-o4

real(dp),parameter:: mo5=-o5

real(dp),parameter:: mo6=-o6

real(dp),parameter:: pi =3.1415926535897932384626433832795028841971693993751058209749e0_dp

real(dp),parameter:: pi2=6.2831853071795864769252867665590057683943387987502116419498e0_dp

real(dp),parameter:: pih=1.5707963267948966192313216916397514420985846996875529104874e0_dp

real(dp),parameter:: rpi=1.7724538509055160272981674833411451827975494561223871282138e0_dp

real(dp),parameter:: r2 =1.4142135623730950488016887242096980785696718753769480731766e0_dp

real(dp),parameter:: r3 =1.7320508075688772935274463415058723669428052538103806280558e0_dp

real(dp),parameter:: r5 =2.2360679774997896964091736687312762354406183596115257242708e0_dp

real(dp),parameter:: or2=u1/r2

real(dp),parameter:: or3=u1/r3

real(dp),parameter:: or5=u1/r5

real(dp),parameter:: phi=1.6180339887498948482045868343656381177203091798057628621354e0_dp

real(dp),parameter:: euler=0.57721566490153286060651209008240243104215933593992359880e0_dp

real(dp),parameter:: dtor=pi/180

real(dp),parameter:: rtod=180/pi

! Sines of all main fractions of 90 degrees (down to ninths):

real(dp),parameter:: s10=.173648177666930348851716626769314796000375677184069387236241e0_dp

real(dp),parameter:: s11=.195090322016128267848284868477022240927691617751954807754502e0_dp

real(dp),parameter:: s13=.222520933956314404288902564496794759466355568764544955311987e0_dp

real(dp),parameter:: s15=.258819045102520762348898837624048328349068901319930513814003e0_dp

real(dp),parameter:: s18=.309016994374947424102293417182819058860154589902881431067724e0_dp

real(dp),parameter:: s20=.342020143325668733044099614682259580763083367514160628465048e0_dp

real(dp),parameter:: s22=.382683432365089771728459984030398866761344562485627041433800e0_dp

real(dp),parameter:: s26=.433883739117558120475768332848358754609990727787459876444547e0_dp

real(dp),parameter:: s30=o2

real(dp),parameter:: s34=.555570233019602224742830813948532874374937190754804045924153e0_dp

real(dp),parameter:: s36=.587785252292473129168705954639072768597652437643145991072272e0_dp

real(dp),parameter:: s39=.623489801858733530525004884004239810632274730896402105365549e0_dp

real(dp),parameter:: s40=.642787609686539326322643409907263432907559884205681790324977e0_dp

real(dp),parameter:: s45=or2

real(dp),parameter:: s50=.766044443118978035202392650555416673935832457080395245854045e0_dp

real(dp),parameter:: s51=.781831482468029808708444526674057750232334518708687528980634e0_dp

real(dp),parameter:: s54=.809016994374947424102293417182819058860154589902881431067724e0_dp

real(dp),parameter:: s56=.831469612302545237078788377617905756738560811987249963446124e0_dp

real(dp),parameter:: s60=r3*o2

real(dp),parameter:: s64=.900968867902419126236102319507445051165919162131857150053562e0_dp

real(dp),parameter:: s68=.923879532511286756128183189396788286822416625863642486115097e0_dp

real(dp),parameter:: s70=.939692620785908384054109277324731469936208134264464633090286e0_dp

real(dp),parameter:: s72=.951056516295153572116439333379382143405698634125750222447305e0_dp

real(dp),parameter:: s75=.965925826289068286749743199728897367633904839008404550402343e0_dp

real(dp),parameter:: s77=.974927912181823607018131682993931217232785800619997437648079e0_dp

real(dp),parameter:: s79=.980785280403230449126182236134239036973933730893336095002916e0_dp

real(dp),parameter:: s80=.984807753012208059366743024589523013670643251719842418790025e0_dp

! ... and their minuses:

real(dp),parameter:: ms10=-s10

real(dp),parameter:: ms11=-s11

real(dp),parameter:: ms13=-s13

real(dp),parameter:: ms15=-s15

real(dp),parameter:: ms18=-s18

real(dp),parameter:: ms20=-s20

real(dp),parameter:: ms22=-s22

real(dp),parameter:: ms26=-s26

real(dp),parameter:: ms30=-s30

real(dp),parameter:: ms34=-s34

real(dp),parameter:: ms36=-s36

real(dp),parameter:: ms39=-s39

real(dp),parameter:: ms40=-s40

real(dp),parameter:: ms45=-s45

real(dp),parameter:: ms50=-s50

real(dp),parameter:: ms51=-s51

real(dp),parameter:: ms54=-s54

real(dp),parameter:: ms56=-s56

real(dp),parameter:: ms60=-s60

real(dp),parameter:: ms64=-s64

real(dp),parameter:: ms68=-s68

real(dp),parameter:: ms70=-s70

real(dp),parameter:: ms72=-s72

real(dp),parameter:: ms75=-s75

real(dp),parameter:: ms77=-s77

real(dp),parameter:: ms79=-s79

real(dp),parameter:: ms80=-s80

complex(dpc),parameter:: c0=(u0,u0)

complex(dpc),parameter:: c1=(u1,u0)

complex(dpc),parameter:: mc1=-c1

complex(dpc),parameter:: ci=(u0,u1)

complex(dpc),parameter:: mci=-ci

complex(dpc),parameter:: cipi=ci*pi

! Main fractional rotations, as unimodular complex numbers:

complex(dpc),parameter:: z000=c1

complex(dpc),parameter:: z010=( s80,s10)

complex(dpc),parameter:: z011=( s79,s11)

complex(dpc),parameter:: z013=( s77,s13)

complex(dpc),parameter:: z015=( s75,s15)

complex(dpc),parameter:: z018=( s72,s18)

complex(dpc),parameter:: z020=( s70,s20)

complex(dpc),parameter:: z022=( s68,s22)

complex(dpc),parameter:: z026=( s64,s26)

complex(dpc),parameter:: z030=( s60,s30)

complex(dpc),parameter:: z034=( s56,s34)

complex(dpc),parameter:: z036=( s54,s36)

complex(dpc),parameter:: z039=( s51,s39)

complex(dpc),parameter:: z040=( s50,s40)

complex(dpc),parameter:: z045=( s45,s45)

complex(dpc),parameter:: z050=( s40,s50)

complex(dpc),parameter:: z051=( s39,s51)

complex(dpc),parameter:: z054=( s36,s54)

complex(dpc),parameter:: z056=( s34,s56)

complex(dpc),parameter:: z060=( s30,s60)

complex(dpc),parameter:: z064=( s26,s64)

complex(dpc),parameter:: z068=( s22,s68)

complex(dpc),parameter:: z070=( s20,s70)

complex(dpc),parameter:: z072=( s18,s72)

complex(dpc),parameter:: z075=( s15,s75)

complex(dpc),parameter:: z077=( s13,s77)

complex(dpc),parameter:: z079=( s11,s79)

complex(dpc),parameter:: z080=( s10,s80)

complex(dpc),parameter:: z090=ci

complex(dpc),parameter:: z100=(ms10,s80)

complex(dpc),parameter:: z101=(ms11,s79)

complex(dpc),parameter:: z103=(ms13,s77)

complex(dpc),parameter:: z105=(ms15,s75)

complex(dpc),parameter:: z108=(ms18,s72)

complex(dpc),parameter:: z110=(ms20,s70)

complex(dpc),parameter:: z112=(ms22,s68)

complex(dpc),parameter:: z116=(ms26,s64)

complex(dpc),parameter:: z120=(ms30,s60)

complex(dpc),parameter:: z124=(ms34,s56)

complex(dpc),parameter:: z126=(ms36,s54)

complex(dpc),parameter:: z129=(ms39,s51)

complex(dpc),parameter:: z130=(ms40,s50)

complex(dpc),parameter:: z135=(ms45,s45)

complex(dpc),parameter:: z140=(ms50,s40)

complex(dpc),parameter:: z141=(ms51,s39)

complex(dpc),parameter:: z144=(ms54,s36)

complex(dpc),parameter:: z146=(ms56,s34)

complex(dpc),parameter:: z150=(ms60,s30)

complex(dpc),parameter:: z154=(ms64,s26)

complex(dpc),parameter:: z158=(ms68,s22)

complex(dpc),parameter:: z160=(ms70,s20)

complex(dpc),parameter:: z162=(ms72,s18)

complex(dpc),parameter:: z165=(ms75,s15)

complex(dpc),parameter:: z167=(ms77,s13)

complex(dpc),parameter:: z169=(ms79,s11)

complex(dpc),parameter:: z170=(ms80,s10)

complex(dpc),parameter:: z180=-z000

complex(dpc),parameter:: z190=-z010

complex(dpc),parameter:: z191=-z011

complex(dpc),parameter:: z193=-z013

complex(dpc),parameter:: z195=-z015

complex(dpc),parameter:: z198=-z018

complex(dpc),parameter:: z200=-z020

complex(dpc),parameter:: z202=-z022

complex(dpc),parameter:: z206=-z026

complex(dpc),parameter:: z210=-z030

complex(dpc),parameter:: z214=-z034

complex(dpc),parameter:: z216=-z036

complex(dpc),parameter:: z219=-z039

complex(dpc),parameter:: z220=-z040

complex(dpc),parameter:: z225=-z045

complex(dpc),parameter:: z230=-z050

complex(dpc),parameter:: z231=-z051

complex(dpc),parameter:: z234=-z054

complex(dpc),parameter:: z236=-z056

complex(dpc),parameter:: z240=-z060

complex(dpc),parameter:: z244=-z064

complex(dpc),parameter:: z248=-z068

complex(dpc),parameter:: z250=-z070

complex(dpc),parameter:: z252=-z072

complex(dpc),parameter:: z255=-z075

complex(dpc),parameter:: z257=-z077

complex(dpc),parameter:: z259=-z079

complex(dpc),parameter:: z260=-z080

complex(dpc),parameter:: z270=-z090

complex(dpc),parameter:: z280=-z100

complex(dpc),parameter:: z281=-z101

complex(dpc),parameter:: z283=-z103

complex(dpc),parameter:: z285=-z105

complex(dpc),parameter:: z288=-z108

complex(dpc),parameter:: z290=-z110

complex(dpc),parameter:: z292=-z112

complex(dpc),parameter:: z296=-z116

complex(dpc),parameter:: z300=-z120

complex(dpc),parameter:: z304=-z124

complex(dpc),parameter:: z306=-z126

complex(dpc),parameter:: z309=-z129

complex(dpc),parameter:: z310=-z130

complex(dpc),parameter:: z315=-z135

complex(dpc),parameter:: z320=-z140

complex(dpc),parameter:: z321=-z141

complex(dpc),parameter:: z324=-z144

complex(dpc),parameter:: z326=-z146

complex(dpc),parameter:: z330=-z150

complex(dpc),parameter:: z334=-z154

complex(dpc),parameter:: z338=-z158

complex(dpc),parameter:: z340=-z160

complex(dpc),parameter:: z342=-z162

complex(dpc),parameter:: z345=-z165

complex(dpc),parameter:: z347=-z167

complex(dpc),parameter:: z349=-z169

complex(dpc),parameter:: z350=-z170

end module pietc

pietc
Some of the commonly used constants (pi etc) mainly for double-precision subroutines.
Definition pietc.f90:14

pietc::mo5
real(dp), parameter mo5
minus-fifth
Definition pietc.f90:40

pietc::z158
complex(dpc), parameter z158
exp(2*pi*i*7/16)
Definition pietc.f90:168

pietc::or5
real(dp), parameter or5
1.
Definition pietc.f90:51

pietc::mo4
real(dp), parameter mo4
minus-fourth
Definition pietc.f90:39

pietc::z236
complex(dpc), parameter z236
exp(2*pi*i*21/32)
Definition pietc.f90:193

pietc::z090
complex(dpc), parameter z090
exp(2*pi*i/4)
Definition pietc.f90:147

pietc::z056
complex(dpc), parameter z056
exp(2*pi*i*5/32)
Definition pietc.f90:137

pietc::mu1
real(dp), parameter mu1
minus-one
Definition pietc.f90:21

pietc::z103
complex(dpc), parameter z103
exp(2*pi*i*2/7)
Definition pietc.f90:150

pietc::ms30
real(dp), parameter ms30
minus-sine(30 deg)
Definition pietc.f90:93

pietc::z216
complex(dpc), parameter z216
exp(2*pi*i*3/5)
Definition pietc.f90:186

pietc::ms56
real(dp), parameter ms56
minus-sine(90*5/8 deg)
Definition pietc.f90:102

pietc::s22
real(dp), parameter s22
sine(22.5 deg)
Definition pietc.f90:63

pietc::z285
complex(dpc), parameter z285
exp(2*pi*i*19/24)
Definition pietc.f90:207

pietc::ms64
real(dp), parameter ms64
minus-sine(90*5/7 deg)
Definition pietc.f90:104

pietc::ms26
real(dp), parameter ms26
minus-sine(90*2/7 deg)
Definition pietc.f90:92

pietc::dtor
real(dp), parameter dtor
Degrees to radians.
Definition pietc.f90:54

pietc::mu6
real(dp), parameter mu6
minus-six
Definition pietc.f90:31

pietc::z154
complex(dpc), parameter z154
exp(2*pi*i*3/7)
Definition pietc.f90:167

pietc::z304
complex(dpc), parameter z304
exp(2*pi*i*27/32)
Definition pietc.f90:213

pietc::z292
complex(dpc), parameter z292
exp(2*pi*i*13/16)
Definition pietc.f90:210

pietc::z347
complex(dpc), parameter z347
exp(2*pi*i*27/28)
Definition pietc.f90:228

pietc::s34
real(dp), parameter s34
sine(90*3/8 deg)
Definition pietc.f90:66

pietc::z075
complex(dpc), parameter z075
exp(2*pi*i*5/24)
Definition pietc.f90:143

pietc::z306
complex(dpc), parameter z306
exp(2*pi*i*17/20)
Definition pietc.f90:214

pietc::z116
complex(dpc), parameter z116
exp(2*pi*i*9/28)
Definition pietc.f90:155

pietc::z036
complex(dpc), parameter z036
exp(2*pi*i/10)
Definition pietc.f90:130

pietc::z252
complex(dpc), parameter z252
exp(2*pi*i*7/10)
Definition pietc.f90:198

pietc::z030
complex(dpc), parameter z030
exp(2*pi*i/12)
Definition pietc.f90:128

pietc::z070
complex(dpc), parameter z070
exp(2*pi*i*7/36)
Definition pietc.f90:141

pietc::ci
complex(dpc), parameter ci
complex i=sqrt(-1)
Definition pietc.f90:115

pietc::z225
complex(dpc), parameter z225
exp(2*pi*i*5/8)
Definition pietc.f90:189

pietc::s77
real(dp), parameter s77
sine(90*6/7 deg)
Definition pietc.f90:81

pietc::z338
complex(dpc), parameter z338
exp(2*pi*i*15/16)
Definition pietc.f90:224

pietc::f
logical, parameter f
for pain-relief in logical ops
Definition pietc.f90:18

pietc::ms80
real(dp), parameter ms80
minus-sine(80 deg)
Definition pietc.f90:111

pietc::z068
complex(dpc), parameter z068
exp(2*pi*i*3/16)
Definition pietc.f90:140

pietc::ms51
real(dp), parameter ms51
minus-sine(90*4/7 deg)
Definition pietc.f90:100

pietc::o5
real(dp), parameter o5
fifth
Definition pietc.f90:35

pietc::s50
real(dp), parameter s50
sine(50 deg)
Definition pietc.f90:71

pietc::or3
real(dp), parameter or3
1.
Definition pietc.f90:50

pietc::s80
real(dp), parameter s80
sine(80 deg)
Definition pietc.f90:83

pietc::z350
complex(dpc), parameter z350
exp(2*pi*i*35/36)
Definition pietc.f90:230

pietc::s26
real(dp), parameter s26
sine(90*2/7 deg)
Definition pietc.f90:64

pietc::mo3
real(dp), parameter mo3
minus-third
Definition pietc.f90:38

pietc::ms22
real(dp), parameter ms22
minus-sine(22.5 deg)
Definition pietc.f90:91

pietc::ms34
real(dp), parameter ms34
minus-sine(90*3/8 deg)
Definition pietc.f90:94

pietc::u1
real(dp), parameter u1
one
Definition pietc.f90:20

pietc::z320
complex(dpc), parameter z320
exp(2*pi*i*8/9)
Definition pietc.f90:218

pietc::z330
complex(dpc), parameter z330
exp(2*pi*i*11/12)
Definition pietc.f90:222

pietc::z167
complex(dpc), parameter z167
exp(2*pi*i*13/28)
Definition pietc.f90:172

pietc::o2
real(dp), parameter o2
half
Definition pietc.f90:32

pietc::z257
complex(dpc), parameter z257
exp(2*pi*i*5/7)
Definition pietc.f90:200

pietc::z051
complex(dpc), parameter z051
exp(2*pi*i/7)
Definition pietc.f90:135

pietc::z214
complex(dpc), parameter z214
exp(2*pi*i*19/32)
Definition pietc.f90:185

pietc::s51
real(dp), parameter s51
sine(90*4/7 deg)
Definition pietc.f90:72

pietc::z260
complex(dpc), parameter z260
exp(2*pi*i*13/18)
Definition pietc.f90:202

pietc::s64
real(dp), parameter s64
sine(90*5/7 deg)
Definition pietc.f90:76

pietc::z013
complex(dpc), parameter z013
exp(2*pi*i/28)
Definition pietc.f90:122

pietc::z050
complex(dpc), parameter z050
exp(2*pi*i*5/36)
Definition pietc.f90:134

pietc::z022
complex(dpc), parameter z022
exp(2*pi*i/16)
Definition pietc.f90:126

pietc::r2
real(dp), parameter r2
Square root of 2.
Definition pietc.f90:46

pietc::s30
real(dp), parameter s30
sine(30 deg)
Definition pietc.f90:65

pietc::z250
complex(dpc), parameter z250
exp(2*pi*i*25/36)
Definition pietc.f90:197

pietc::z191
complex(dpc), parameter z191
exp(2*pi*i*17/32)
Definition pietc.f90:177

pietc::mo6
real(dp), parameter mo6
minus-sixth
Definition pietc.f90:41

pietc::z219
complex(dpc), parameter z219
exp(2*pi*i*17/28)
Definition pietc.f90:187

pietc::z060
complex(dpc), parameter z060
exp(2*pi*i/6)
Definition pietc.f90:138

pietc::z045
complex(dpc), parameter z045
exp(2*pi*i/8)
Definition pietc.f90:133

pietc::z270
complex(dpc), parameter z270
exp(2*pi*i*3/4)
Definition pietc.f90:203

pietc::z011
complex(dpc), parameter z011
exp(2*pi*i/32)
Definition pietc.f90:121

pietc::z315
complex(dpc), parameter z315
exp(2*pi*i*7/8)
Definition pietc.f90:217

pietc::z220
complex(dpc), parameter z220
exp(2*pi*i*11/18)
Definition pietc.f90:188

pietc::z112
complex(dpc), parameter z112
exp(2*pi*i*5/16)
Definition pietc.f90:154

pietc::z144
complex(dpc), parameter z144
exp(2*pi*i*2/5)
Definition pietc.f90:164

pietc::s15
real(dp), parameter s15
sine(15 deg)
Definition pietc.f90:60

pietc::z244
complex(dpc), parameter z244
exp(2*pi*i*19/28)
Definition pietc.f90:195

pietc::z210
complex(dpc), parameter z210
exp(2*pi*i*7/12)
Definition pietc.f90:184

pietc::s54
real(dp), parameter s54
sine(54 deg)
Definition pietc.f90:73

pietc::mu4
real(dp), parameter mu4
minus-four
Definition pietc.f90:27

pietc::ms40
real(dp), parameter ms40
minus-sine(40 deg)
Definition pietc.f90:97

pietc::z309
complex(dpc), parameter z309
exp(2*pi*i*6/7)
Definition pietc.f90:215

pietc::mci
complex(dpc), parameter mci
complex minus-i
Definition pietc.f90:116

pietc::z345
complex(dpc), parameter z345
exp(2*pi*i*23/24)
Definition pietc.f90:227

pietc::z170
complex(dpc), parameter z170
exp(2*pi*i*17/36)
Definition pietc.f90:174

pietc::z165
complex(dpc), parameter z165
exp(2*pi*i*11/24)
Definition pietc.f90:171

pietc::rtod
real(dp), parameter rtod
radians to degrees
Definition pietc.f90:55

pietc::s18
real(dp), parameter s18
sine(18 deg)
Definition pietc.f90:61

pietc::ms68
real(dp), parameter ms68
minus-sine(67.5 deg)
Definition pietc.f90:105

pietc::r3
real(dp), parameter r3
Square root of 3.
Definition pietc.f90:47

pietc::z054
complex(dpc), parameter z054
exp(2*pi*i*3/20)
Definition pietc.f90:136

pietc::z281
complex(dpc), parameter z281
exp(2*pi*i*25/32)
Definition pietc.f90:205

pietc::z108
complex(dpc), parameter z108
exp(2*pi*i*3/10)
Definition pietc.f90:152

pietc::z072
complex(dpc), parameter z072
exp(2*pi*i/5)
Definition pietc.f90:142

pietc::z202
complex(dpc), parameter z202
exp(2*pi*i*9/16)
Definition pietc.f90:182

pietc::ms77
real(dp), parameter ms77
minus-sine(90*6/7 deg)
Definition pietc.f90:109

pietc::u3
real(dp), parameter u3
three
Definition pietc.f90:24

pietc::rpi
real(dp), parameter rpi
square root of pi
Definition pietc.f90:45

pietc::ms20
real(dp), parameter ms20
minus-sine(20 deg)
Definition pietc.f90:90

pietc::o3
real(dp), parameter o3
third
Definition pietc.f90:33

pietc::z240
complex(dpc), parameter z240
exp(2*pi*i*2/3)
Definition pietc.f90:194

pietc::ms54
real(dp), parameter ms54
minus-sine(54 deg)
Definition pietc.f90:101

pietc::z040
complex(dpc), parameter z040
exp(2*pi*i/9)
Definition pietc.f90:132

pietc::z190
complex(dpc), parameter z190
exp(2*pi*i*19/36)
Definition pietc.f90:176

pietc::mc1
complex(dpc), parameter mc1
complex minus-one
Definition pietc.f90:114

pietc::s36
real(dp), parameter s36
sine(36 deg)
Definition pietc.f90:67

pietc::pih
real(dp), parameter pih
pi*half
Definition pietc.f90:44

pietc::o4
real(dp), parameter o4
fourth
Definition pietc.f90:34

pietc::s45
real(dp), parameter s45
sine(45 deg)
Definition pietc.f90:70

pietc::z000
complex(dpc), parameter z000
exp(2*pi*i*0)
Definition pietc.f90:119

pietc::u5
real(dp), parameter u5
five
Definition pietc.f90:28

pietc::z324
complex(dpc), parameter z324
exp(2*pi*i*9/10)
Definition pietc.f90:220

pietc::z290
complex(dpc), parameter z290
exp(2*pi*i*29/36)
Definition pietc.f90:209

pietc::cipi
complex(dpc), parameter cipi
complex i*pi
Definition pietc.f90:117

pietc::s72
real(dp), parameter s72
sine(72 deg)
Definition pietc.f90:79

pietc::z015
complex(dpc), parameter z015
exp(2*pi*i/24)
Definition pietc.f90:123

pietc::ms75
real(dp), parameter ms75
minus-sine(75 deg)
Definition pietc.f90:108

pietc::s68
real(dp), parameter s68
sine(67.5 deg)
Definition pietc.f90:77

pietc::ms45
real(dp), parameter ms45
minus-sine(45 deg)
Definition pietc.f90:98

pietc::z080
complex(dpc), parameter z080
exp(2*pi*i*2/9)
Definition pietc.f90:146

pietc::z283
complex(dpc), parameter z283
exp(2*pi*i*11/14)
Definition pietc.f90:206

pietc::o6
real(dp), parameter o6
sixth
Definition pietc.f90:36

pietc::mu2
real(dp), parameter mu2
minus-two
Definition pietc.f90:23

pietc::z231
complex(dpc), parameter z231
exp(2*pi*i*9/14)
Definition pietc.f90:191

pietc::z124
complex(dpc), parameter z124
exp(2*pi*i*11/32)
Definition pietc.f90:157

pietc::z280
complex(dpc), parameter z280
exp(2*pi*i*7/9)
Definition pietc.f90:204

pietc::c0
complex(dpc), parameter c0
complex zero
Definition pietc.f90:112

pietc::phi
real(dp), parameter phi
Golden number.
Definition pietc.f90:52

pietc::z248
complex(dpc), parameter z248
exp(2*pi*i*11/16)
Definition pietc.f90:196

pietc::u6
real(dp), parameter u6
six
Definition pietc.f90:30

pietc::z110
complex(dpc), parameter z110
exp(2*pi*i*11/36)
Definition pietc.f90:153

pietc::s75
real(dp), parameter s75
sine(75 deg)
Definition pietc.f90:80

pietc::ms15
real(dp), parameter ms15
minus-sine(15 deg)
Definition pietc.f90:88

pietc::z169
complex(dpc), parameter z169
exp(2*pi*i*15/32)
Definition pietc.f90:173

pietc::mu5
real(dp), parameter mu5
minus-five
Definition pietc.f90:29

pietc::or2
real(dp), parameter or2
1.
Definition pietc.f90:49

pietc::z101
complex(dpc), parameter z101
exp(2*pi*i*9/32)
Definition pietc.f90:149

pietc::ms13
real(dp), parameter ms13
minus-sine(90/7 deg)
Definition pietc.f90:87

pietc::z310
complex(dpc), parameter z310
exp(2*pi*i*31/36)
Definition pietc.f90:216

pietc::z026
complex(dpc), parameter z026
exp(2*pi*i/14)
Definition pietc.f90:127

pietc::z321
complex(dpc), parameter z321
exp(2*pi*i*25/28)
Definition pietc.f90:219

pietc::ms18
real(dp), parameter ms18
minus-sine(18 deg)
Definition pietc.f90:89

pietc::s79
real(dp), parameter s79
sine(90*7/8 deg)
Definition pietc.f90:82

pietc::mo2
real(dp), parameter mo2
minus-half
Definition pietc.f90:37

pietc::z255
complex(dpc), parameter z255
exp(2*pi*i*17/24)
Definition pietc.f90:199

pietc::z146
complex(dpc), parameter z146
exp(2*pi*i*13/32)
Definition pietc.f90:165

pietc::z193
complex(dpc), parameter z193
exp(2*pi*i*15/28)
Definition pietc.f90:178

pietc::z195
complex(dpc), parameter z195
exp(2*pi*i*13/24)
Definition pietc.f90:179

pietc::z141
complex(dpc), parameter z141
exp(2*pi*i*11/28)
Definition pietc.f90:163

pietc::z064
complex(dpc), parameter z064
exp(2*pi*i*5/28)
Definition pietc.f90:139

pietc::ms79
real(dp), parameter ms79
minus-sine(90*7/8 deg)
Definition pietc.f90:110

pietc::z296
complex(dpc), parameter z296
exp(2*pi*i*23/28)
Definition pietc.f90:211

pietc::z234
complex(dpc), parameter z234
exp(2*pi*i*13/20)
Definition pietc.f90:192

pietc::s70
real(dp), parameter s70
sine(70 deg)
Definition pietc.f90:78

pietc::z150
complex(dpc), parameter z150
exp(2*pi*i*5/12)
Definition pietc.f90:166

pietc::c1
complex(dpc), parameter c1
complex one
Definition pietc.f90:113

pietc::ms70
real(dp), parameter ms70
minus-sine(70 deg)
Definition pietc.f90:106

pietc::ms72
real(dp), parameter ms72
minus-sine(72 deg)
Definition pietc.f90:107

pietc::z100
complex(dpc), parameter z100
exp(2*pi*i*5/18)
Definition pietc.f90:148

pietc::ms36
real(dp), parameter ms36
minus-sine(36 deg)
Definition pietc.f90:95

pietc::z230
complex(dpc), parameter z230
exp(2*pi*i*23/36)
Definition pietc.f90:190

pietc::u4
real(dp), parameter u4
four
Definition pietc.f90:26

pietc::z129
complex(dpc), parameter z129
exp(2*pi*i*5/14)
Definition pietc.f90:159

pietc::r5
real(dp), parameter r5
Square root of 5.
Definition pietc.f90:48

pietc::z130
complex(dpc), parameter z130
exp(2*pi*i*13/36)
Definition pietc.f90:160

pietc::t
logical, parameter t
for pain-relief in logical ops
Definition pietc.f90:17

pietc::z126
complex(dpc), parameter z126
exp(2*pi*i*7/20)
Definition pietc.f90:158

pietc::s56
real(dp), parameter s56
sine(90*5/8 deg)
Definition pietc.f90:74

pietc::z079
complex(dpc), parameter z079
exp(2*pi*i*7/32)
Definition pietc.f90:145

pietc::s10
real(dp), parameter s10
sine(10 deg)
Definition pietc.f90:57

pietc::z259
complex(dpc), parameter z259
exp(2*pi*i*23/32)
Definition pietc.f90:201

pietc::u0
real(dp), parameter u0
zero
Definition pietc.f90:19

pietc::z105
complex(dpc), parameter z105
exp(2*pi*i*7/24)
Definition pietc.f90:151

pietc::pi
real(dp), parameter pi
Pi.
Definition pietc.f90:42

pietc::z039
complex(dpc), parameter z039
exp(2*pi*i*3/28)
Definition pietc.f90:131

pietc::z120
complex(dpc), parameter z120
exp(2*pi*i/3)
Definition pietc.f90:156

pietc::z200
complex(dpc), parameter z200
exp(2*pi*i*5/9)
Definition pietc.f90:181

pietc::euler
real(dp), parameter euler
Euler-Mascheroni constant.
Definition pietc.f90:53

pietc::z020
complex(dpc), parameter z020
exp(2*pi*i/18)
Definition pietc.f90:125

pietc::z160
complex(dpc), parameter z160
exp(2*pi*i*4/9)
Definition pietc.f90:169

pietc::z198
complex(dpc), parameter z198
exp(2*pi*i*11/20)
Definition pietc.f90:180

pietc::z010
complex(dpc), parameter z010
exp(2*pi*i/36)
Definition pietc.f90:120

pietc::s11
real(dp), parameter s11
sine(90/8 deg)
Definition pietc.f90:58

pietc::u2
real(dp), parameter u2
two
Definition pietc.f90:22

pietc::z162
complex(dpc), parameter z162
exp(2*pi*i*9/20)
Definition pietc.f90:170

pietc::z326
complex(dpc), parameter z326
exp(2*pi*i*29/32)
Definition pietc.f90:221

pietc::mu3
real(dp), parameter mu3
minus-three
Definition pietc.f90:25

pietc::ms39
real(dp), parameter ms39
minus-sine(90*3/7 deg)
Definition pietc.f90:96

pietc::z135
complex(dpc), parameter z135
exp(2*pi*i*3/8)
Definition pietc.f90:161

pietc::s60
real(dp), parameter s60
sine(60 deg)
Definition pietc.f90:75

pietc::z342
complex(dpc), parameter z342
exp(2*pi*i*19/20)
Definition pietc.f90:226

pietc::pi2
real(dp), parameter pi2
Pi*2.
Definition pietc.f90:43

pietc::s40
real(dp), parameter s40
sine(40 deg)
Definition pietc.f90:69

pietc::ms11
real(dp), parameter ms11
minus-sine(90/8 deg)
Definition pietc.f90:86

pietc::z140
complex(dpc), parameter z140
exp(2*pi*i*7/18)
Definition pietc.f90:162

pietc::ms50
real(dp), parameter ms50
minus-sine(50 deg)
Definition pietc.f90:99

pietc::z034
complex(dpc), parameter z034
exp(2*pi*i*3/32)
Definition pietc.f90:129

pietc::z288
complex(dpc), parameter z288
exp(2*pi*i*4/5)
Definition pietc.f90:208

pietc::s39
real(dp), parameter s39
sine(90*3/7 deg)
Definition pietc.f90:68

pietc::z018
complex(dpc), parameter z018
exp(2*pi*i/20)
Definition pietc.f90:124

pietc::z206
complex(dpc), parameter z206
exp(2*pi*i*4/7)
Definition pietc.f90:183

pietc::z300
complex(dpc), parameter z300
exp(2*pi*i*5/6)
Definition pietc.f90:212

pietc::z334
complex(dpc), parameter z334
exp(2*pi*i*13/14)
Definition pietc.f90:223

pietc::ms10
real(dp), parameter ms10
minus-sine(10 deg)
Definition pietc.f90:85

pietc::z180
complex(dpc), parameter z180
exp(2*pi*i/2)
Definition pietc.f90:175

pietc::s13
real(dp), parameter s13
sine(90/7 deg)
Definition pietc.f90:59

pietc::z349
complex(dpc), parameter z349
exp(2*pi*i*31/32)
Definition pietc.f90:229

pietc::ms60
real(dp), parameter ms60
minus-sine(60 deg)
Definition pietc.f90:103

pietc::s20
real(dp), parameter s20
sine(20 deg)
Definition pietc.f90:62

pietc::z077
complex(dpc), parameter z077
exp(2*pi*i*3/14)
Definition pietc.f90:144

pietc::z340
complex(dpc), parameter z340
exp(2*pi*i*17/18)
Definition pietc.f90:225

pkind
Standard integer, real, and complex single and double precision kinds.
Definition pkind.f90:7

pkind::dp
integer, parameter dp
Double precision real kind.
Definition pkind.f90:11

pkind::dpc
integer, parameter dpc
Double precision real kind.
Definition pkind.f90:13