Single precision constants. More...

Variables
complex(spc), parameter	pietc_s::c0 =(u0, u0)
	complex zero More...

complex(spc), parameter	pietc_s::c1 =(u1, u0)
	complex one More...

complex(spc), parameter	pietc_s::ci =(u0, u1)
	complex i=sqrt(-1) More...

complex(spc), parameter	pietc_s::cipi =ci*pi
	complex i*pi More...

real(sp), parameter	pietc_s::dtor =pi/180
	Degrees to radians. More...

real(sp), parameter	pietc_s::euler =0.57721566490153286060651209008240243104215933593992359880e0_sp
	Euler-Mascheroni constant. More...

logical, parameter	pietc_s::f =.false.
	for pain-relief in logical ops More...

complex(spc), parameter	pietc_s::mc1 =-c1
	complex minus-one More...

complex(spc), parameter	pietc_s::mci =-ci
	complex minus-i More...

real(sp), parameter	pietc_s::mo2 =-o2
	minus-half More...

real(sp), parameter	pietc_s::mo3 =-o3
	minus-third More...

real(sp), parameter	pietc_s::mo4 =-o4
	minus-fourth More...

real(sp), parameter	pietc_s::mo5 =-o5
	minus-fifth More...

real(sp), parameter	pietc_s::mo6 =-06
	minus-sixth More...

real(sp), parameter	pietc_s::ms10 =-s10
	minus-sine(10 deg) More...

real(sp), parameter	pietc_s::ms11 =-s11
	minus-sine(90/8 deg) More...

real(sp), parameter	pietc_s::ms13 =-s13
	minus-sine(90/7 deg) More...

real(sp), parameter	pietc_s::ms15 =-s15
	minus-sine(15 deg) More...

real(sp), parameter	pietc_s::ms18 =-s18
	minus-sine(18 deg) More...

real(sp), parameter	pietc_s::ms20 =-s20
	minus-sine(20 deg) More...

real(sp), parameter	pietc_s::ms22 =-s22
	minus-sine(22.5 deg) More...

real(sp), parameter	pietc_s::ms26 =-s26
	minus-sine(90*2/7 deg) More...

real(sp), parameter	pietc_s::ms30 =-s30
	minus-sine(30 deg) More...

real(sp), parameter	pietc_s::ms34 =-s34
	minus-sine(90*3/8 deg) More...

real(sp), parameter	pietc_s::ms36 =-s36
	minus-sine(36 deg) More...

real(sp), parameter	pietc_s::ms39 =-s39
	minus-sine(90*3/7 deg) More...

real(sp), parameter	pietc_s::ms40 =-s40
	minus-sine(40 deg) More...

real(sp), parameter	pietc_s::ms45 =-s45
	minus-sine(45 deg) More...

real(sp), parameter	pietc_s::ms50 =-s50
	minus-sine(50 deg) More...

real(sp), parameter	pietc_s::ms51 =-s51
	minus-sine(90*4/7 deg) More...

real(sp), parameter	pietc_s::ms54 =-s54
	minus-sine(54 deg) More...

real(sp), parameter	pietc_s::ms56 =-s56
	minus-sine(90*5/8 deg) More...

real(sp), parameter	pietc_s::ms60 =-s60
	minus-sine(60 deg) More...

real(sp), parameter	pietc_s::ms64 =-s64
	minus-sine(90*5/7 deg) More...

real(sp), parameter	pietc_s::ms68 =-s68
	minus-sine(67.5 deg) More...

real(sp), parameter	pietc_s::ms70 =-s70
	minus-sine(70 deg) More...

real(sp), parameter	pietc_s::ms72 =-s72
	minus-sine(72 deg) More...

real(sp), parameter	pietc_s::ms75 =-s75
	minus-sine(75 deg) More...

real(sp), parameter	pietc_s::ms77 =-s77
	minus-sine(90*6/7 deg) More...

real(sp), parameter	pietc_s::ms79 =-s79
	minus-sine(90*7/8 deg) More...

real(sp), parameter	pietc_s::ms80 =-s80
	minus-sine(80 deg) More...

real(sp), parameter	pietc_s::mu1 =-u1
	minus-one More...

real(sp), parameter	pietc_s::mu2 =-u2
	minus-two More...

real(sp), parameter	pietc_s::mu3 =-u3
	minus-three More...

real(sp), parameter	pietc_s::mu4 =-u4
	minus-four More...

real(sp), parameter	pietc_s::mu5 =-u5
	minus-five More...

real(sp), parameter	pietc_s::mu6 =-u6
	minus-six More...

real(sp), parameter	pietc_s::o2 =u1/u2
	half More...

real(sp), parameter	pietc_s::o3 =u1/u3
	third More...

real(sp), parameter	pietc_s::o4 =u1/u4
	fourth More...

real(sp), parameter	pietc_s::o5 =u1/u5
	fifth More...

real(sp), parameter	pietc_s::o6 =u1/u6
	sixth More...

real(sp), parameter	pietc_s::or2 =u1/r2
	1. More...

real(sp), parameter	pietc_s::or3 =u1/r3
	1. More...

real(sp), parameter	pietc_s::or5 =u1/r5
	1. More...

real(sp), parameter	pietc_s::phi =1.6180339887498948482045868343656381177203091798057628621354e0_sp
	Golden number. More...

real(sp), parameter	pietc_s::pi =3.1415926535897932384626433832795028841971693993751058209749e0_sp
	pi More...

real(sp), parameter	pietc_s::pi2 =6.2831853071795864769252867665590057683943387987502116419498e0_sp
	pi*2 More...

real(sp), parameter	pietc_s::pih =1.5707963267948966192313216916397514420985846996875529104874e0_sp
	pi*half More...

real(sp), parameter	pietc_s::r2 =1.4142135623730950488016887242096980785696718753769480731766e0_sp
	Square root of 2. More...

real(sp), parameter	pietc_s::r3 =1.7320508075688772935274463415058723669428052538103806280558e0_sp
	Square root of 3. More...

real(sp), parameter	pietc_s::r5 =2.2360679774997896964091736687312762354406183596115257242708e0_sp
	Square root of 5. More...

real(sp), parameter	pietc_s::rpi =1.7724538509055160272981674833411451827975494561223871282138e0_sp
	square root of pi More...

real(sp), parameter	pietc_s::rtod =180/pi
	radians to degrees More...

real(sp), parameter	pietc_s::s10 =.173648177666930348851716626769314796000375677184069387236241e0_sp
	sine(10 deg) More...

real(sp), parameter	pietc_s::s11 =.195090322016128267848284868477022240927691617751954807754502e0_sp
	sine(90/8 deg) More...

real(sp), parameter	pietc_s::s13 =.222520933956314404288902564496794759466355568764544955311987e0_sp
	sine(90/7 deg) More...

real(sp), parameter	pietc_s::s15 =.258819045102520762348898837624048328349068901319930513814003e0_sp
	sine(15 deg) More...

real(sp), parameter	pietc_s::s18 =.309016994374947424102293417182819058860154589902881431067724e0_sp
	sine(18 deg) More...

