91
GO TO (500,400,300,200), LMAX+1
92
GO TO (500,400,300,200,100), LMAX+1
95
*:::::::::::::::::::::::::::::: g-wave ::::::::::::::::::::::::::::::
94
97
*:::::::::::::::::::::::::::::: f-wave ::::::::::::::::::::::::::::::
96
99
if (locp.ne.3) then
103
106
D=P3*SIMP(NRHO,F,DRHO)/Q
108
* **** fy(3x2-y2) component ****
105
109
lcount = lcount-1
106
110
aorbs(k1,k2,k3,lcount)=D*GY*(3.0d0*(1.0d0-GZ*GZ)-4.0d0*GY*GY)
113
* **** fxyz component ****
108
114
lcount = lcount-1
109
115
aorbs(k1,k2,k3,lcount)=D*GX*GY*GZ
117
* **** fy(5z2-1) component ****
110
118
lcount = lcount-1
111
119
aorbs(k1,k2,k3,lcount)=D*GY*(5.0d0*GZ*GZ-1.0d0)
122
* **** fz(5z2-3) component ****
113
123
lcount = lcount-1
114
124
aorbs(k1,k2,k3,lcount)=D*GZ*(5.0d0*GZ*GZ-3.0d0)
127
* **** fx(5z2-1) component ****
116
128
lcount = lcount-1
117
129
aorbs(k1,k2,k3,lcount)=D*GX*(5.0d0*GZ*GZ-1.0d0)
132
* **** fz(x2-y2) component ****
119
133
lcount = lcount-1
120
134
aorbs(k1,k2,k3,lcount)=D*GZ*(GX*GX - GY*GY)
137
* **** fx(x2-3y2) component ****
122
138
lcount = lcount-1
123
139
aorbs(k1,k2,k3,lcount)=D*GX*(4.0d0*GX*GX-3.0d0*(1.0d0-GZ*GZ))
127
c aorbs(k1,k2,k3,lcount)=D*GX*(4.0d0*GX*GX-3.0d0*(1.0d0-GZ*GZ))
130
c aorbs(k1,k2,k3,lcount)=D*GY*(3.0d0*(1.0d0-GZ*GZ)-4.0d0*GY*GY)
133
c aorbs(k1,k2,k3,lcount)=D*GZ*(GX*GX - GY*GY)
136
c aorbs(k1,k2,k3,lcount)=D*GX*GY*GZ
138
c aorbs(k1,k2,k3,lcount)=D*GX*(5.0d0*GZ*GZ-1.0d0)
141
c aorbs(k1,k2,k3,lcount)=D*GY*(5.0d0*GZ*GZ-1.0d0)
144
c aorbs(k1,k2,k3,lcount)=D*GZ*(5.0d0*GZ*GZ-3.0d0)
150
144
*:::::::::::::::::::::::::::::: d-wave ::::::::::::::::::::::::::::::
152
146
if (locp.ne.2) then
158
152
D=P2*SIMP(NRHO,F,DRHO)/Q
154
* **** dxy component ****
160
155
lcount = lcount-1
161
156
aorbs(k1,k2,k3,lcount)=D*GX*GY
158
* **** dyz component ****
162
159
lcount = lcount-1
163
160
aorbs(k1,k2,k3,lcount)=D*GY*GZ
162
* **** d3z2-1 component ****
164
163
lcount = lcount-1
165
164
aorbs(k1,k2,k3,lcount)=D*(3.0d0*GZ*GZ-1.0d0)
166
165
> /(2.0d0*dsqrt(3.0d0))
167
* **** dzx component ****
167
168
lcount = lcount-1
168
169
aorbs(k1,k2,k3,lcount)=D*GZ*GX
171
* **** dx2-y2 component ****
169
172
lcount = lcount-1
170
173
aorbs(k1,k2,k3,lcount)=D*(GX*GX-GY*GY)/(2.0d0)
173
c aorbs(k1,k2,k3,lcount)=D*(3.0d0*GZ*GZ-1.0d0)
174
c > /(2.0d0*dsqrt(3.0d0))
176
c aorbs(k1,k2,k3,lcount)=D*GX*GY
178
c aorbs(k1,k2,k3,lcount)=D*GY*GZ
180
c aorbs(k1,k2,k3,lcount)=D*GZ*GX
182
c aorbs(k1,k2,k3,lcount)=D*(GX*GX-GY*GY)/(2.0d0)
185
176
*:::::::::::::::::::::::::::::: p-wave ::::::::::::::::::::::::::::::
190
181
F(I)=(SN(I)/(Q*RHO(I))-CS(I))*WP(I,1)
192
183
P=P1*SIMP(NRHO,F,DRHO)/Q
185
* **** py component ****
193
186
lcount = lcount-1
194
187
aorbs(k1,k2,k3,lcount)=P*GY
189
* **** pz component ****
195
190
lcount = lcount-1
196
191
aorbs(k1,k2,k3,lcount)=P*GZ
193
* **** px component ****
197
194
lcount = lcount-1
198
195
aorbs(k1,k2,k3,lcount)=P*GX