grid_tools  1.13.0
pietc.f90
Go to the documentation of this file.
1 
4 
14 module pietc
15 use pkind, only: dp,dpc
16 implicit none
17 logical ,parameter:: t=.true.
18 logical ,parameter:: f=.false.
19 real(dp),parameter:: u0=0_dp
20 real(dp),parameter:: u1=1_dp
21 real(dp),parameter:: mu1=-u1
22 real(dp),parameter:: u2=2_dp
23 real(dp),parameter:: mu2=-u2
24 real(dp),parameter:: u3=3_dp
25 real(dp),parameter:: mu3=-u3
26 real(dp),parameter:: u4=4_dp
27 real(dp),parameter:: mu4=-u4
28 real(dp),parameter:: u5=5_dp
29 real(dp),parameter:: mu5=-u5
30 real(dp),parameter:: u6=6_dp
31 real(dp),parameter:: mu6=-u6
32 real(dp),parameter:: o2=u1/u2
33 real(dp),parameter:: o3=u1/u3
34 real(dp),parameter:: o4=u1/u4
35 real(dp),parameter:: o5=u1/u5
36 real(dp),parameter:: o6=u1/u6
37 real(dp),parameter:: mo2=-o2
38 real(dp),parameter:: mo3=-o3
39 real(dp),parameter:: mo4=-o4
40 real(dp),parameter:: mo5=-o5
41 real(dp),parameter:: mo6=-o6
42 real(dp),parameter:: pi =3.1415926535897932384626433832795028841971693993751058209749e0_dp
43 real(dp),parameter:: pi2=6.2831853071795864769252867665590057683943387987502116419498e0_dp
44 real(dp),parameter:: pih=1.5707963267948966192313216916397514420985846996875529104874e0_dp
45 real(dp),parameter:: rpi=1.7724538509055160272981674833411451827975494561223871282138e0_dp
46 real(dp),parameter:: r2 =1.4142135623730950488016887242096980785696718753769480731766e0_dp
47 real(dp),parameter:: r3 =1.7320508075688772935274463415058723669428052538103806280558e0_dp
48 real(dp),parameter:: r5 =2.2360679774997896964091736687312762354406183596115257242708e0_dp
49 real(dp),parameter:: or2=u1/r2
50 real(dp),parameter:: or3=u1/r3
51 real(dp),parameter:: or5=u1/r5
52 real(dp),parameter:: phi=1.6180339887498948482045868343656381177203091798057628621354e0_dp
53 real(dp),parameter:: euler=0.57721566490153286060651209008240243104215933593992359880e0_dp
54 real(dp),parameter:: dtor=pi/180
55 real(dp),parameter:: rtod=180/pi
56 ! Sines of all main fractions of 90 degrees (down to ninths):
57 real(dp),parameter:: s10=.173648177666930348851716626769314796000375677184069387236241e0_dp
58 real(dp),parameter:: s11=.195090322016128267848284868477022240927691617751954807754502e0_dp
59 real(dp),parameter:: s13=.222520933956314404288902564496794759466355568764544955311987e0_dp
60 real(dp),parameter:: s15=.258819045102520762348898837624048328349068901319930513814003e0_dp
61 real(dp),parameter:: s18=.309016994374947424102293417182819058860154589902881431067724e0_dp
62 real(dp),parameter:: s20=.342020143325668733044099614682259580763083367514160628465048e0_dp
63 real(dp),parameter:: s22=.382683432365089771728459984030398866761344562485627041433800e0_dp
64 real(dp),parameter:: s26=.433883739117558120475768332848358754609990727787459876444547e0_dp
65 real(dp),parameter:: s30=o2
66 real(dp),parameter:: s34=.555570233019602224742830813948532874374937190754804045924153e0_dp
67 real(dp),parameter:: s36=.587785252292473129168705954639072768597652437643145991072272e0_dp
68 real(dp),parameter:: s39=.623489801858733530525004884004239810632274730896402105365549e0_dp
69 real(dp),parameter:: s40=.642787609686539326322643409907263432907559884205681790324977e0_dp
70 real(dp),parameter:: s45=or2
71 real(dp),parameter:: s50=.766044443118978035202392650555416673935832457080395245854045e0_dp
72 real(dp),parameter:: s51=.781831482468029808708444526674057750232334518708687528980634e0_dp
73 real(dp),parameter:: s54=.809016994374947424102293417182819058860154589902881431067724e0_dp
74 real(dp),parameter:: s56=.831469612302545237078788377617905756738560811987249963446124e0_dp
75 real(dp),parameter:: s60=r3*o2
76 real(dp),parameter:: s64=.900968867902419126236102319507445051165919162131857150053562e0_dp
77 real(dp),parameter:: s68=.923879532511286756128183189396788286822416625863642486115097e0_dp
78 real(dp),parameter:: s70=.939692620785908384054109277324731469936208134264464633090286e0_dp
79 real(dp),parameter:: s72=.951056516295153572116439333379382143405698634125750222447305e0_dp
80 real(dp),parameter:: s75=.965925826289068286749743199728897367633904839008404550402343e0_dp
81 real(dp),parameter:: s77=.974927912181823607018131682993931217232785800619997437648079e0_dp
82 real(dp),parameter:: s79=.980785280403230449126182236134239036973933730893336095002916e0_dp
83 real(dp),parameter:: s80=.984807753012208059366743024589523013670643251719842418790025e0_dp
84 ! ... and their minuses:
85 real(dp),parameter:: ms10=-s10
86 real(dp),parameter:: ms11=-s11
87 real(dp),parameter:: ms13=-s13
88 real(dp),parameter:: ms15=-s15
89 real(dp),parameter:: ms18=-s18
90 real(dp),parameter:: ms20=-s20
91 real(dp),parameter:: ms22=-s22
92 real(dp),parameter:: ms26=-s26
93 real(dp),parameter:: ms30=-s30
94 real(dp),parameter:: ms34=-s34
95 real(dp),parameter:: ms36=-s36
96 real(dp),parameter:: ms39=-s39
97 real(dp),parameter:: ms40=-s40
98 real(dp),parameter:: ms45=-s45
99 real(dp),parameter:: ms50=-s50
100 real(dp),parameter:: ms51=-s51
101 real(dp),parameter:: ms54=-s54
102 real(dp),parameter:: ms56=-s56
103 real(dp),parameter:: ms60=-s60
104 real(dp),parameter:: ms64=-s64
105 real(dp),parameter:: ms68=-s68
106 real(dp),parameter:: ms70=-s70
107 real(dp),parameter:: ms72=-s72
108 real(dp),parameter:: ms75=-s75
109 real(dp),parameter:: ms77=-s77
110 real(dp),parameter:: ms79=-s79
111 real(dp),parameter:: ms80=-s80
112 complex(dpc),parameter:: c0=(u0,u0)
113 complex(dpc),parameter:: c1=(u1,u0)
114 complex(dpc),parameter:: mc1=-c1
115 complex(dpc),parameter:: ci=(u0,u1)
116 complex(dpc),parameter:: mci=-ci
117 complex(dpc),parameter:: cipi=ci*pi
118 ! Main fractional rotations, as unimodular complex numbers:
119 complex(dpc),parameter:: z000=c1
120 complex(dpc),parameter:: z010=( s80,s10)
121 complex(dpc),parameter:: z011=( s79,s11)
122 complex(dpc),parameter:: z013=( s77,s13)
123 complex(dpc),parameter:: z015=( s75,s15)
124 complex(dpc),parameter:: z018=( s72,s18)
125 complex(dpc),parameter:: z020=( s70,s20)
126 complex(dpc),parameter:: z022=( s68,s22)
127 complex(dpc),parameter:: z026=( s64,s26)
128 complex(dpc),parameter:: z030=( s60,s30)
129 complex(dpc),parameter:: z034=( s56,s34)
130 complex(dpc),parameter:: z036=( s54,s36)
131 complex(dpc),parameter:: z039=( s51,s39)
132 complex(dpc),parameter:: z040=( s50,s40)
133 complex(dpc),parameter:: z045=( s45,s45)
134 complex(dpc),parameter:: z050=( s40,s50)
135 complex(dpc),parameter:: z051=( s39,s51)
136 complex(dpc),parameter:: z054=( s36,s54)
137 complex(dpc),parameter:: z056=( s34,s56)
138 complex(dpc),parameter:: z060=( s30,s60)
139 complex(dpc),parameter:: z064=( s26,s64)
140 complex(dpc),parameter:: z068=( s22,s68)
141 complex(dpc),parameter:: z070=( s20,s70)
142 complex(dpc),parameter:: z072=( s18,s72)
143 complex(dpc),parameter:: z075=( s15,s75)
144 complex(dpc),parameter:: z077=( s13,s77)
145 complex(dpc),parameter:: z079=( s11,s79)
146 complex(dpc),parameter:: z080=( s10,s80)
147 complex(dpc),parameter:: z090=ci
148 complex(dpc),parameter:: z100=(ms10,s80)
149 complex(dpc),parameter:: z101=(ms11,s79)
150 complex(dpc),parameter:: z103=(ms13,s77)
151 complex(dpc),parameter:: z105=(ms15,s75)
152 complex(dpc),parameter:: z108=(ms18,s72)
153 complex(dpc),parameter:: z110=(ms20,s70)
154 complex(dpc),parameter:: z112=(ms22,s68)
155 complex(dpc),parameter:: z116=(ms26,s64)
156 complex(dpc),parameter:: z120=(ms30,s60)
157 complex(dpc),parameter:: z124=(ms34,s56)
158 complex(dpc),parameter:: z126=(ms36,s54)
159 complex(dpc),parameter:: z129=(ms39,s51)
160 complex(dpc),parameter:: z130=(ms40,s50)
161 complex(dpc),parameter:: z135=(ms45,s45)
162 complex(dpc),parameter:: z140=(ms50,s40)
163 complex(dpc),parameter:: z141=(ms51,s39)
164 complex(dpc),parameter:: z144=(ms54,s36)
165 complex(dpc),parameter:: z146=(ms56,s34)
166 complex(dpc),parameter:: z150=(ms60,s30)
167 complex(dpc),parameter:: z154=(ms64,s26)
168 complex(dpc),parameter:: z158=(ms68,s22)
169 complex(dpc),parameter:: z160=(ms70,s20)
170 complex(dpc),parameter:: z162=(ms72,s18)
171 complex(dpc),parameter:: z165=(ms75,s15)
172 complex(dpc),parameter:: z167=(ms77,s13)
173 complex(dpc),parameter:: z169=(ms79,s11)
174 complex(dpc),parameter:: z170=(ms80,s10)
175 complex(dpc),parameter:: z180=-z000
176 complex(dpc),parameter:: z190=-z010
177 complex(dpc),parameter:: z191=-z011
178 complex(dpc),parameter:: z193=-z013
179 complex(dpc),parameter:: z195=-z015
180 complex(dpc),parameter:: z198=-z018
181 complex(dpc),parameter:: z200=-z020
182 complex(dpc),parameter:: z202=-z022
183 complex(dpc),parameter:: z206=-z026
184 complex(dpc),parameter:: z210=-z030
185 complex(dpc),parameter:: z214=-z034
186 complex(dpc),parameter:: z216=-z036
187 complex(dpc),parameter:: z219=-z039
188 complex(dpc),parameter:: z220=-z040
189 complex(dpc),parameter:: z225=-z045
190 complex(dpc),parameter:: z230=-z050
191 complex(dpc),parameter:: z231=-z051
192 complex(dpc),parameter:: z234=-z054
193 complex(dpc),parameter:: z236=-z056
194 complex(dpc),parameter:: z240=-z060
195 complex(dpc),parameter:: z244=-z064
196 complex(dpc),parameter:: z248=-z068
197 complex(dpc),parameter:: z250=-z070
198 complex(dpc),parameter:: z252=-z072
199 complex(dpc),parameter:: z255=-z075
200 complex(dpc),parameter:: z257=-z077
201 complex(dpc),parameter:: z259=-z079
202 complex(dpc),parameter:: z260=-z080
203 complex(dpc),parameter:: z270=-z090
204 complex(dpc),parameter:: z280=-z100
205 complex(dpc),parameter:: z281=-z101
206 complex(dpc),parameter:: z283=-z103
207 complex(dpc),parameter:: z285=-z105
208 complex(dpc),parameter:: z288=-z108
209 complex(dpc),parameter:: z290=-z110
210 complex(dpc),parameter:: z292=-z112
211 complex(dpc),parameter:: z296=-z116
212 complex(dpc),parameter:: z300=-z120
213 complex(dpc),parameter:: z304=-z124
214 complex(dpc),parameter:: z306=-z126
215 complex(dpc),parameter:: z309=-z129
216 complex(dpc),parameter:: z310=-z130
217 complex(dpc),parameter:: z315=-z135
218 complex(dpc),parameter:: z320=-z140
219 complex(dpc),parameter:: z321=-z141
220 complex(dpc),parameter:: z324=-z144
221 complex(dpc),parameter:: z326=-z146
222 complex(dpc),parameter:: z330=-z150
223 complex(dpc),parameter:: z334=-z154
224 complex(dpc),parameter:: z338=-z158
225 complex(dpc),parameter:: z340=-z160
226 complex(dpc),parameter:: z342=-z162
227 complex(dpc),parameter:: z345=-z165
228 complex(dpc),parameter:: z347=-z167
229 complex(dpc),parameter:: z349=-z169
230 complex(dpc),parameter:: z350=-z170
231 end module pietc
pietc::z288
complex(dpc), parameter z288
exp(2*pi*i*4/5)
Definition: pietc.f90:208
pietc::u4
real(dp), parameter u4
four
Definition: pietc.f90:26
pietc::z347
complex(dpc), parameter z347
exp(2*pi*i*27/28)
Definition: pietc.f90:228
pietc::ms60
real(dp), parameter ms60
minus-sine(60 deg)
Definition: pietc.f90:103
pietc::z162
complex(dpc), parameter z162
exp(2*pi*i*9/20)
Definition: pietc.f90:170
pietc::s70
real(dp), parameter s70
sine(70 deg)
Definition: pietc.f90:78
pietc::z051
complex(dpc), parameter z051
exp(2*pi*i/7)
Definition: pietc.f90:135
pkind::dp
integer, parameter dp
Double precision real kind.
Definition: pkind.f90:11
pietc::z220
complex(dpc), parameter z220
exp(2*pi*i*11/18)
Definition: pietc.f90:188
pietc::z225
complex(dpc), parameter z225
exp(2*pi*i*5/8)
Definition: pietc.f90:189
pietc::z020
complex(dpc), parameter z020
exp(2*pi*i/18)
Definition: pietc.f90:125
pietc::z234
complex(dpc), parameter z234
exp(2*pi*i*13/20)
Definition: pietc.f90:192
pietc::z244
complex(dpc), parameter z244
exp(2*pi*i*19/28)
Definition: pietc.f90:195
pietc::z108
complex(dpc), parameter z108
exp(2*pi*i*3/10)
Definition: pietc.f90:152
pietc::z270
complex(dpc), parameter z270
exp(2*pi*i*3/4)
Definition: pietc.f90:203
pietc::s56
real(dp), parameter s56
sine(90*5/8 deg)
Definition: pietc.f90:74
pietc::s15
real(dp), parameter s15
sine(15 deg)
Definition: pietc.f90:60
pietc::u6
real(dp), parameter u6
six
Definition: pietc.f90:30
pkind
Standard integer, real, and complex single and double precision kinds.
Definition: pkind.f90:7
pietc::z105
complex(dpc), parameter z105
exp(2*pi*i*7/24)
Definition: pietc.f90:151
pietc::z000
complex(dpc), parameter z000
exp(2*pi*i*0)
Definition: pietc.f90:119
pietc::ms40
real(dp), parameter ms40
minus-sine(40 deg)
Definition: pietc.f90:97
pietc::z030
complex(dpc), parameter z030
exp(2*pi*i/12)
Definition: pietc.f90:128
pietc::z257
complex(dpc), parameter z257
exp(2*pi*i*5/7)
Definition: pietc.f90:200
pietc::z210
complex(dpc), parameter z210
exp(2*pi*i*7/12)
Definition: pietc.f90:184
pietc::s11
real(dp), parameter s11
sine(90/8 deg)
Definition: pietc.f90:58
pietc::z338
complex(dpc), parameter z338
exp(2*pi*i*15/16)
Definition: pietc.f90:224
pietc::mu1
real(dp), parameter mu1
minus-one
Definition: pietc.f90:21
pietc::z026
complex(dpc), parameter z026
exp(2*pi*i/14)
Definition: pietc.f90:127
pietc::pih
real(dp), parameter pih
pi*half
Definition: pietc.f90:44
pietc::z240
complex(dpc), parameter z240
exp(2*pi*i*2/3)
Definition: pietc.f90:194
pietc::z206
complex(dpc), parameter z206
exp(2*pi*i*4/7)
Definition: pietc.f90:183
pietc::z190
complex(dpc), parameter z190
exp(2*pi*i*19/36)
Definition: pietc.f90:176
pietc::z018
complex(dpc), parameter z018
exp(2*pi*i/20)
Definition: pietc.f90:124
pietc::mu5
real(dp), parameter mu5
minus-five
Definition: pietc.f90:29
pietc::z345
complex(dpc), parameter z345
exp(2*pi*i*23/24)
Definition: pietc.f90:227
pietc::f
logical, parameter f
for pain-relief in logical ops
Definition: pietc.f90:18
pietc::z015
complex(dpc), parameter z015
exp(2*pi*i/24)
Definition: pietc.f90:123
pietc::z334
complex(dpc), parameter z334
exp(2*pi*i*13/14)
Definition: pietc.f90:223
pietc::s75
real(dp), parameter s75
sine(75 deg)
Definition: pietc.f90:80
pietc::z090
complex(dpc), parameter z090
exp(2*pi*i/4)
Definition: pietc.f90:147
pietc::o5
real(dp), parameter o5
fifth
Definition: pietc.f90:35
pietc::s18
real(dp), parameter s18
sine(18 deg)
Definition: pietc.f90:61
pietc::mu3
real(dp), parameter mu3
minus-three
Definition: pietc.f90:25
pietc::u0
real(dp), parameter u0
zero
Definition: pietc.f90:19
pietc::z280
complex(dpc), parameter z280
exp(2*pi*i*7/9)
Definition: pietc.f90:204
pietc::ms75
real(dp), parameter ms75
minus-sine(75 deg)
Definition: pietc.f90:108
pietc::ms15
real(dp), parameter ms15
minus-sine(15 deg)
Definition: pietc.f90:88
pietc::ci
complex(dpc), parameter ci
complex i=sqrt(-1)
Definition: pietc.f90:115
pietc::u2
real(dp), parameter u2
two
Definition: pietc.f90:22
pietc::s54
real(dp), parameter s54
sine(54 deg)
Definition: pietc.f90:73
pietc::z195
complex(dpc), parameter z195
exp(2*pi*i*13/24)
Definition: pietc.f90:179
pietc::s50
real(dp), parameter s50
sine(50 deg)
Definition: pietc.f90:71
pietc::z248
complex(dpc), parameter z248
exp(2*pi*i*11/16)
Definition: pietc.f90:196
pietc::z259
complex(dpc), parameter z259
exp(2*pi*i*23/32)
Definition: pietc.f90:201
pietc::cipi
complex(dpc), parameter cipi
complex i*pi
Definition: pietc.f90:117
pietc::z169
complex(dpc), parameter z169
exp(2*pi*i*15/32)
Definition: pietc.f90:173
pietc::z296
complex(dpc), parameter z296
exp(2*pi*i*23/28)
Definition: pietc.f90:211
pietc::r2
real(dp), parameter r2
Square root of 2.
Definition: pietc.f90:46
pietc::z250
complex(dpc), parameter z250
exp(2*pi*i*25/36)
Definition: pietc.f90:197
pietc::or2
real(dp), parameter or2
1.
Definition: pietc.f90:49
pietc::z260
complex(dpc), parameter z260
exp(2*pi*i*13/18)
Definition: pietc.f90:202
pietc::z200
complex(dpc), parameter z200
exp(2*pi*i*5/9)
Definition: pietc.f90:181
pietc::s34
real(dp), parameter s34
sine(90*3/8 deg)
Definition: pietc.f90:66
pietc::z070
complex(dpc), parameter z070
exp(2*pi*i*7/36)
Definition: pietc.f90:141
pietc::z231
complex(dpc), parameter z231
exp(2*pi*i*9/14)
Definition: pietc.f90:191
pietc::z252
complex(dpc), parameter z252
exp(2*pi*i*7/10)
Definition: pietc.f90:198
pietc::c1
complex(dpc), parameter c1
complex one
Definition: pietc.f90:113
pietc::z167
complex(dpc), parameter z167
exp(2*pi*i*13/28)
Definition: pietc.f90:172
pietc::s13
real(dp), parameter s13
sine(90/7 deg)
Definition: pietc.f90:59
pietc::z290
complex(dpc), parameter z290
exp(2*pi*i*29/36)
Definition: pietc.f90:209
pietc::z080
complex(dpc), parameter z080
exp(2*pi*i*2/9)
Definition: pietc.f90:146
pietc::o6
real(dp), parameter o6
sixth
Definition: pietc.f90:36
pietc::z130
complex(dpc), parameter z130
exp(2*pi*i*13/36)
Definition: pietc.f90:160
pietc::z034
complex(dpc), parameter z034
exp(2*pi*i*3/32)
Definition: pietc.f90:129
pietc::z144
complex(dpc), parameter z144
exp(2*pi*i*2/5)
Definition: pietc.f90:164
pietc::ms36
real(dp), parameter ms36
minus-sine(36 deg)
Definition: pietc.f90:95
pietc::u5
real(dp), parameter u5
five
Definition: pietc.f90:28
pietc::z230
complex(dpc), parameter z230
exp(2*pi*i*23/36)
Definition: pietc.f90:190
pietc::mu2
real(dp), parameter mu2
minus-two
Definition: pietc.f90:23
pietc::z214
complex(dpc), parameter z214
exp(2*pi*i*19/32)
Definition: pietc.f90:185
pietc::z193
complex(dpc), parameter z193
exp(2*pi*i*15/28)
Definition: pietc.f90:178
pietc::phi
real(dp), parameter phi
Golden number.
Definition: pietc.f90:52
pietc::z315
complex(dpc), parameter z315
exp(2*pi*i*7/8)
Definition: pietc.f90:217
pietc::or3
real(dp), parameter or3
1.
Definition: pietc.f90:50
pietc::z054
complex(dpc), parameter z054
exp(2*pi*i*3/20)
Definition: pietc.f90:136
pietc::mu4
real(dp), parameter mu4
minus-four
Definition: pietc.f90:27
pietc::z056
complex(dpc), parameter z056
exp(2*pi*i*5/32)
Definition: pietc.f90:137
pietc::pi
real(dp), parameter pi
Pi.
Definition: pietc.f90:42
pietc::mu6
real(dp), parameter mu6
minus-six
Definition: pietc.f90:31
pietc::c0
complex(dpc), parameter c0
complex zero
Definition: pietc.f90:112
pietc::z036
complex(dpc), parameter z036
exp(2*pi*i/10)
Definition: pietc.f90:130
pietc::z160
complex(dpc), parameter z160
exp(2*pi*i*4/9)
Definition: pietc.f90:169
pietc::z255
complex(dpc), parameter z255
exp(2*pi*i*17/24)
Definition: pietc.f90:199
pietc::z120
complex(dpc), parameter z120
exp(2*pi*i/3)
Definition: pietc.f90:156
pietc::s77
real(dp), parameter s77
sine(90*6/7 deg)
Definition: pietc.f90:81
pietc::s80
real(dp), parameter s80
sine(80 deg)
Definition: pietc.f90:83
pietc::ms45
real(dp), parameter ms45
minus-sine(45 deg)
Definition: pietc.f90:98
pietc::u3
real(dp), parameter u3
three
Definition: pietc.f90:24
pietc::z324
complex(dpc), parameter z324
exp(2*pi*i*9/10)
Definition: pietc.f90:220
pietc::z202
complex(dpc), parameter z202
exp(2*pi*i*9/16)
Definition: pietc.f90:182
pietc::z079
complex(dpc), parameter z079
exp(2*pi*i*7/32)
Definition: pietc.f90:145
pietc::z010
complex(dpc), parameter z010
exp(2*pi*i/36)
Definition: pietc.f90:120
pietc::r5
real(dp), parameter r5
Square root of 5.
Definition: pietc.f90:48
pietc::ms18
real(dp), parameter ms18
minus-sine(18 deg)
Definition: pietc.f90:89
pietc::z326
complex(dpc), parameter z326
exp(2*pi*i*29/32)
Definition: pietc.f90:221
pietc::s20
real(dp), parameter s20
sine(20 deg)
Definition: pietc.f90:62
pietc::z100
complex(dpc), parameter z100
exp(2*pi*i*5/18)
Definition: pietc.f90:148
pietc::t
logical, parameter t
for pain-relief in logical ops
Definition: pietc.f90:17
pietc::ms50
real(dp), parameter ms50
minus-sine(50 deg)
Definition: pietc.f90:99
pietc::z141
complex(dpc), parameter z141
exp(2*pi*i*11/28)
Definition: pietc.f90:163
pietc::z140
complex(dpc), parameter z140
exp(2*pi*i*7/18)
Definition: pietc.f90:162
pietc::mo3
real(dp), parameter mo3
minus-third
Definition: pietc.f90:38
pietc::ms34
real(dp), parameter ms34
minus-sine(90*3/8 deg)
Definition: pietc.f90:94
pietc::s60
real(dp), parameter s60
sine(60 deg)
Definition: pietc.f90:75
pietc::z022
complex(dpc), parameter z022
exp(2*pi*i/16)
Definition: pietc.f90:126
pietc::mci
complex(dpc), parameter mci
complex minus-i
Definition: pietc.f90:116
pietc::or5
real(dp), parameter or5
1.
Definition: pietc.f90:51
pietc::z304
complex(dpc), parameter z304
exp(2*pi*i*27/32)
Definition: pietc.f90:213
pietc::z340
complex(dpc), parameter z340
exp(2*pi*i*17/18)
Definition: pietc.f90:225
pietc::dtor
real(dp), parameter dtor
Degrees to radians.
Definition: pietc.f90:54
pietc::s45
real(dp), parameter s45
sine(45 deg)
Definition: pietc.f90:70
pietc::mo6
real(dp), parameter mo6
minus-sixth
Definition: pietc.f90:41
pietc::pi2
real(dp), parameter pi2
Pi*2.
Definition: pietc.f90:43
pietc::z060
complex(dpc), parameter z060
exp(2*pi*i/6)
Definition: pietc.f90:138
pietc::ms80
real(dp), parameter ms80
minus-sine(80 deg)
Definition: pietc.f90:111
pietc::z112
complex(dpc), parameter z112
exp(2*pi*i*5/16)
Definition: pietc.f90:154
pietc::z064
complex(dpc), parameter z064
exp(2*pi*i*5/28)
Definition: pietc.f90:139
pietc::s22
real(dp), parameter s22
sine(22.5 deg)
Definition: pietc.f90:63
pietc::mo4
real(dp), parameter mo4
minus-fourth
Definition: pietc.f90:39
pietc::z154
complex(dpc), parameter z154
exp(2*pi*i*3/7)
Definition: pietc.f90:167
pietc::z330
complex(dpc), parameter z330
exp(2*pi*i*11/12)
Definition: pietc.f90:222
pietc::s64
real(dp), parameter s64
sine(90*5/7 deg)
Definition: pietc.f90:76
pietc::ms77
real(dp), parameter ms77
minus-sine(90*6/7 deg)
Definition: pietc.f90:109
pietc::z219
complex(dpc), parameter z219
exp(2*pi*i*17/28)
Definition: pietc.f90:187
pietc::s79
real(dp), parameter s79
sine(90*7/8 deg)
Definition: pietc.f90:82
pietc::ms26
real(dp), parameter ms26
minus-sine(90*2/7 deg)
Definition: pietc.f90:92
pietc::z124
complex(dpc), parameter z124
exp(2*pi*i*11/32)
Definition: pietc.f90:157
pietc::z236
complex(dpc), parameter z236
exp(2*pi*i*21/32)
Definition: pietc.f90:193
pietc::rtod
real(dp), parameter rtod
radians to degrees
Definition: pietc.f90:55
pietc::z300
complex(dpc), parameter z300
exp(2*pi*i*5/6)
Definition: pietc.f90:212
pietc::ms70
real(dp), parameter ms70
minus-sine(70 deg)
Definition: pietc.f90:106
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::euler
real(dp), parameter euler
Euler-Mascheroni constant.
Definition: pietc.f90:53
pietc::z072
complex(dpc), parameter z072
exp(2*pi*i/5)
Definition: pietc.f90:142
pietc::z129
complex(dpc), parameter z129
exp(2*pi*i*5/14)
Definition: pietc.f90:159
pietc::u1
real(dp), parameter u1
one
Definition: pietc.f90:20
pietc::z321
complex(dpc), parameter z321
exp(2*pi*i*25/28)
Definition: pietc.f90:219
pietc::z191
complex(dpc), parameter z191
exp(2*pi*i*17/32)
Definition: pietc.f90:177
pietc::ms13
real(dp), parameter ms13
minus-sine(90/7 deg)
Definition: pietc.f90:87
pietc::z039
complex(dpc), parameter z039
exp(2*pi*i*3/28)
Definition: pietc.f90:131
pietc::z116
complex(dpc), parameter z116
exp(2*pi*i*9/28)
Definition: pietc.f90:155
pietc::z068
complex(dpc), parameter z068
exp(2*pi*i*3/16)
Definition: pietc.f90:140
pietc::z342
complex(dpc), parameter z342
exp(2*pi*i*19/20)
Definition: pietc.f90:226
pietc::z077
complex(dpc), parameter z077
exp(2*pi*i*3/14)
Definition: pietc.f90:144
pietc::z158
complex(dpc), parameter z158
exp(2*pi*i*7/16)
Definition: pietc.f90:168
pietc::r3
real(dp), parameter r3
Square root of 3.
Definition: pietc.f90:47
pietc::s26
real(dp), parameter s26
sine(90*2/7 deg)
Definition: pietc.f90:64
pietc::mo5
real(dp), parameter mo5
minus-fifth
Definition: pietc.f90:40
pietc
Some of the commonly used constants (pi etc) mainly for double-precision subroutines.
Definition: pietc.f90:14
pietc::s68
real(dp), parameter s68
sine(67.5 deg)
Definition: pietc.f90:77
pietc::z150
complex(dpc), parameter z150
exp(2*pi*i*5/12)
Definition: pietc.f90:166
pietc::z180
complex(dpc), parameter z180
exp(2*pi*i/2)
Definition: pietc.f90:175
pietc::z075
complex(dpc), parameter z075
exp(2*pi*i*5/24)
Definition: pietc.f90:143
pietc::z013
complex(dpc), parameter z013
exp(2*pi*i/28)
Definition: pietc.f90:122
pietc::o3
real(dp), parameter o3
third
Definition: pietc.f90:33
pietc::s72
real(dp), parameter s72
sine(72 deg)
Definition: pietc.f90:79
pietc::ms22
real(dp), parameter ms22
minus-sine(22.5 deg)
Definition: pietc.f90:91
pietc::z309
complex(dpc), parameter z309
exp(2*pi*i*6/7)
Definition: pietc.f90:215
pietc::z045
complex(dpc), parameter z045
exp(2*pi*i/8)
Definition: pietc.f90:133
pietc::s36
real(dp), parameter s36
sine(36 deg)
Definition: pietc.f90:67
pietc::ms11
real(dp), parameter ms11
minus-sine(90/8 deg)
Definition: pietc.f90:86
pkind::dpc
integer, parameter dpc
Double precision real kind.
Definition: pkind.f90:13
pietc::ms30
real(dp), parameter ms30
minus-sine(30 deg)
Definition: pietc.f90:93
pietc::z011
complex(dpc), parameter z011
exp(2*pi*i/32)
Definition: pietc.f90:121
pietc::z101
complex(dpc), parameter z101
exp(2*pi*i*9/32)
Definition: pietc.f90:149
pietc::s40
real(dp), parameter s40
sine(40 deg)
Definition: pietc.f90:69
pietc::z165
complex(dpc), parameter z165
exp(2*pi*i*11/24)
Definition: pietc.f90:171
pietc::o4
real(dp), parameter o4
fourth
Definition: pietc.f90:34
pietc::z285
complex(dpc), parameter z285
exp(2*pi*i*19/24)
Definition: pietc.f90:207
pietc::z146
complex(dpc), parameter z146
exp(2*pi*i*13/32)
Definition: pietc.f90:165
pietc::z103
complex(dpc), parameter z103
exp(2*pi*i*2/7)
Definition: pietc.f90:150
pietc::z349
complex(dpc), parameter z349
exp(2*pi*i*31/32)
Definition: pietc.f90:229
pietc::ms68
real(dp), parameter ms68
minus-sine(67.5 deg)
Definition: pietc.f90:105
pietc::z310
complex(dpc), parameter z310
exp(2*pi*i*31/36)
Definition: pietc.f90:216
pietc::z283
complex(dpc), parameter z283
exp(2*pi*i*11/14)
Definition: pietc.f90:206
pietc::ms39
real(dp), parameter ms39
minus-sine(90*3/7 deg)
Definition: pietc.f90:96
pietc::z306
complex(dpc), parameter z306
exp(2*pi*i*17/20)
Definition: pietc.f90:214
pietc::z281
complex(dpc), parameter z281
exp(2*pi*i*25/32)
Definition: pietc.f90:205
pietc::ms64
real(dp), parameter ms64
minus-sine(90*5/7 deg)
Definition: pietc.f90:104
pietc::rpi
real(dp), parameter rpi
square root of pi
Definition: pietc.f90:45
pietc::z110
complex(dpc), parameter z110
exp(2*pi*i*11/36)
Definition: pietc.f90:153
pietc::z050
complex(dpc), parameter z050
exp(2*pi*i*5/36)
Definition: pietc.f90:134
pietc::z135
complex(dpc), parameter z135
exp(2*pi*i*3/8)
Definition: pietc.f90:161
pietc::ms20
real(dp), parameter ms20
minus-sine(20 deg)
Definition: pietc.f90:90
pietc::mc1
complex(dpc), parameter mc1
complex minus-one
Definition: pietc.f90:114
pietc::ms10
real(dp), parameter ms10
minus-sine(10 deg)
Definition: pietc.f90:85
pietc::s30
real(dp), parameter s30
sine(30 deg)
Definition: pietc.f90:65
pietc::z292
complex(dpc), parameter z292
exp(2*pi*i*13/16)
Definition: pietc.f90:210
pietc::z198
complex(dpc), parameter z198
exp(2*pi*i*11/20)
Definition: pietc.f90:180
pietc::z320
complex(dpc), parameter z320
exp(2*pi*i*8/9)
Definition: pietc.f90:218
pietc::ms51
real(dp), parameter ms51
minus-sine(90*4/7 deg)
Definition: pietc.f90:100
pietc::o2
real(dp), parameter o2
half
Definition: pietc.f90:32
pietc::ms56
real(dp), parameter ms56
minus-sine(90*5/8 deg)
Definition: pietc.f90:102
pietc::z170
complex(dpc), parameter z170
exp(2*pi*i*17/36)
Definition: pietc.f90:174
pietc::mo2
real(dp), parameter mo2
minus-half
Definition: pietc.f90:37
pietc::z350
complex(dpc), parameter z350
exp(2*pi*i*35/36)
Definition: pietc.f90:230
pietc::ms72
real(dp), parameter ms72
minus-sine(72 deg)
Definition: pietc.f90:107
pietc::s51
real(dp), parameter s51
sine(90*4/7 deg)
Definition: pietc.f90:72
pietc::z216
complex(dpc), parameter z216
exp(2*pi*i*3/5)
Definition: pietc.f90:186
pietc::s39
real(dp), parameter s39
sine(90*3/7 deg)
Definition: pietc.f90:68
pietc::ms79
real(dp), parameter ms79
minus-sine(90*7/8 deg)
Definition: pietc.f90:110
pietc::z126
complex(dpc), parameter z126
exp(2*pi*i*7/20)
Definition: pietc.f90:158
pietc::s10
real(dp), parameter s10
sine(10 deg)
Definition: pietc.f90:57