real(sp), parameter	pietc_s::s20 =.342020143325668733044099614682259580763083367514160628465048e0_sp
	sine(20 deg) More...

real(sp), parameter	pietc_s::s22 =.382683432365089771728459984030398866761344562485627041433800e0_sp
	sine(22.5 deg) More...

real(sp), parameter	pietc_s::s26 =.433883739117558120475768332848358754609990727787459876444547e0_sp
	sine(90*2/7 deg) More...

real(sp), parameter	pietc_s::s30 =o2
	sine(30 deg) More...

real(sp), parameter	pietc_s::s34 =.555570233019602224742830813948532874374937190754804045924153e0_sp
	sine(90*3/8 deg) More...

real(sp), parameter	pietc_s::s36 =.587785252292473129168705954639072768597652437643145991072272e0_sp
	sine(36 deg) More...

real(sp), parameter	pietc_s::s39 =.623489801858733530525004884004239810632274730896402105365549e0_sp
	sine(90*3/7 deg) More...

real(sp), parameter	pietc_s::s40 =.642787609686539326322643409907263432907559884205681790324977e0_sp
	sine(40 deg) More...

real(sp), parameter	pietc_s::s45 =or2
	sine(45 deg) More...

real(sp), parameter	pietc_s::s50 =.766044443118978035202392650555416673935832457080395245854045e0_sp
	sine(50 deg) More...

real(sp), parameter	pietc_s::s51 =.781831482468029808708444526674057750232334518708687528980634e0_sp
	sine(90*4/7 deg) More...

real(sp), parameter	pietc_s::s54 =.809016994374947424102293417182819058860154589902881431067724e0_sp
	sine(54 deg) More...

real(sp), parameter	pietc_s::s56 =.831469612302545237078788377617905756738560811987249963446124e0_sp
	sine(90*5/8 deg) More...

real(sp), parameter	pietc_s::s60 =r3*o2
	sine(60 deg) More...

real(sp), parameter	pietc_s::s64 =.900968867902419126236102319507445051165919162131857150053562e0_sp
	sine(90*5/7 deg) More...

real(sp), parameter	pietc_s::s68 =.923879532511286756128183189396788286822416625863642486115097e0_sp
	sine(67.5 deg) More...

real(sp), parameter	pietc_s::s70 =.939692620785908384054109277324731469936208134264464633090286e0_sp
	sine(70 deg) More...

real(sp), parameter	pietc_s::s72 =.951056516295153572116439333379382143405698634125750222447305e0_sp
	sine(72 deg) More...

real(sp), parameter	pietc_s::s75 =.965925826289068286749743199728897367633904839008404550402343e0_sp
	sine(75 deg) More...

real(sp), parameter	pietc_s::s77 =.974927912181823607018131682993931217232785800619997437648079e0_sp
	sine(90*6/7 deg) More...

real(sp), parameter	pietc_s::s79 =.980785280403230449126182236134239036973933730893336095002916e0_sp
	sine(90*7/8 deg) More...

real(sp), parameter	pietc_s::s80 =.984807753012208059366743024589523013670643251719842418790025e0_sp
	sine(80 deg) More...

logical, parameter	pietc_s::t =.true.
	for pain-relief in logical ops More...

real(sp), parameter	pietc_s::u0 =0_sp
	zero More...

real(sp), parameter	pietc_s::u1 =1_sp
	one More...

real(sp), parameter	pietc_s::u2 =2_sp
	two More...

real(sp), parameter	pietc_s::u3 =3_sp
	three More...

real(sp), parameter	pietc_s::u4 =4_sp
	four More...

real(sp), parameter	pietc_s::u5 =5_sp
	five More...

real(sp), parameter	pietc_s::u6 =6_sp
	six More...

complex(spc), parameter	pietc_s::z000 =c1
	exp(2pii*0) More...

complex(spc), parameter	pietc_s::z010 =( s80, s10)
	exp(2pii/36) More...

complex(spc), parameter	pietc_s::z011 =( s79, s11)
	exp(2pii/32) More...

complex(spc), parameter	pietc_s::z013 =( s77, s13)
	exp(2pii/28) More...

complex(spc), parameter	pietc_s::z015 =( s75, s15)
	exp(2pii/24) More...

complex(spc), parameter	pietc_s::z018 =( s72, s18)
	exp(2pii/20) More...

complex(spc), parameter	pietc_s::z020 =( s70, s20)
	exp(2pii/18) More...

complex(spc), parameter	pietc_s::z022 =( s68, s22)
	exp(2pii/16) More...

complex(spc), parameter	pietc_s::z026 =( s64, s26)
	exp(2pii/14) More...

complex(spc), parameter	pietc_s::z030 =( s60, s30)
	exp(2pii/12) More...

complex(spc), parameter	pietc_s::z034 =( s56, s34)
	exp(2pii*3/32) More...

complex(spc), parameter	pietc_s::z036 =( s54, s36)
	exp(2pii/10) More...

complex(spc), parameter	pietc_s::z039 =( s51, s39)
	exp(2pii*3/28) More...

complex(spc), parameter	pietc_s::z040 =( s50, s40)
	exp(2pii/9) More...

complex(spc), parameter	pietc_s::z045 =( s45, s45)
	exp(2pii/8) More...

complex(spc), parameter	pietc_s::z050 =( s40, s50)
	exp(2pii*5/36) More...

complex(spc), parameter	pietc_s::z051 =( s39, s51)
	exp(2pii/7) More...

complex(spc), parameter	pietc_s::z054 =( s36, s54)
	exp(2pii*3/20) More...

complex(spc), parameter	pietc_s::z056 =( s34, s56)
	exp(2pii*5/32) More...

complex(spc), parameter	pietc_s::z060 =( s30, s60)
	exp(2pii/6) More...

complex(spc), parameter	pietc_s::z064 =( s26, s64)
	exp(2pii*5/28) More...

complex(spc), parameter	pietc_s::z068 =( s22, s68)
	exp(2pii*3/16) More...

complex(spc), parameter	pietc_s::z070 =( s20, s70)
	exp(2pii*7/36) More...

complex(spc), parameter	pietc_s::z072 =( s18, s72)
	exp(2pii/5) More...

complex(spc), parameter	pietc_s::z075 =( s15, s75)
	exp(2pii*5/24) More...

complex(spc), parameter	pietc_s::z077 =( s13, s77)
	exp(2pii*3/14) More...

complex(spc), parameter	pietc_s::z079 =( s11, s79)
	exp(2pii*7/32) More...

complex(spc), parameter	pietc_s::z080 =( s10, s80)
	exp(2pii*2/9) More...

complex(spc), parameter	pietc_s::z090 =ci
	exp(2pii/4) More...

complex(spc), parameter	pietc_s::z100 =(ms10, s80)
	exp(2pii*5/18) More...

complex(spc), parameter	pietc_s::z101 =(ms11, s79)
	exp(2pii*9/32) More...

complex(spc), parameter	pietc_s::z103 =(ms13, s77)
	exp(2pii*2/7) More...

complex(spc), parameter	pietc_s::z105 =(ms15, s75)
	exp(2pii*7/24) More...

complex(spc), parameter	pietc_s::z108 =(ms18, s72)
	exp(2pii*3/10) More...

complex(spc), parameter	pietc_s::z110 =(ms20, s70)
	exp(2pii*11/36) More...

complex(spc), parameter	pietc_s::z112 =(ms22, s68)
	exp(2pii*5/16) More...

complex(spc), parameter	pietc_s::z116 =(ms26, s64)
	exp(2pii*9/28) More...

complex(spc), parameter	pietc_s::z120 =(ms30, s60)
	exp(2pii/3) More...

complex(spc), parameter	pietc_s::z124 =(ms34, s56)
	exp(2pii*11/32) More...

complex(spc), parameter	pietc_s::z126 =(ms36, s54)
	exp(2pii*7/20) More...

complex(spc), parameter	pietc_s::z129 =(ms39, s51)
	exp(2pii*5/14) More...

complex(spc), parameter	pietc_s::z130 =(ms40, s50)
	exp(2pii*13/36) More...

complex(spc), parameter	pietc_s::z135 =(ms45, s45)
	exp(2pii*3/8) More...

complex(spc), parameter	pietc_s::z140 =(ms50, s40)
	exp(2pii*7/18) More...

complex(spc), parameter	pietc_s::z141 =(ms51, s39)
	exp(2pii*11/28) More...

complex(spc), parameter	pietc_s::z144 =(ms54, s36)
	exp(2pii*2/5) More...

complex(spc), parameter	pietc_s::z146 =(ms56, s34)
	exp(2pii*13/32) More...

complex(spc), parameter	pietc_s::z150 =(ms60, s30)
	exp(2pii*5/12) More...

complex(spc), parameter	pietc_s::z154 =(ms64, s26)
	exp(2pii*3/7) More...

complex(spc), parameter	pietc_s::z158 =(ms68, s22)
	exp(2pii*7/16) More...

complex(spc), parameter	pietc_s::z160 =(ms70, s20)
	exp(2pii*4/9) More...

complex(spc), parameter	pietc_s::z162 =(ms72, s18)
	exp(2pii*9/20) More...

complex(spc), parameter	pietc_s::z165 =(ms75, s15)
	exp(2pii*11/24) More...

complex(spc), parameter	pietc_s::z167 =(ms77, s13)
	exp(2pii*13/28) More...

complex(spc), parameter	pietc_s::z169 =(ms79, s11)
	exp(2pii*15/32) More...

complex(spc), parameter	pietc_s::z170 =(ms80, s10)
	exp(2pii*17/36) More...

complex(spc), parameter	pietc_s::z180 =-z000
	exp(2pii/2) More...

complex(spc), parameter	pietc_s::z190 =-z010
	exp(2pii*19/36) More...

complex(spc), parameter	pietc_s::z191 =-z011
	exp(2pii*17/32) More...

complex(spc), parameter	pietc_s::z193 =-z013
	exp(2pii*15/28) More...

complex(spc), parameter	pietc_s::z195 =-z015
	exp(2pii*13/24) More...

complex(spc), parameter	pietc_s::z198 =-z018
	exp(2pii*11/20) More...

complex(spc), parameter	pietc_s::z200 =-z020
	exp(2pii*5/9) More...

complex(spc), parameter	pietc_s::z202 =-z022
	exp(2pii*9/16) More...

complex(spc), parameter	pietc_s::z206 =-z026
	exp(2pii*4/7) More...

complex(spc), parameter	pietc_s::z210 =-z030
	exp(2pii*7/12) More...

complex(spc), parameter	pietc_s::z214 =-z034
	exp(2pii*19/32) More...

complex(spc), parameter	pietc_s::z216 =-z036
	exp(2pii*3/5) More...

complex(spc), parameter	pietc_s::z219 =-z039
	exp(2pii*17/28) More...

complex(spc), parameter	pietc_s::z220 =-z040
	exp(2pii*11/18) More...

complex(spc), parameter	pietc_s::z225 =-z045
	exp(2pii*5/8) More...

complex(spc), parameter	pietc_s::z230 =-z050
	exp(2pii*23/36) More...

complex(spc), parameter	pietc_s::z231 =-z051
	exp(2pii*9/14) More...

complex(spc), parameter	pietc_s::z234 =-z054
	exp(2pii*13/20) More...

complex(spc), parameter	pietc_s::z236 =-z056
	exp(2pii*21/32) More...

complex(spc), parameter	pietc_s::z240 =-z060
	exp(2pii*2/3) More...

complex(spc), parameter	pietc_s::z244 =-z064
	exp(2pii*19/28) More...

complex(spc), parameter	pietc_s::z248 =-z068
	exp(2pii*11/16) More...

complex(spc), parameter	pietc_s::z250 =-z070
	exp(2pii*25/36) More...

complex(spc), parameter	pietc_s::z252 =-z072
	exp(2pii*7/10) More...

complex(spc), parameter	pietc_s::z255 =-z075
	exp(2pii*17/24) More...

complex(spc), parameter	pietc_s::z257 =-z077
	exp(2pii*5/7) More...

complex(spc), parameter	pietc_s::z259 =-z079
	exp(2pii*23/32) More...

complex(spc), parameter	pietc_s::z260 =-z080
	exp(2pii*13/18) More...

complex(spc), parameter	pietc_s::z270 =-z090
	exp(2pii*3/4) More...

complex(spc), parameter	pietc_s::z280 =-z100
	exp(2pii*7/9) More...

complex(spc), parameter	pietc_s::z281 =-z101
	exp(2pii*25/32) More...

complex(spc), parameter	pietc_s::z283 =-z103
	exp(2pii*11/14) More...

complex(spc), parameter	pietc_s::z285 =-z105
	exp(2pii*19/24) More...

complex(spc), parameter	pietc_s::z288 =-z108
	exp(2pii*4/5) More...

complex(spc), parameter	pietc_s::z290 =-z110
	exp(2pii*29/36) More...

complex(spc), parameter	pietc_s::z292 =-z112
	exp(2pii*13/16) More...

complex(spc), parameter	pietc_s::z296 =-z116
	exp(2pii*23/28) More...

complex(spc), parameter	pietc_s::z300 =-z120
	exp(2pii*5/6) More...

complex(spc), parameter	pietc_s::z304 =-z124
	exp(2pii*27/32) More...

complex(spc), parameter	pietc_s::z306 =-z126
	exp(2pii*17/20) More...

complex(spc), parameter	pietc_s::z309 =-z129
	exp(2pii*6/7) More...

complex(spc), parameter	pietc_s::z310 =-z130
	exp(2pii*31/36) More...

complex(spc), parameter	pietc_s::z315 =-z135
	exp(2pii*7/8) More...

complex(spc), parameter	pietc_s::z320 =-z140
	exp(2pii*8/9) More...

complex(spc), parameter	pietc_s::z321 =-z141
	exp(2pii*25/28) More...

complex(spc), parameter	pietc_s::z324 =-z144
	exp(2pii*9/10) More...

complex(spc), parameter	pietc_s::z326 =-z146
	exp(2pii*29/32) More...

complex(spc), parameter	pietc_s::z330 =-z150
	exp(2pii*11/12) More...

complex(spc), parameter	pietc_s::z334 =-z154
	exp(2pii*13/14) More...

complex(spc), parameter	pietc_s::z338 =-z158
	exp(2pii*15/16) More...

complex(spc), parameter	pietc_s::z340 =-z160
	exp(2pii*17/18) More...

complex(spc), parameter	pietc_s::z342 =-z162
	exp(2pii*19/20) More...

complex(spc), parameter	pietc_s::z345 =-z165
	exp(2pii*23/24) More...

complex(spc), parameter	pietc_s::z347 =-z167
	exp(2pii*27/28) More...

complex(spc), parameter	pietc_s::z349 =-z169
	exp(2pii*31/32) More...

complex(spc), parameter	pietc_s::z350 =-z170
	exp(2pii*35/36) More...

Detailed Description

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.

Variable Documentation

◆ c0

complex(spc), parameter pietc_s::c0 =(u0, u0)

complex zero

Definition at line 110 of file pietc_s.f90.

◆ c1

complex(spc), parameter pietc_s::c1 =(u1, u0)

complex one

Definition at line 111 of file pietc_s.f90.

◆ ci

complex(spc), parameter pietc_s::ci =(u0, u1)

complex i=sqrt(-1)

Definition at line 113 of file pietc_s.f90.

◆ cipi

complex(spc), parameter pietc_s::cipi =ci*pi

complex i*pi

Definition at line 115 of file pietc_s.f90.

◆ dtor

real(sp), parameter pietc_s::dtor =pi/180

Degrees to radians.

Definition at line 51 of file pietc_s.f90.

◆ euler

real(sp), parameter pietc_s::euler =0.57721566490153286060651209008240243104215933593992359880e0_sp

Euler-Mascheroni constant.

Definition at line 49 of file pietc_s.f90.

◆ f

logical, parameter pietc_s::f =.false.

for pain-relief in logical ops

Definition at line 14 of file pietc_s.f90.

◆ mc1

complex(spc), parameter pietc_s::mc1 =-c1

complex minus-one

Definition at line 112 of file pietc_s.f90.

◆ mci

complex(spc), parameter pietc_s::mci =-ci

complex minus-i

Definition at line 114 of file pietc_s.f90.

◆ mo2

real(sp), parameter pietc_s::mo2 =-o2

minus-half

Definition at line 33 of file pietc_s.f90.

◆ mo3

real(sp), parameter pietc_s::mo3 =-o3

minus-third

Definition at line 34 of file pietc_s.f90.

◆ mo4

real(sp), parameter pietc_s::mo4 =-o4

minus-fourth

Definition at line 35 of file pietc_s.f90.

◆ mo5

real(sp), parameter pietc_s::mo5 =-o5

minus-fifth

Definition at line 36 of file pietc_s.f90.

◆ mo6

real(sp), parameter pietc_s::mo6 =-06

minus-sixth

Definition at line 37 of file pietc_s.f90.

◆ ms10

real(sp), parameter pietc_s::ms10 =-s10

minus-sine(10 deg)

Definition at line 82 of file pietc_s.f90.

◆ ms11

real(sp), parameter pietc_s::ms11 =-s11

minus-sine(90/8 deg)

Definition at line 83 of file pietc_s.f90.

◆ ms13

real(sp), parameter pietc_s::ms13 =-s13

minus-sine(90/7 deg)

Definition at line 84 of file pietc_s.f90.

◆ ms15

real(sp), parameter pietc_s::ms15 =-s15

minus-sine(15 deg)

Definition at line 85 of file pietc_s.f90.

◆ ms18

real(sp), parameter pietc_s::ms18 =-s18

minus-sine(18 deg)

Definition at line 86 of file pietc_s.f90.

◆ ms20

real(sp), parameter pietc_s::ms20 =-s20

minus-sine(20 deg)

Definition at line 87 of file pietc_s.f90.

◆ ms22

real(sp), parameter pietc_s::ms22 =-s22

minus-sine(22.5 deg)

Definition at line 88 of file pietc_s.f90.

◆ ms26

real(sp), parameter pietc_s::ms26 =-s26

minus-sine(90*2/7 deg)

Definition at line 89 of file pietc_s.f90.

◆ ms30

real(sp), parameter pietc_s::ms30 =-s30

minus-sine(30 deg)

Definition at line 90 of file pietc_s.f90.

◆ ms34

real(sp), parameter pietc_s::ms34 =-s34

minus-sine(90*3/8 deg)

Definition at line 91 of file pietc_s.f90.

◆ ms36

real(sp), parameter pietc_s::ms36 =-s36

minus-sine(36 deg)

Definition at line 92 of file pietc_s.f90.

◆ ms39

real(sp), parameter pietc_s::ms39 =-s39

minus-sine(90*3/7 deg)

Definition at line 93 of file pietc_s.f90.

◆ ms40

real(sp), parameter pietc_s::ms40 =-s40

minus-sine(40 deg)

Definition at line 94 of file pietc_s.f90.

◆ ms45

real(sp), parameter pietc_s::ms45 =-s45

minus-sine(45 deg)

Definition at line 95 of file pietc_s.f90.

◆ ms50

real(sp), parameter pietc_s::ms50 =-s50

minus-sine(50 deg)

Definition at line 96 of file pietc_s.f90.

◆ ms51

real(sp), parameter pietc_s::ms51 =-s51

minus-sine(90*4/7 deg)

Definition at line 97 of file pietc_s.f90.

◆ ms54

real(sp), parameter pietc_s::ms54 =-s54

minus-sine(54 deg)

Definition at line 98 of file pietc_s.f90.

◆ ms56

real(sp), parameter pietc_s::ms56 =-s56

minus-sine(90*5/8 deg)

Definition at line 99 of file pietc_s.f90.

◆ ms60

real(sp), parameter pietc_s::ms60 =-s60

minus-sine(60 deg)

Definition at line 100 of file pietc_s.f90.

◆ ms64

real(sp), parameter pietc_s::ms64 =-s64

minus-sine(90*5/7 deg)

Definition at line 101 of file pietc_s.f90.

◆ ms68

real(sp), parameter pietc_s::ms68 =-s68

minus-sine(67.5 deg)

Definition at line 102 of file pietc_s.f90.

◆ ms70

real(sp), parameter pietc_s::ms70 =-s70

minus-sine(70 deg)

Definition at line 103 of file pietc_s.f90.

◆ ms72

real(sp), parameter pietc_s::ms72 =-s72

minus-sine(72 deg)

Definition at line 104 of file pietc_s.f90.

◆ ms75

real(sp), parameter pietc_s::ms75 =-s75

minus-sine(75 deg)

Definition at line 105 of file pietc_s.f90.

◆ ms77

real(sp), parameter pietc_s::ms77 =-s77

minus-sine(90*6/7 deg)

Definition at line 106 of file pietc_s.f90.

◆ ms79

real(sp), parameter pietc_s::ms79 =-s79

minus-sine(90*7/8 deg)

Definition at line 107 of file pietc_s.f90.

◆ ms80

real(sp), parameter pietc_s::ms80 =-s80

minus-sine(80 deg)

Definition at line 108 of file pietc_s.f90.

◆ mu1

real(sp), parameter pietc_s::mu1 =-u1

minus-one

Definition at line 17 of file pietc_s.f90.

◆ mu2

real(sp), parameter pietc_s::mu2 =-u2

minus-two

Definition at line 19 of file pietc_s.f90.

◆ mu3

real(sp), parameter pietc_s::mu3 =-u3

minus-three

Definition at line 21 of file pietc_s.f90.

◆ mu4

real(sp), parameter pietc_s::mu4 =-u4

minus-four

Definition at line 23 of file pietc_s.f90.

◆ mu5

real(sp), parameter pietc_s::mu5 =-u5

minus-five

Definition at line 25 of file pietc_s.f90.

◆ mu6

real(sp), parameter pietc_s::mu6 =-u6

minus-six

Definition at line 27 of file pietc_s.f90.

◆ o2

real(sp), parameter pietc_s::o2 =u1/u2

half

Definition at line 28 of file pietc_s.f90.

◆ o3

real(sp), parameter pietc_s::o3 =u1/u3

third

Definition at line 29 of file pietc_s.f90.

◆ o4

real(sp), parameter pietc_s::o4 =u1/u4

fourth

Definition at line 30 of file pietc_s.f90.

◆ o5

real(sp), parameter pietc_s::o5 =u1/u5

fifth

Definition at line 31 of file pietc_s.f90.

◆ o6

real(sp), parameter pietc_s::o6 =u1/u6

sixth

Definition at line 32 of file pietc_s.f90.

◆ or2

real(sp), parameter pietc_s::or2 =u1/r2

1.

/root of two

Definition at line 45 of file pietc_s.f90.

◆ or3

real(sp), parameter pietc_s::or3 =u1/r3

1.

/root of three

Definition at line 46 of file pietc_s.f90.

◆ or5

real(sp), parameter pietc_s::or5 =u1/r5

1.

/root of five

Definition at line 47 of file pietc_s.f90.

◆ phi

real(sp), parameter pietc_s::phi =1.6180339887498948482045868343656381177203091798057628621354e0_sp

Golden number.

Definition at line 48 of file pietc_s.f90.

◆ pi

real(sp), parameter pietc_s::pi =3.1415926535897932384626433832795028841971693993751058209749e0_sp

pi

Definition at line 38 of file pietc_s.f90.

◆ pi2

real(sp), parameter pietc_s::pi2 =6.2831853071795864769252867665590057683943387987502116419498e0_sp

pi*2

Definition at line 39 of file pietc_s.f90.

◆ pih

real(sp), parameter pietc_s::pih =1.5707963267948966192313216916397514420985846996875529104874e0_sp

pi*half

Definition at line 40 of file pietc_s.f90.

◆ r2

real(sp), parameter pietc_s::r2 =1.4142135623730950488016887242096980785696718753769480731766e0_sp

Square root of 2.

Definition at line 42 of file pietc_s.f90.

◆ r3

real(sp), parameter pietc_s::r3 =1.7320508075688772935274463415058723669428052538103806280558e0_sp

Square root of 3.

Definition at line 43 of file pietc_s.f90.

◆ r5

real(sp), parameter pietc_s::r5 =2.2360679774997896964091736687312762354406183596115257242708e0_sp

Square root of 5.

Definition at line 44 of file pietc_s.f90.

◆ rpi

real(sp), parameter pietc_s::rpi =1.7724538509055160272981674833411451827975494561223871282138e0_sp

square root of pi

Definition at line 41 of file pietc_s.f90.

◆ rtod

real(sp), parameter pietc_s::rtod =180/pi

radians to degrees

Definition at line 52 of file pietc_s.f90.

◆ s10

real(sp), parameter pietc_s::s10 =.173648177666930348851716626769314796000375677184069387236241e0_sp

sine(10 deg)

Definition at line 54 of file pietc_s.f90.

◆ s11

real(sp), parameter pietc_s::s11 =.195090322016128267848284868477022240927691617751954807754502e0_sp

sine(90/8 deg)

Definition at line 55 of file pietc_s.f90.

◆ s13

real(sp), parameter pietc_s::s13 =.222520933956314404288902564496794759466355568764544955311987e0_sp

sine(90/7 deg)

Definition at line 56 of file pietc_s.f90.

◆ s15

real(sp), parameter pietc_s::s15 =.258819045102520762348898837624048328349068901319930513814003e0_sp

sine(15 deg)

Definition at line 57 of file pietc_s.f90.

◆ s18

real(sp), parameter pietc_s::s18 =.309016994374947424102293417182819058860154589902881431067724e0_sp

sine(18 deg)

Definition at line 58 of file pietc_s.f90.

◆ s20

real(sp), parameter pietc_s::s20 =.342020143325668733044099614682259580763083367514160628465048e0_sp

sine(20 deg)

Definition at line 59 of file pietc_s.f90.

◆ s22

real(sp), parameter pietc_s::s22 =.382683432365089771728459984030398866761344562485627041433800e0_sp

sine(22.5 deg)

Definition at line 60 of file pietc_s.f90.

◆ s26

real(sp), parameter pietc_s::s26 =.433883739117558120475768332848358754609990727787459876444547e0_sp

sine(90*2/7 deg)

Definition at line 61 of file pietc_s.f90.

◆ s30

real(sp), parameter pietc_s::s30 =o2

sine(30 deg)

Definition at line 62 of file pietc_s.f90.

◆ s34

real(sp), parameter pietc_s::s34 =.555570233019602224742830813948532874374937190754804045924153e0_sp

sine(90*3/8 deg)

Definition at line 63 of file pietc_s.f90.

◆ s36

real(sp), parameter pietc_s::s36 =.587785252292473129168705954639072768597652437643145991072272e0_sp

sine(36 deg)

Definition at line 64 of file pietc_s.f90.

◆ s39

real(sp), parameter pietc_s::s39 =.623489801858733530525004884004239810632274730896402105365549e0_sp

sine(90*3/7 deg)

Definition at line 65 of file pietc_s.f90.

◆ s40

real(sp), parameter pietc_s::s40 =.642787609686539326322643409907263432907559884205681790324977e0_sp

sine(40 deg)

Definition at line 66 of file pietc_s.f90.

◆ s45

real(sp), parameter pietc_s::s45 =or2

sine(45 deg)

Definition at line 67 of file pietc_s.f90.

◆ s50

real(sp), parameter pietc_s::s50 =.766044443118978035202392650555416673935832457080395245854045e0_sp

sine(50 deg)

Definition at line 68 of file pietc_s.f90.

◆ s51

real(sp), parameter pietc_s::s51 =.781831482468029808708444526674057750232334518708687528980634e0_sp

sine(90*4/7 deg)

Definition at line 69 of file pietc_s.f90.

◆ s54

real(sp), parameter pietc_s::s54 =.809016994374947424102293417182819058860154589902881431067724e0_sp

sine(54 deg)

Definition at line 70 of file pietc_s.f90.

◆ s56

real(sp), parameter pietc_s::s56 =.831469612302545237078788377617905756738560811987249963446124e0_sp

sine(90*5/8 deg)

Definition at line 71 of file pietc_s.f90.

◆ s60

real(sp), parameter pietc_s::s60 =r3*o2

sine(60 deg)

Definition at line 72 of file pietc_s.f90.

◆ s64

real(sp), parameter pietc_s::s64 =.900968867902419126236102319507445051165919162131857150053562e0_sp

sine(90*5/7 deg)

Definition at line 73 of file pietc_s.f90.

◆ s68

real(sp), parameter pietc_s::s68 =.923879532511286756128183189396788286822416625863642486115097e0_sp

sine(67.5 deg)

Definition at line 74 of file pietc_s.f90.

◆ s70

real(sp), parameter pietc_s::s70 =.939692620785908384054109277324731469936208134264464633090286e0_sp

sine(70 deg)

Definition at line 75 of file pietc_s.f90.

◆ s72

real(sp), parameter pietc_s::s72 =.951056516295153572116439333379382143405698634125750222447305e0_sp

sine(72 deg)

Definition at line 76 of file pietc_s.f90.

◆ s75

real(sp), parameter pietc_s::s75 =.965925826289068286749743199728897367633904839008404550402343e0_sp

sine(75 deg)

Definition at line 77 of file pietc_s.f90.

◆ s77

real(sp), parameter pietc_s::s77 =.974927912181823607018131682993931217232785800619997437648079e0_sp

sine(90*6/7 deg)

Definition at line 78 of file pietc_s.f90.

◆ s79

real(sp), parameter pietc_s::s79 =.980785280403230449126182236134239036973933730893336095002916e0_sp

sine(90*7/8 deg)

Definition at line 79 of file pietc_s.f90.

◆ s80

real(sp), parameter pietc_s::s80 =.984807753012208059366743024589523013670643251719842418790025e0_sp

sine(80 deg)

Definition at line 80 of file pietc_s.f90.

◆ t

logical, parameter pietc_s::t =.true.

for pain-relief in logical ops

Definition at line 13 of file pietc_s.f90.

◆ u0

real(sp), parameter pietc_s::u0 =0_sp

zero

Definition at line 15 of file pietc_s.f90.

◆ u1

real(sp), parameter pietc_s::u1 =1_sp

one

Definition at line 16 of file pietc_s.f90.

◆ u2

real(sp), parameter pietc_s::u2 =2_sp

two

Definition at line 18 of file pietc_s.f90.

◆ u3

real(sp), parameter pietc_s::u3 =3_sp

three

Definition at line 20 of file pietc_s.f90.

◆ u4

real(sp), parameter pietc_s::u4 =4_sp

four

Definition at line 22 of file pietc_s.f90.

◆ u5

real(sp), parameter pietc_s::u5 =5_sp

five

Definition at line 24 of file pietc_s.f90.

◆ u6

real(sp), parameter pietc_s::u6 =6_sp

six

Definition at line 26 of file pietc_s.f90.

◆ z000

complex(spc), parameter pietc_s::z000 =c1

exp(2*pi*i*0)

Definition at line 117 of file pietc_s.f90.

◆ z010

complex(spc), parameter pietc_s::z010 =( s80, s10)

exp(2*pi*i/36)

Definition at line 118 of file pietc_s.f90.

◆ z011

complex(spc), parameter pietc_s::z011 =( s79, s11)

exp(2*pi*i/32)

Definition at line 119 of file pietc_s.f90.

◆ z013

complex(spc), parameter pietc_s::z013 =( s77, s13)

exp(2*pi*i/28)

Definition at line 120 of file pietc_s.f90.

◆ z015

complex(spc), parameter pietc_s::z015 =( s75, s15)

exp(2*pi*i/24)

Definition at line 121 of file pietc_s.f90.

◆ z018

complex(spc), parameter pietc_s::z018 =( s72, s18)

exp(2*pi*i/20)

Definition at line 122 of file pietc_s.f90.

◆ z020

complex(spc), parameter pietc_s::z020 =( s70, s20)

exp(2*pi*i/18)

Definition at line 123 of file pietc_s.f90.

◆ z022

complex(spc), parameter pietc_s::z022 =( s68, s22)

exp(2*pi*i/16)

Definition at line 124 of file pietc_s.f90.

◆ z026

complex(spc), parameter pietc_s::z026 =( s64, s26)

exp(2*pi*i/14)

Definition at line 125 of file pietc_s.f90.

◆ z030

complex(spc), parameter pietc_s::z030 =( s60, s30)

exp(2*pi*i/12)

Definition at line 126 of file pietc_s.f90.

◆ z034

complex(spc), parameter pietc_s::z034 =( s56, s34)

exp(2*pi*i*3/32)

Definition at line 127 of file pietc_s.f90.

◆ z036

complex(spc), parameter pietc_s::z036 =( s54, s36)

exp(2*pi*i/10)

Definition at line 128 of file pietc_s.f90.

◆ z039

complex(spc), parameter pietc_s::z039 =( s51, s39)

exp(2*pi*i*3/28)

Definition at line 129 of file pietc_s.f90.

◆ z040

complex(spc), parameter pietc_s::z040 =( s50, s40)

exp(2*pi*i/9)

Definition at line 130 of file pietc_s.f90.

◆ z045

complex(spc), parameter pietc_s::z045 =( s45, s45)

exp(2*pi*i/8)

Definition at line 131 of file pietc_s.f90.

◆ z050

complex(spc), parameter pietc_s::z050 =( s40, s50)

exp(2*pi*i*5/36)

Definition at line 132 of file pietc_s.f90.

◆ z051

complex(spc), parameter pietc_s::z051 =( s39, s51)

exp(2*pi*i/7)

Definition at line 133 of file pietc_s.f90.

◆ z054

complex(spc), parameter pietc_s::z054 =( s36, s54)

exp(2*pi*i*3/20)

Definition at line 134 of file pietc_s.f90.

◆ z056

complex(spc), parameter pietc_s::z056 =( s34, s56)

exp(2*pi*i*5/32)

Definition at line 135 of file pietc_s.f90.

◆ z060

complex(spc), parameter pietc_s::z060 =( s30, s60)

exp(2*pi*i/6)

Definition at line 136 of file pietc_s.f90.

◆ z064

complex(spc), parameter pietc_s::z064 =( s26, s64)

exp(2*pi*i*5/28)

Definition at line 137 of file pietc_s.f90.

◆ z068

complex(spc), parameter pietc_s::z068 =( s22, s68)

exp(2*pi*i*3/16)

Definition at line 138 of file pietc_s.f90.

◆ z070

complex(spc), parameter pietc_s::z070 =( s20, s70)

exp(2*pi*i*7/36)

Definition at line 139 of file pietc_s.f90.

◆ z072

complex(spc), parameter pietc_s::z072 =( s18, s72)

exp(2*pi*i/5)

Definition at line 140 of file pietc_s.f90.

◆ z075

complex(spc), parameter pietc_s::z075 =( s15, s75)

exp(2*pi*i*5/24)

Definition at line 141 of file pietc_s.f90.

◆ z077

complex(spc), parameter pietc_s::z077 =( s13, s77)

exp(2*pi*i*3/14)

Definition at line 142 of file pietc_s.f90.

◆ z079

complex(spc), parameter pietc_s::z079 =( s11, s79)

exp(2*pi*i*7/32)

Definition at line 143 of file pietc_s.f90.

◆ z080

complex(spc), parameter pietc_s::z080 =( s10, s80)

exp(2*pi*i*2/9)

Definition at line 144 of file pietc_s.f90.

◆ z090

complex(spc), parameter pietc_s::z090 =ci

exp(2*pi*i/4)

Definition at line 145 of file pietc_s.f90.

◆ z100

complex(spc), parameter pietc_s::z100 =(ms10, s80)

exp(2*pi*i*5/18)

Definition at line 146 of file pietc_s.f90.

◆ z101

complex(spc), parameter pietc_s::z101 =(ms11, s79)

exp(2*pi*i*9/32)

Definition at line 147 of file pietc_s.f90.

◆ z103

complex(spc), parameter pietc_s::z103 =(ms13, s77)

exp(2*pi*i*2/7)

Definition at line 148 of file pietc_s.f90.

◆ z105

complex(spc), parameter pietc_s::z105 =(ms15, s75)

exp(2*pi*i*7/24)

Definition at line 149 of file pietc_s.f90.

◆ z108

complex(spc), parameter pietc_s::z108 =(ms18, s72)

exp(2*pi*i*3/10)

Definition at line 150 of file pietc_s.f90.

◆ z110

complex(spc), parameter pietc_s::z110 =(ms20, s70)

exp(2*pi*i*11/36)

Definition at line 151 of file pietc_s.f90.

◆ z112

complex(spc), parameter pietc_s::z112 =(ms22, s68)

exp(2*pi*i*5/16)

Definition at line 152 of file pietc_s.f90.

◆ z116

complex(spc), parameter pietc_s::z116 =(ms26, s64)

exp(2*pi*i*9/28)

Definition at line 153 of file pietc_s.f90.

◆ z120

complex(spc), parameter pietc_s::z120 =(ms30, s60)

exp(2*pi*i/3)

Definition at line 154 of file pietc_s.f90.

◆ z124

complex(spc), parameter pietc_s::z124 =(ms34, s56)

exp(2*pi*i*11/32)

Definition at line 155 of file pietc_s.f90.

◆ z126

complex(spc), parameter pietc_s::z126 =(ms36, s54)

exp(2*pi*i*7/20)

Definition at line 156 of file pietc_s.f90.

◆ z129

complex(spc), parameter pietc_s::z129 =(ms39, s51)

exp(2*pi*i*5/14)

Definition at line 157 of file pietc_s.f90.

◆ z130

complex(spc), parameter pietc_s::z130 =(ms40, s50)

exp(2*pi*i*13/36)

Definition at line 158 of file pietc_s.f90.

◆ z135

complex(spc), parameter pietc_s::z135 =(ms45, s45)

exp(2*pi*i*3/8)

Definition at line 159 of file pietc_s.f90.

◆ z140

complex(spc), parameter pietc_s::z140 =(ms50, s40)

exp(2*pi*i*7/18)

Definition at line 160 of file pietc_s.f90.

◆ z141

complex(spc), parameter pietc_s::z141 =(ms51, s39)

exp(2*pi*i*11/28)

Definition at line 161 of file pietc_s.f90.

◆ z144

complex(spc), parameter pietc_s::z144 =(ms54, s36)

exp(2*pi*i*2/5)

Definition at line 162 of file pietc_s.f90.

◆ z146

complex(spc), parameter pietc_s::z146 =(ms56, s34)

exp(2*pi*i*13/32)

Definition at line 163 of file pietc_s.f90.

◆ z150

complex(spc), parameter pietc_s::z150 =(ms60, s30)

exp(2*pi*i*5/12)

Definition at line 164 of file pietc_s.f90.

◆ z154

complex(spc), parameter pietc_s::z154 =(ms64, s26)

exp(2*pi*i*3/7)

Definition at line 165 of file pietc_s.f90.

◆ z158

complex(spc), parameter pietc_s::z158 =(ms68, s22)

exp(2*pi*i*7/16)

Definition at line 166 of file pietc_s.f90.

◆ z160

complex(spc), parameter pietc_s::z160 =(ms70, s20)

exp(2*pi*i*4/9)

Definition at line 167 of file pietc_s.f90.

◆ z162

complex(spc), parameter pietc_s::z162 =(ms72, s18)

exp(2*pi*i*9/20)

Definition at line 168 of file pietc_s.f90.

◆ z165

complex(spc), parameter pietc_s::z165 =(ms75, s15)

exp(2*pi*i*11/24)

Definition at line 169 of file pietc_s.f90.

◆ z167

complex(spc), parameter pietc_s::z167 =(ms77, s13)

exp(2*pi*i*13/28)

Definition at line 170 of file pietc_s.f90.

◆ z169

complex(spc), parameter pietc_s::z169 =(ms79, s11)

exp(2*pi*i*15/32)

Definition at line 171 of file pietc_s.f90.

◆ z170

complex(spc), parameter pietc_s::z170 =(ms80, s10)

exp(2*pi*i*17/36)

Definition at line 172 of file pietc_s.f90.

◆ z180

complex(spc), parameter pietc_s::z180 =-z000

exp(2*pi*i/2)

Definition at line 173 of file pietc_s.f90.

◆ z190

complex(spc), parameter pietc_s::z190 =-z010

exp(2*pi*i*19/36)

Definition at line 174 of file pietc_s.f90.

◆ z191

complex(spc), parameter pietc_s::z191 =-z011

exp(2*pi*i*17/32)

Definition at line 175 of file pietc_s.f90.

◆ z193

complex(spc), parameter pietc_s::z193 =-z013

exp(2*pi*i*15/28)

Definition at line 176 of file pietc_s.f90.

◆ z195

complex(spc), parameter pietc_s::z195 =-z015

exp(2*pi*i*13/24)

Definition at line 177 of file pietc_s.f90.

◆ z198

complex(spc), parameter pietc_s::z198 =-z018

exp(2*pi*i*11/20)

Definition at line 178 of file pietc_s.f90.

◆ z200

complex(spc), parameter pietc_s::z200 =-z020

exp(2*pi*i*5/9)

Definition at line 179 of file pietc_s.f90.

◆ z202

complex(spc), parameter pietc_s::z202 =-z022

exp(2*pi*i*9/16)

Definition at line 180 of file pietc_s.f90.

◆ z206

complex(spc), parameter pietc_s::z206 =-z026

exp(2*pi*i*4/7)

Definition at line 181 of file pietc_s.f90.

◆ z210

complex(spc), parameter pietc_s::z210 =-z030

exp(2*pi*i*7/12)

Definition at line 182 of file pietc_s.f90.

◆ z214

complex(spc), parameter pietc_s::z214 =-z034

exp(2*pi*i*19/32)

Definition at line 183 of file pietc_s.f90.

◆ z216

complex(spc), parameter pietc_s::z216 =-z036

exp(2*pi*i*3/5)

Definition at line 184 of file pietc_s.f90.

◆ z219

complex(spc), parameter pietc_s::z219 =-z039

exp(2*pi*i*17/28)

Definition at line 185 of file pietc_s.f90.

◆ z220

complex(spc), parameter pietc_s::z220 =-z040

exp(2*pi*i*11/18)

Definition at line 186 of file pietc_s.f90.

◆ z225

complex(spc), parameter pietc_s::z225 =-z045

exp(2*pi*i*5/8)

Definition at line 187 of file pietc_s.f90.

◆ z230

complex(spc), parameter pietc_s::z230 =-z050

exp(2*pi*i*23/36)

Definition at line 188 of file pietc_s.f90.

◆ z231

complex(spc), parameter pietc_s::z231 =-z051

exp(2*pi*i*9/14)

Definition at line 189 of file pietc_s.f90.

◆ z234

complex(spc), parameter pietc_s::z234 =-z054

exp(2*pi*i*13/20)

Definition at line 190 of file pietc_s.f90.

◆ z236

complex(spc), parameter pietc_s::z236 =-z056

exp(2*pi*i*21/32)

Definition at line 191 of file pietc_s.f90.

◆ z240

complex(spc), parameter pietc_s::z240 =-z060

exp(2*pi*i*2/3)

Definition at line 192 of file pietc_s.f90.

◆ z244

complex(spc), parameter pietc_s::z244 =-z064

exp(2*pi*i*19/28)

Definition at line 193 of file pietc_s.f90.

◆ z248

complex(spc), parameter pietc_s::z248 =-z068

exp(2*pi*i*11/16)

Definition at line 194 of file pietc_s.f90.

◆ z250

complex(spc), parameter pietc_s::z250 =-z070

exp(2*pi*i*25/36)

Definition at line 195 of file pietc_s.f90.

◆ z252

complex(spc), parameter pietc_s::z252 =-z072

exp(2*pi*i*7/10)

Definition at line 196 of file pietc_s.f90.

◆ z255

complex(spc), parameter pietc_s::z255 =-z075

exp(2*pi*i*17/24)

Definition at line 197 of file pietc_s.f90.

◆ z257

complex(spc), parameter pietc_s::z257 =-z077

exp(2*pi*i*5/7)

Definition at line 198 of file pietc_s.f90.

◆ z259

complex(spc), parameter pietc_s::z259 =-z079

exp(2*pi*i*23/32)

Definition at line 199 of file pietc_s.f90.

◆ z260

complex(spc), parameter pietc_s::z260 =-z080

exp(2*pi*i*13/18)

Definition at line 200 of file pietc_s.f90.

◆ z270

complex(spc), parameter pietc_s::z270 =-z090

exp(2*pi*i*3/4)

Definition at line 201 of file pietc_s.f90.

◆ z280

complex(spc), parameter pietc_s::z280 =-z100

exp(2*pi*i*7/9)

Definition at line 202 of file pietc_s.f90.

◆ z281

complex(spc), parameter pietc_s::z281 =-z101

exp(2*pi*i*25/32)

Definition at line 203 of file pietc_s.f90.

◆ z283

complex(spc), parameter pietc_s::z283 =-z103

exp(2*pi*i*11/14)

Definition at line 204 of file pietc_s.f90.

◆ z285

complex(spc), parameter pietc_s::z285 =-z105

exp(2*pi*i*19/24)

Definition at line 205 of file pietc_s.f90.

◆ z288

complex(spc), parameter pietc_s::z288 =-z108

exp(2*pi*i*4/5)

Definition at line 206 of file pietc_s.f90.

◆ z290

complex(spc), parameter pietc_s::z290 =-z110

exp(2*pi*i*29/36)

Definition at line 207 of file pietc_s.f90.

◆ z292

complex(spc), parameter pietc_s::z292 =-z112

exp(2*pi*i*13/16)

Definition at line 208 of file pietc_s.f90.

◆ z296

complex(spc), parameter pietc_s::z296 =-z116

exp(2*pi*i*23/28)

Definition at line 209 of file pietc_s.f90.

◆ z300

complex(spc), parameter pietc_s::z300 =-z120

exp(2*pi*i*5/6)

Definition at line 210 of file pietc_s.f90.

◆ z304

complex(spc), parameter pietc_s::z304 =-z124

exp(2*pi*i*27/32)

Definition at line 211 of file pietc_s.f90.

◆ z306

complex(spc), parameter pietc_s::z306 =-z126

exp(2*pi*i*17/20)

Definition at line 212 of file pietc_s.f90.

◆ z309

complex(spc), parameter pietc_s::z309 =-z129

exp(2*pi*i*6/7)

Definition at line 213 of file pietc_s.f90.

◆ z310

complex(spc), parameter pietc_s::z310 =-z130

exp(2*pi*i*31/36)

Definition at line 214 of file pietc_s.f90.

◆ z315

complex(spc), parameter pietc_s::z315 =-z135

exp(2*pi*i*7/8)

Definition at line 215 of file pietc_s.f90.

◆ z320

complex(spc), parameter pietc_s::z320 =-z140

exp(2*pi*i*8/9)

Definition at line 216 of file pietc_s.f90.

◆ z321

complex(spc), parameter pietc_s::z321 =-z141

exp(2*pi*i*25/28)

Definition at line 217 of file pietc_s.f90.

◆ z324

complex(spc), parameter pietc_s::z324 =-z144

exp(2*pi*i*9/10)

Definition at line 218 of file pietc_s.f90.

◆ z326

complex(spc), parameter pietc_s::z326 =-z146

exp(2*pi*i*29/32)

Definition at line 219 of file pietc_s.f90.

◆ z330

complex(spc), parameter pietc_s::z330 =-z150

exp(2*pi*i*11/12)

Definition at line 220 of file pietc_s.f90.

◆ z334

complex(spc), parameter pietc_s::z334 =-z154

exp(2*pi*i*13/14)

Definition at line 221 of file pietc_s.f90.

◆ z338

complex(spc), parameter pietc_s::z338 =-z158

exp(2*pi*i*15/16)

Definition at line 222 of file pietc_s.f90.

◆ z340

complex(spc), parameter pietc_s::z340 =-z160

exp(2*pi*i*17/18)

Definition at line 223 of file pietc_s.f90.

◆ z342

complex(spc), parameter pietc_s::z342 =-z162

exp(2*pi*i*19/20)

Definition at line 224 of file pietc_s.f90.

◆ z345

complex(spc), parameter pietc_s::z345 =-z165

exp(2*pi*i*23/24)

Definition at line 225 of file pietc_s.f90.

◆ z347

complex(spc), parameter pietc_s::z347 =-z167

exp(2*pi*i*27/28)

Definition at line 226 of file pietc_s.f90.

◆ z349

complex(spc), parameter pietc_s::z349 =-z169

exp(2*pi*i*31/32)

Definition at line 227 of file pietc_s.f90.

◆ z350

complex(spc), parameter pietc_s::z350 =-z170

exp(2*pi*i*35/36)

Definition at line 228 of file pietc_s.f90.

Variables