hdiff output

r28125/bulkmindist.f90 2017-03-30 13:31:17.229139958 +0100 r28124/bulkmindist.f90 2017-03-30 13:31:22.089204539 +0100
123: !123: !
124: ! Apply Oh point group operation number OPNUM to coordinates in124: ! Apply Oh point group operation number OPNUM to coordinates in
125: ! vector X of dimension 3*NLOCAL, returning the result in 125: ! vector X of dimension 3*NLOCAL, returning the result in 
126: ! vector Y.126: ! vector Y.
127: !127: !
128: SUBROUTINE OHOPS(X,Y,OPNUM,NLOCAL)128: SUBROUTINE OHOPS(X,Y,OPNUM,NLOCAL)
129: IMPLICIT NONE129: IMPLICIT NONE
130: INTEGER OPNUM, J2, J3, NLOCAL130: INTEGER OPNUM, J2, J3, NLOCAL
131: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)131: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)
132: DATA RMAT / &132: DATA RMAT / &
133:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 133:  & 1.00000000000,  0,  0,   & 
134:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 134:  & 0,  1.00000000000,  0,   & 
135:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 135:  & 0,  0,  1.00000000000,   & 
136:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 136:  & -1.00000000000,  0,  0,   & 
137:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 137:  & 0,  -1.00000000000,  0,   & 
138:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 138:  & 0,  0,  1.00000000000,   & 
139:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 139:  & 0,  0,  1.00000000000,   & 
140:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 140:  & 1.00000000000,  0,  0,   & 
141:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 141:  & 0,  1.00000000000,  0,   & 
142:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 142:  & 0,  -1.00000000000,  0,   & 
143:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 143:  & 1.00000000000,  0,  0,   & 
144:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 144:  & 0,  0,  1.00000000000,   & 
145:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 145:  & -1.00000000000,  0,  0,   & 
146:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 146:  & 0,  -1.00000000000,  0,   & 
147:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 147:  & 0,  0,  -1.00000000000,   & 
148:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 148:  & 0,  0,  -1.00000000000,   & 
149:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 149:  & -1.00000000000,  0,  0,   & 
150:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 150:  & 0,  1.00000000000,  0,   & 
151:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 151:  & 0,  1.00000000000,  0,   & 
152:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 152:  & -1.00000000000,  0,  0,   & 
153:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 153:  & 0,  0,  1.00000000000,   & 
154:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 154:  & 1.00000000000,  0,  0,   & 
155:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 155:  & 0,  1.00000000000,  0,   & 
156:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 156:  & 0,  0,  -1.00000000000,   & 
157:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 157:  & 0,  0,  1.00000000000,   & 
158:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 158:  & -1.00000000000,  0,  0,   & 
159:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 159:  & 0,  -1.00000000000,  0,   & 
160:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 160:  & 0,  0,  -1.00000000000,   & 
161:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 161:  & 1.00000000000,  0,  0,   & 
162:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 162:  & 0,  -1.00000000000,  0,   & 
163:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 163:  & 0,  1.00000000000,  0,   & 
164:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 164:  & 0,  0,  1.00000000000,   & 
165:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 165:  & 1.00000000000,  0,  0,   & 
166:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 166:  & 0,  -1.00000000000,  0,   & 
167:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 167:  & 0,  0,  -1.00000000000,   & 
168:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 168:  & 1.00000000000,  0,  0,   & 
169:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 169:  & 0,  0,  1.00000000000,   & 
170:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 170:  & 0,  -1.00000000000,  0,   & 
171:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 171:  & 1.00000000000,  0,  0,   & 
172:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 172:  & 0,  0,  -1.00000000000,   & 
173:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 173:  & 0,  1.00000000000,  0,   & 
174:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 174:  & 1.00000000000,  0,  0,   & 
175:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 175:  & 0,  0,  -1.00000000000,   & 
176:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 176:  & -1.00000000000,  0,  0,   & 
177:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 177:  & 0,  -1.00000000000,  0,   & 
178:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 178:  & 0,  0,  1.00000000000,   & 
179:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 179:  & 1.00000000000,  0,  0,   & 
180:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 180:  & 0,  -1.00000000000,  0,   & 
181:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 181:  & 0,  1.00000000000,  0,   & 
182:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 182:  & 0,  0,  -1.00000000000,   & 
183:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 183:  & -1.00000000000,  0,  0,   & 
184:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 184:  & 0,  -1.00000000000,  0,   & 
185:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 185:  & 0,  0,  1.00000000000,   & 
186:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 186:  & -1.00000000000,  0,  0,   & 
187:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 187:  & 0,  0,  1.00000000000,   & 
188:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 188:  & 0,  1.00000000000,  0,   & 
189:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 189:  & -1.00000000000,  0,  0,   & 
190:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 190:  & 0,  0,  -1.00000000000,   & 
191:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 191:  & 0,  -1.00000000000,  0,   & 
192:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 192:  & -1.00000000000,  0,  0,   & 
193:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 193:  & 0,  0,  -1.00000000000,   & 
194:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 194:  & 1.00000000000,  0,  0,   & 
195:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 195:  & 0,  1.00000000000,  0,   & 
196:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 196:  & 0,  0,  1.00000000000,   & 
197:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 197:  & -1.00000000000,  0,  0,   & 
198:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 198:  & 0,  1.00000000000,  0,   & 
199:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 199:  & 1.00000000000,  0,  0,   & 
200:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 200:  & 0,  -1.00000000000,  0,   & 
201:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 201:  & 0,  0,  -1.00000000000,   & 
202:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 202:  & -1.00000000000,  0,  0,   & 
203:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 203:  & 0,  1.00000000000,  0,   & 
204:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 204:  & 0,  0,  -1.00000000000,   & 
205:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 205:  & 1.00000000000,  0,  0,   & 
206:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 206:  & 0,  0,  1.00000000000,   & 
207:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 207:  & 0,  -1.00000000000,  0,   & 
208:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 208:  & -1.00000000000,  0,  0,   & 
209:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 209:  & 0,  0,  -1.00000000000,   & 
210:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 210:  & 0,  -1.00000000000,  0,   & 
211:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 211:  & 1.00000000000,  0,  0,   & 
212:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 212:  & 0,  0,  -1.00000000000,   & 
213:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 213:  & 0,  1.00000000000,  0,   & 
214:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 214:  & -1.00000000000,  0,  0,   & 
215:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 215:  & 0,  0,  1.00000000000,   & 
216:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 216:  & 0,  1.00000000000,  0,   & 
217:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 217:  & 0,  -1.00000000000,  0,   & 
218:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 218:  & 0,  0,  -1.00000000000,   & 
219:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 219:  & -1.00000000000,  0,  0,   & 
220:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 220:  & 0,  1.00000000000,  0,   & 
221:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 221:  & 0,  0,  1.00000000000,   & 
222:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 222:  & -1.00000000000,  0,  0,   & 
223:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 223:  & 0,  -1.00000000000,  0,   & 
224:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 224:  & 0,  0,  1.00000000000,   & 
225:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 225:  & 1.00000000000,  0,  0,   & 
226:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 226:  & 0,  1.00000000000,  0,   & 
227:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 227:  & 0,  0,  -1.00000000000,   & 
228:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 228:  & 1.00000000000,  0,  0,   & 
229:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 229:  & 0,  -1.00000000000,  0,   & 
230:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 230:  & -1.00000000000,  0,  0,   & 
231:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 231:  & 0,  0,  -1.00000000000,   & 
232:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 232:  & 0,  1.00000000000,  0,   & 
233:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 233:  & 1.00000000000,  0,  0,   & 
234:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 234:  & 0,  0,  -1.00000000000,   & 
235:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 235:  & -1.00000000000,  0,  0,   & 
236:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 236:  & 0,  1.00000000000,  0,   & 
237:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 237:  & 0,  0,  1.00000000000,   & 
238:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 238:  & 1.00000000000,  0,  0,   & 
239:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 239:  & 0,  -1.00000000000,  0,   & 
240:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 240:  & 0,  0,  1.00000000000,   & 
241:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 241:  & 0,  1.00000000000,  0,   & 
242:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 242:  & -1.00000000000,  0,  0,   & 
243:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 243:  & 0,  0,  -1.00000000000,   & 
244:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 244:  & 0,  -1.00000000000,  0,   & 
245:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 245:  & 1.00000000000,  0,  0,   & 
246:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 246:  & 0,  0,  -1.00000000000,   & 
247:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 247:  & 0,  0,  -1.00000000000,   & 
248:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 248:  & 0,  1.00000000000,  0,   & 
249:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 249:  & -1.00000000000,  0,  0,   & 
250:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 250:  & 0,  0,  1.00000000000,   & 
251:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 251:  & 0,  -1.00000000000,  0,   & 
252:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 252:  & -1.00000000000,  0,  0,   & 
253:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 253:  & 0,  0,  -1.00000000000,   & 
254:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 254:  & 0,  -1.00000000000,  0,   & 
255:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 255:  & 1.00000000000,  0,  0,   & 
256:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 256:  & 0,  0,  1.00000000000,   & 
257:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 257:  & 0,  1.00000000000,  0,   & 
258:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 258:  & 1.00000000000,  0,  0,   & 
259:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 259:  & -1.00000000000,  0,  0,   & 
260:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 260:  & 0,  0,  -1.00000000000,   & 
261:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 261:  & 0,  1.00000000000,  0,   & 
262:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 262:  & 1.00000000000,  0,  0,   & 
263:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 263:  & 0,  0,  1.00000000000,   & 
264:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 264:  & 0,  1.00000000000,  0,   & 
265:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 265:  & -1.00000000000,  0,  0,   & 
266:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 266:  & 0,  0,  1.00000000000,   & 
267:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 267:  & 0,  -1.00000000000,  0,   & 
268:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 268:  & 1.00000000000,  0,  0,   & 
269:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 269:  & 0,  0,  -1.00000000000,   & 
270:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 270:  & 0,  -1.00000000000,  0,   & 
271:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 271:  & 0,  1.00000000000,  0,   & 
272:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 272:  & 1.00000000000,  0,  0,   & 
273:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 273:  & 0,  0,  1.00000000000,   & 
274:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 274:  & 0,  -1.00000000000,  0,   & 
275:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 275:  & -1.00000000000,  0,  0,   & 
276:  & 0.0D0,  0.0D0,  1.00000000000D0 /276:  & 0,  0,  1.00000000000 /
277: 277: 
278: DO J2=1,NLOCAL278: DO J2=1,NLOCAL
279:    J3=3*(J2-1)279:    J3=3*(J2-1)
280:    Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)280:    Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
281:    Y(J3+2)=RMAT(2,1,OPNUM)*X(J3+1)+RMAT(2,2,OPNUM)*X(J3+2)+RMAT(2,3,OPNUM)*X(J3+3)281:    Y(J3+2)=RMAT(2,1,OPNUM)*X(J3+1)+RMAT(2,2,OPNUM)*X(J3+2)+RMAT(2,3,OPNUM)*X(J3+3)
282:    Y(J3+3)=RMAT(3,1,OPNUM)*X(J3+1)+RMAT(3,2,OPNUM)*X(J3+2)+RMAT(3,3,OPNUM)*X(J3+3)282:    Y(J3+3)=RMAT(3,1,OPNUM)*X(J3+1)+RMAT(3,2,OPNUM)*X(J3+2)+RMAT(3,3,OPNUM)*X(J3+3)
283: ENDDO283: ENDDO
284: 284: 
285: END SUBROUTINE OHOPS285: END SUBROUTINE OHOPS


r28125/cshf.f 2017-03-30 13:31:09.129032313 +0100 r28124/cshf.f 2017-03-30 13:31:18.729159891 +0100
454:    dimension nc(mxr),no(mxr),nca(mxr),nhn(mxr),nnit(mxr), &454:    dimension nc(mxr),no(mxr),nca(mxr),nhn(mxr),nnit(mxr), &
455:          charge(matom),llist(mxr,5*mxr),numxloc(mshf),const(mshf), &455:          charge(matom),llist(mxr,5*mxr),numxloc(mshf),const(mshf), &
456:          maxllist(mxr),nresprot(mshf)456:          maxllist(mxr),nresprot(mshf)
457:    save nring,natr,iatr,str,namr,nprot,iprot,obs,wt,shrang, &457:    save nring,natr,iatr,str,namr,nprot,iprot,obs,wt,shrang, &
458:          nc,no,nca,nhn,nnit,charge,nter,cter,ipear,numxloc, &458:          nc,no,nca,nhn,nnit,charge,nter,cter,ipear,numxloc, &
459:          llist,const,maxllist,nresprot,first,shcut,details459:          llist,const,maxllist,nresprot,first,shcut,details
460:    dimension obsp(mshf),shavp(mshf)460:    dimension obsp(mshf),shavp(mshf)
461:    namelist/shf/ nring,natr,iatr,str,nprot,obs,wt,iprot,shcut,namr, &461:    namelist/shf/ nring,natr,iatr,str,nprot,obs,wt,iprot,shcut,namr, &
462:          shrang,nter,cter,details462:          shrang,nter,cter,details
463:    data first /.true./463:    data first /.true./
464:    data shcut /0.3d0/464:    data shcut /0.3/
465:    data details/.false./465:    data details/.false./
466:    466:    
467:    !=====================================================================467:    !=====================================================================
468:    468:    
469:    !   First time through, set up a number of arrays, and read input data:469:    !   First time through, set up a number of arrays, and read input data:
470:    470:    
471:    !=====================================================================471:    !=====================================================================
472:    472:    
473:    if (first) then473:    if (first) then
474:       474:       


<
r28125/CSMinit.f90 2017-03-30 13:31:16.969136502 +0100 r28124/CSMinit.f90 2017-03-30 13:31:21.809200823 +0100
741: !741: !
742: ! Apply all point group operations of Ih to initial coordinates and store in CSMIMAGES742: ! Apply all point group operations of Ih to initial coordinates and store in CSMIMAGES
743: !743: !
744: SUBROUTINE CSMIH(X,Y,OPNUM,INV,NLOCAL,GETOPS)744: SUBROUTINE CSMIH(X,Y,OPNUM,INV,NLOCAL,GETOPS)
745: USE COMMONS,ONLY : CSMGPINDEX, PTGP745: USE COMMONS,ONLY : CSMGPINDEX, PTGP
746: IMPLICIT NONE746: IMPLICIT NONE
747: INTEGER OPNUM, J2, J3, INV, NLOCAL747: INTEGER OPNUM, J2, J3, INV, NLOCAL
748: DOUBLE PRECISION RMAT(3,3,240), X(3*NLOCAL), Y(3*NLOCAL)748: DOUBLE PRECISION RMAT(3,3,240), X(3*NLOCAL), Y(3*NLOCAL)
749: LOGICAL GETOPS749: LOGICAL GETOPS
750: DATA RMAT / &750: DATA RMAT / &
751:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &751:   & 1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
752:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &752:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
753:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &753:   & 0,  -1.00000000000,  0,     0,  0,  1.00000000000,    &
754:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &754:   & -0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
755:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &755:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
756:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &756:   & 0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
757:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &757:   & -1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
758:   & 0.0D0,  0.0D0,  -1.00000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &758:   & 0,  0,  -1.00000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
759:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &759:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
760:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &760:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
761:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &761:   & -0.809016994375,  0.309016994375,  0.500000000000,     1.00000000000,  0,  0,    &
762:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &762:   & 0,  1.00000000000,  0,     0,  0,  -1.00000000000,    &
763:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &763:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
764:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &764:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
765:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &765:   & 0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
766:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &766:   & -0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
767:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &767:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
768:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &768:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
769:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &769:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
770:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &770:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
771:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &771:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
772:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &772:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
773:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &773:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
774:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &774:   & 0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
775:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &775:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
776:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &776:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
777:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &777:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
778:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &778:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
779:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &779:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
780:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &780:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
781:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &781:   & 0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
782:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &782:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
783:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &783:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
784:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &784:   & 0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
785:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &785:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
786:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &786:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
787:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &787:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
788:   & 0.0D0,  0.0D0,  -1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &788:   & 0,  0,  -1.00000000000,     1.00000000000,  0,  0,    &
789:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &789:   & 0,  -1.00000000000,  0,     0,  0,  -1.00000000000,    &
790:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &790:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
791:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &791:   & 0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
792:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &792:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
793:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &793:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
794:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &794:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
795:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &795:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
796:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &796:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
797:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &797:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
798:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &798:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
799:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &799:   & 0,  1.00000000000,  0,     0,  0,  1.00000000000,    &
800:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &800:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
801:   & 0.0D0,  0.0D0,  -1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &801:   & 0,  0,  -1.00000000000,     1.00000000000,  0,  0,    &
802:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &802:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
803:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &803:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
804:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &804:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
805:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &805:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
806:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &806:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
807:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &807:   & 0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
808:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &808:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
809:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &809:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
810:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &810:   & 0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
811:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &811:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
812:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &812:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
813:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &813:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
814:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &814:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
815:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &815:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
816:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &816:   & 0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
817:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &817:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
818:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &818:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
819:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &819:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
820:   & 0.0D0,  0.0D0,  1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &820:   & 0,  0,  1.00000000000,     1.00000000000,  0,  0,    &
821:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &821:   & 0,  1.00000000000,  0,     0,  0,  -1.00000000000,    &
822:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &822:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
823:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &823:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
824:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &824:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
825:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &825:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
826:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &826:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
827:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &827:   & 0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
828:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &828:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
829:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &829:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
830:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &830:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
831:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &831:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
832:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &832:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
833:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &833:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
834:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &834:   & 0,  1.00000000000,  0,     0,  0,  1.00000000000,    &
835:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &835:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
836:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &836:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
837:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &837:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
838:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &838:   & 0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
839:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &839:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
840:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &840:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
841:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &841:   & 0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
842:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &842:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
843:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &843:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
844:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &844:   & 0,  -1.00000000000,  0,     0,  0,  1.00000000000,    &
845:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &845:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
846:   & 0.0D0,  0.0D0,  -1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &846:   & 0,  0,  -1.00000000000,     -1.00000000000,  0,  0,    &
847:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &847:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
848:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &848:   & 0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
849:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &849:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
850:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &850:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
851:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &851:   & 0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
852:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &852:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
853:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &853:   & 0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
854:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &854:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
855:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &855:   & -0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
856:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &856:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
857:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &857:   & 0,  -1.00000000000,  0,     0,  0,  -1.00000000000,    &
858:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &858:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
859:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &859:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
860:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &860:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
861:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &861:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
862:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &862:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
863:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &863:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
864:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &864:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
865:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &865:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
866:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &866:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
867:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &867:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
868:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &868:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
869:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &869:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  0.809016994375,    &
870:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &870:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
871:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &871:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
872:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &872:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
873:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &873:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
874:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &874:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
875:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &875:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
876:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &876:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
877:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &877:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
878:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &878:   & 0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
879:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &879:   & 0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
880:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &880:   & 0,  -1.00000000000,  0,     0,  0,  -1.00000000000,    &
881:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &881:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
882:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &882:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
883:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &883:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
884:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &884:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
885:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &885:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
886:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &886:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
887:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &887:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
888:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &888:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
889:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &889:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
890:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &890:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
891:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &891:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
892:   & 0.0D0,  0.0D0,  -1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &892:   & 0,  0,  -1.00000000000,     -1.00000000000,  0,  0,    &
893:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &893:   & 0,  -1.00000000000,  0,     0,  0,  1.00000000000,    &
894:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &894:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
895:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &895:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
896:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &896:   & -0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
897:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &897:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
898:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &898:   & 0,  1.00000000000,  0,     0,  0,  -1.00000000000,    &
899:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &899:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
900:   & 0.0D0,  0.0D0,  1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &900:   & 0,  0,  1.00000000000,     1.00000000000,  0,  0,    &
901:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &901:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
902:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &902:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
903:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &903:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
904:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &904:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
905:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &905:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
906:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &906:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
907:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &907:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
908:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &908:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
909:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &909:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
910:   & 0.0D0,  0.0D0,  -1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &910:   & 0,  0,  -1.00000000000,     1.00000000000,  0,  0,    &
911:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &911:   & 0,  1.00000000000,  0,     0,  0,  1.00000000000,    &
912:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &912:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
913:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &913:   & 0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
914:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &914:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
915:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &915:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
916:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &916:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
917:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &917:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
918:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &918:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
919:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &919:   & -0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
920:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &920:   & 0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
921:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &921:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
922:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &922:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
923:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &923:   & 0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
924:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &924:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
925:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &925:   & 0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
926:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &926:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
927:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &927:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
928:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &928:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
929:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &929:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
930:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &930:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
931:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &931:   & 1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
932:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &932:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
933:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &933:   & 0,  -1.00000000000,  0,     0,  0,  1.00000000000,    &
934:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &934:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
935:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &935:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  -0.809016994375,    &
936:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &936:   & -0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
937:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &937:   & -1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
938:   & 0.0D0,  0.0D0,  -1.00000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &938:   & 0,  0,  -1.00000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
939:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &939:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
940:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &940:   & -0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
941:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &941:   & -0.809016994375,  -0.309016994375,  0.500000000000,     1.00000000000,  0,  0,    &
942:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &942:   & 0,  1.00000000000,  0,     0,  0,  -1.00000000000,    &
943:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &943:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
944:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &944:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
945:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &945:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
946:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &946:   & -0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
947:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &947:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
948:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &948:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
949:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &949:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
950:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &950:   & -0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
951:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &951:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
952:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &952:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
953:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &953:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
954:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &954:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
955:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &955:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
956:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &956:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
957:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &957:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
958:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &958:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
959:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &959:   & 0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
960:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &960:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
961:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &961:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
962:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &962:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
963:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &963:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
964:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &964:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
965:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &965:   & 0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
966:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &966:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
967:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &967:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
968:   & 0.0D0,  0.0D0,  -1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &968:   & 0,  0,  -1.00000000000,     1.00000000000,  0,  0,    &
969:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.00000000000D0,    &969:   & 0,  -1.00000000000,  0,     0,  0,  -1.00000000000,    &
970:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &970:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
971:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &971:   & -0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
972:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &972:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
973:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &973:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
974:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &974:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
975:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &975:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
976:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &976:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
977:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &977:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
978:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &978:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
979:   & 0.0D0,  0.0D0,  1.00000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &979:   & 0,  0,  1.00000000000,     1.00000000000,  0,  0,    &
980:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.0000000000D0,    &980:   & 0,  1.00000000000,  0,     0,  0,  1.0000000000,    &
981:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &981:   & -1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
982:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &982:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
983:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &983:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
984:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &984:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
985:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &985:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
986:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &986:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
987:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &987:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
988:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &988:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
989:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &989:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
990:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &990:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
991:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &991:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
992:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &992:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
993:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &993:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
994:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &994:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
995:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &995:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
996:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &996:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
997:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &997:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
998:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &998:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
999:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &999:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
1000:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &1000:   & 0,  1.00000000000,  0,     0,  0,  1.00000000000,    &
1001:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &1001:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
1002:   & 0.0D0,  0.0D0,  1.0000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &1002:   & 0,  0,  1.0000000000,     -1.00000000000,  0,  0,    &
1003:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1003:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
1004:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1004:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1005:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1005:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
1006:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1006:   & -0.500000000000,  0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1007:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1007:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
1008:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1008:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1009:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1009:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1010:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1010:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1011:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1011:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
1012:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &1012:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
1013:   & 0.0D0,  0.0D0,  1.00000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &1013:   & 0,  0,  1.00000000000,     -1.00000000000,  0,  0,    &
1014:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.00000000000D0,    &1014:   & 0,  1.00000000000,  0,     0,  0,  1.00000000000,    &
1015:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1015:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1016:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1016:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1017:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1017:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
1018:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1018:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
1019:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1019:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
1020:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1020:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
1021:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1021:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1022:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1022:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1023:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1023:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1024:   & 0.0D0,  0.0D0,  -1.0000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &1024:   & 0,  0,  -1.0000000000,     -1.00000000000,  0,  0,    &
1025:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.0000000000D0,    &1025:   & 0,  1.00000000000,  0,     0,  0,  -1.0000000000,    &
1026:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &1026:   & 1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
1027:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1027:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
1028:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1028:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1029:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1029:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
1030:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1030:   & 0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1031:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1031:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
1032:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1032:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
1033:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1033:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
1034:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1034:   & 0.309016994375,  -0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1035:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1035:   & -0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  -0.809016994375,    &
1036:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.0000000000D0,    &1036:   & 0,  -1.00000000000,  0,     0,  0,  -1.0000000000,    &
1037:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &1037:   & 1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
1038:   & 0.0D0,  0.0D0,  -1.0000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &1038:   & 0,  0,  -1.0000000000,     -1.00000000000,  0,  0,    &
1039:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1039:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
1040:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1040:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1041:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1041:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
1042:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1042:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1043:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1043:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
1044:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1044:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1045:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1045:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1046:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1046:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1047:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1047:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
1048:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1048:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
1049:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1049:   & -0.809016994375,  -0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1050:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1050:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  -0.500000000000,    &
1051:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1051:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1052:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1052:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
1053:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1053:   & 0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1054:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1054:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1055:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1055:   & -0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1056:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1056:   & -0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
1057:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1057:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1058:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1058:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1059:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1059:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
1060:   & 0.0D0,  0.0D0,  -1.0000000000D0,     -1.00000000000D0,  0.0D0,  0.0D0,    &1060:   & 0,  0,  -1.0000000000,     -1.00000000000,  0,  0,    &
1061:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.0000000000D0,    &1061:   & 0,  -1.00000000000,  0,     0,  0,  -1.0000000000,    &
1062:   & 1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &1062:   & 1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
1063:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1063:   & 0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
1064:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1064:   & 0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1065:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1065:   & 0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1066:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1066:   & 0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  0.500000000000,    &
1067:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1067:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  0.309016994375,    &
1068:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1068:   & 0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1069:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1069:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  0.500000000000,    &
1070:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1070:   & -0.309016994375,  0.500000000000,  0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1071:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1071:   & -0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
1072:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  -1.0000000000D0,    &1072:   & 0,  -1.00000000000,  0,     0,  0,  -1.0000000000,    &
1073:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &1073:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
1074:   & 0.0D0,  0.0D0,  -1.0000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &1074:   & 0,  0,  -1.0000000000,     1.00000000000,  0,  0,    &
1075:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1075:   & -0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  0.500000000000,  0.809016994375,    &
1076:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1076:   & -0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
1077:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1077:   & 0.309016994375,  -0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
1078:   & 0.0D0,  0.0D0,  1.0000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &1078:   & 0,  0,  1.0000000000,     1.00000000000,  0,  0,    &
1079:   & 0.0D0,  -1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.0000000000D0,    &1079:   & 0,  -1.00000000000,  0,     0,  0,  1.0000000000,    &
1080:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  1.00000000000D0,  0.0D0,    &1080:   & -1.00000000000,  0,  0,     0,  1.00000000000,  0,    &
1081:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1081:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1082:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1082:   & 0.500000000000,  0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
1083:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1083:   & -0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1084:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1084:   & -0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  -0.309016994375,  -0.500000000000,    &
1085:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1085:   & -0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  0.809016994375,  -0.309016994375,    &
1086:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1086:   & -0.809016994375,  0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  -0.809016994375,    &
1087:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1087:   & -0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  0.309016994375,  -0.500000000000,    &
1088:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,     0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1088:   & -0.309016994375,  0.500000000000,  0.809016994375,     0.500000000000,  0.809016994375,  0.309016994375,    &
1089:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,     0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1089:   & 0.809016994375,  -0.309016994375,  -0.500000000000,     0.309016994375,  -0.500000000000,  0.809016994375,    &
1090:   & 0.0D0,  1.00000000000D0,  0.0D0,     0.0D0,  0.0D0,  1.0000000000D0,    &1090:   & 0,  1.00000000000,  0,     0,  0,  1.0000000000,    &
1091:   & -1.00000000000D0,  0.0D0,  0.0D0,     0.0D0,  -1.00000000000D0,  0.0D0,    &1091:   & -1.00000000000,  0,  0,     0,  -1.00000000000,  0,    &
1092:   & 0.0D0,  0.0D0,  1.0000000000D0,     1.00000000000D0,  0.0D0,  0.0D0,    &1092:   & 0,  0,  1.0000000000,     1.00000000000,  0,  0,    &
1093:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1093:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  -0.309016994375,    &
1094:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1094:   & 0.809016994375,  0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1095:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1095:   & -0.500000000000,  0.809016994375,  -0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
1096:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1096:   & -0.500000000000,  0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1097:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1097:   & 0.309016994375,  0.500000000000,  -0.809016994375,     0.500000000000,  -0.809016994375,  0.309016994375,    &
1098:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1098:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1099:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1099:   & -0.809016994375,  -0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1100:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1100:   & 0.500000000000,  -0.809016994375,  0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1101:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1101:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
1102:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1102:   & -0.309016994375,  -0.500000000000,  0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375,    &
1103:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,     0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1103:   & 0.809016994375,  0.309016994375,  0.500000000000,     0.309016994375,  0.500000000000,  0.809016994375,    &
1104:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1104:   & 0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  0.500000000000,    &
1105:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,     0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1105:   & 0.500000000000,  -0.809016994375,  -0.309016994375,     0.809016994375,  0.309016994375,  0.500000000000,    &
1106:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1106:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  -0.309016994375,    &
1107:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1107:   & -0.809016994375,  -0.309016994375,  0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1108:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,     -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1108:   & 0.809016994375,  0.309016994375,  -0.500000000000,     -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1109:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,     -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1109:   & 0.500000000000,  -0.809016994375,  0.309016994375,     -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1110:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,     -0.500000000000D0,  0.809016994375D0,  0.309016994375D0  /1110:   & 0.309016994375,  0.500000000000,  -0.809016994375,     -0.500000000000,  0.809016994375,  0.309016994375  /
1111: 1111: 
1112: IF (GETOPS) THEN1112: IF (GETOPS) THEN
1113:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1113:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1114:    RETURN1114:    RETURN
1115: ENDIF1115: ENDIF
1116: 1116: 
1117: IF (INV.GE.0) THEN1117: IF (INV.GE.0) THEN
1118:    DO J2=1,NLOCAL1118:    DO J2=1,NLOCAL
1119:       J3=3*(J2-1)1119:       J3=3*(J2-1)
1120:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1120:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1134: !1134: !
1135: ! Apply all point group operations of I to initial coordinates and store in CSMIMAGES1135: ! Apply all point group operations of I to initial coordinates and store in CSMIMAGES
1136: !1136: !
1137: SUBROUTINE CSMI(X,Y,OPNUM,INV,NLOCAL,GETOPS)1137: SUBROUTINE CSMI(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1138: USE COMMONS,ONLY : CSMGPINDEX, PTGP1138: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1139: IMPLICIT NONE1139: IMPLICIT NONE
1140: INTEGER OPNUM, J2, J3, INV, NLOCAL1140: INTEGER OPNUM, J2, J3, INV, NLOCAL
1141: DOUBLE PRECISION RMAT(3,3,120), X(3*NLOCAL), Y(3*NLOCAL)1141: DOUBLE PRECISION RMAT(3,3,120), X(3*NLOCAL), Y(3*NLOCAL)
1142: LOGICAL GETOPS1142: LOGICAL GETOPS
1143: DATA RMAT / &1143: DATA RMAT / &
1144:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1144:   & 1.00000000000,  0,  0,    &
1145:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1145:   & 0,  1.00000000000,  0,    &
1146:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1146:   & 0,  0,  1.00000000000,    &
1147:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1147:   & -1.00000000000,  0,  0,    &
1148:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1148:   & 0,  -1.00000000000,  0,    &
1149:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1149:   & 0,  0,  1.00000000000,    &
1150:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1150:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1151:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1151:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1152:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1152:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1153:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1153:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1154:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1154:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1155:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1155:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1156:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1156:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1157:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1157:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1158:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1158:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1159:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1159:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1160:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1160:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1161:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1161:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1162:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1162:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1163:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1163:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1164:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1164:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1165:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1165:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1166:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1166:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1167:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1167:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1168:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1168:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1169:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1169:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1170:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1170:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1171:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1171:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1172:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1172:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1173:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1173:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1174:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1174:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1175:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1175:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1176:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1176:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1177:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1177:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1178:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1178:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1179:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1179:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1180:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1180:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1181:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1181:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1182:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1182:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1183:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1183:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1184:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1184:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1185:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1185:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1186:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1186:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1187:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1187:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1188:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1188:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1189:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1189:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1190:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1190:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1191:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1191:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1192:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1192:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1193:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1193:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1194:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1194:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1195:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1195:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1196:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1196:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1197:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1197:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1198:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1198:   & -1.00000000000,  0,  0,    &
1199:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1199:   & 0,  1.00000000000,  0,    &
1200:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1200:   & 0,  0,  -1.00000000000,    &
1201:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1201:   & 1.00000000000,  0,  0,    &
1202:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1202:   & 0,  -1.00000000000,  0,    &
1203:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1203:   & 0,  0,  -1.00000000000,    &
1204:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1204:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1205:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1205:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1206:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1206:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1207:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1207:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1208:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1208:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1209:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1209:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1210:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1210:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1211:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1211:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1212:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1212:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1213:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1213:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1214:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1214:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1215:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1215:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1216:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1216:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1217:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1217:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1218:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1218:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1219:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1219:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1220:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1220:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1221:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1221:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1222:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1222:   & 0,  1.00000000000,  0,    &
1223:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1223:   & 0,  0,  1.00000000000,    &
1224:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1224:   & 1.00000000000,  0,  0,    &
1225:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1225:   & 0,  -1.00000000000,  0,    &
1226:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1226:   & 0,  0,  -1.00000000000,    &
1227:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1227:   & 1.00000000000,  0,  0,    &
1228:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1228:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1229:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1229:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1230:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1230:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1231:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1231:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1232:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1232:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1233:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1233:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1234:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1234:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1235:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1235:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1236:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1236:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1237:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1237:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1238:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1238:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1239:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1239:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1240:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1240:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1241:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1241:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1242:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1242:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1243:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1243:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1244:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1244:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1245:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1245:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1246:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1246:   & 0,  0,  1.00000000000,    &
1247:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1247:   & 1.00000000000,  0,  0,    &
1248:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1248:   & 0,  1.00000000000,  0,    &
1249:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1249:   & 0,  0,  -1.00000000000,    &
1250:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1250:   & -1.00000000000,  0,  0,    &
1251:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1251:   & 0,  1.00000000000,  0,    &
1252:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1252:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1253:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1253:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1254:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1254:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1255:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1255:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1256:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1256:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1257:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1257:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1258:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1258:   & 0,  -1.00000000000,  0,    &
1259:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1259:   & 0,  0,  1.00000000000,    &
1260:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1260:   & -1.00000000000,  0,  0,    &
1261:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1261:   & 0,  1.00000000000,  0,    &
1262:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1262:   & 0,  0,  -1.00000000000,    &
1263:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1263:   & -1.00000000000,  0,  0,    &
1264:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1264:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1265:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1265:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1266:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1266:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1267:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1267:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1268:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1268:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1269:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1269:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1270:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1270:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1271:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1271:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1272:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1272:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1273:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1273:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1274:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1274:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1275:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1275:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1276:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1276:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1277:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1277:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1278:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1278:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1279:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1279:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1280:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1280:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1281:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1281:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1282:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1282:   & 0,  0,  1.00000000000,    &
1283:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1283:   & -1.00000000000,  0,  0,    &
1284:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1284:   & 0,  -1.00000000000,  0,    &
1285:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1285:   & 0,  0,  -1.00000000000,    &
1286:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1286:   & 1.00000000000,  0,  0,    &
1287:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1287:   & 0,  -1.00000000000,  0,    &
1288:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1288:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1289:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1289:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1290:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1290:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1291:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1291:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1292:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1292:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1293:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1293:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1294:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1294:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1295:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1295:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1296:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1296:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1297:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1297:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1298:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1298:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1299:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1299:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1300:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1300:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1301:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1301:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1302:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1302:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1303:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1303:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1304:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1304:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1305:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1305:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1306:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1306:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1307:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1307:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1308:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1308:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1309:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1309:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1310:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1310:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1311:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1311:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1312:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1312:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1313:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1313:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1314:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1314:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1315:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1315:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1316:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1316:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1317:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1317:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1318:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1318:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1319:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1319:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1320:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1320:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1321:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1321:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1322:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1322:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1323:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1323:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1324:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1324:   & 1.00000000000,  0,  0,    &
1325:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1325:   & 0,  1.00000000000,  0,    &
1326:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1326:   & 0,  0,  1.00000000000,    &
1327:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1327:   & -1.00000000000,  0,  0,    &
1328:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1328:   & 0,  -1.00000000000,  0,    &
1329:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1329:   & 0,  0,  1.00000000000,    &
1330:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1330:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1331:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1331:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1332:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1332:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1333:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1333:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1334:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1334:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1335:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1335:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1336:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1336:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1337:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1337:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1338:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1338:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1339:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1339:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1340:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1340:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1341:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1341:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1342:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1342:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1343:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1343:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1344:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1344:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1345:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1345:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1346:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1346:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1347:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1347:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1348:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1348:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1349:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1349:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1350:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1350:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1351:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1351:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1352:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1352:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1353:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1353:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1354:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1354:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1355:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1355:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1356:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1356:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1357:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1357:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1358:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1358:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1359:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1359:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1360:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1360:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1361:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1361:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1362:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1362:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1363:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1363:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1364:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1364:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1365:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1365:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1366:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1366:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1367:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1367:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1368:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1368:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1369:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1369:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1370:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1370:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1371:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1371:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1372:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1372:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1373:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1373:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1374:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1374:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1375:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1375:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1376:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1376:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1377:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1377:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1378:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1378:   & -1.00000000000,  0,  0,    &
1379:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1379:   & 0,  1.00000000000,  0,    &
1380:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1380:   & 0,  0,  -1.00000000000,    &
1381:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1381:   & 1.00000000000,  0,  0,    &
1382:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1382:   & 0,  -1.00000000000,  0,    &
1383:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1383:   & 0,  0,  -1.00000000000,    &
1384:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1384:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1385:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1385:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1386:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1386:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1387:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1387:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1388:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1388:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1389:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1389:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1390:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1390:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1391:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1391:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1392:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1392:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1393:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1393:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1394:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1394:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1395:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1395:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1396:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1396:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1397:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1397:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1398:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1398:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1399:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1399:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1400:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1400:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1401:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1401:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1402:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1402:   & 0,  0,  1.00000000000,    &
1403:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1403:   & 1.00000000000,  0,  0,    &
1404:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1404:   & 0,  1.00000000000,  0,    &
1405:   & 0.0D0,  0.0D0,  1.0000000000D0,    &1405:   & 0,  0,  1.0000000000,    &
1406:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1406:   & -1.00000000000,  0,  0,    &
1407:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1407:   & 0,  -1.00000000000,  0,    &
1408:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1408:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1409:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1409:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1410:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1410:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1411:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1411:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1412:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1412:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1413:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1413:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1414:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1414:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1415:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1415:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1416:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1416:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1417:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1417:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1418:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1418:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1419:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1419:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1420:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1420:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1421:   & -0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1421:   & -0.809016994375,  0.309016994375,  -0.500000000000,    &
1422:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1422:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1423:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1423:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1424:   & 0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1424:   & 0.809016994375,  -0.309016994375,  -0.500000000000,    &
1425:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1425:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1426:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1426:   & 0,  1.00000000000,  0,    &
1427:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1427:   & 0,  0,  1.00000000000,    &
1428:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1428:   & 1.00000000000,  0,  0,    &
1429:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1429:   & 0,  -1.00000000000,  0,    &
1430:   & 0.0D0,  0.0D0,  1.0000000000D0,    &1430:   & 0,  0,  1.0000000000,    &
1431:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1431:   & -1.00000000000,  0,  0,    &
1432:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1432:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1433:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1433:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1434:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1434:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1435:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1435:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1436:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1436:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1437:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1437:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1438:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &1438:   & 0,  0,  -1.0000000000,    &
1439:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1439:   & -1.00000000000,  0,  0,    &
1440:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1440:   & 0,  1.00000000000,  0,    &
1441:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &1441:   & 0,  0,  -1.0000000000,    &
1442:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1442:   & 1.00000000000,  0,  0,    &
1443:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1443:   & 0,  -1.00000000000,  0,    &
1444:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1444:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1445:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1445:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1446:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1446:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1447:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1447:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1448:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1448:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1449:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1449:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1450:   & 0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1450:   & 0.500000000000,  0.809016994375,  0.309016994375,    &
1451:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1451:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1452:   & 0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1452:   & 0.309016994375,  -0.500000000000,  0.809016994375,    &
1453:   & -0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1453:   & -0.500000000000,  -0.809016994375,  0.309016994375,    &
1454:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1454:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1455:   & -0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1455:   & -0.309016994375,  0.500000000000,  0.809016994375,    &
1456:   & 0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1456:   & 0.500000000000,  0.809016994375,  -0.309016994375,    &
1457:   & 0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1457:   & 0.809016994375,  -0.309016994375,  0.500000000000,    &
1458:   & 0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1458:   & 0.309016994375,  -0.500000000000,  -0.809016994375,    &
1459:   & -0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1459:   & -0.500000000000,  -0.809016994375,  -0.309016994375,    &
1460:   & -0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1460:   & -0.809016994375,  0.309016994375,  0.500000000000,    &
1461:   & -0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1461:   & -0.309016994375,  0.500000000000,  -0.809016994375,    &
1462:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1462:   & 0,  -1.00000000000,  0,    &
1463:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &1463:   & 0,  0,  -1.0000000000,    &
1464:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1464:   & 1.00000000000,  0,  0,    &
1465:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1465:   & 0,  1.00000000000,  0,    &
1466:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &1466:   & 0,  0,  -1.0000000000,    &
1467:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1467:   & -1.00000000000,  0,  0,    &
1468:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1468:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1469:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1469:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1470:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1470:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1471:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1471:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1472:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1472:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1473:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1473:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1474:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1474:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1475:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1475:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1476:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1476:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1477:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1477:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1478:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1478:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1479:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1479:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1480:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1480:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1481:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1481:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1482:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1482:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1483:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1483:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1484:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1484:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1485:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1485:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1486:   & 0.309016994375D0,  0.500000000000D0,  -0.809016994375D0,    &1486:   & 0.309016994375,  0.500000000000,  -0.809016994375,    &
1487:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0,    &1487:   & 0.500000000000,  -0.809016994375,  -0.309016994375,    &
1488:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1488:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1489:   & -0.309016994375D0,  -0.500000000000D0,  -0.809016994375D0,    &1489:   & -0.309016994375,  -0.500000000000,  -0.809016994375,    &
1490:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1490:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1491:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1491:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1492:   & -0.500000000000D0,  0.809016994375D0,  0.309016994375D0,    &1492:   & -0.500000000000,  0.809016994375,  0.309016994375,    &
1493:   & -0.809016994375D0,  -0.309016994375D0,  -0.500000000000D0,    &1493:   & -0.809016994375,  -0.309016994375,  -0.500000000000,    &
1494:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1494:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1495:   & 0.500000000000D0,  -0.809016994375D0,  0.309016994375D0,    &1495:   & 0.500000000000,  -0.809016994375,  0.309016994375,    &
1496:   & 0.809016994375D0,  0.309016994375D0,  -0.500000000000D0,    &1496:   & 0.809016994375,  0.309016994375,  -0.500000000000,    &
1497:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1497:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1498:   & -0.809016994375D0,  -0.309016994375D0,  0.500000000000D0,    &1498:   & -0.809016994375,  -0.309016994375,  0.500000000000,    &
1499:   & 0.309016994375D0,  0.500000000000D0,  0.809016994375D0,    &1499:   & 0.309016994375,  0.500000000000,  0.809016994375,    &
1500:   & -0.500000000000D0,  0.809016994375D0,  -0.309016994375D0,    &1500:   & -0.500000000000,  0.809016994375,  -0.309016994375,    &
1501:   & 0.809016994375D0,  0.309016994375D0,  0.500000000000D0,    &1501:   & 0.809016994375,  0.309016994375,  0.500000000000,    &
1502:   & -0.309016994375D0,  -0.500000000000D0,  0.809016994375D0,    &1502:   & -0.309016994375,  -0.500000000000,  0.809016994375,    &
1503:   & 0.500000000000D0,  -0.809016994375D0,  -0.309016994375D0 /1503:   & 0.500000000000,  -0.809016994375,  -0.309016994375 /
1504:   1504:   
1505: IF (GETOPS) THEN1505: IF (GETOPS) THEN
1506:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1506:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1507:    RETURN1507:    RETURN
1508: ENDIF1508: ENDIF
1509: 1509: 
1510: IF (INV.GE.0) THEN1510: IF (INV.GE.0) THEN
1511:    DO J2=1,NLOCAL1511:    DO J2=1,NLOCAL
1512:       J3=3*(J2-1)1512:       J3=3*(J2-1)
1513:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1513:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1527: !1527: !
1528: ! Apply all point group operations of C5 to initial coordinates and store in CSMIMAGES1528: ! Apply all point group operations of C5 to initial coordinates and store in CSMIMAGES
1529: !1529: !
1530: SUBROUTINE CSMC5(X,Y,OPNUM,INV,NLOCAL,GETOPS)1530: SUBROUTINE CSMC5(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1531: USE COMMONS,ONLY : CSMGPINDEX, PTGP1531: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1532: IMPLICIT NONE1532: IMPLICIT NONE
1533: INTEGER OPNUM, J2, J3, INV, NLOCAL1533: INTEGER OPNUM, J2, J3, INV, NLOCAL
1534: DOUBLE PRECISION RMAT(3,3,10), X(3*NLOCAL), Y(3*NLOCAL)1534: DOUBLE PRECISION RMAT(3,3,10), X(3*NLOCAL), Y(3*NLOCAL)
1535: LOGICAL GETOPS1535: LOGICAL GETOPS
1536: DATA RMAT / &1536: DATA RMAT / &
1537:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1537:   & 1.00000000000,  0,  0,    &
1538:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1538:   & 0,  1.00000000000,  0,    &
1539:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1539:   & 0,  0,  1.00000000000,    &
1540:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1540:   & 0.309016994375,  -0.951056516295,  0,    &
1541:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1541:   & 0.951056516295,  0.309016994375,  0,    &
1542:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1542:   & 0,  0,  1.00000000000,    &
1543:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1543:   & -0.809016994375,  -0.587785252292,  0,    &
1544:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1544:   & 0.587785252292,  -0.809016994375,  0,    &
1545:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1545:   & 0,  0,  1.00000000000,    &
1546:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1546:   & -0.809016994375,  0.587785252292,  0,    &
1547:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1547:   & -0.587785252292,  -0.809016994375,  0,    &
1548:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1548:   & 0,  0,  1.00000000000,    &
1549:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1549:   & 0.309016994375,  0.951056516295,  0,    &
1550:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1550:   & -0.951056516295,  0.309016994375,  0,    &
1551:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1551:   & 0,  0,  1.00000000000,    &
1552:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1552:   & 1.00000000000,  0,  0,    &
1553:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1553:   & 0,  1.00000000000,  0,    &
1554:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1554:   & 0,  0,  1.00000000000,    &
1555:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1555:   & 0.309016994375,  0.951056516295,  0,    &
1556:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1556:   & -0.951056516295,  0.309016994375,  0,    &
1557:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1557:   & 0,  0,  1.00000000000,    &
1558:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1558:   & -0.809016994375,  0.587785252292,  0,    &
1559:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1559:   & -0.587785252292,  -0.809016994375,  0,    &
1560:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1560:   & 0,  0,  1.00000000000,    &
1561:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1561:   & -0.809016994375,  -0.587785252292,  0,    &
1562:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1562:   & 0.587785252292,  -0.809016994375,  0,    &
1563:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1563:   & 0,  0,  1.00000000000,    &
1564:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1564:   & 0.309016994375,  -0.951056516295,  0,    &
1565:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1565:   & 0.951056516295,  0.309016994375,  0,    &
1566:   & 0.0D0,  0.0D0,  1.00000000000D0 /1566:   & 0,  0,  1.00000000000 /
1567:   1567:   
1568: IF (GETOPS) THEN1568: IF (GETOPS) THEN
1569:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1569:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1570:    RETURN1570:    RETURN
1571: ENDIF1571: ENDIF
1572:   1572:   
1573: IF (INV.GE.0) THEN1573: IF (INV.GE.0) THEN
1574:    DO J2=1,NLOCAL1574:    DO J2=1,NLOCAL
1575:       J3=3*(J2-1)1575:       J3=3*(J2-1)
1576:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1576:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1590: !1590: !
1591: ! Apply all point group operations of C5V to initial coordinates and store in CSMIMAGES1591: ! Apply all point group operations of C5V to initial coordinates and store in CSMIMAGES
1592: !1592: !
1593: SUBROUTINE CSMC5V(X,Y,OPNUM,INV,NLOCAL,GETOPS)1593: SUBROUTINE CSMC5V(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1594: USE COMMONS,ONLY : CSMGPINDEX, PTGP1594: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1595: IMPLICIT NONE1595: IMPLICIT NONE
1596: INTEGER OPNUM, J2, J3, INV, NLOCAL1596: INTEGER OPNUM, J2, J3, INV, NLOCAL
1597: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)1597: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)
1598: LOGICAL GETOPS1598: LOGICAL GETOPS
1599: DATA RMAT / &1599: DATA RMAT / &
1600:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1600:   & 1.00000000000,  0,  0,    &
1601:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1601:   & 0,  1.00000000000,  0,    &
1602:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1602:   & 0,  0,  1.00000000000,    &
1603:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1603:   & 0.309016994375,  -0.951056516295,  0,    &
1604:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1604:   & 0.951056516295,  0.309016994375,  0,    &
1605:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1605:   & 0,  0,  1.00000000000,    &
1606:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1606:   & 1.00000000000,  0,  0,    &
1607:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1607:   & 0,  -1.00000000000,  0,    &
1608:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1608:   & 0,  0,  1.00000000000,    &
1609:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1609:   & -0.809016994375,  -0.587785252292,  0,    &
1610:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1610:   & 0.587785252292,  -0.809016994375,  0,    &
1611:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1611:   & 0,  0,  1.00000000000,    &
1612:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1612:   & 0.309016994375,  0.951056516295,  0,    &
1613:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1613:   & 0.951056516295,  -0.309016994375,  0,    &
1614:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1614:   & 0,  0,  1.00000000000,    &
1615:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1615:   & -0.809016994375,  0.587785252292,  0,    &
1616:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1616:   & -0.587785252292,  -0.809016994375,  0,    &
1617:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1617:   & 0,  0,  1.00000000000,    &
1618:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1618:   & -0.809016994375,  0.587785252292,  0,    &
1619:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1619:   & 0.587785252292,  0.809016994375,  0,    &
1620:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1620:   & 0,  0,  1.00000000000,    &
1621:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1621:   & 0.309016994375,  0.951056516295,  0,    &
1622:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1622:   & -0.951056516295,  0.309016994375,  0,    &
1623:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1623:   & 0,  0,  1.00000000000,    &
1624:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1624:   & -0.809016994375,  -0.587785252292,  0,    &
1625:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1625:   & -0.587785252292,  0.809016994375,  0,    &
1626:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1626:   & 0,  0,  1.00000000000,    &
1627:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1627:   & 0.309016994375,  -0.951056516295,  0,    &
1628:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1628:   & -0.951056516295,  -0.309016994375,  0,    &
1629:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1629:   & 0,  0,  1.00000000000,    &
1630:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1630:   & 1.00000000000,  0,  0,    &
1631:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1631:   & 0,  1.00000000000,  0,    &
1632:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1632:   & 0,  0,  1.00000000000,    &
1633:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1633:   & 0.309016994375,  0.951056516295,  0,    &
1634:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1634:   & -0.951056516295,  0.309016994375,  0,    &
1635:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1635:   & 0,  0,  1.00000000000,    &
1636:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1636:   & 1.00000000000,  0,  0,    &
1637:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1637:   & 0,  -1.00000000000,  0,    &
1638:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1638:   & 0,  0,  1.00000000000,    &
1639:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1639:   & -0.809016994375,  0.587785252292,  0,    &
1640:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1640:   & -0.587785252292,  -0.809016994375,  0,    &
1641:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1641:   & 0,  0,  1.00000000000,    &
1642:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1642:   & 0.309016994375,  0.951056516295,  0,    &
1643:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1643:   & 0.951056516295,  -0.309016994375,  0,    &
1644:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1644:   & 0,  0,  1.00000000000,    &
1645:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1645:   & -0.809016994375,  -0.587785252292,  0,    &
1646:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1646:   & 0.587785252292,  -0.809016994375,  0,    &
1647:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1647:   & 0,  0,  1.00000000000,    &
1648:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1648:   & -0.809016994375,  0.587785252292,  0,    &
1649:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1649:   & 0.587785252292,  0.809016994375,  0,    &
1650:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1650:   & 0,  0,  1.00000000000,    &
1651:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1651:   & 0.309016994375,  -0.951056516295,  0,    &
1652:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1652:   & 0.951056516295,  0.309016994375,  0,    &
1653:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1653:   & 0,  0,  1.00000000000,    &
1654:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1654:   & -0.809016994375,  -0.587785252292,  0,    &
1655:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1655:   & -0.587785252292,  0.809016994375,  0,    &
1656:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1656:   & 0,  0,  1.00000000000,    &
1657:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1657:   & 0.309016994375,  -0.951056516295,  0,    &
1658:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1658:   & -0.951056516295,  -0.309016994375,  0,    &
1659:   & 0.0D0,  0.0D0,  1.00000000000D0 /1659:   & 0,  0,  1.00000000000 /
1660:   1660:   
1661: IF (GETOPS) THEN1661: IF (GETOPS) THEN
1662:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1662:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1663:    RETURN1663:    RETURN
1664: ENDIF1664: ENDIF
1665:   1665:   
1666: IF (INV.GE.0) THEN1666: IF (INV.GE.0) THEN
1667:    DO J2=1,NLOCAL1667:    DO J2=1,NLOCAL
1668:       J3=3*(J2-1)1668:       J3=3*(J2-1)
1669:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1669:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1683: !1683: !
1684: ! Apply all point group operations of C5H to initial coordinates and store in CSMIMAGES1684: ! Apply all point group operations of C5H to initial coordinates and store in CSMIMAGES
1685: !1685: !
1686: SUBROUTINE CSMC5H(X,Y,OPNUM,INV,NLOCAL,GETOPS)1686: SUBROUTINE CSMC5H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1687: USE COMMONS,ONLY : CSMGPINDEX, PTGP1687: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1688: IMPLICIT NONE1688: IMPLICIT NONE
1689: INTEGER OPNUM, J2, J3, INV, NLOCAL1689: INTEGER OPNUM, J2, J3, INV, NLOCAL
1690: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)1690: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)
1691: LOGICAL GETOPS1691: LOGICAL GETOPS
1692: DATA RMAT / &1692: DATA RMAT / &
1693:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1693:   & 1.00000000000,  0,  0,    &
1694:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1694:   & 0,  1.00000000000,  0,    &
1695:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1695:   & 0,  0,  1.00000000000,    &
1696:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1696:   & 0.309016994375,  -0.951056516295,  0,    &
1697:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1697:   & 0.951056516295,  0.309016994375,  0,    &
1698:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1698:   & 0,  0,  1.00000000000,    &
1699:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1699:   & 1.00000000000,  0,  0,    &
1700:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1700:   & 0,  1.00000000000,  0,    &
1701:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1701:   & 0,  0,  -1.00000000000,    &
1702:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1702:   & -0.809016994375,  -0.587785252292,  0,    &
1703:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1703:   & 0.587785252292,  -0.809016994375,  0,    &
1704:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1704:   & 0,  0,  1.00000000000,    &
1705:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1705:   & 0.309016994375,  -0.951056516295,  0,    &
1706:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1706:   & 0.951056516295,  0.309016994375,  0,    &
1707:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1707:   & 0,  0,  -1.00000000000,    &
1708:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1708:   & -0.809016994375,  0.587785252292,  0,    &
1709:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1709:   & -0.587785252292,  -0.809016994375,  0,    &
1710:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1710:   & 0,  0,  1.00000000000,    &
1711:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1711:   & -0.809016994375,  -0.587785252292,  0,    &
1712:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1712:   & 0.587785252292,  -0.809016994375,  0,    &
1713:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1713:   & 0,  0,  -1.00000000000,    &
1714:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1714:   & 0.309016994375,  0.951056516295,  0,    &
1715:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1715:   & -0.951056516295,  0.309016994375,  0,    &
1716:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1716:   & 0,  0,  1.00000000000,    &
1717:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1717:   & -0.809016994375,  0.587785252292,  0,    &
1718:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1718:   & -0.587785252292,  -0.809016994375,  0,    &
1719:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1719:   & 0,  0,  -1.00000000000,    &
1720:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1720:   & 0.309016994375,  0.951056516295,  0,    &
1721:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1721:   & -0.951056516295,  0.309016994375,  0,    &
1722:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1722:   & 0,  0,  -1.00000000000,    &
1723:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1723:   & 1.00000000000,  0,  0,    &
1724:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1724:   & 0,  1.00000000000,  0,    &
1725:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1725:   & 0,  0,  1.00000000000,    &
1726:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1726:   & 0.309016994375,  0.951056516295,  0,    &
1727:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1727:   & -0.951056516295,  0.309016994375,  0,    &
1728:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1728:   & 0,  0,  1.00000000000,    &
1729:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1729:   & 1.00000000000,  0,  0,    &
1730:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1730:   & 0,  1.00000000000,  0,    &
1731:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1731:   & 0,  0,  -1.00000000000,    &
1732:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1732:   & -0.809016994375,  0.587785252292,  0,    &
1733:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1733:   & -0.587785252292,  -0.809016994375,  0,    &
1734:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1734:   & 0,  0,  1.00000000000,    &
1735:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1735:   & 0.309016994375,  0.951056516295,  0,    &
1736:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1736:   & -0.951056516295,  0.309016994375,  0,    &
1737:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1737:   & 0,  0,  -1.00000000000,    &
1738:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1738:   & -0.809016994375,  -0.587785252292,  0,    &
1739:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1739:   & 0.587785252292,  -0.809016994375,  0,    &
1740:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1740:   & 0,  0,  1.00000000000,    &
1741:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1741:   & -0.809016994375,  0.587785252292,  0,    &
1742:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1742:   & -0.587785252292,  -0.809016994375,  0,    &
1743:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1743:   & 0,  0,  -1.00000000000,    &
1744:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1744:   & 0.309016994375,  -0.951056516295,  0,    &
1745:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1745:   & 0.951056516295,  0.309016994375,  0,    &
1746:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1746:   & 0,  0,  1.00000000000,    &
1747:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1747:   & -0.809016994375,  -0.587785252292,  0,    &
1748:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1748:   & 0.587785252292,  -0.809016994375,  0,    &
1749:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1749:   & 0,  0,  -1.00000000000,    &
1750:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1750:   & 0.309016994375,  -0.951056516295,  0,    &
1751:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1751:   & 0.951056516295,  0.309016994375,  0,    &
1752:   & 0.0D0,  0.0D0,  -1.00000000000D0 /1752:   & 0,  0,  -1.00000000000 /
1753:   1753:   
1754: IF (GETOPS) THEN1754: IF (GETOPS) THEN
1755:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1755:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1756:    RETURN1756:    RETURN
1757: ENDIF1757: ENDIF
1758:   1758:   
1759: IF (INV.GE.0) THEN1759: IF (INV.GE.0) THEN
1760:    DO J2=1,NLOCAL1760:    DO J2=1,NLOCAL
1761:       J3=3*(J2-1)1761:       J3=3*(J2-1)
1762:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1762:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1776: !1776: !
1777: ! Apply all point group operations of D5 to initial coordinates and store in CSMIMAGES1777: ! Apply all point group operations of D5 to initial coordinates and store in CSMIMAGES
1778: !1778: !
1779: SUBROUTINE CSMD5(X,Y,OPNUM,INV,NLOCAL,GETOPS)1779: SUBROUTINE CSMD5(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1780: USE COMMONS,ONLY : CSMGPINDEX, PTGP1780: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1781: IMPLICIT NONE1781: IMPLICIT NONE
1782: INTEGER OPNUM, J2, J3, INV, NLOCAL1782: INTEGER OPNUM, J2, J3, INV, NLOCAL
1783: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)1783: DOUBLE PRECISION RMAT(3,3,20), X(3*NLOCAL), Y(3*NLOCAL)
1784: LOGICAL GETOPS1784: LOGICAL GETOPS
1785: DATA RMAT / &1785: DATA RMAT / &
1786:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1786:   & 1.00000000000,  0,  0,    &
1787:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1787:   & 0,  1.00000000000,  0,    &
1788:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1788:   & 0,  0,  1.00000000000,    &
1789:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1789:   & 0.309016994375,  -0.951056516295,  0,    &
1790:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1790:   & 0.951056516295,  0.309016994375,  0,    &
1791:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1791:   & 0,  0,  1.00000000000,    &
1792:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1792:   & 1.00000000000,  0,  0,    &
1793:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1793:   & 0,  -1.00000000000,  0,    &
1794:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1794:   & 0,  0,  -1.00000000000,    &
1795:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1795:   & -0.809016994375,  -0.587785252292,  0,    &
1796:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1796:   & 0.587785252292,  -0.809016994375,  0,    &
1797:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1797:   & 0,  0,  1.00000000000,    &
1798:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1798:   & 0.309016994375,  0.951056516295,  0,    &
1799:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1799:   & 0.951056516295,  -0.309016994375,  0,    &
1800:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1800:   & 0,  0,  -1.00000000000,    &
1801:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1801:   & -0.809016994375,  0.587785252292,  0,    &
1802:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1802:   & -0.587785252292,  -0.809016994375,  0,    &
1803:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1803:   & 0,  0,  1.00000000000,    &
1804:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1804:   & -0.809016994375,  0.587785252292,  0,    &
1805:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1805:   & 0.587785252292,  0.809016994375,  0,    &
1806:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1806:   & 0,  0,  -1.00000000000,    &
1807:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1807:   & 0.309016994375,  0.951056516295,  0,    &
1808:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1808:   & -0.951056516295,  0.309016994375,  0,    &
1809:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1809:   & 0,  0,  1.00000000000,    &
1810:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1810:   & -0.809016994375,  -0.587785252292,  0,    &
1811:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1811:   & -0.587785252292,  0.809016994375,  0,    &
1812:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1812:   & 0,  0,  -1.00000000000,    &
1813:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1813:   & 0.309016994375,  -0.951056516295,  0,    &
1814:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1814:   & -0.951056516295,  -0.309016994375,  0,    &
1815:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1815:   & 0,  0,  -1.00000000000,    &
1816:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1816:   & 1.00000000000,  0,  0,    &
1817:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1817:   & 0,  1.00000000000,  0,    &
1818:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1818:   & 0,  0,  1.00000000000,    &
1819:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1819:   & 0.309016994375,  0.951056516295,  0,    &
1820:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1820:   & -0.951056516295,  0.309016994375,  0,    &
1821:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1821:   & 0,  0,  1.00000000000,    &
1822:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1822:   & 1.00000000000,  0,  0,    &
1823:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1823:   & 0,  -1.00000000000,  0,    &
1824:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1824:   & 0,  0,  -1.00000000000,    &
1825:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1825:   & -0.809016994375,  0.587785252292,  0,    &
1826:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1826:   & -0.587785252292,  -0.809016994375,  0,    &
1827:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1827:   & 0,  0,  1.00000000000,    &
1828:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1828:   & 0.309016994375,  0.951056516295,  0,    &
1829:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1829:   & 0.951056516295,  -0.309016994375,  0,    &
1830:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1830:   & 0,  0,  -1.00000000000,    &
1831:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1831:   & -0.809016994375,  -0.587785252292,  0,    &
1832:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1832:   & 0.587785252292,  -0.809016994375,  0,    &
1833:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1833:   & 0,  0,  1.00000000000,    &
1834:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1834:   & -0.809016994375,  0.587785252292,  0,    &
1835:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1835:   & 0.587785252292,  0.809016994375,  0,    &
1836:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1836:   & 0,  0,  -1.00000000000,    &
1837:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1837:   & 0.309016994375,  -0.951056516295,  0,    &
1838:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1838:   & 0.951056516295,  0.309016994375,  0,    &
1839:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1839:   & 0,  0,  1.00000000000,    &
1840:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1840:   & -0.809016994375,  -0.587785252292,  0,    &
1841:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1841:   & -0.587785252292,  0.809016994375,  0,    &
1842:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1842:   & 0,  0,  -1.00000000000,    &
1843:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1843:   & 0.309016994375,  -0.951056516295,  0,    &
1844:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1844:   & -0.951056516295,  -0.309016994375,  0,    &
1845:   & 0.0D0,  0.0D0,  -1.00000000000D0 /1845:   & 0,  0,  -1.00000000000 /
1846:   1846:   
1847: IF (GETOPS) THEN1847: IF (GETOPS) THEN
1848:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)1848:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
1849:    RETURN1849:    RETURN
1850: ENDIF1850: ENDIF
1851:   1851:   
1852: IF (INV.GE.0) THEN1852: IF (INV.GE.0) THEN
1853:    DO J2=1,NLOCAL1853:    DO J2=1,NLOCAL
1854:       J3=3*(J2-1)1854:       J3=3*(J2-1)
1855:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)1855:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
1869: !1869: !
1870: ! Apply all point group operations of D5H to initial coordinates and store in CSMIMAGES1870: ! Apply all point group operations of D5H to initial coordinates and store in CSMIMAGES
1871: !1871: !
1872: SUBROUTINE CSMD5H(X,Y,OPNUM,INV,NLOCAL,GETOPS)1872: SUBROUTINE CSMD5H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
1873: USE COMMONS,ONLY : CSMGPINDEX, PTGP1873: USE COMMONS,ONLY : CSMGPINDEX, PTGP
1874: IMPLICIT NONE1874: IMPLICIT NONE
1875: INTEGER OPNUM, J2, J3, INV, NLOCAL1875: INTEGER OPNUM, J2, J3, INV, NLOCAL
1876: DOUBLE PRECISION RMAT(3,3,40), X(3*NLOCAL), Y(3*NLOCAL)1876: DOUBLE PRECISION RMAT(3,3,40), X(3*NLOCAL), Y(3*NLOCAL)
1877: LOGICAL GETOPS1877: LOGICAL GETOPS
1878: DATA RMAT / &1878: DATA RMAT / &
1879:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1879:   & 1.00000000000,  0,  0,    &
1880:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1880:   & 0,  1.00000000000,  0,    &
1881:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1881:   & 0,  0,  1.00000000000,    &
1882:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1882:   & 0.309016994375,  -0.951056516295,  0,    &
1883:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1883:   & 0.951056516295,  0.309016994375,  0,    &
1884:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1884:   & 0,  0,  1.00000000000,    &
1885:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1885:   & 1.00000000000,  0,  0,    &
1886:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1886:   & 0,  1.00000000000,  0,    &
1887:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1887:   & 0,  0,  -1.00000000000,    &
1888:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1888:   & 0,  -1.00000000000,  0,    &
1889:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1889:   & -1.00000000000,  0,  0,    &
1890:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1890:   & 0,  0,  1.00000000000,    &
1891:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1891:   & -0.809016994375,  -0.587785252292,  0,    &
1892:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1892:   & 0.587785252292,  -0.809016994375,  0,    &
1893:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1893:   & 0,  0,  1.00000000000,    &
1894:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1894:   & 0.309016994375,  -0.951056516295,  0,    &
1895:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1895:   & 0.951056516295,  0.309016994375,  0,    &
1896:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1896:   & 0,  0,  -1.00000000000,    &
1897:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1897:   & 0.951056516295,  -0.309016994375,  0,    &
1898:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1898:   & -0.309016994375,  -0.951056516295,  0,    &
1899:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1899:   & 0,  0,  1.00000000000,    &
1900:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1900:   & -0.809016994375,  0.587785252292,  0,    &
1901:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1901:   & -0.587785252292,  -0.809016994375,  0,    &
1902:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1902:   & 0,  0,  1.00000000000,    &
1903:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1903:   & -0.809016994375,  -0.587785252292,  0,    &
1904:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1904:   & 0.587785252292,  -0.809016994375,  0,    &
1905:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1905:   & 0,  0,  -1.00000000000,    &
1906:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1906:   & 0.587785252292,  0.809016994375,  0,    &
1907:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1907:   & 0.809016994375,  -0.587785252292,  0,    &
1908:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1908:   & 0,  0,  1.00000000000,    &
1909:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1909:   & 0.309016994375,  0.951056516295,  0,    &
1910:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1910:   & -0.951056516295,  0.309016994375,  0,    &
1911:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1911:   & 0,  0,  1.00000000000,    &
1912:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1912:   & -0.809016994375,  0.587785252292,  0,    &
1913:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1913:   & -0.587785252292,  -0.809016994375,  0,    &
1914:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1914:   & 0,  0,  -1.00000000000,    &
1915:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1915:   & -0.587785252292,  0.809016994375,  0,    &
1916:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &1916:   & 0.809016994375,  0.587785252292,  0,    &
1917:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1917:   & 0,  0,  1.00000000000,    &
1918:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1918:   & 0.309016994375,  0.951056516295,  0,    &
1919:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1919:   & -0.951056516295,  0.309016994375,  0,    &
1920:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1920:   & 0,  0,  -1.00000000000,    &
1921:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1921:   & -0.951056516295,  -0.309016994375,  0,    &
1922:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &1922:   & -0.309016994375,  0.951056516295,  0,    &
1923:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1923:   & 0,  0,  1.00000000000,    &
1924:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1924:   & 0,  -1.00000000000,  0,    &
1925:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1925:   & -1.00000000000,  0,  0,    &
1926:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1926:   & 0,  0,  -1.00000000000,    &
1927:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1927:   & 0.951056516295,  -0.309016994375,  0,    &
1928:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1928:   & -0.309016994375,  -0.951056516295,  0,    &
1929:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1929:   & 0,  0,  -1.00000000000,    &
1930:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1930:   & 0.587785252292,  0.809016994375,  0,    &
1931:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1931:   & 0.809016994375,  -0.587785252292,  0,    &
1932:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1932:   & 0,  0,  -1.00000000000,    &
1933:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1933:   & -0.587785252292,  0.809016994375,  0,    &
1934:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &1934:   & 0.809016994375,  0.587785252292,  0,    &
1935:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1935:   & 0,  0,  -1.00000000000,    &
1936:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1936:   & -0.951056516295,  -0.309016994375,  0,    &
1937:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &1937:   & -0.309016994375,  0.951056516295,  0,    &
1938:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1938:   & 0,  0,  -1.00000000000,    &
1939:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1939:   & 1.00000000000,  0,  0,    &
1940:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1940:   & 0,  1.00000000000,  0,    &
1941:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1941:   & 0,  0,  1.00000000000,    &
1942:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1942:   & 0.309016994375,  0.951056516295,  0,    &
1943:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1943:   & -0.951056516295,  0.309016994375,  0,    &
1944:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1944:   & 0,  0,  1.00000000000,    &
1945:   & 1.00000000000D0,  0.0D0,  0.0D0,    &1945:   & 1.00000000000,  0,  0,    &
1946:   & 0.0D0,  1.00000000000D0,  0.0D0,    &1946:   & 0,  1.00000000000,  0,    &
1947:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1947:   & 0,  0,  -1.00000000000,    &
1948:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1948:   & 0,  -1.00000000000,  0,    &
1949:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1949:   & -1.00000000000,  0,  0,    &
1950:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1950:   & 0,  0,  1.00000000000,    &
1951:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1951:   & -0.809016994375,  0.587785252292,  0,    &
1952:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1952:   & -0.587785252292,  -0.809016994375,  0,    &
1953:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1953:   & 0,  0,  1.00000000000,    &
1954:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &1954:   & 0.309016994375,  0.951056516295,  0,    &
1955:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &1955:   & -0.951056516295,  0.309016994375,  0,    &
1956:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1956:   & 0,  0,  -1.00000000000,    &
1957:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1957:   & 0.951056516295,  -0.309016994375,  0,    &
1958:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1958:   & -0.309016994375,  -0.951056516295,  0,    &
1959:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1959:   & 0,  0,  1.00000000000,    &
1960:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1960:   & -0.809016994375,  -0.587785252292,  0,    &
1961:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1961:   & 0.587785252292,  -0.809016994375,  0,    &
1962:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1962:   & 0,  0,  1.00000000000,    &
1963:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &1963:   & -0.809016994375,  0.587785252292,  0,    &
1964:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1964:   & -0.587785252292,  -0.809016994375,  0,    &
1965:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1965:   & 0,  0,  -1.00000000000,    &
1966:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1966:   & 0.587785252292,  0.809016994375,  0,    &
1967:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1967:   & 0.809016994375,  -0.587785252292,  0,    &
1968:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1968:   & 0,  0,  1.00000000000,    &
1969:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1969:   & 0.309016994375,  -0.951056516295,  0,    &
1970:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1970:   & 0.951056516295,  0.309016994375,  0,    &
1971:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1971:   & 0,  0,  1.00000000000,    &
1972:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1972:   & -0.809016994375,  -0.587785252292,  0,    &
1973:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &1973:   & 0.587785252292,  -0.809016994375,  0,    &
1974:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1974:   & 0,  0,  -1.00000000000,    &
1975:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1975:   & -0.587785252292,  0.809016994375,  0,    &
1976:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &1976:   & 0.809016994375,  0.587785252292,  0,    &
1977:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1977:   & 0,  0,  1.00000000000,    &
1978:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1978:   & 0.309016994375,  -0.951056516295,  0,    &
1979:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &1979:   & 0.951056516295,  0.309016994375,  0,    &
1980:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1980:   & 0,  0,  -1.00000000000,    &
1981:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1981:   & -0.951056516295,  -0.309016994375,  0,    &
1982:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &1982:   & -0.309016994375,  0.951056516295,  0,    &
1983:   & 0.0D0,  0.0D0,  1.00000000000D0,    &1983:   & 0,  0,  1.00000000000,    &
1984:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &1984:   & 0,  -1.00000000000,  0,    &
1985:   & -1.00000000000D0,  0.0D0,  0.0D0,    &1985:   & -1.00000000000,  0,  0,    &
1986:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1986:   & 0,  0,  -1.00000000000,    &
1987:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1987:   & 0.951056516295,  -0.309016994375,  0,    &
1988:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &1988:   & -0.309016994375,  -0.951056516295,  0,    &
1989:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1989:   & 0,  0,  -1.00000000000,    &
1990:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &1990:   & 0.587785252292,  0.809016994375,  0,    &
1991:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &1991:   & 0.809016994375,  -0.587785252292,  0,    &
1992:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1992:   & 0,  0,  -1.00000000000,    &
1993:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &1993:   & -0.587785252292,  0.809016994375,  0,    &
1994:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &1994:   & 0.809016994375,  0.587785252292,  0,    &
1995:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &1995:   & 0,  0,  -1.00000000000,    &
1996:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &1996:   & -0.951056516295,  -0.309016994375,  0,    &
1997:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &1997:   & -0.309016994375,  0.951056516295,  0,    &
1998:   & 0.0D0,  0.0D0,  -1.00000000000D0 /1998:   & 0,  0,  -1.00000000000 /
1999:   1999:   
2000: IF (GETOPS) THEN2000: IF (GETOPS) THEN
2001:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2001:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2002:    RETURN2002:    RETURN
2003: ENDIF2003: ENDIF
2004:   2004:   
2005: IF (INV.GE.0) THEN2005: IF (INV.GE.0) THEN
2006:    DO J2=1,NLOCAL2006:    DO J2=1,NLOCAL
2007:       J3=3*(J2-1)2007:       J3=3*(J2-1)
2008:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2008:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2022: !2022: !
2023: ! Apply all point group operations of D5D to initial coordinates and store in CSMIMAGES2023: ! Apply all point group operations of D5D to initial coordinates and store in CSMIMAGES
2024: !2024: !
2025: SUBROUTINE CSMD5D(X,Y,OPNUM,INV,NLOCAL,GETOPS)2025: SUBROUTINE CSMD5D(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2026: USE COMMONS,ONLY : CSMGPINDEX, PTGP2026: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2027: IMPLICIT NONE2027: IMPLICIT NONE
2028: INTEGER OPNUM, J2, J3, INV, NLOCAL2028: INTEGER OPNUM, J2, J3, INV, NLOCAL
2029: DOUBLE PRECISION RMAT(3,3,40), X(3*NLOCAL), Y(3*NLOCAL)2029: DOUBLE PRECISION RMAT(3,3,40), X(3*NLOCAL), Y(3*NLOCAL)
2030: LOGICAL GETOPS2030: LOGICAL GETOPS
2031: DATA RMAT / &2031: DATA RMAT / &
2032:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2032:   & 1.00000000000,  0,  0,    &
2033:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2033:   & 0,  1.00000000000,  0,    &
2034:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2034:   & 0,  0,  1.00000000000,    &
2035:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2035:   & 0.309016994375,  -0.951056516295,  0,    &
2036:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &2036:   & 0.951056516295,  0.309016994375,  0,    &
2037:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2037:   & 0,  0,  1.00000000000,    &
2038:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2038:   & 1.00000000000,  0,  0,    &
2039:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &2039:   & 0,  -1.00000000000,  0,    &
2040:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2040:   & 0,  0,  1.00000000000,    &
2041:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &2041:   & 0.809016994375,  0.587785252292,  0,    &
2042:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2042:   & 0.587785252292,  -0.809016994375,  0,    &
2043:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2043:   & 0,  0,  -1.00000000000,    &
2044:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2044:   & -0.809016994375,  -0.587785252292,  0,    &
2045:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2045:   & 0.587785252292,  -0.809016994375,  0,    &
2046:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2046:   & 0,  0,  1.00000000000,    &
2047:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &2047:   & 0.309016994375,  0.951056516295,  0,    &
2048:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2048:   & 0.951056516295,  -0.309016994375,  0,    &
2049:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2049:   & 0,  0,  1.00000000000,    &
2050:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &2050:   & -0.309016994375,  0.951056516295,  0,    &
2051:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &2051:   & 0.951056516295,  0.309016994375,  0,    &
2052:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2052:   & 0,  0,  -1.00000000000,    &
2053:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &2053:   & -0.809016994375,  0.587785252292,  0,    &
2054:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2054:   & -0.587785252292,  -0.809016994375,  0,    &
2055:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2055:   & 0,  0,  1.00000000000,    &
2056:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &2056:   & -0.809016994375,  0.587785252292,  0,    &
2057:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &2057:   & 0.587785252292,  0.809016994375,  0,    &
2058:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2058:   & 0,  0,  1.00000000000,    &
2059:   & -1.00000000000D0,  0.0D0,  0.0D0,    &2059:   & -1.00000000000,  0,  0,    &
2060:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2060:   & 0,  1.00000000000,  0,    &
2061:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2061:   & 0,  0,  -1.00000000000,    &
2062:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &2062:   & 0.309016994375,  0.951056516295,  0,    &
2063:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &2063:   & -0.951056516295,  0.309016994375,  0,    &
2064:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2064:   & 0,  0,  1.00000000000,    &
2065:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2065:   & -0.809016994375,  -0.587785252292,  0,    &
2066:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &2066:   & -0.587785252292,  0.809016994375,  0,    &
2067:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2067:   & 0,  0,  1.00000000000,    &
2068:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2068:   & -0.309016994375,  -0.951056516295,  0,    &
2069:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &2069:   & -0.951056516295,  0.309016994375,  0,    &
2070:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2070:   & 0,  0,  -1.00000000000,    &
2071:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2071:   & 0.309016994375,  -0.951056516295,  0,    &
2072:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2072:   & -0.951056516295,  -0.309016994375,  0,    &
2073:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2073:   & 0,  0,  1.00000000000,    &
2074:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2074:   & 0.809016994375,  -0.587785252292,  0,    &
2075:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2075:   & -0.587785252292,  -0.809016994375,  0,    &
2076:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2076:   & 0,  0,  -1.00000000000,    &
2077:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &2077:   & 0.809016994375,  0.587785252292,  0,    &
2078:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &2078:   & -0.587785252292,  0.809016994375,  0,    &
2079:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2079:   & 0,  0,  -1.00000000000,    &
2080:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2080:   & 0.809016994375,  -0.587785252292,  0,    &
2081:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &2081:   & 0.587785252292,  0.809016994375,  0,    &
2082:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2082:   & 0,  0,  -1.00000000000,    &
2083:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2083:   & -0.309016994375,  -0.951056516295,  0,    &
2084:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2084:   & 0.951056516295,  -0.309016994375,  0,    &
2085:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2085:   & 0,  0,  -1.00000000000,    &
2086:   & -1.00000000000D0,  0.0D0,  0.0D0,    &2086:   & -1.00000000000,  0,  0,    &
2087:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &2087:   & 0,  -1.00000000000,  0,    &
2088:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2088:   & 0,  0,  -1.00000000000,    &
2089:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &2089:   & -0.309016994375,  0.951056516295,  0,    &
2090:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2090:   & -0.951056516295,  -0.309016994375,  0,    &
2091:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2091:   & 0,  0,  -1.00000000000,    &
2092:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2092:   & 1.00000000000,  0,  0,    &
2093:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2093:   & 0,  1.00000000000,  0,    &
2094:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2094:   & 0,  0,  1.00000000000,    &
2095:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &2095:   & 0.309016994375,  0.951056516295,  0,    &
2096:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &2096:   & -0.951056516295,  0.309016994375,  0,    &
2097:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2097:   & 0,  0,  1.00000000000,    &
2098:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2098:   & 1.00000000000,  0,  0,    &
2099:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &2099:   & 0,  -1.00000000000,  0,    &
2100:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2100:   & 0,  0,  1.00000000000,    &
2101:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &2101:   & 0.809016994375,  0.587785252292,  0,    &
2102:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2102:   & 0.587785252292,  -0.809016994375,  0,    &
2103:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2103:   & 0,  0,  -1.00000000000,    &
2104:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &2104:   & -0.809016994375,  0.587785252292,  0,    &
2105:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2105:   & -0.587785252292,  -0.809016994375,  0,    &
2106:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2106:   & 0,  0,  1.00000000000,    &
2107:   & 0.309016994375D0,  0.951056516295D0,  0.0D0,    &2107:   & 0.309016994375,  0.951056516295,  0,    &
2108:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2108:   & 0.951056516295,  -0.309016994375,  0,    &
2109:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2109:   & 0,  0,  1.00000000000,    &
2110:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &2110:   & -0.309016994375,  0.951056516295,  0,    &
2111:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &2111:   & 0.951056516295,  0.309016994375,  0,    &
2112:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &2112:   & 0,  0,  -1.0000000000,    &
2113:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2113:   & -0.809016994375,  -0.587785252292,  0,    &
2114:   & 0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2114:   & 0.587785252292,  -0.809016994375,  0,    &
2115:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2115:   & 0,  0,  1.00000000000,    &
2116:   & -0.809016994375D0,  0.587785252292D0,  0.0D0,    &2116:   & -0.809016994375,  0.587785252292,  0,    &
2117:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &2117:   & 0.587785252292,  0.809016994375,  0,    &
2118:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2118:   & 0,  0,  1.00000000000,    &
2119:   & -1.0000000000D0,  0.0D0,  0.0D0,    &2119:   & -1.0000000000,  0,  0,    &
2120:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2120:   & 0,  1.00000000000,  0,    &
2121:   & 0.0D0,  0.0D0,  -1.0000000000D0,    &2121:   & 0,  0,  -1.0000000000,    &
2122:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2122:   & 0.309016994375,  -0.951056516295,  0,    &
2123:   & 0.951056516295D0,  0.309016994375D0,  0.0D0,    &2123:   & 0.951056516295,  0.309016994375,  0,    &
2124:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2124:   & 0,  0,  1.00000000000,    &
2125:   & -0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2125:   & -0.809016994375,  -0.587785252292,  0,    &
2126:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &2126:   & -0.587785252292,  0.809016994375,  0,    &
2127:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2127:   & 0,  0,  1.00000000000,    &
2128:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2128:   & -0.309016994375,  -0.951056516295,  0,    &
2129:   & -0.951056516295D0,  0.309016994375D0,  0.0D0,    &2129:   & -0.951056516295,  0.309016994375,  0,    &
2130:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2130:   & 0,  0,  -1.00000000000,    &
2131:   & 0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2131:   & 0.309016994375,  -0.951056516295,  0,    &
2132:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2132:   & -0.951056516295,  -0.309016994375,  0,    &
2133:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2133:   & 0,  0,  1.00000000000,    &
2134:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2134:   & 0.809016994375,  -0.587785252292,  0,    &
2135:   & -0.587785252292D0,  -0.809016994375D0,  0.0D0,    &2135:   & -0.587785252292,  -0.809016994375,  0,    &
2136:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2136:   & 0,  0,  -1.00000000000,    &
2137:   & 0.809016994375D0,  -0.587785252292D0,  0.0D0,    &2137:   & 0.809016994375,  -0.587785252292,  0,    &
2138:   & 0.587785252292D0,  0.809016994375D0,  0.0D0,    &2138:   & 0.587785252292,  0.809016994375,  0,    &
2139:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2139:   & 0,  0,  -1.00000000000,    &
2140:   & 0.809016994375D0,  0.587785252292D0,  0.0D0,    &2140:   & 0.809016994375,  0.587785252292,  0,    &
2141:   & -0.587785252292D0,  0.809016994375D0,  0.0D0,    &2141:   & -0.587785252292,  0.809016994375,  0,    &
2142:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2142:   & 0,  0,  -1.00000000000,    &
2143:   & -0.309016994375D0,  0.951056516295D0,  0.0D0,    &2143:   & -0.309016994375,  0.951056516295,  0,    &
2144:   & -0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2144:   & -0.951056516295,  -0.309016994375,  0,    &
2145:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2145:   & 0,  0,  -1.00000000000,    &
2146:   & -1.00000000000D0,  0.0D0,  0.0D0,    &2146:   & -1.00000000000,  0,  0,    &
2147:   & 0.0D0,  -1.00000000000D0,  0.0D0,    &2147:   & 0,  -1.00000000000,  0,    &
2148:   & 0.0D0,  0.0D0,  -1.00000000000D0,    &2148:   & 0,  0,  -1.00000000000,    &
2149:   & -0.309016994375D0,  -0.951056516295D0,  0.0D0,    &2149:   & -0.309016994375,  -0.951056516295,  0,    &
2150:   & 0.951056516295D0,  -0.309016994375D0,  0.0D0,    &2150:   & 0.951056516295,  -0.309016994375,  0,    &
2151:   & 0.0D0,  0.0D0,  -1.00000000000D0 /2151:   & 0,  0,  -1.00000000000 /
2152:   2152:   
2153: IF (GETOPS) THEN2153: IF (GETOPS) THEN
2154:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2154:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2155:    RETURN2155:    RETURN
2156: ENDIF2156: ENDIF
2157:   2157:   
2158: IF (INV.GE.0) THEN2158: IF (INV.GE.0) THEN
2159:    DO J2=1,NLOCAL2159:    DO J2=1,NLOCAL
2160:       J3=3*(J2-1)2160:       J3=3*(J2-1)
2161:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2161:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2175: !2175: !
2176: ! Apply all point group operations of C3 to initial coordinates and store in CSMIMAGES2176: ! Apply all point group operations of C3 to initial coordinates and store in CSMIMAGES
2177: !2177: !
2178: SUBROUTINE CSMC3(X,Y,OPNUM,INV,NLOCAL,GETOPS)2178: SUBROUTINE CSMC3(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2179: USE COMMONS,ONLY : CSMGPINDEX, PTGP2179: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2180: IMPLICIT NONE2180: IMPLICIT NONE
2181: INTEGER OPNUM, J2, J3, INV, NLOCAL2181: INTEGER OPNUM, J2, J3, INV, NLOCAL
2182: DOUBLE PRECISION RMAT(3,3,6), X(3*NLOCAL), Y(3*NLOCAL)2182: DOUBLE PRECISION RMAT(3,3,6), X(3*NLOCAL), Y(3*NLOCAL)
2183: LOGICAL GETOPS2183: LOGICAL GETOPS
2184: DATA RMAT / &2184: DATA RMAT / &
2185:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2185:   & 1.00000000000,  0,  0,    &
2186:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2186:   & 0,  1.00000000000,  0,    &
2187:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2187:   & 0,  0,  1.00000000000,    &
2188:   & -0.500000000000D0,  -0.866025403784D0,  0.0D0,    &2188:   & -0.500000000000,  -0.866025403784,  0,    &
2189:   & 0.866025403784D0,  -0.500000000000D0,  0.0D0,    &2189:   & 0.866025403784,  -0.500000000000,  0,    &
2190:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2190:   & 0,  0,  1.00000000000,    &
2191:   & -0.500000000000D0,  0.866025403784D0,  0.0D0,    &2191:   & -0.500000000000,  0.866025403784,  0,    &
2192:   & -0.866025403784D0,  -0.500000000000D0,  0.0D0,    &2192:   & -0.866025403784,  -0.500000000000,  0,    &
2193:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2193:   & 0,  0,  1.00000000000,    &
2194:   & 1.00000000000D0,  0.0D0,  0.0D0,    &2194:   & 1.00000000000,  0,  0,    &
2195:   & 0.0D0,  1.00000000000D0,  0.0D0,    &2195:   & 0,  1.00000000000,  0,    &
2196:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2196:   & 0,  0,  1.00000000000,    &
2197:   & -0.500000000000D0,  0.866025403784D0,  0.0D0,    &2197:   & -0.500000000000,  0.866025403784,  0,    &
2198:   & -0.866025403784D0,  -0.500000000000D0,  0.0D0,    &2198:   & -0.866025403784,  -0.500000000000,  0,    &
2199:   & 0.0D0,  0.0D0,  1.00000000000D0,    &2199:   & 0,  0,  1.00000000000,    &
2200:   & -0.500000000000D0,  -0.866025403784D0,  0.0D0,    &2200:   & -0.500000000000,  -0.866025403784,  0,    &
2201:   & 0.866025403784D0,  -0.500000000000D0,  0.0D0,    &2201:   & 0.866025403784,  -0.500000000000,  0,    &
2202:   & 0.0D0,  0.0D0,  1.00000000000D0/2202:   & 0,  0,  1.00000000000/
2203: 2203: 
2204: IF (GETOPS) THEN2204: IF (GETOPS) THEN
2205:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2205:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2206:    RETURN2206:    RETURN
2207: ENDIF2207: ENDIF
2208:   2208:   
2209: IF (INV.GE.0) THEN2209: IF (INV.GE.0) THEN
2210:    DO J2=1,NLOCAL2210:    DO J2=1,NLOCAL
2211:       J3=3*(J2-1)2211:       J3=3*(J2-1)
2212:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2212:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2224: 2224: 
2225: END SUBROUTINE CSMC32225: END SUBROUTINE CSMC3
2226: 2226: 
2227: SUBROUTINE CSMC2H(X,Y,OPNUM,INV,NLOCAL,GETOPS)2227: SUBROUTINE CSMC2H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2228: USE COMMONS,ONLY : CSMGPINDEX, PTGP2228: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2229: IMPLICIT NONE2229: IMPLICIT NONE
2230: INTEGER OPNUM, J2, J3, INV, NLOCAL2230: INTEGER OPNUM, J2, J3, INV, NLOCAL
2231: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)2231: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)
2232: LOGICAL GETOPS2232: LOGICAL GETOPS
2233: DATA RMAT / &2233: DATA RMAT / &
2234:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2234:  & 1.00000000000,  0,  0,   & 
2235:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2235:  & 0,  1.00000000000,  0,   & 
2236:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2236:  & 0,  0,  1.00000000000,   & 
2237:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2237:  & -1.00000000000,  0,  0,   & 
2238:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2238:  & 0,  -1.00000000000,  0,   & 
2239:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2239:  & 0,  0,  1.00000000000,   & 
2240:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2240:  & -1.00000000000,  0,  0,   & 
2241:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2241:  & 0,  -1.00000000000,  0,   & 
2242:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2242:  & 0,  0,  -1.00000000000,   & 
2243:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2243:  & 1.00000000000,  0,  0,   & 
2244:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2244:  & 0,  1.00000000000,  0,   & 
2245:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2245:  & 0,  0,  -1.00000000000,   & 
2246:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2246:  & 1.00000000000,  0,  0,   & 
2247:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2247:  & 0,  1.00000000000,  0,   & 
2248:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2248:  & 0,  0,  1.00000000000,   & 
2249:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2249:  & -1.00000000000,  0,  0,   & 
2250:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2250:  & 0,  -1.00000000000,  0,   & 
2251:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2251:  & 0,  0,  1.00000000000,   & 
2252:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2252:  & -1.00000000000,  0,  0,   & 
2253:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2253:  & 0,  -1.00000000000,  0,   & 
2254:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2254:  & 0,  0,  -1.00000000000,   & 
2255:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2255:  & 1.00000000000,  0,  0,   & 
2256:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2256:  & 0,  1.00000000000,  0,   & 
2257:  & 0.0D0,  0.0D0,  -1.00000000000D0/2257:  & 0,  0,  -1.00000000000/
2258: 2258: 
2259: IF (GETOPS) THEN2259: IF (GETOPS) THEN
2260:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2260:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2261:    RETURN2261:    RETURN
2262: ENDIF2262: ENDIF
2263:   2263:   
2264: IF (INV.GE.0) THEN2264: IF (INV.GE.0) THEN
2265:    DO J2=1,NLOCAL2265:    DO J2=1,NLOCAL
2266:       J3=3*(J2-1)2266:       J3=3*(J2-1)
2267:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2267:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2279: 2279: 
2280: END SUBROUTINE CSMC2H2280: END SUBROUTINE CSMC2H
2281: 2281: 
2282: SUBROUTINE CSMC2(X,Y,OPNUM,INV,NLOCAL,GETOPS)2282: SUBROUTINE CSMC2(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2283: USE COMMONS,ONLY : CSMGPINDEX, PTGP2283: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2284: IMPLICIT NONE2284: IMPLICIT NONE
2285: INTEGER OPNUM, J2, J3, INV, NLOCAL2285: INTEGER OPNUM, J2, J3, INV, NLOCAL
2286: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)2286: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)
2287: LOGICAL GETOPS2287: LOGICAL GETOPS
2288: DATA RMAT / &2288: DATA RMAT / &
2289:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2289:  & 1.00000000000,  0,  0,   & 
2290:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2290:  & 0,  1.00000000000,  0,   & 
2291:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2291:  & 0,  0,  1.00000000000,   & 
2292:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2292:  & -1.00000000000,  0,  0,   & 
2293:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2293:  & 0,  -1.00000000000,  0,   & 
2294:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2294:  & 0,  0,  1.00000000000,   & 
2295:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2295:  & 1.00000000000,  0,  0,   & 
2296:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2296:  & 0,  1.00000000000,  0,   & 
2297:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2297:  & 0,  0,  1.00000000000,   & 
2298:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2298:  & -1.00000000000,  0,  0,   & 
2299:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2299:  & 0,  -1.00000000000,  0,   & 
2300:  & 0.0D0,  0.0D0,  1.00000000000D0/  2300:  & 0,  0,  1.00000000000/  
2301: 2301: 
2302: IF (GETOPS) THEN2302: IF (GETOPS) THEN
2303:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2303:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2304:    RETURN2304:    RETURN
2305: ENDIF2305: ENDIF
2306:   2306:   
2307: IF (INV.GE.0) THEN2307: IF (INV.GE.0) THEN
2308:    DO J2=1,NLOCAL2308:    DO J2=1,NLOCAL
2309:       J3=3*(J2-1)2309:       J3=3*(J2-1)
2310:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2310:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2322: 2322: 
2323: END SUBROUTINE CSMC22323: END SUBROUTINE CSMC2
2324: 2324: 
2325: SUBROUTINE CSMC2V(X,Y,OPNUM,INV,NLOCAL,GETOPS)2325: SUBROUTINE CSMC2V(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2326: USE COMMONS,ONLY : CSMGPINDEX, PTGP2326: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2327: IMPLICIT NONE2327: IMPLICIT NONE
2328: INTEGER OPNUM, J2, J3, INV, NLOCAL2328: INTEGER OPNUM, J2, J3, INV, NLOCAL
2329: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)2329: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)
2330: LOGICAL GETOPS2330: LOGICAL GETOPS
2331: DATA RMAT / &2331: DATA RMAT / &
2332:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2332:  & 1.00000000000,  0,  0,   & 
2333:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2333:  & 0,  1.00000000000,  0,   & 
2334:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2334:  & 0,  0,  1.00000000000,   & 
2335:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2335:  & -1.00000000000,  0,  0,   & 
2336:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2336:  & 0,  -1.00000000000,  0,   & 
2337:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2337:  & 0,  0,  1.00000000000,   & 
2338:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2338:  & 1.00000000000,  0,  0,   & 
2339:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2339:  & 0,  -1.00000000000,  0,   & 
2340:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2340:  & 0,  0,  1.00000000000,   & 
2341:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2341:  & -1.00000000000,  0,  0,   & 
2342:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2342:  & 0,  1.00000000000,  0,   & 
2343:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2343:  & 0,  0,  1.00000000000,   & 
2344:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2344:  & 1.00000000000,  0,  0,   & 
2345:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2345:  & 0,  1.00000000000,  0,   & 
2346:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2346:  & 0,  0,  1.00000000000,   & 
2347:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2347:  & -1.00000000000,  0,  0,   & 
2348:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2348:  & 0,  -1.00000000000,  0,   & 
2349:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2349:  & 0,  0,  1.00000000000,   & 
2350:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2350:  & 1.00000000000,  0,  0,   & 
2351:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2351:  & 0,  -1.00000000000,  0,   & 
2352:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2352:  & 0,  0,  1.00000000000,   & 
2353:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2353:  & -1.00000000000,  0,  0,   & 
2354:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2354:  & 0,  1.00000000000,  0,   & 
2355:  & 0.0D0,  0.0D0,  1.00000000000D0/2355:  & 0,  0,  1.00000000000/
2356: 2356: 
2357: IF (GETOPS) THEN2357: IF (GETOPS) THEN
2358:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2358:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2359:    RETURN2359:    RETURN
2360: ENDIF2360: ENDIF
2361:   2361:   
2362: IF (INV.GE.0) THEN2362: IF (INV.GE.0) THEN
2363:    DO J2=1,NLOCAL2363:    DO J2=1,NLOCAL
2364:       J3=3*(J2-1)2364:       J3=3*(J2-1)
2365:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2365:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2377: 2377: 
2378: END SUBROUTINE CSMC2V2378: END SUBROUTINE CSMC2V
2379: 2379: 
2380: SUBROUTINE CSMC3H(X,Y,OPNUM,INV,NLOCAL,GETOPS)2380: SUBROUTINE CSMC3H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2381: USE COMMONS,ONLY : CSMGPINDEX, PTGP2381: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2382: IMPLICIT NONE2382: IMPLICIT NONE
2383: INTEGER OPNUM, J2, J3, INV, NLOCAL2383: INTEGER OPNUM, J2, J3, INV, NLOCAL
2384: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)2384: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)
2385: LOGICAL GETOPS2385: LOGICAL GETOPS
2386: DATA RMAT / &2386: DATA RMAT / &
2387:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2387:  & 1.00000000000,  0,  0,   & 
2388:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2388:  & 0,  1.00000000000,  0,   & 
2389:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2389:  & 0,  0,  1.00000000000,   & 
2390:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2390:  & -0.500000000000,  -0.866025403784,  0,   & 
2391:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2391:  & 0.866025403784,  -0.500000000000,  0,   & 
2392:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2392:  & 0,  0,  1.00000000000,   & 
2393:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2393:  & -1.00000000000,  0,  0,   & 
2394:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2394:  & 0,  -1.00000000000,  0,   & 
2395:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2395:  & 0,  0,  -1.00000000000,   & 
2396:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2396:  & -0.500000000000,  0.866025403784,  0,   & 
2397:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2397:  & -0.866025403784,  -0.500000000000,  0,   & 
2398:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2398:  & 0,  0,  1.00000000000,   & 
2399:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2399:  & 0.500000000000,  0.866025403784,  0,   & 
2400:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2400:  & -0.866025403784,  0.500000000000,  0,   & 
2401:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2401:  & 0,  0,  -1.00000000000,   & 
2402:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2402:  & 0.500000000000,  -0.866025403784,  0,   & 
2403:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2403:  & 0.866025403784,  0.500000000000,  0,   & 
2404:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2404:  & 0,  0,  -1.00000000000,   & 
2405:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2405:  & 1.00000000000,  0,  0,   & 
2406:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2406:  & 0,  1.00000000000,  0,   & 
2407:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2407:  & 0,  0,  1.00000000000,   & 
2408:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2408:  & -0.500000000000,  0.866025403784,  0,   & 
2409:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2409:  & -0.866025403784,  -0.500000000000,  0,   & 
2410:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2410:  & 0,  0,  1.00000000000,   & 
2411:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2411:  & -1.00000000000,  0,  0,   & 
2412:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2412:  & 0,  -1.00000000000,  0,   & 
2413:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2413:  & 0,  0,  -1.00000000000,   & 
2414:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2414:  & -0.500000000000,  -0.866025403784,  0,   & 
2415:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2415:  & 0.866025403784,  -0.500000000000,  0,   & 
2416:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2416:  & 0,  0,  1.00000000000,   & 
2417:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2417:  & 0.500000000000,  -0.866025403784,  0,   & 
2418:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2418:  & 0.866025403784,  0.500000000000,  0,   & 
2419:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2419:  & 0,  0,  -1.00000000000,   & 
2420:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2420:  & 0.500000000000,  0.866025403784,  0,   & 
2421:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2421:  & -0.866025403784,  0.500000000000,  0,   & 
2422:  & 0.0D0,  0.0D0,  -1.00000000000D0/2422:  & 0,  0,  -1.00000000000/
2423: 2423: 
2424: IF (GETOPS) THEN2424: IF (GETOPS) THEN
2425:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2425:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2426:    RETURN2426:    RETURN
2427: ENDIF2427: ENDIF
2428:   2428:   
2429: IF (INV.GE.0) THEN2429: IF (INV.GE.0) THEN
2430:    DO J2=1,NLOCAL2430:    DO J2=1,NLOCAL
2431:       J3=3*(J2-1)2431:       J3=3*(J2-1)
2432:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2432:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2444: 2444: 
2445: END SUBROUTINE CSMC3H2445: END SUBROUTINE CSMC3H
2446: 2446: 
2447: SUBROUTINE CSMC3V(X,Y,OPNUM,INV,NLOCAL,GETOPS)2447: SUBROUTINE CSMC3V(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2448: USE COMMONS,ONLY : CSMGPINDEX, PTGP2448: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2449: IMPLICIT NONE2449: IMPLICIT NONE
2450: INTEGER OPNUM, J2, J3, INV, NLOCAL2450: INTEGER OPNUM, J2, J3, INV, NLOCAL
2451: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)2451: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)
2452: LOGICAL GETOPS2452: LOGICAL GETOPS
2453:  DATA RMAT / & 2453:  DATA RMAT / & 
2454:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2454:  & 1.00000000000,  0,  0,   & 
2455:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2455:  & 0,  1.00000000000,  0,   & 
2456:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2456:  & 0,  0,  1.00000000000,   & 
2457:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2457:  & -0.500000000000,  -0.866025403784,  0,   & 
2458:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2458:  & 0.866025403784,  -0.500000000000,  0,   & 
2459:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2459:  & 0,  0,  1.00000000000,   & 
2460:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2460:  & 1.00000000000,  0,  0,   & 
2461:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2461:  & 0,  -1.00000000000,  0,   & 
2462:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2462:  & 0,  0,  1.00000000000,   & 
2463:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2463:  & -0.500000000000,  0.866025403784,  0,   & 
2464:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2464:  & -0.866025403784,  -0.500000000000,  0,   & 
2465:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2465:  & 0,  0,  1.00000000000,   & 
2466:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2466:  & -0.500000000000,  0.866025403784,  0,   & 
2467:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2467:  & 0.866025403784,  0.500000000000,  0,   & 
2468:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2468:  & 0,  0,  1.00000000000,   & 
2469:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2469:  & -0.500000000000,  -0.866025403784,  0,   & 
2470:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2470:  & -0.866025403784,  0.500000000000,  0,   & 
2471:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2471:  & 0,  0,  1.00000000000,   & 
2472:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2472:  & 1.00000000000,  0,  0,   & 
2473:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2473:  & 0,  1.00000000000,  0,   & 
2474:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2474:  & 0,  0,  1.00000000000,   & 
2475:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2475:  & -0.500000000000,  0.866025403784,  0,   & 
2476:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2476:  & -0.866025403784,  -0.500000000000,  0,   & 
2477:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2477:  & 0,  0,  1.00000000000,   & 
2478:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2478:  & 1.00000000000,  0,  0,   & 
2479:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2479:  & 0,  -1.00000000000,  0,   & 
2480:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2480:  & 0,  0,  1.00000000000,   & 
2481:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2481:  & -0.500000000000,  -0.866025403784,  0,   & 
2482:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2482:  & 0.866025403784,  -0.500000000000,  0,   & 
2483:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2483:  & 0,  0,  1.00000000000,   & 
2484:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2484:  & -0.500000000000,  0.866025403784,  0,   & 
2485:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2485:  & 0.866025403784,  0.500000000000,  0,   & 
2486:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2486:  & 0,  0,  1.00000000000,   & 
2487:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2487:  & -0.500000000000,  -0.866025403784,  0,   & 
2488:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2488:  & -0.866025403784,  0.500000000000,  0,   & 
2489:  & 0.0D0,  0.0D0,  1.00000000000D0/2489:  & 0,  0,  1.00000000000/
2490: 2490: 
2491: IF (GETOPS) THEN2491: IF (GETOPS) THEN
2492:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2492:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2493:    RETURN2493:    RETURN
2494: ENDIF2494: ENDIF
2495:   2495:   
2496: IF (INV.GE.0) THEN2496: IF (INV.GE.0) THEN
2497:    DO J2=1,NLOCAL2497:    DO J2=1,NLOCAL
2498:       J3=3*(J2-1)2498:       J3=3*(J2-1)
2499:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2499:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2511: 2511: 
2512: END SUBROUTINE CSMC3V2512: END SUBROUTINE CSMC3V
2513: 2513: 
2514: SUBROUTINE CSMC4H(X,Y,OPNUM,INV,NLOCAL,GETOPS)2514: SUBROUTINE CSMC4H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2515: USE COMMONS,ONLY : CSMGPINDEX, PTGP2515: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2516: IMPLICIT NONE2516: IMPLICIT NONE
2517: INTEGER OPNUM, J2, J3, INV, NLOCAL2517: INTEGER OPNUM, J2, J3, INV, NLOCAL
2518: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)2518: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)
2519: LOGICAL GETOPS2519: LOGICAL GETOPS
2520: DATA RMAT / &2520: DATA RMAT / &
2521:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2521:  & 1.00000000000,  0,  0,   & 
2522:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2522:  & 0,  1.00000000000,  0,   & 
2523:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2523:  & 0,  0,  1.00000000000,   & 
2524:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2524:  & 0,  -1.00000000000,  0,   & 
2525:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2525:  & 1.00000000000,  0,  0,   & 
2526:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2526:  & 0,  0,  1.00000000000,   & 
2527:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2527:  & -1.00000000000,  0,  0,   & 
2528:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2528:  & 0,  -1.00000000000,  0,   & 
2529:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2529:  & 0,  0,  -1.00000000000,   & 
2530:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2530:  & -1.00000000000,  0,  0,   & 
2531:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2531:  & 0,  -1.00000000000,  0,   & 
2532:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2532:  & 0,  0,  1.00000000000,   & 
2533:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2533:  & 0,  1.00000000000,  0,   & 
2534:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2534:  & -1.00000000000,  0,  0,   & 
2535:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2535:  & 0,  0,  -1.00000000000,   & 
2536:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2536:  & 0,  1.00000000000,  0,   & 
2537:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2537:  & -1.00000000000,  0,  0,   & 
2538:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2538:  & 0,  0,  1.00000000000,   & 
2539:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2539:  & 1.00000000000,  0,  0,   & 
2540:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2540:  & 0,  1.00000000000,  0,   & 
2541:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2541:  & 0,  0,  -1.00000000000,   & 
2542:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2542:  & 0,  -1.00000000000,  0,   & 
2543:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2543:  & 1.00000000000,  0,  0,   & 
2544:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2544:  & 0,  0,  -1.00000000000,   & 
2545:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2545:  & 1.00000000000,  0,  0,   & 
2546:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2546:  & 0,  1.00000000000,  0,   & 
2547:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2547:  & 0,  0,  1.00000000000,   & 
2548:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2548:  & 0,  1.00000000000,  0,   & 
2549:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2549:  & -1.00000000000,  0,  0,   & 
2550:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2550:  & 0,  0,  1.00000000000,   & 
2551:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2551:  & -1.00000000000,  0,  0,   & 
2552:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2552:  & 0,  -1.00000000000,  0,   & 
2553:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2553:  & 0,  0,  -1.00000000000,   & 
2554:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2554:  & -1.00000000000,  0,  0,   & 
2555:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2555:  & 0,  -1.00000000000,  0,   & 
2556:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2556:  & 0,  0,  1.00000000000,   & 
2557:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2557:  & 0,  -1.00000000000,  0,   & 
2558:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2558:  & 1.00000000000,  0,  0,   & 
2559:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2559:  & 0,  0,  -1.00000000000,   & 
2560:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2560:  & 0,  -1.00000000000,  0,   & 
2561:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2561:  & 1.00000000000,  0,  0,   & 
2562:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2562:  & 0,  0,  1.00000000000,   & 
2563:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2563:  & 1.00000000000,  0,  0,   & 
2564:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2564:  & 0,  1.00000000000,  0,   & 
2565:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2565:  & 0,  0,  -1.00000000000,   & 
2566:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2566:  & 0,  1.00000000000,  0,   & 
2567:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2567:  & -1.00000000000,  0,  0,   & 
2568:  & 0.0D0,  0.0D0,  -1.00000000000D0/2568:  & 0,  0,  -1.00000000000/
2569: 2569: 
2570: IF (GETOPS) THEN2570: IF (GETOPS) THEN
2571:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2571:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2572:    RETURN2572:    RETURN
2573: ENDIF2573: ENDIF
2574:   2574:   
2575: IF (INV.GE.0) THEN2575: IF (INV.GE.0) THEN
2576:    DO J2=1,NLOCAL2576:    DO J2=1,NLOCAL
2577:       J3=3*(J2-1)2577:       J3=3*(J2-1)
2578:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2578:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2590: 2590: 
2591: END SUBROUTINE CSMC4H2591: END SUBROUTINE CSMC4H
2592: 2592: 
2593: SUBROUTINE CSMC4(X,Y,OPNUM,INV,NLOCAL,GETOPS)2593: SUBROUTINE CSMC4(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2594: USE COMMONS,ONLY : CSMGPINDEX, PTGP2594: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2595: IMPLICIT NONE2595: IMPLICIT NONE
2596: INTEGER OPNUM, J2, J3, INV, NLOCAL2596: INTEGER OPNUM, J2, J3, INV, NLOCAL
2597: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)2597: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)
2598: LOGICAL GETOPS2598: LOGICAL GETOPS
2599: DATA RMAT / &2599: DATA RMAT / &
2600:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2600:  & 1.00000000000,  0,  0,   & 
2601:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2601:  & 0,  1.00000000000,  0,   & 
2602:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2602:  & 0,  0,  1.00000000000,   & 
2603:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2603:  & 0,  -1.00000000000,  0,   & 
2604:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2604:  & 1.00000000000,  0,  0,   & 
2605:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2605:  & 0,  0,  1.00000000000,   & 
2606:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2606:  & -1.00000000000,  0,  0,   & 
2607:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2607:  & 0,  -1.00000000000,  0,   & 
2608:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2608:  & 0,  0,  1.00000000000,   & 
2609:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2609:  & 0,  1.00000000000,  0,   & 
2610:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2610:  & -1.00000000000,  0,  0,   & 
2611:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2611:  & 0,  0,  1.00000000000,   & 
2612:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2612:  & 1.00000000000,  0,  0,   & 
2613:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2613:  & 0,  1.00000000000,  0,   & 
2614:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2614:  & 0,  0,  1.00000000000,   & 
2615:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2615:  & 0,  1.00000000000,  0,   & 
2616:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2616:  & -1.00000000000,  0,  0,   & 
2617:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2617:  & 0,  0,  1.00000000000,   & 
2618:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2618:  & -1.00000000000,  0,  0,   & 
2619:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2619:  & 0,  -1.00000000000,  0,   & 
2620:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2620:  & 0,  0,  1.00000000000,   & 
2621:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2621:  & 0,  -1.00000000000,  0,   & 
2622:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2622:  & 1.00000000000,  0,  0,   & 
2623:  & 0.0D0,  0.0D0,  1.00000000000D0/2623:  & 0,  0,  1.00000000000/
2624: 2624: 
2625: IF (GETOPS) THEN2625: IF (GETOPS) THEN
2626:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2626:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2627:    RETURN2627:    RETURN
2628: ENDIF2628: ENDIF
2629:   2629:   
2630: IF (INV.GE.0) THEN2630: IF (INV.GE.0) THEN
2631:    DO J2=1,NLOCAL2631:    DO J2=1,NLOCAL
2632:       J3=3*(J2-1)2632:       J3=3*(J2-1)
2633:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2633:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2645: 2645: 
2646: END SUBROUTINE CSMC42646: END SUBROUTINE CSMC4
2647: 2647: 
2648: SUBROUTINE CSMC4V(X,Y,OPNUM,INV,NLOCAL,GETOPS)2648: SUBROUTINE CSMC4V(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2649: USE COMMONS,ONLY : CSMGPINDEX, PTGP2649: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2650: IMPLICIT NONE2650: IMPLICIT NONE
2651: INTEGER OPNUM, J2, J3, INV, NLOCAL2651: INTEGER OPNUM, J2, J3, INV, NLOCAL
2652: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)2652: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)
2653: LOGICAL GETOPS2653: LOGICAL GETOPS
2654: DATA RMAT / &2654: DATA RMAT / &
2655:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2655:  & 1.00000000000,  0,  0,   & 
2656:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2656:  & 0,  1.00000000000,  0,   & 
2657:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2657:  & 0,  0,  1.00000000000,   & 
2658:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2658:  & 0,  -1.00000000000,  0,   & 
2659:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2659:  & 1.00000000000,  0,  0,   & 
2660:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2660:  & 0,  0,  1.00000000000,   & 
2661:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2661:  & 1.00000000000,  0,  0,   & 
2662:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2662:  & 0,  -1.00000000000,  0,   & 
2663:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2663:  & 0,  0,  1.00000000000,   & 
2664:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2664:  & -1.00000000000,  0,  0,   & 
2665:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2665:  & 0,  -1.00000000000,  0,   & 
2666:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2666:  & 0,  0,  1.00000000000,   & 
2667:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2667:  & 0,  1.00000000000,  0,   & 
2668:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2668:  & 1.00000000000,  0,  0,   & 
2669:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2669:  & 0,  0,  1.00000000000,   & 
2670:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2670:  & 0,  1.00000000000,  0,   & 
2671:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2671:  & -1.00000000000,  0,  0,   & 
2672:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2672:  & 0,  0,  1.00000000000,   & 
2673:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2673:  & -1.00000000000,  0,  0,   & 
2674:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2674:  & 0,  1.00000000000,  0,   & 
2675:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2675:  & 0,  0,  1.00000000000,   & 
2676:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2676:  & 0,  -1.00000000000,  0,   & 
2677:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2677:  & -1.00000000000,  0,  0,   & 
2678:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2678:  & 0,  0,  1.00000000000,   & 
2679:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2679:  & 1.00000000000,  0,  0,   & 
2680:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2680:  & 0,  1.00000000000,  0,   & 
2681:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2681:  & 0,  0,  1.00000000000,   & 
2682:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2682:  & 0,  1.00000000000,  0,   & 
2683:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2683:  & -1.00000000000,  0,  0,   & 
2684:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2684:  & 0,  0,  1.00000000000,   & 
2685:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2685:  & 1.00000000000,  0,  0,   & 
2686:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2686:  & 0,  -1.00000000000,  0,   & 
2687:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2687:  & 0,  0,  1.00000000000,   & 
2688:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2688:  & -1.00000000000,  0,  0,   & 
2689:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2689:  & 0,  -1.00000000000,  0,   & 
2690:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2690:  & 0,  0,  1.00000000000,   & 
2691:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2691:  & 0,  1.00000000000,  0,   & 
2692:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2692:  & 1.00000000000,  0,  0,   & 
2693:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2693:  & 0,  0,  1.00000000000,   & 
2694:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2694:  & 0,  -1.00000000000,  0,   & 
2695:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2695:  & 1.00000000000,  0,  0,   & 
2696:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2696:  & 0,  0,  1.00000000000,   & 
2697:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2697:  & -1.00000000000,  0,  0,   & 
2698:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2698:  & 0,  1.00000000000,  0,   & 
2699:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2699:  & 0,  0,  1.00000000000,   & 
2700:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2700:  & 0,  -1.00000000000,  0,   & 
2701:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2701:  & -1.00000000000,  0,  0,   & 
2702:  & 0.0D0,  0.0D0,  1.00000000000D0/2702:  & 0,  0,  1.00000000000/
2703: 2703: 
2704: IF (GETOPS) THEN2704: IF (GETOPS) THEN
2705:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2705:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2706:    RETURN2706:    RETURN
2707: ENDIF2707: ENDIF
2708:   2708:   
2709: IF (INV.GE.0) THEN2709: IF (INV.GE.0) THEN
2710:    DO J2=1,NLOCAL2710:    DO J2=1,NLOCAL
2711:       J3=3*(J2-1)2711:       J3=3*(J2-1)
2712:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2712:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2724: 2724: 
2725: END SUBROUTINE CSMC4V2725: END SUBROUTINE CSMC4V
2726: 2726: 
2727: SUBROUTINE CSMC6H(X,Y,OPNUM,INV,NLOCAL,GETOPS)2727: SUBROUTINE CSMC6H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2728: USE COMMONS,ONLY : CSMGPINDEX, PTGP2728: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2729: IMPLICIT NONE2729: IMPLICIT NONE
2730: INTEGER OPNUM, J2, J3, INV, NLOCAL2730: INTEGER OPNUM, J2, J3, INV, NLOCAL
2731: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)2731: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)
2732: LOGICAL GETOPS2732: LOGICAL GETOPS
2733: DATA RMAT / &2733: DATA RMAT / &
2734:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2734:  & 1.00000000000,  0,  0,   & 
2735:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2735:  & 0,  1.00000000000,  0,   & 
2736:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2736:  & 0,  0,  1.00000000000,   & 
2737:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2737:  & 0.500000000000,  -0.866025403784,  0,   & 
2738:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2738:  & 0.866025403784,  0.500000000000,  0,   & 
2739:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2739:  & 0,  0,  1.00000000000,   & 
2740:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2740:  & 1.00000000000,  0,  0,   & 
2741:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2741:  & 0,  1.00000000000,  0,   & 
2742:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2742:  & 0,  0,  -1.00000000000,   & 
2743:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2743:  & -0.500000000000,  -0.866025403784,  0,   & 
2744:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2744:  & 0.866025403784,  -0.500000000000,  0,   & 
2745:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2745:  & 0,  0,  1.00000000000,   & 
2746:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2746:  & 0.500000000000,  -0.866025403784,  0,   & 
2747:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2747:  & 0.866025403784,  0.500000000000,  0,   & 
2748:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2748:  & 0,  0,  -1.00000000000,   & 
2749:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2749:  & -1.00000000000,  0,  0,   & 
2750:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2750:  & 0,  -1.00000000000,  0,   & 
2751:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2751:  & 0,  0,  1.00000000000,   & 
2752:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2752:  & -0.500000000000,  -0.866025403784,  0,   & 
2753:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2753:  & 0.866025403784,  -0.500000000000,  0,   & 
2754:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2754:  & 0,  0,  -1.00000000000,   & 
2755:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2755:  & -0.500000000000,  0.866025403784,  0,   & 
2756:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2756:  & -0.866025403784,  -0.500000000000,  0,   & 
2757:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2757:  & 0,  0,  1.00000000000,   & 
2758:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2758:  & -1.00000000000,  0,  0,   & 
2759:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2759:  & 0,  -1.00000000000,  0,   & 
2760:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2760:  & 0,  0,  -1.00000000000,   & 
2761:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2761:  & 0.500000000000,  0.866025403784,  0,   & 
2762:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2762:  & -0.866025403784,  0.500000000000,  0,   & 
2763:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2763:  & 0,  0,  1.00000000000,   & 
2764:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2764:  & -0.500000000000,  0.866025403784,  0,   & 
2765:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2765:  & -0.866025403784,  -0.500000000000,  0,   & 
2766:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2766:  & 0,  0,  -1.00000000000,   & 
2767:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2767:  & 0.500000000000,  0.866025403784,  0,   & 
2768:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2768:  & -0.866025403784,  0.500000000000,  0,   & 
2769:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2769:  & 0,  0,  -1.00000000000,   & 
2770:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2770:  & 1.00000000000,  0,  0,   & 
2771:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2771:  & 0,  1.00000000000,  0,   & 
2772:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2772:  & 0,  0,  1.00000000000,   & 
2773:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2773:  & 0.500000000000,  0.866025403784,  0,   & 
2774:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2774:  & -0.866025403784,  0.500000000000,  0,   & 
2775:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2775:  & 0,  0,  1.00000000000,   & 
2776:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2776:  & 1.00000000000,  0,  0,   & 
2777:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2777:  & 0,  1.00000000000,  0,   & 
2778:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2778:  & 0,  0,  -1.00000000000,   & 
2779:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2779:  & -0.500000000000,  0.866025403784,  0,   & 
2780:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2780:  & -0.866025403784,  -0.500000000000,  0,   & 
2781:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2781:  & 0,  0,  1.00000000000,   & 
2782:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2782:  & 0.500000000000,  0.866025403784,  0,   & 
2783:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2783:  & -0.866025403784,  0.500000000000,  0,   & 
2784:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2784:  & 0,  0,  -1.00000000000,   & 
2785:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2785:  & -1.00000000000,  0,  0,   & 
2786:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2786:  & 0,  -1.00000000000,  0,   & 
2787:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2787:  & 0,  0,  1.00000000000,   & 
2788:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2788:  & -0.500000000000,  0.866025403784,  0,   & 
2789:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2789:  & -0.866025403784,  -0.500000000000,  0,   & 
2790:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2790:  & 0,  0,  -1.00000000000,   & 
2791:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2791:  & -0.500000000000,  -0.866025403784,  0,   & 
2792:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2792:  & 0.866025403784,  -0.500000000000,  0,   & 
2793:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2793:  & 0,  0,  1.00000000000,   & 
2794:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2794:  & -1.00000000000,  0,  0,   & 
2795:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2795:  & 0,  -1.00000000000,  0,   & 
2796:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2796:  & 0,  0,  -1.00000000000,   & 
2797:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2797:  & 0.500000000000,  -0.866025403784,  0,   & 
2798:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2798:  & 0.866025403784,  0.500000000000,  0,   & 
2799:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2799:  & 0,  0,  1.00000000000,   & 
2800:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2800:  & -0.500000000000,  -0.866025403784,  0,   & 
2801:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2801:  & 0.866025403784,  -0.500000000000,  0,   & 
2802:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 2802:  & 0,  0,  -1.00000000000,   & 
2803:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2803:  & 0.500000000000,  -0.866025403784,  0,   & 
2804:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2804:  & 0.866025403784,  0.500000000000,  0,   & 
2805:  & 0.0D0,  0.0D0,  -1.00000000000D0/2805:  & 0,  0,  -1.00000000000/
2806: 2806: 
2807: IF (GETOPS) THEN2807: IF (GETOPS) THEN
2808:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2808:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2809:    RETURN2809:    RETURN
2810: ENDIF2810: ENDIF
2811:   2811:   
2812: IF (INV.GE.0) THEN2812: IF (INV.GE.0) THEN
2813:    DO J2=1,NLOCAL2813:    DO J2=1,NLOCAL
2814:       J3=3*(J2-1)2814:       J3=3*(J2-1)
2815:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2815:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2827: 2827: 
2828: END SUBROUTINE CSMC6H2828: END SUBROUTINE CSMC6H
2829: 2829: 
2830: SUBROUTINE CSMC6(X,Y,OPNUM,INV,NLOCAL,GETOPS)2830: SUBROUTINE CSMC6(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2831: USE COMMONS,ONLY : CSMGPINDEX, PTGP2831: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2832: IMPLICIT NONE2832: IMPLICIT NONE
2833: INTEGER OPNUM, J2, J3, INV, NLOCAL2833: INTEGER OPNUM, J2, J3, INV, NLOCAL
2834: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)2834: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)
2835: LOGICAL GETOPS2835: LOGICAL GETOPS
2836: DATA RMAT / &2836: DATA RMAT / &
2837:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2837:  & 1.00000000000,  0,  0,   & 
2838:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2838:  & 0,  1.00000000000,  0,   & 
2839:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2839:  & 0,  0,  1.00000000000,   & 
2840:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2840:  & 0.500000000000,  -0.866025403784,  0,   & 
2841:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2841:  & 0.866025403784,  0.500000000000,  0,   & 
2842:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2842:  & 0,  0,  1.00000000000,   & 
2843:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2843:  & -0.500000000000,  -0.866025403784,  0,   & 
2844:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2844:  & 0.866025403784,  -0.500000000000,  0,   & 
2845:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2845:  & 0,  0,  1.00000000000,   & 
2846:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2846:  & -1.00000000000,  0,  0,   & 
2847:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2847:  & 0,  -1.00000000000,  0,   & 
2848:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2848:  & 0,  0,  1.00000000000,   & 
2849:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2849:  & -0.500000000000,  0.866025403784,  0,   & 
2850:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2850:  & -0.866025403784,  -0.500000000000,  0,   & 
2851:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2851:  & 0,  0,  1.00000000000,   & 
2852:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2852:  & 0.500000000000,  0.866025403784,  0,   & 
2853:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2853:  & -0.866025403784,  0.500000000000,  0,   & 
2854:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2854:  & 0,  0,  1.00000000000,   & 
2855:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2855:  & 1.00000000000,  0,  0,   & 
2856:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2856:  & 0,  1.00000000000,  0,   & 
2857:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2857:  & 0,  0,  1.00000000000,   & 
2858:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2858:  & 0.500000000000,  0.866025403784,  0,   & 
2859:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2859:  & -0.866025403784,  0.500000000000,  0,   & 
2860:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2860:  & 0,  0,  1.00000000000,   & 
2861:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2861:  & -0.500000000000,  0.866025403784,  0,   & 
2862:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2862:  & -0.866025403784,  -0.500000000000,  0,   & 
2863:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2863:  & 0,  0,  1.00000000000,   & 
2864:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2864:  & -1.00000000000,  0,  0,   & 
2865:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2865:  & 0,  -1.00000000000,  0,   & 
2866:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2866:  & 0,  0,  1.00000000000,   & 
2867:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2867:  & -0.500000000000,  -0.866025403784,  0,   & 
2868:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2868:  & 0.866025403784,  -0.500000000000,  0,   & 
2869:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2869:  & 0,  0,  1.00000000000,   & 
2870:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2870:  & 0.500000000000,  -0.866025403784,  0,   & 
2871:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2871:  & 0.866025403784,  0.500000000000,  0,   & 
2872:  & 0.0D0,  0.0D0,  1.00000000000D0/2872:  & 0,  0,  1.00000000000/
2873: 2873: 
2874: IF (GETOPS) THEN2874: IF (GETOPS) THEN
2875:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2875:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2876:    RETURN2876:    RETURN
2877: ENDIF2877: ENDIF
2878:   2878:   
2879: IF (INV.GE.0) THEN2879: IF (INV.GE.0) THEN
2880:    DO J2=1,NLOCAL2880:    DO J2=1,NLOCAL
2881:       J3=3*(J2-1)2881:       J3=3*(J2-1)
2882:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2882:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2894: 2894: 
2895: END SUBROUTINE CSMC62895: END SUBROUTINE CSMC6
2896: 2896: 
2897: SUBROUTINE CSMC6V(X,Y,OPNUM,INV,NLOCAL,GETOPS)2897: SUBROUTINE CSMC6V(X,Y,OPNUM,INV,NLOCAL,GETOPS)
2898: USE COMMONS,ONLY : CSMGPINDEX, PTGP2898: USE COMMONS,ONLY : CSMGPINDEX, PTGP
2899: IMPLICIT NONE2899: IMPLICIT NONE
2900: INTEGER OPNUM, J2, J3, INV, NLOCAL2900: INTEGER OPNUM, J2, J3, INV, NLOCAL
2901: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)2901: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)
2902: LOGICAL GETOPS2902: LOGICAL GETOPS
2903: DATA RMAT / &2903: DATA RMAT / &
2904:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2904:  & 1.00000000000,  0,  0,   & 
2905:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2905:  & 0,  1.00000000000,  0,   & 
2906:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2906:  & 0,  0,  1.00000000000,   & 
2907:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2907:  & 0.500000000000,  -0.866025403784,  0,   & 
2908:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2908:  & 0.866025403784,  0.500000000000,  0,   & 
2909:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2909:  & 0,  0,  1.00000000000,   & 
2910:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2910:  & 1.00000000000,  0,  0,   & 
2911:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2911:  & 0,  -1.00000000000,  0,   & 
2912:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2912:  & 0,  0,  1.00000000000,   & 
2913:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2913:  & -0.500000000000,  -0.866025403784,  0,   & 
2914:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2914:  & 0.866025403784,  -0.500000000000,  0,   & 
2915:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2915:  & 0,  0,  1.00000000000,   & 
2916:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2916:  & 0.500000000000,  0.866025403784,  0,   & 
2917:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2917:  & 0.866025403784,  -0.500000000000,  0,   & 
2918:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2918:  & 0,  0,  1.00000000000,   & 
2919:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2919:  & -1.00000000000,  0,  0,   & 
2920:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2920:  & 0,  -1.00000000000,  0,   & 
2921:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2921:  & 0,  0,  1.00000000000,   & 
2922:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2922:  & -0.500000000000,  0.866025403784,  0,   & 
2923:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2923:  & 0.866025403784,  0.500000000000,  0,   & 
2924:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2924:  & 0,  0,  1.00000000000,   & 
2925:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2925:  & -0.500000000000,  0.866025403784,  0,   & 
2926:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2926:  & -0.866025403784,  -0.500000000000,  0,   & 
2927:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2927:  & 0,  0,  1.00000000000,   & 
2928:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2928:  & -1.00000000000,  0,  0,   & 
2929:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2929:  & 0,  1.00000000000,  0,   & 
2930:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2930:  & 0,  0,  1.00000000000,   & 
2931:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2931:  & 0.500000000000,  0.866025403784,  0,   & 
2932:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2932:  & -0.866025403784,  0.500000000000,  0,   & 
2933:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2933:  & 0,  0,  1.00000000000,   & 
2934:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2934:  & -0.500000000000,  -0.866025403784,  0,   & 
2935:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2935:  & -0.866025403784,  0.500000000000,  0,   & 
2936:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2936:  & 0,  0,  1.00000000000,   & 
2937:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2937:  & 0.500000000000,  -0.866025403784,  0,   & 
2938:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2938:  & -0.866025403784,  -0.500000000000,  0,   & 
2939:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2939:  & 0,  0,  1.00000000000,   & 
2940:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2940:  & 1.00000000000,  0,  0,   & 
2941:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2941:  & 0,  1.00000000000,  0,   & 
2942:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2942:  & 0,  0,  1.00000000000,   & 
2943:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2943:  & 0.500000000000,  0.866025403784,  0,   & 
2944:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2944:  & -0.866025403784,  0.500000000000,  0,   & 
2945:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2945:  & 0,  0,  1.00000000000,   & 
2946:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 2946:  & 1.00000000000,  0,  0,   & 
2947:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2947:  & 0,  -1.00000000000,  0,   & 
2948:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2948:  & 0,  0,  1.00000000000,   & 
2949:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2949:  & -0.500000000000,  0.866025403784,  0,   & 
2950:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2950:  & -0.866025403784,  -0.500000000000,  0,   & 
2951:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2951:  & 0,  0,  1.00000000000,   & 
2952:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2952:  & 0.500000000000,  0.866025403784,  0,   & 
2953:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2953:  & 0.866025403784,  -0.500000000000,  0,   & 
2954:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2954:  & 0,  0,  1.00000000000,   & 
2955:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2955:  & -1.00000000000,  0,  0,   & 
2956:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 2956:  & 0,  -1.00000000000,  0,   & 
2957:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2957:  & 0,  0,  1.00000000000,   & 
2958:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 2958:  & -0.500000000000,  0.866025403784,  0,   & 
2959:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2959:  & 0.866025403784,  0.500000000000,  0,   & 
2960:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2960:  & 0,  0,  1.00000000000,   & 
2961:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2961:  & -0.500000000000,  -0.866025403784,  0,   & 
2962:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2962:  & 0.866025403784,  -0.500000000000,  0,   & 
2963:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2963:  & 0,  0,  1.00000000000,   & 
2964:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 2964:  & -1.00000000000,  0,  0,   & 
2965:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 2965:  & 0,  1.00000000000,  0,   & 
2966:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2966:  & 0,  0,  1.00000000000,   & 
2967:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2967:  & 0.500000000000,  -0.866025403784,  0,   & 
2968:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2968:  & 0.866025403784,  0.500000000000,  0,   & 
2969:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2969:  & 0,  0,  1.00000000000,   & 
2970:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2970:  & -0.500000000000,  -0.866025403784,  0,   & 
2971:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 2971:  & -0.866025403784,  0.500000000000,  0,   & 
2972:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 2972:  & 0,  0,  1.00000000000,   & 
2973:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 2973:  & 0.500000000000,  -0.866025403784,  0,   & 
2974:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 2974:  & -0.866025403784,  -0.500000000000,  0,   & 
2975:  & 0.0D0,  0.0D0,  1.00000000000D0/2975:  & 0,  0,  1.00000000000/
2976: 2976: 
2977: IF (GETOPS) THEN2977: IF (GETOPS) THEN
2978:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)2978:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
2979:    RETURN2979:    RETURN
2980: ENDIF2980: ENDIF
2981:   2981:   
2982: IF (INV.GE.0) THEN2982: IF (INV.GE.0) THEN
2983:    DO J2=1,NLOCAL2983:    DO J2=1,NLOCAL
2984:       J3=3*(J2-1)2984:       J3=3*(J2-1)
2985:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)2985:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
2997: 2997: 
2998: END SUBROUTINE CSMC6V2998: END SUBROUTINE CSMC6V
2999: 2999: 
3000: SUBROUTINE CSMC7(X,Y,OPNUM,INV,NLOCAL,GETOPS)3000: SUBROUTINE CSMC7(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3001: USE COMMONS,ONLY : CSMGPINDEX, PTGP3001: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3002: IMPLICIT NONE3002: IMPLICIT NONE
3003: INTEGER OPNUM, J2, J3, INV, NLOCAL3003: INTEGER OPNUM, J2, J3, INV, NLOCAL
3004: DOUBLE PRECISION RMAT(3,3,14), X(3*NLOCAL), Y(3*NLOCAL)3004: DOUBLE PRECISION RMAT(3,3,14), X(3*NLOCAL), Y(3*NLOCAL)
3005: LOGICAL GETOPS3005: LOGICAL GETOPS
3006: DATA RMAT / &3006: DATA RMAT / &
3007:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3007:  & 1.00000000000,  0,  0,   & 
3008:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3008:  & 0,  1.00000000000,  0,   & 
3009:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3009:  & 0,  0,  1.00000000000,   & 
3010:  & 0.62349D0,  -0.781831D0,  0.0D0,   & 3010:  & 0.62349,  -0.781831,  0,   & 
3011:  & 0.781831D0,  0.62349D0,  0.0D0,   & 3011:  & 0.781831,  0.62349,  0,   & 
3012:  & 0.0D0,  0.0D0,  1.D0,   & 3012:  & 0,  0,  1.,   & 
3013:  & -0.222521D0,  -0.974928D0,  0.0D0,   & 3013:  & -0.222521,  -0.974928,  0,   & 
3014:  & 0.974928D0,  -0.222521D0,  0.0D0,   & 3014:  & 0.974928,  -0.222521,  0,   & 
3015:  & 0.0D0,  0.0D0,  1.D0,   & 3015:  & 0,  0,  1.,   & 
3016:  & -0.900969D0,  -0.433884D0,  0.0D0,   & 3016:  & -0.900969,  -0.433884,  0,   & 
3017:  & 0.433884D0,  -0.900969D0,  0.0D0,   & 3017:  & 0.433884,  -0.900969,  0,   & 
3018:  & 0.0D0,  0.0D0,  1.D0,   & 3018:  & 0,  0,  1.,   & 
3019:  & -0.900969D0,  0.433884D0,  0.0D0,   & 3019:  & -0.900969,  0.433884,  0,   & 
3020:  & -0.433884D0,  -0.900969D0,  0.0D0,   & 3020:  & -0.433884,  -0.900969,  0,   & 
3021:  & 0.0D0,  0.0D0,  1.D0,   & 3021:  & 0,  0,  1.,   & 
3022:  & -0.222521D0,  0.974928D0,  0.0D0,   & 3022:  & -0.222521,  0.974928,  0,   & 
3023:  & -0.974928D0,  -0.222521D0,  0.0D0,   & 3023:  & -0.974928,  -0.222521,  0,   & 
3024:  & 0.0D0,  0.0D0,  1.D0,   & 3024:  & 0,  0,  1.,   & 
3025:  & 0.62349D0,  0.781831D0,  0.0D0,   & 3025:  & 0.62349,  0.781831,  0,   & 
3026:  & -0.781831D0,  0.62349D0,  0.0D0,   & 3026:  & -0.781831,  0.62349,  0,   & 
3027:  & 0.0D0,  0.0D0,  1.D0,   & 3027:  & 0,  0,  1.,   & 
3028:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3028:  & 1.00000000000,  0,  0,   & 
3029:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3029:  & 0,  1.00000000000,  0,   & 
3030:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3030:  & 0,  0,  1.00000000000,   & 
3031:  & 0.62349D0,  0.781831D0,  0.0D0,   & 3031:  & 0.62349,  0.781831,  0,   & 
3032:  & -0.781831D0,  0.62349D0,  0.0D0,   & 3032:  & -0.781831,  0.62349,  0,   & 
3033:  & 0.0D0,  0.0D0,  1.D0,   & 3033:  & 0,  0,  1.,   & 
3034:  & -0.222521D0,  0.974928D0,  0.0D0,   & 3034:  & -0.222521,  0.974928,  0,   & 
3035:  & -0.974928D0,  -0.222521D0,  0.0D0,   & 3035:  & -0.974928,  -0.222521,  0,   & 
3036:  & 0.0D0,  0.0D0,  1.D0,   & 3036:  & 0,  0,  1.,   & 
3037:  & -0.900969D0,  0.433884D0,  0.0D0,   & 3037:  & -0.900969,  0.433884,  0,   & 
3038:  & -0.433884D0,  -0.900969D0,  0.0D0,   & 3038:  & -0.433884,  -0.900969,  0,   & 
3039:  & 0.0D0,  0.0D0,  1.D0,   & 3039:  & 0,  0,  1.,   & 
3040:  & -0.900969D0,  -0.433884D0,  0.0D0,   & 3040:  & -0.900969,  -0.433884,  0,   & 
3041:  & 0.433884D0,  -0.900969D0,  0.0D0,   & 3041:  & 0.433884,  -0.900969,  0,   & 
3042:  & 0.0D0,  0.0D0,  1.D0,   & 3042:  & 0,  0,  1.,   & 
3043:  & -0.222521D0,  -0.974928D0,  0.0D0,   & 3043:  & -0.222521,  -0.974928,  0,   & 
3044:  & 0.974928D0,  -0.222521D0,  0.0D0,   & 3044:  & 0.974928,  -0.222521,  0,   & 
3045:  & 0.0D0,  0.0D0,  1.D0,   & 3045:  & 0,  0,  1.,   & 
3046:  & 0.62349D0,  -0.781831D0,  0.0D0,   & 3046:  & 0.62349,  -0.781831,  0,   & 
3047:  & 0.781831D0,  0.62349D0,  0.0D0,   & 3047:  & 0.781831,  0.62349,  0,   & 
3048:  & 0.0D0,  0.0D0,  1.D0/3048:  & 0,  0,  1./
3049: 3049: 
3050: IF (GETOPS) THEN3050: IF (GETOPS) THEN
3051:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3051:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3052:    RETURN3052:    RETURN
3053: ENDIF3053: ENDIF
3054:   3054:   
3055: IF (INV.GE.0) THEN3055: IF (INV.GE.0) THEN
3056:    DO J2=1,NLOCAL3056:    DO J2=1,NLOCAL
3057:       J3=3*(J2-1)3057:       J3=3*(J2-1)
3058:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3058:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3070: 3070: 
3071: END SUBROUTINE CSMC73071: END SUBROUTINE CSMC7
3072: 3072: 
3073: SUBROUTINE CSMCI(X,Y,OPNUM,INV,NLOCAL,GETOPS)3073: SUBROUTINE CSMCI(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3074: USE COMMONS,ONLY : CSMGPINDEX, PTGP3074: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3075: IMPLICIT NONE3075: IMPLICIT NONE
3076: INTEGER OPNUM, J2, J3, INV, NLOCAL3076: INTEGER OPNUM, J2, J3, INV, NLOCAL
3077: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)3077: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)
3078: LOGICAL GETOPS3078: LOGICAL GETOPS
3079: DATA RMAT / &3079: DATA RMAT / &
3080:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3080:  & 1.00000000000,  0,  0,   & 
3081:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3081:  & 0,  1.00000000000,  0,   & 
3082:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3082:  & 0,  0,  1.00000000000,   & 
3083:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3083:  & -1.00000000000,  0,  0,   & 
3084:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3084:  & 0,  -1.00000000000,  0,   & 
3085:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3085:  & 0,  0,  -1.00000000000,   & 
3086:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3086:  & 1.00000000000,  0,  0,   & 
3087:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3087:  & 0,  1.00000000000,  0,   & 
3088:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3088:  & 0,  0,  1.00000000000,   & 
3089:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3089:  & -1.00000000000,  0,  0,   & 
3090:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3090:  & 0,  -1.00000000000,  0,   & 
3091:  & 0.0D0,  0.0D0,  -1.00000000000D0/3091:  & 0,  0,  -1.00000000000/
3092: 3092: 
3093: IF (GETOPS) THEN3093: IF (GETOPS) THEN
3094:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3094:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3095:    RETURN3095:    RETURN
3096: ENDIF3096: ENDIF
3097:   3097:   
3098: IF (INV.GE.0) THEN3098: IF (INV.GE.0) THEN
3099:    DO J2=1,NLOCAL3099:    DO J2=1,NLOCAL
3100:       J3=3*(J2-1)3100:       J3=3*(J2-1)
3101:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3101:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3113: 3113: 
3114: END SUBROUTINE CSMCI3114: END SUBROUTINE CSMCI
3115: 3115: 
3116: SUBROUTINE CSMCS(X,Y,OPNUM,INV,NLOCAL,GETOPS)3116: SUBROUTINE CSMCS(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3117: USE COMMONS,ONLY : CSMGPINDEX, PTGP3117: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3118: IMPLICIT NONE3118: IMPLICIT NONE
3119: INTEGER OPNUM, J2, J3, INV, NLOCAL3119: INTEGER OPNUM, J2, J3, INV, NLOCAL
3120: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)3120: DOUBLE PRECISION RMAT(3,3,4), X(3*NLOCAL), Y(3*NLOCAL)
3121: LOGICAL GETOPS3121: LOGICAL GETOPS
3122: DATA RMAT / &3122: DATA RMAT / &
3123:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3123:  & 1.00000000000,  0,  0,   & 
3124:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3124:  & 0,  1.00000000000,  0,   & 
3125:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3125:  & 0,  0,  1.00000000000,   & 
3126:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3126:  & 1.00000000000,  0,  0,   & 
3127:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3127:  & 0,  1.00000000000,  0,   & 
3128:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3128:  & 0,  0,  -1.00000000000,   & 
3129:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3129:  & 1.00000000000,  0,  0,   & 
3130:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3130:  & 0,  1.00000000000,  0,   & 
3131:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3131:  & 0,  0,  1.00000000000,   & 
3132:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3132:  & 1.00000000000,  0,  0,   & 
3133:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3133:  & 0,  1.00000000000,  0,   & 
3134:  & 0.0D0,  0.0D0,  -1.00000000000D0/3134:  & 0,  0,  -1.00000000000/
3135: 3135: 
3136: IF (GETOPS) THEN3136: IF (GETOPS) THEN
3137:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3137:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3138:    RETURN3138:    RETURN
3139: ENDIF3139: ENDIF
3140:   3140:   
3141: IF (INV.GE.0) THEN3141: IF (INV.GE.0) THEN
3142:    DO J2=1,NLOCAL3142:    DO J2=1,NLOCAL
3143:       J3=3*(J2-1)3143:       J3=3*(J2-1)
3144:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3144:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3156: 3156: 
3157: END SUBROUTINE CSMCS3157: END SUBROUTINE CSMCS
3158: 3158: 
3159: SUBROUTINE CSMD2D(X,Y,OPNUM,INV,NLOCAL,GETOPS)3159: SUBROUTINE CSMD2D(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3160: USE COMMONS,ONLY : CSMGPINDEX, PTGP3160: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3161: IMPLICIT NONE3161: IMPLICIT NONE
3162: INTEGER OPNUM, J2, J3, INV, NLOCAL3162: INTEGER OPNUM, J2, J3, INV, NLOCAL
3163: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)3163: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)
3164: LOGICAL GETOPS3164: LOGICAL GETOPS
3165: DATA RMAT / &3165: DATA RMAT / &
3166:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3166:  & 1.00000000000,  0,  0,   & 
3167:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3167:  & 0,  1.00000000000,  0,   & 
3168:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3168:  & 0,  0,  1.00000000000,   & 
3169:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3169:  & -1.00000000000,  0,  0,   & 
3170:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3170:  & 0,  -1.00000000000,  0,   & 
3171:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3171:  & 0,  0,  1.00000000000,   & 
3172:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3172:  & 1.00000000000,  0,  0,   & 
3173:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3173:  & 0,  -1.00000000000,  0,   & 
3174:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3174:  & 0,  0,  1.00000000000,   & 
3175:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3175:  & 1.00000000000,  0,  0,   & 
3176:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3176:  & 0,  -1.00000000000,  0,   & 
3177:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3177:  & 0,  0,  -1.00000000000,   & 
3178:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3178:  & -1.00000000000,  0,  0,   & 
3179:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3179:  & 0,  1.00000000000,  0,   & 
3180:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3180:  & 0,  0,  1.00000000000,   & 
3181:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3181:  & -1.00000000000,  0,  0,   & 
3182:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3182:  & 0,  1.00000000000,  0,   & 
3183:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3183:  & 0,  0,  -1.00000000000,   & 
3184:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3184:  & 1.00000000000,  0,  0,   & 
3185:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3185:  & 0,  1.00000000000,  0,   & 
3186:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3186:  & 0,  0,  -1.00000000000,   & 
3187:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3187:  & -1.00000000000,  0,  0,   & 
3188:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3188:  & 0,  -1.00000000000,  0,   & 
3189:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3189:  & 0,  0,  -1.00000000000,   & 
3190:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3190:  & 1.00000000000,  0,  0,   & 
3191:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3191:  & 0,  1.00000000000,  0,   & 
3192:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3192:  & 0,  0,  1.00000000000,   & 
3193:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3193:  & -1.00000000000,  0,  0,   & 
3194:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3194:  & 0,  -1.00000000000,  0,   & 
3195:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3195:  & 0,  0,  1.00000000000,   & 
3196:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3196:  & 1.00000000000,  0,  0,   & 
3197:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3197:  & 0,  -1.00000000000,  0,   & 
3198:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3198:  & 0,  0,  1.00000000000,   & 
3199:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3199:  & 1.00000000000,  0,  0,   & 
3200:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3200:  & 0,  -1.00000000000,  0,   & 
3201:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3201:  & 0,  0,  -1.00000000000,   & 
3202:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3202:  & -1.00000000000,  0,  0,   & 
3203:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3203:  & 0,  1.00000000000,  0,   & 
3204:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3204:  & 0,  0,  1.00000000000,   & 
3205:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3205:  & -1.00000000000,  0,  0,   & 
3206:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3206:  & 0,  1.00000000000,  0,   & 
3207:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3207:  & 0,  0,  -1.00000000000,   & 
3208:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3208:  & 1.00000000000,  0,  0,   & 
3209:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3209:  & 0,  1.00000000000,  0,   & 
3210:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3210:  & 0,  0,  -1.00000000000,   & 
3211:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3211:  & -1.00000000000,  0,  0,   & 
3212:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3212:  & 0,  -1.00000000000,  0,   & 
3213:  & 0.0D0,  0.0D0,  -1.00000000000D0/3213:  & 0,  0,  -1.00000000000/
3214: 3214: 
3215: IF (GETOPS) THEN3215: IF (GETOPS) THEN
3216:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3216:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3217:    RETURN3217:    RETURN
3218: ENDIF3218: ENDIF
3219:   3219:   
3220: IF (INV.GE.0) THEN3220: IF (INV.GE.0) THEN
3221:    DO J2=1,NLOCAL3221:    DO J2=1,NLOCAL
3222:       J3=3*(J2-1)3222:       J3=3*(J2-1)
3223:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3223:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3235: 3235: 
3236: END SUBROUTINE CSMD2D3236: END SUBROUTINE CSMD2D
3237: 3237: 
3238: SUBROUTINE CSMD2H(X,Y,OPNUM,INV,NLOCAL,GETOPS)3238: SUBROUTINE CSMD2H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3239: USE COMMONS,ONLY : CSMGPINDEX, PTGP3239: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3240: IMPLICIT NONE3240: IMPLICIT NONE
3241: INTEGER OPNUM, J2, J3, INV, NLOCAL3241: INTEGER OPNUM, J2, J3, INV, NLOCAL
3242: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)3242: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)
3243: LOGICAL GETOPS3243: LOGICAL GETOPS
3244: DATA RMAT / &3244: DATA RMAT / &
3245:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3245:  & 1.00000000000,  0,  0,   & 
3246:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3246:  & 0,  1.00000000000,  0,   & 
3247:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3247:  & 0,  0,  1.00000000000,   & 
3248:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3248:  & -1.00000000000,  0,  0,   & 
3249:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3249:  & 0,  -1.00000000000,  0,   & 
3250:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3250:  & 0,  0,  1.00000000000,   & 
3251:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3251:  & -1.00000000000,  0,  0,   & 
3252:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3252:  & 0,  -1.00000000000,  0,   & 
3253:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3253:  & 0,  0,  -1.00000000000,   & 
3254:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3254:  & 1.00000000000,  0,  0,   & 
3255:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3255:  & 0,  -1.00000000000,  0,   & 
3256:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3256:  & 0,  0,  -1.00000000000,   & 
3257:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3257:  & 1.00000000000,  0,  0,   & 
3258:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3258:  & 0,  1.00000000000,  0,   & 
3259:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3259:  & 0,  0,  -1.00000000000,   & 
3260:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3260:  & -1.00000000000,  0,  0,   & 
3261:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3261:  & 0,  1.00000000000,  0,   & 
3262:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3262:  & 0,  0,  -1.00000000000,   & 
3263:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3263:  & -1.00000000000,  0,  0,   & 
3264:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3264:  & 0,  1.00000000000,  0,   & 
3265:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3265:  & 0,  0,  1.00000000000,   & 
3266:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3266:  & 1.00000000000,  0,  0,   & 
3267:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3267:  & 0,  -1.00000000000,  0,   & 
3268:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3268:  & 0,  0,  1.00000000000,   & 
3269:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3269:  & 1.00000000000,  0,  0,   & 
3270:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3270:  & 0,  1.00000000000,  0,   & 
3271:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3271:  & 0,  0,  1.00000000000,   & 
3272:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3272:  & -1.00000000000,  0,  0,   & 
3273:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3273:  & 0,  -1.00000000000,  0,   & 
3274:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3274:  & 0,  0,  1.00000000000,   & 
3275:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3275:  & -1.00000000000,  0,  0,   & 
3276:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3276:  & 0,  -1.00000000000,  0,   & 
3277:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3277:  & 0,  0,  -1.00000000000,   & 
3278:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3278:  & 1.00000000000,  0,  0,   & 
3279:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3279:  & 0,  -1.00000000000,  0,   & 
3280:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3280:  & 0,  0,  -1.00000000000,   & 
3281:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3281:  & 1.00000000000,  0,  0,   & 
3282:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3282:  & 0,  1.00000000000,  0,   & 
3283:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3283:  & 0,  0,  -1.00000000000,   & 
3284:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3284:  & -1.00000000000,  0,  0,   & 
3285:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3285:  & 0,  1.00000000000,  0,   & 
3286:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3286:  & 0,  0,  -1.00000000000,   & 
3287:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3287:  & -1.00000000000,  0,  0,   & 
3288:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3288:  & 0,  1.00000000000,  0,   & 
3289:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3289:  & 0,  0,  1.00000000000,   & 
3290:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3290:  & 1.00000000000,  0,  0,   & 
3291:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3291:  & 0,  -1.00000000000,  0,   & 
3292:  & 0.0D0,  0.0D0,  1.00000000000D0/3292:  & 0,  0,  1.00000000000/
3293: 3293: 
3294: IF (GETOPS) THEN3294: IF (GETOPS) THEN
3295:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3295:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3296:    RETURN3296:    RETURN
3297: ENDIF3297: ENDIF
3298:   3298:   
3299: IF (INV.GE.0) THEN3299: IF (INV.GE.0) THEN
3300:    DO J2=1,NLOCAL3300:    DO J2=1,NLOCAL
3301:       J3=3*(J2-1)3301:       J3=3*(J2-1)
3302:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3302:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3314: 3314: 
3315: END SUBROUTINE CSMD2H3315: END SUBROUTINE CSMD2H
3316: 3316: 
3317: SUBROUTINE CSMD2(X,Y,OPNUM,INV,NLOCAL,GETOPS)3317: SUBROUTINE CSMD2(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3318: USE COMMONS,ONLY : CSMGPINDEX, PTGP3318: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3319: IMPLICIT NONE3319: IMPLICIT NONE
3320: INTEGER OPNUM, J2, J3, INV, NLOCAL3320: INTEGER OPNUM, J2, J3, INV, NLOCAL
3321: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)3321: DOUBLE PRECISION RMAT(3,3,8), X(3*NLOCAL), Y(3*NLOCAL)
3322: LOGICAL GETOPS3322: LOGICAL GETOPS
3323: DATA RMAT / &3323: DATA RMAT / &
3324:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3324:  & 1.00000000000,  0,  0,   & 
3325:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3325:  & 0,  1.00000000000,  0,   & 
3326:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3326:  & 0,  0,  1.00000000000,   & 
3327:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3327:  & -1.00000000000,  0,  0,   & 
3328:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3328:  & 0,  -1.00000000000,  0,   & 
3329:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3329:  & 0,  0,  1.00000000000,   & 
3330:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3330:  & 1.00000000000,  0,  0,   & 
3331:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3331:  & 0,  -1.00000000000,  0,   & 
3332:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3332:  & 0,  0,  -1.00000000000,   & 
3333:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3333:  & -1.00000000000,  0,  0,   & 
3334:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3334:  & 0,  1.00000000000,  0,   & 
3335:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3335:  & 0,  0,  -1.00000000000,   & 
3336:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3336:  & 1.00000000000,  0,  0,   & 
3337:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3337:  & 0,  1.00000000000,  0,   & 
3338:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3338:  & 0,  0,  1.00000000000,   & 
3339:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3339:  & -1.00000000000,  0,  0,   & 
3340:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3340:  & 0,  -1.00000000000,  0,   & 
3341:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3341:  & 0,  0,  1.00000000000,   & 
3342:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3342:  & 1.00000000000,  0,  0,   & 
3343:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3343:  & 0,  -1.00000000000,  0,   & 
3344:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3344:  & 0,  0,  -1.00000000000,   & 
3345:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3345:  & -1.00000000000,  0,  0,   & 
3346:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3346:  & 0,  1.00000000000,  0,   & 
3347:  & 0.0D0,  0.0D0,  -1.00000000000D0/3347:  & 0,  0,  -1.00000000000/
3348: 3348: 
3349: IF (GETOPS) THEN3349: IF (GETOPS) THEN
3350:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3350:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3351:    RETURN3351:    RETURN
3352: ENDIF3352: ENDIF
3353:   3353:   
3354: IF (INV.GE.0) THEN3354: IF (INV.GE.0) THEN
3355:    DO J2=1,NLOCAL3355:    DO J2=1,NLOCAL
3356:       J3=3*(J2-1)3356:       J3=3*(J2-1)
3357:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3357:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3369: 3369: 
3370: END SUBROUTINE CSMD23370: END SUBROUTINE CSMD2
3371: 3371: 
3372: SUBROUTINE CSMD3D(X,Y,OPNUM,INV,NLOCAL,GETOPS)3372: SUBROUTINE CSMD3D(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3373: USE COMMONS,ONLY : CSMGPINDEX, PTGP3373: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3374: IMPLICIT NONE3374: IMPLICIT NONE
3375: INTEGER OPNUM, J2, J3, INV, NLOCAL3375: INTEGER OPNUM, J2, J3, INV, NLOCAL
3376: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)3376: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)
3377: LOGICAL GETOPS3377: LOGICAL GETOPS
3378: DATA RMAT / &3378: DATA RMAT / &
3379:  &  1.00000000000D0,  0.0D0,  0.0D0,    & 3379:  &  1.00000000000,  0,  0,    & 
3380:  &  0.0D0,  1.00000000000D0,  0.0D0,    & 3380:  &  0,  1.00000000000,  0,    & 
3381:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3381:  &  0,  0,  1.00000000000,    & 
3382:  &  -0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3382:  &  -0.500000000000,  -0.866025403784,  0,    & 
3383:  &  0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3383:  &  0.866025403784,  -0.500000000000,  0,    & 
3384:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3384:  &  0,  0,  1.00000000000,    & 
3385:  &  1.00000000000D0,  0.0D0,  0.0D0,    & 3385:  &  1.00000000000,  0,  0,    & 
3386:  &  0.0D0,  -1.00000000000D0,  0.0D0,    & 3386:  &  0,  -1.00000000000,  0,    & 
3387:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3387:  &  0,  0,  1.00000000000,    & 
3388:  &  0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3388:  &  0.500000000000,  0.866025403784,  0,    & 
3389:  &  0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3389:  &  0.866025403784,  -0.500000000000,  0,    & 
3390:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3390:  &  0,  0,  -1.00000000000,    & 
3391:  &  -0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3391:  &  -0.500000000000,  0.866025403784,  0,    & 
3392:  &  -0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3392:  &  -0.866025403784,  -0.500000000000,  0,    & 
3393:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3393:  &  0,  0,  1.00000000000,    & 
3394:  &  -0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3394:  &  -0.500000000000,  0.866025403784,  0,    & 
3395:  &  0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3395:  &  0.866025403784,  0.500000000000,  0,    & 
3396:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3396:  &  0,  0,  1.00000000000,    & 
3397:  &  -1.00000000000D0,  0.0D0,  0.0D0,    & 3397:  &  -1.00000000000,  0,  0,    & 
3398:  &  0.0D0,  1.00000000000D0,  0.0D0,    & 3398:  &  0,  1.00000000000,  0,    & 
3399:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3399:  &  0,  0,  -1.00000000000,    & 
3400:  &  -0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3400:  &  -0.500000000000,  -0.866025403784,  0,    & 
3401:  &  -0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3401:  &  -0.866025403784,  0.500000000000,  0,    & 
3402:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3402:  &  0,  0,  1.00000000000,    & 
3403:  &  0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3403:  &  0.500000000000,  -0.866025403784,  0,    & 
3404:  &  -0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3404:  &  -0.866025403784,  -0.500000000000,  0,    & 
3405:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3405:  &  0,  0,  -1.00000000000,    & 
3406:  &  0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3406:  &  0.500000000000,  0.866025403784,  0,    & 
3407:  &  -0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3407:  &  -0.866025403784,  0.500000000000,  0,    & 
3408:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3408:  &  0,  0,  -1.00000000000,    & 
3409:  &  0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3409:  &  0.500000000000,  -0.866025403784,  0,    & 
3410:  &  0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3410:  &  0.866025403784,  0.500000000000,  0,    & 
3411:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3411:  &  0,  0,  -1.00000000000,    & 
3412:  &  -1.00000000000D0,  0.0D0,  0.0D0,    & 3412:  &  -1.00000000000,  0,  0,    & 
3413:  &  0.0D0,  -1.00000000000D0,  0.0D0,    & 3413:  &  0,  -1.00000000000,  0,    & 
3414:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3414:  &  0,  0,  -1.00000000000,    & 
3415:  &  1.00000000000D0,  0.0D0,  0.0D0,    & 3415:  &  1.00000000000,  0,  0,    & 
3416:  &  0.0D0,  1.00000000000D0,  0.0D0,    & 3416:  &  0,  1.00000000000,  0,    & 
3417:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3417:  &  0,  0,  1.00000000000,    & 
3418:  &  -0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3418:  &  -0.500000000000,  0.866025403784,  0,    & 
3419:  &  -0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3419:  &  -0.866025403784,  -0.500000000000,  0,    & 
3420:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3420:  &  0,  0,  1.00000000000,    & 
3421:  &  1.00000000000D0,  0.0D0,  0.0D0,    & 3421:  &  1.00000000000,  0,  0,    & 
3422:  &  0.0D0,  -1.00000000000D0,  0.0D0,    & 3422:  &  0,  -1.00000000000,  0,    & 
3423:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3423:  &  0,  0,  1.00000000000,    & 
3424:  &  0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3424:  &  0.500000000000,  0.866025403784,  0,    & 
3425:  &  0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3425:  &  0.866025403784,  -0.500000000000,  0,    & 
3426:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3426:  &  0,  0,  -1.00000000000,    & 
3427:  &  -0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3427:  &  -0.500000000000,  -0.866025403784,  0,    & 
3428:  &  0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3428:  &  0.866025403784,  -0.500000000000,  0,    & 
3429:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3429:  &  0,  0,  1.00000000000,    & 
3430:  &  -0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3430:  &  -0.500000000000,  0.866025403784,  0,    & 
3431:  &  0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3431:  &  0.866025403784,  0.500000000000,  0,    & 
3432:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3432:  &  0,  0,  1.00000000000,    & 
3433:  &  -1.00000000000D0,  0.0D0,  0.0D0,    & 3433:  &  -1.00000000000,  0,  0,    & 
3434:  &  0.0D0,  1.00000000000D0,  0.0D0,    & 3434:  &  0,  1.00000000000,  0,    & 
3435:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3435:  &  0,  0,  -1.00000000000,    & 
3436:  &  -0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3436:  &  -0.500000000000,  -0.866025403784,  0,    & 
3437:  &  -0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3437:  &  -0.866025403784,  0.500000000000,  0,    & 
3438:  &  0.0D0,  0.0D0,  1.00000000000D0,    & 3438:  &  0,  0,  1.00000000000,    & 
3439:  &  0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3439:  &  0.500000000000,  -0.866025403784,  0,    & 
3440:  &  -0.866025403784D0,  -0.500000000000D0,  0.0D0,    & 3440:  &  -0.866025403784,  -0.500000000000,  0,    & 
3441:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3441:  &  0,  0,  -1.00000000000,    & 
3442:  &  0.500000000000D0,  -0.866025403784D0,  0.0D0,    & 3442:  &  0.500000000000,  -0.866025403784,  0,    & 
3443:  &  0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3443:  &  0.866025403784,  0.500000000000,  0,    & 
3444:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3444:  &  0,  0,  -1.00000000000,    & 
3445:  &  0.500000000000D0,  0.866025403784D0,  0.0D0,    & 3445:  &  0.500000000000,  0.866025403784,  0,    & 
3446:  &  -0.866025403784D0,  0.500000000000D0,  0.0D0,    & 3446:  &  -0.866025403784,  0.500000000000,  0,    & 
3447:  &  0.0D0,  0.0D0,  -1.00000000000D0,    & 3447:  &  0,  0,  -1.00000000000,    & 
3448:  &  -1.00000000000D0,  0.0D0,  0.0D0,    & 3448:  &  -1.00000000000,  0,  0,    & 
3449:  &  0.0D0,  -1.00000000000D0,  0.0D0,    & 3449:  &  0,  -1.00000000000,  0,    & 
3450:  &  0.0D0,  0.0D0,  -1.00000000000D0/ 3450:  &  0,  0,  -1.00000000000/ 
3451:  3451:  
3452: IF (GETOPS) THEN 3452: IF (GETOPS) THEN 
3453:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX) 3453:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX) 
3454:    RETURN 3454:    RETURN 
3455: ENDIF 3455: ENDIF 
3456:    3456:    
3457: IF (INV.GE.0) THEN 3457: IF (INV.GE.0) THEN 
3458:    DO J2=1,NLOCAL 3458:    DO J2=1,NLOCAL 
3459:       J3=3*(J2-1) 3459:       J3=3*(J2-1) 
3460:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3) 3460:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3) 
3472:  3472:  
3473: END SUBROUTINE CSMD3D 3473: END SUBROUTINE CSMD3D 
3474:  3474:  
3475: SUBROUTINE CSMD3H(X,Y,OPNUM,INV,NLOCAL,GETOPS)3475: SUBROUTINE CSMD3H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3476: USE COMMONS,ONLY : CSMGPINDEX, PTGP 3476: USE COMMONS,ONLY : CSMGPINDEX, PTGP 
3477: IMPLICIT NONE 3477: IMPLICIT NONE 
3478: INTEGER OPNUM, J2, J3, INV, NLOCAL 3478: INTEGER OPNUM, J2, J3, INV, NLOCAL 
3479: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL) 3479: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL) 
3480: LOGICAL GETOPS 3480: LOGICAL GETOPS 
3481: DATA RMAT / & 3481: DATA RMAT / & 
3482:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3482:  & 1.00000000000,  0,  0,   & 
3483:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3483:  & 0,  1.00000000000,  0,   & 
3484:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3484:  & 0,  0,  1.00000000000,   & 
3485:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3485:  & -0.500000000000,  -0.866025403784,  0,   & 
3486:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3486:  & 0.866025403784,  -0.500000000000,  0,   & 
3487:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3487:  & 0,  0,  1.00000000000,   & 
3488:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3488:  & 1.00000000000,  0,  0,   & 
3489:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3489:  & 0,  -1.00000000000,  0,   & 
3490:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3490:  & 0,  0,  1.00000000000,   & 
3491:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3491:  & 1.00000000000,  0,  0,   & 
3492:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3492:  & 0,  -1.00000000000,  0,   & 
3493:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3493:  & 0,  0,  -1.00000000000,   & 
3494:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3494:  & -0.500000000000,  0.866025403784,  0,   & 
3495:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3495:  & -0.866025403784,  -0.500000000000,  0,   & 
3496:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3496:  & 0,  0,  1.00000000000,   & 
3497:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3497:  & -0.500000000000,  0.866025403784,  0,   & 
3498:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3498:  & 0.866025403784,  0.500000000000,  0,   & 
3499:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3499:  & 0,  0,  1.00000000000,   & 
3500:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3500:  & -0.500000000000,  0.866025403784,  0,   & 
3501:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3501:  & 0.866025403784,  0.500000000000,  0,   & 
3502:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3502:  & 0,  0,  -1.00000000000,   & 
3503:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3503:  & -0.500000000000,  -0.866025403784,  0,   & 
3504:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3504:  & -0.866025403784,  0.500000000000,  0,   & 
3505:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3505:  & 0,  0,  1.00000000000,   & 
3506:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3506:  & -0.500000000000,  -0.866025403784,  0,   & 
3507:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3507:  & -0.866025403784,  0.500000000000,  0,   & 
3508:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3508:  & 0,  0,  -1.00000000000,   & 
3509:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3509:  & 1.00000000000,  0,  0,   & 
3510:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3510:  & 0,  1.00000000000,  0,   & 
3511:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3511:  & 0,  0,  -1.00000000000,   & 
3512:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3512:  & -0.500000000000,  -0.866025403784,  0,   & 
3513:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3513:  & 0.866025403784,  -0.500000000000,  0,   & 
3514:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3514:  & 0,  0,  -1.00000000000,   & 
3515:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3515:  & -0.500000000000,  0.866025403784,  0,   & 
3516:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3516:  & -0.866025403784,  -0.500000000000,  0,   & 
3517:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3517:  & 0,  0,  -1.00000000000,   & 
3518:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3518:  & 1.00000000000,  0,  0,   & 
3519:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3519:  & 0,  1.00000000000,  0,   & 
3520:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3520:  & 0,  0,  1.00000000000,   & 
3521:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3521:  & -0.500000000000,  0.866025403784,  0,   & 
3522:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3522:  & -0.866025403784,  -0.500000000000,  0,   & 
3523:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3523:  & 0,  0,  1.00000000000,   & 
3524:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3524:  & 1.00000000000,  0,  0,   & 
3525:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3525:  & 0,  -1.00000000000,  0,   & 
3526:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3526:  & 0,  0,  1.00000000000,   & 
3527:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3527:  & 1.00000000000,  0,  0,   & 
3528:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3528:  & 0,  -1.00000000000,  0,   & 
3529:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3529:  & 0,  0,  -1.00000000000,   & 
3530:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3530:  & -0.500000000000,  -0.866025403784,  0,   & 
3531:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3531:  & 0.866025403784,  -0.500000000000,  0,   & 
3532:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3532:  & 0,  0,  1.00000000000,   & 
3533:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3533:  & -0.500000000000,  0.866025403784,  0,   & 
3534:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3534:  & 0.866025403784,  0.500000000000,  0,   & 
3535:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3535:  & 0,  0,  1.00000000000,   & 
3536:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3536:  & -0.500000000000,  0.866025403784,  0,   & 
3537:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3537:  & 0.866025403784,  0.500000000000,  0,   & 
3538:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3538:  & 0,  0,  -1.00000000000,   & 
3539:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3539:  & -0.500000000000,  -0.866025403784,  0,   & 
3540:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3540:  & -0.866025403784,  0.500000000000,  0,   & 
3541:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3541:  & 0,  0,  1.00000000000,   & 
3542:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3542:  & -0.500000000000,  -0.866025403784,  0,   & 
3543:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3543:  & -0.866025403784,  0.500000000000,  0,   & 
3544:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3544:  & 0,  0,  -1.00000000000,   & 
3545:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3545:  & 1.00000000000,  0,  0,   & 
3546:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3546:  & 0,  1.00000000000,  0,   & 
3547:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3547:  & 0,  0,  -1.00000000000,   & 
3548:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3548:  & -0.500000000000,  0.866025403784,  0,   & 
3549:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3549:  & -0.866025403784,  -0.500000000000,  0,   & 
3550:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3550:  & 0,  0,  -1.00000000000,   & 
3551:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3551:  & -0.500000000000,  -0.866025403784,  0,   & 
3552:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3552:  & 0.866025403784,  -0.500000000000,  0,   & 
3553:  & 0.0D0,  0.0D0,  -1.00000000000D0/3553:  & 0,  0,  -1.00000000000/
3554: 3554: 
3555: IF (GETOPS) THEN3555: IF (GETOPS) THEN
3556:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3556:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3557:    RETURN3557:    RETURN
3558: ENDIF3558: ENDIF
3559:   3559:   
3560: IF (INV.GE.0) THEN3560: IF (INV.GE.0) THEN
3561:    DO J2=1,NLOCAL3561:    DO J2=1,NLOCAL
3562:       J3=3*(J2-1)3562:       J3=3*(J2-1)
3563:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3563:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3575: 3575: 
3576: END SUBROUTINE CSMD3H3576: END SUBROUTINE CSMD3H
3577: 3577: 
3578: SUBROUTINE CSMD3(X,Y,OPNUM,INV,NLOCAL,GETOPS)3578: SUBROUTINE CSMD3(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3579: USE COMMONS,ONLY : CSMGPINDEX, PTGP3579: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3580: IMPLICIT NONE3580: IMPLICIT NONE
3581: INTEGER OPNUM, J2, J3, INV, NLOCAL3581: INTEGER OPNUM, J2, J3, INV, NLOCAL
3582: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)3582: DOUBLE PRECISION RMAT(3,3,12), X(3*NLOCAL), Y(3*NLOCAL)
3583: LOGICAL GETOPS3583: LOGICAL GETOPS
3584: DATA RMAT / &3584: DATA RMAT / &
3585:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3585:  & 1.00000000000,  0,  0,   & 
3586:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3586:  & 0,  1.00000000000,  0,   & 
3587:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3587:  & 0,  0,  1.00000000000,   & 
3588:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3588:  & -0.500000000000,  -0.866025403784,  0,   & 
3589:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3589:  & 0.866025403784,  -0.500000000000,  0,   & 
3590:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3590:  & 0,  0,  1.00000000000,   & 
3591:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3591:  & 1.00000000000,  0,  0,   & 
3592:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3592:  & 0,  -1.00000000000,  0,   & 
3593:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3593:  & 0,  0,  -1.00000000000,   & 
3594:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3594:  & -0.500000000000,  0.866025403784,  0,   & 
3595:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3595:  & -0.866025403784,  -0.500000000000,  0,   & 
3596:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3596:  & 0,  0,  1.00000000000,   & 
3597:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3597:  & -0.500000000000,  0.866025403784,  0,   & 
3598:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3598:  & 0.866025403784,  0.500000000000,  0,   & 
3599:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3599:  & 0,  0,  -1.00000000000,   & 
3600:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3600:  & -0.500000000000,  -0.866025403784,  0,   & 
3601:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3601:  & -0.866025403784,  0.500000000000,  0,   & 
3602:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3602:  & 0,  0,  -1.00000000000,   & 
3603:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3603:  & 1.00000000000,  0,  0,   & 
3604:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3604:  & 0,  1.00000000000,  0,   & 
3605:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3605:  & 0,  0,  1.00000000000,   & 
3606:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3606:  & -0.500000000000,  0.866025403784,  0,   & 
3607:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3607:  & -0.866025403784,  -0.500000000000,  0,   & 
3608:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3608:  & 0,  0,  1.00000000000,   & 
3609:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3609:  & 1.00000000000,  0,  0,   & 
3610:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3610:  & 0,  -1.00000000000,  0,   & 
3611:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3611:  & 0,  0,  -1.00000000000,   & 
3612:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3612:  & -0.500000000000,  -0.866025403784,  0,   & 
3613:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3613:  & 0.866025403784,  -0.500000000000,  0,   & 
3614:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3614:  & 0,  0,  1.00000000000,   & 
3615:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 3615:  & -0.500000000000,  0.866025403784,  0,   & 
3616:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3616:  & 0.866025403784,  0.500000000000,  0,   & 
3617:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3617:  & 0,  0,  -1.00000000000,   & 
3618:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3618:  & -0.500000000000,  -0.866025403784,  0,   & 
3619:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3619:  & -0.866025403784,  0.500000000000,  0,   & 
3620:  & 0.0D0,  0.0D0,  -1.00000000000D0/3620:  & 0,  0,  -1.00000000000/
3621: 3621: 
3622: IF (GETOPS) THEN3622: IF (GETOPS) THEN
3623:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3623:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3624:    RETURN3624:    RETURN
3625: ENDIF3625: ENDIF
3626:   3626:   
3627: IF (INV.GE.0) THEN3627: IF (INV.GE.0) THEN
3628:    DO J2=1,NLOCAL3628:    DO J2=1,NLOCAL
3629:       J3=3*(J2-1)3629:       J3=3*(J2-1)
3630:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3630:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3642: 3642: 
3643: END SUBROUTINE CSMD33643: END SUBROUTINE CSMD3
3644: 3644: 
3645: SUBROUTINE CSMD4D(X,Y,OPNUM,INV,NLOCAL,GETOPS)3645: SUBROUTINE CSMD4D(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3646: USE COMMONS,ONLY : CSMGPINDEX, PTGP3646: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3647: IMPLICIT NONE3647: IMPLICIT NONE
3648: INTEGER OPNUM, J2, J3, INV, NLOCAL3648: INTEGER OPNUM, J2, J3, INV, NLOCAL
3649: DOUBLE PRECISION RMAT(3,3,32), X(3*NLOCAL), Y(3*NLOCAL)3649: DOUBLE PRECISION RMAT(3,3,32), X(3*NLOCAL), Y(3*NLOCAL)
3650: LOGICAL GETOPS3650: LOGICAL GETOPS
3651: DATA RMAT / &3651: DATA RMAT / &
3652:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3652:  & 1.00000000000,  0,  0,   & 
3653:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3653:  & 0,  1.00000000000,  0,   & 
3654:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3654:  & 0,  0,  1.00000000000,   & 
3655:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3655:  & 0,  -1.00000000000,  0,   & 
3656:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3656:  & 1.00000000000,  0,  0,   & 
3657:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3657:  & 0,  0,  1.00000000000,   & 
3658:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3658:  & 1.00000000000,  0,  0,   & 
3659:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3659:  & 0,  -1.00000000000,  0,   & 
3660:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3660:  & 0,  0,  1.00000000000,   & 
3661:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3661:  & 0.707106781187,  0.707106781187,  0,   & 
3662:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3662:  & 0.707106781187,  -0.707106781187,  0,   & 
3663:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3663:  & 0,  0,  -1.00000000000,   & 
3664:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3664:  & -1.00000000000,  0,  0,   & 
3665:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3665:  & 0,  -1.00000000000,  0,   & 
3666:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3666:  & 0,  0,  1.00000000000,   & 
3667:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3667:  & 0,  1.00000000000,  0,   & 
3668:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3668:  & 1.00000000000,  0,  0,   & 
3669:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3669:  & 0,  0,  1.00000000000,   & 
3670:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3670:  & -0.707106781187,  0.707106781187,  0,   & 
3671:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3671:  & 0.707106781187,  0.707106781187,  0,   & 
3672:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3672:  & 0,  0,  -1.00000000000,   & 
3673:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3673:  & 0,  1.00000000000,  0,   & 
3674:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3674:  & -1.00000000000,  0,  0,   & 
3675:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3675:  & 0,  0,  1.00000000000,   & 
3676:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3676:  & -1.00000000000,  0,  0,   & 
3677:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3677:  & 0,  1.00000000000,  0,   & 
3678:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3678:  & 0,  0,  1.00000000000,   & 
3679:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3679:  & -0.707106781187,  -0.707106781187,  0,   & 
3680:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3680:  & -0.707106781187,  0.707106781187,  0,   & 
3681:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3681:  & 0,  0,  -1.00000000000,   & 
3682:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3682:  & 0,  -1.00000000000,  0,   & 
3683:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3683:  & -1.00000000000,  0,  0,   & 
3684:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3684:  & 0,  0,  1.00000000000,   & 
3685:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3685:  & 0.707106781187,  -0.707106781187,  0,   & 
3686:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3686:  & -0.707106781187,  -0.707106781187,  0,   & 
3687:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3687:  & 0,  0,  -1.00000000000,   & 
3688:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3688:  & 0.707106781187,  0.707106781187,  0,   & 
3689:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3689:  & -0.707106781187,  0.707106781187,  0,   & 
3690:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3690:  & 0,  0,  -1.00000000000,   & 
3691:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3691:  & 0.707106781187,  -0.707106781187,  0,   & 
3692:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3692:  & 0.707106781187,  0.707106781187,  0,   & 
3693:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3693:  & 0,  0,  -1.00000000000,   & 
3694:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3694:  & -0.707106781187,  -0.707106781187,  0,   & 
3695:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3695:  & 0.707106781187,  -0.707106781187,  0,   & 
3696:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3696:  & 0,  0,  -1.00000000000,   & 
3697:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3697:  & -0.707106781187,  0.707106781187,  0,   & 
3698:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3698:  & -0.707106781187,  -0.707106781187,  0,   & 
3699:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3699:  & 0,  0,  -1.00000000000,   & 
3700:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3700:  & 1.00000000000,  0,  0,   & 
3701:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3701:  & 0,  1.00000000000,  0,   & 
3702:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3702:  & 0,  0,  1.00000000000,   & 
3703:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3703:  & 0,  1.00000000000,  0,   & 
3704:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3704:  & -1.00000000000,  0,  0,   & 
3705:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3705:  & 0,  0,  1.00000000000,   & 
3706:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3706:  & 1.00000000000,  0,  0,   & 
3707:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3707:  & 0,  -1.00000000000,  0,   & 
3708:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3708:  & 0,  0,  1.00000000000,   & 
3709:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3709:  & 0.707106781187,  0.707106781187,  0,   & 
3710:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3710:  & 0.707106781187,  -0.707106781187,  0,   & 
3711:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3711:  & 0,  0,  -1.00000000000,   & 
3712:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3712:  & -1.00000000000,  0,  0,   & 
3713:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3713:  & 0,  -1.00000000000,  0,   & 
3714:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3714:  & 0,  0,  1.00000000000,   & 
3715:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3715:  & 0,  1.00000000000,  0,   & 
3716:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3716:  & 1.00000000000,  0,  0,   & 
3717:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3717:  & 0,  0,  1.00000000000,   & 
3718:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3718:  & -0.707106781187,  0.707106781187,  0,   & 
3719:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3719:  & 0.707106781187,  0.707106781187,  0,   & 
3720:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3720:  & 0,  0,  -1.00000000000,   & 
3721:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3721:  & 0,  -1.00000000000,  0,   & 
3722:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3722:  & 1.00000000000,  0,  0,   & 
3723:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3723:  & 0,  0,  1.00000000000,   & 
3724:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3724:  & -1.00000000000,  0,  0,   & 
3725:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3725:  & 0,  1.00000000000,  0,   & 
3726:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3726:  & 0,  0,  1.00000000000,   & 
3727:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3727:  & -0.707106781187,  -0.707106781187,  0,   & 
3728:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3728:  & -0.707106781187,  0.707106781187,  0,   & 
3729:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3729:  & 0,  0,  -1.00000000000,   & 
3730:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3730:  & 0,  -1.00000000000,  0,   & 
3731:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3731:  & -1.00000000000,  0,  0,   & 
3732:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3732:  & 0,  0,  1.00000000000,   & 
3733:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3733:  & 0.707106781187,  -0.707106781187,  0,   & 
3734:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3734:  & -0.707106781187,  -0.707106781187,  0,   & 
3735:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3735:  & 0,  0,  -1.00000000000,   & 
3736:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3736:  & 0.707106781187,  -0.707106781187,  0,   & 
3737:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3737:  & 0.707106781187,  0.707106781187,  0,   & 
3738:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3738:  & 0,  0,  -1.00000000000,   & 
3739:  & 0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3739:  & 0.707106781187,  0.707106781187,  0,   & 
3740:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3740:  & -0.707106781187,  0.707106781187,  0,   & 
3741:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3741:  & 0,  0,  -1.00000000000,   & 
3742:  & -0.707106781187D0,  0.707106781187D0,  0.0D0,   & 3742:  & -0.707106781187,  0.707106781187,  0,   & 
3743:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3743:  & -0.707106781187,  -0.707106781187,  0,   & 
3744:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3744:  & 0,  0,  -1.00000000000,   & 
3745:  & -0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3745:  & -0.707106781187,  -0.707106781187,  0,   & 
3746:  & 0.707106781187D0,  -0.707106781187D0,  0.0D0,   & 3746:  & 0.707106781187,  -0.707106781187,  0,   & 
3747:  & 0.0D0,  0.0D0,  -1.00000000000D0/3747:  & 0,  0,  -1.00000000000/
3748: 3748: 
3749: IF (GETOPS) THEN3749: IF (GETOPS) THEN
3750:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3750:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3751:    RETURN3751:    RETURN
3752: ENDIF3752: ENDIF
3753:   3753:   
3754: IF (INV.GE.0) THEN3754: IF (INV.GE.0) THEN
3755:    DO J2=1,NLOCAL3755:    DO J2=1,NLOCAL
3756:       J3=3*(J2-1)3756:       J3=3*(J2-1)
3757:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3757:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3769: 3769: 
3770: END SUBROUTINE CSMD4D3770: END SUBROUTINE CSMD4D
3771: 3771: 
3772: SUBROUTINE CSMD4H(X,Y,OPNUM,INV,NLOCAL,GETOPS)3772: SUBROUTINE CSMD4H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3773: USE COMMONS,ONLY : CSMGPINDEX, PTGP3773: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3774: IMPLICIT NONE3774: IMPLICIT NONE
3775: INTEGER OPNUM, J2, J3, INV, NLOCAL3775: INTEGER OPNUM, J2, J3, INV, NLOCAL
3776: DOUBLE PRECISION RMAT(3,3,32), X(3*NLOCAL), Y(3*NLOCAL)3776: DOUBLE PRECISION RMAT(3,3,32), X(3*NLOCAL), Y(3*NLOCAL)
3777: LOGICAL GETOPS3777: LOGICAL GETOPS
3778: DATA RMAT / &3778: DATA RMAT / &
3779:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3779:  & 1.00000000000,  0,  0,   & 
3780:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3780:  & 0,  1.00000000000,  0,   & 
3781:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3781:  & 0,  0,  1.00000000000,   & 
3782:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3782:  & 0,  -1.00000000000,  0,   & 
3783:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3783:  & 1.00000000000,  0,  0,   & 
3784:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3784:  & 0,  0,  1.00000000000,   & 
3785:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3785:  & 1.00000000000,  0,  0,   & 
3786:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3786:  & 0,  -1.00000000000,  0,   & 
3787:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3787:  & 0,  0,  1.00000000000,   & 
3788:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3788:  & 1.00000000000,  0,  0,   & 
3789:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3789:  & 0,  -1.00000000000,  0,   & 
3790:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3790:  & 0,  0,  -1.00000000000,   & 
3791:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3791:  & -1.00000000000,  0,  0,   & 
3792:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3792:  & 0,  -1.00000000000,  0,   & 
3793:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3793:  & 0,  0,  1.00000000000,   & 
3794:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3794:  & 0,  1.00000000000,  0,   & 
3795:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3795:  & 1.00000000000,  0,  0,   & 
3796:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3796:  & 0,  0,  1.00000000000,   & 
3797:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3797:  & 0,  1.00000000000,  0,   & 
3798:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3798:  & 1.00000000000,  0,  0,   & 
3799:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3799:  & 0,  0,  -1.00000000000,   & 
3800:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3800:  & 0,  1.00000000000,  0,   & 
3801:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3801:  & -1.00000000000,  0,  0,   & 
3802:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3802:  & 0,  0,  1.00000000000,   & 
3803:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3803:  & -1.00000000000,  0,  0,   & 
3804:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3804:  & 0,  1.00000000000,  0,   & 
3805:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3805:  & 0,  0,  1.00000000000,   & 
3806:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3806:  & -1.00000000000,  0,  0,   & 
3807:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3807:  & 0,  1.00000000000,  0,   & 
3808:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3808:  & 0,  0,  -1.00000000000,   & 
3809:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3809:  & 0,  -1.00000000000,  0,   & 
3810:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3810:  & -1.00000000000,  0,  0,   & 
3811:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3811:  & 0,  0,  1.00000000000,   & 
3812:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3812:  & 0,  -1.00000000000,  0,   & 
3813:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3813:  & -1.00000000000,  0,  0,   & 
3814:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3814:  & 0,  0,  -1.00000000000,   & 
3815:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3815:  & 1.00000000000,  0,  0,   & 
3816:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3816:  & 0,  1.00000000000,  0,   & 
3817:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3817:  & 0,  0,  -1.00000000000,   & 
3818:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3818:  & 0,  -1.00000000000,  0,   & 
3819:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3819:  & 1.00000000000,  0,  0,   & 
3820:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3820:  & 0,  0,  -1.00000000000,   & 
3821:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3821:  & -1.00000000000,  0,  0,   & 
3822:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3822:  & 0,  -1.00000000000,  0,   & 
3823:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3823:  & 0,  0,  -1.00000000000,   & 
3824:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3824:  & 0,  1.00000000000,  0,   & 
3825:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3825:  & -1.00000000000,  0,  0,   & 
3826:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3826:  & 0,  0,  -1.00000000000,   & 
3827:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3827:  & 1.00000000000,  0,  0,   & 
3828:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3828:  & 0,  1.00000000000,  0,   & 
3829:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3829:  & 0,  0,  1.00000000000,   & 
3830:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3830:  & 0,  1.00000000000,  0,   & 
3831:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3831:  & -1.00000000000,  0,  0,   & 
3832:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3832:  & 0,  0,  1.00000000000,   & 
3833:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3833:  & 1.00000000000,  0,  0,   & 
3834:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3834:  & 0,  -1.00000000000,  0,   & 
3835:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3835:  & 0,  0,  1.00000000000,   & 
3836:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3836:  & 1.00000000000,  0,  0,   & 
3837:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3837:  & 0,  -1.00000000000,  0,   & 
3838:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3838:  & 0,  0,  -1.00000000000,   & 
3839:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3839:  & -1.00000000000,  0,  0,   & 
3840:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3840:  & 0,  -1.00000000000,  0,   & 
3841:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3841:  & 0,  0,  1.00000000000,   & 
3842:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3842:  & 0,  1.00000000000,  0,   & 
3843:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3843:  & 1.00000000000,  0,  0,   & 
3844:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3844:  & 0,  0,  1.00000000000,   & 
3845:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3845:  & 0,  1.00000000000,  0,   & 
3846:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3846:  & 1.00000000000,  0,  0,   & 
3847:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3847:  & 0,  0,  -1.00000000000,   & 
3848:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3848:  & 0,  -1.00000000000,  0,   & 
3849:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3849:  & 1.00000000000,  0,  0,   & 
3850:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3850:  & 0,  0,  1.00000000000,   & 
3851:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3851:  & -1.00000000000,  0,  0,   & 
3852:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3852:  & 0,  1.00000000000,  0,   & 
3853:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3853:  & 0,  0,  1.00000000000,   & 
3854:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3854:  & -1.00000000000,  0,  0,   & 
3855:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3855:  & 0,  1.00000000000,  0,   & 
3856:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3856:  & 0,  0,  -1.00000000000,   & 
3857:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3857:  & 0,  -1.00000000000,  0,   & 
3858:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3858:  & -1.00000000000,  0,  0,   & 
3859:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3859:  & 0,  0,  1.00000000000,   & 
3860:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3860:  & 0,  -1.00000000000,  0,   & 
3861:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3861:  & -1.00000000000,  0,  0,   & 
3862:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3862:  & 0,  0,  -1.00000000000,   & 
3863:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3863:  & 1.00000000000,  0,  0,   & 
3864:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3864:  & 0,  1.00000000000,  0,   & 
3865:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3865:  & 0,  0,  -1.00000000000,   & 
3866:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3866:  & 0,  1.00000000000,  0,   & 
3867:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3867:  & -1.00000000000,  0,  0,   & 
3868:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3868:  & 0,  0,  -1.00000000000,   & 
3869:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3869:  & -1.00000000000,  0,  0,   & 
3870:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3870:  & 0,  -1.00000000000,  0,   & 
3871:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3871:  & 0,  0,  -1.00000000000,   & 
3872:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3872:  & 0,  -1.00000000000,  0,   & 
3873:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3873:  & 1.00000000000,  0,  0,   & 
3874:  & 0.0D0,  0.0D0,  -1.00000000000D0/3874:  & 0,  0,  -1.00000000000/
3875: 3875: 
3876: IF (GETOPS) THEN3876: IF (GETOPS) THEN
3877:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3877:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3878:    RETURN3878:    RETURN
3879: ENDIF3879: ENDIF
3880:   3880:   
3881: IF (INV.GE.0) THEN3881: IF (INV.GE.0) THEN
3882:    DO J2=1,NLOCAL3882:    DO J2=1,NLOCAL
3883:       J3=3*(J2-1)3883:       J3=3*(J2-1)
3884:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3884:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3896: 3896: 
3897: END SUBROUTINE CSMD4H3897: END SUBROUTINE CSMD4H
3898: 3898: 
3899: SUBROUTINE CSMD4(X,Y,OPNUM,INV,NLOCAL,GETOPS)3899: SUBROUTINE CSMD4(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3900: USE COMMONS,ONLY : CSMGPINDEX, PTGP3900: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3901: IMPLICIT NONE3901: IMPLICIT NONE
3902: INTEGER OPNUM, J2, J3, INV, NLOCAL3902: INTEGER OPNUM, J2, J3, INV, NLOCAL
3903: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)3903: DOUBLE PRECISION RMAT(3,3,16), X(3*NLOCAL), Y(3*NLOCAL)
3904: LOGICAL GETOPS3904: LOGICAL GETOPS
3905: DATA RMAT / &3905: DATA RMAT / &
3906:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3906:  & 1.00000000000,  0,  0,   & 
3907:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3907:  & 0,  1.00000000000,  0,   & 
3908:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3908:  & 0,  0,  1.00000000000,   & 
3909:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3909:  & 0,  -1.00000000000,  0,   & 
3910:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3910:  & 1.00000000000,  0,  0,   & 
3911:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3911:  & 0,  0,  1.00000000000,   & 
3912:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3912:  & 1.00000000000,  0,  0,   & 
3913:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3913:  & 0,  -1.00000000000,  0,   & 
3914:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3914:  & 0,  0,  -1.00000000000,   & 
3915:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3915:  & -1.00000000000,  0,  0,   & 
3916:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3916:  & 0,  -1.00000000000,  0,   & 
3917:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3917:  & 0,  0,  1.00000000000,   & 
3918:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3918:  & 0,  1.00000000000,  0,   & 
3919:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3919:  & 1.00000000000,  0,  0,   & 
3920:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3920:  & 0,  0,  -1.00000000000,   & 
3921:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3921:  & 0,  1.00000000000,  0,   & 
3922:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3922:  & -1.00000000000,  0,  0,   & 
3923:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3923:  & 0,  0,  1.00000000000,   & 
3924:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3924:  & -1.00000000000,  0,  0,   & 
3925:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3925:  & 0,  1.00000000000,  0,   & 
3926:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3926:  & 0,  0,  -1.00000000000,   & 
3927:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3927:  & 0,  -1.00000000000,  0,   & 
3928:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3928:  & -1.00000000000,  0,  0,   & 
3929:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3929:  & 0,  0,  -1.00000000000,   & 
3930:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3930:  & 1.00000000000,  0,  0,   & 
3931:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3931:  & 0,  1.00000000000,  0,   & 
3932:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3932:  & 0,  0,  1.00000000000,   & 
3933:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3933:  & 0,  1.00000000000,  0,   & 
3934:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3934:  & -1.00000000000,  0,  0,   & 
3935:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3935:  & 0,  0,  1.00000000000,   & 
3936:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3936:  & 1.00000000000,  0,  0,   & 
3937:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3937:  & 0,  -1.00000000000,  0,   & 
3938:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3938:  & 0,  0,  -1.00000000000,   & 
3939:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3939:  & -1.00000000000,  0,  0,   & 
3940:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3940:  & 0,  -1.00000000000,  0,   & 
3941:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3941:  & 0,  0,  1.00000000000,   & 
3942:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3942:  & 0,  1.00000000000,  0,   & 
3943:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3943:  & 1.00000000000,  0,  0,   & 
3944:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3944:  & 0,  0,  -1.00000000000,   & 
3945:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3945:  & 0,  -1.00000000000,  0,   & 
3946:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3946:  & 1.00000000000,  0,  0,   & 
3947:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3947:  & 0,  0,  1.00000000000,   & 
3948:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3948:  & -1.00000000000,  0,  0,   & 
3949:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3949:  & 0,  1.00000000000,  0,   & 
3950:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3950:  & 0,  0,  -1.00000000000,   & 
3951:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 3951:  & 0,  -1.00000000000,  0,   & 
3952:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 3952:  & -1.00000000000,  0,  0,   & 
3953:  & 0.0D0,  0.0D0,  -1.00000000000D0/3953:  & 0,  0,  -1.00000000000/
3954: 3954: 
3955: IF (GETOPS) THEN3955: IF (GETOPS) THEN
3956:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)3956:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
3957:    RETURN3957:    RETURN
3958: ENDIF3958: ENDIF
3959:   3959:   
3960: IF (INV.GE.0) THEN3960: IF (INV.GE.0) THEN
3961:    DO J2=1,NLOCAL3961:    DO J2=1,NLOCAL
3962:       J3=3*(J2-1)3962:       J3=3*(J2-1)
3963:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)3963:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
3975: 3975: 
3976: END SUBROUTINE CSMD43976: END SUBROUTINE CSMD4
3977: 3977: 
3978: SUBROUTINE CSMD6D(X,Y,OPNUM,INV,NLOCAL,GETOPS)3978: SUBROUTINE CSMD6D(X,Y,OPNUM,INV,NLOCAL,GETOPS)
3979: USE COMMONS,ONLY : CSMGPINDEX, PTGP3979: USE COMMONS,ONLY : CSMGPINDEX, PTGP
3980: IMPLICIT NONE3980: IMPLICIT NONE
3981: INTEGER OPNUM, J2, J3, INV, NLOCAL3981: INTEGER OPNUM, J2, J3, INV, NLOCAL
3982: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)3982: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)
3983: LOGICAL GETOPS3983: LOGICAL GETOPS
3984: DATA RMAT / &3984: DATA RMAT / &
3985:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3985:  & 1.00000000000,  0,  0,   & 
3986:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3986:  & 0,  1.00000000000,  0,   & 
3987:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3987:  & 0,  0,  1.00000000000,   & 
3988:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3988:  & 0.500000000000,  -0.866025403784,  0,   & 
3989:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3989:  & 0.866025403784,  0.500000000000,  0,   & 
3990:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3990:  & 0,  0,  1.00000000000,   & 
3991:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 3991:  & 1.00000000000,  0,  0,   & 
3992:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 3992:  & 0,  1.00000000000,  0,   & 
3993:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3993:  & 0,  0,  -1.00000000000,   & 
3994:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 3994:  & 0.866025403784,  0.500000000000,  0,   & 
3995:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3995:  & 0.500000000000,  -0.866025403784,  0,   & 
3996:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 3996:  & 0,  0,  -1.00000000000,   & 
3997:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 3997:  & -0.500000000000,  -0.866025403784,  0,   & 
3998:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 3998:  & 0.866025403784,  -0.500000000000,  0,   & 
3999:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 3999:  & 0,  0,  1.00000000000,   & 
4000:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4000:  & 0.500000000000,  -0.866025403784,  0,   & 
4001:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4001:  & 0.866025403784,  0.500000000000,  0,   & 
4002:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4002:  & 0,  0,  -1.00000000000,   & 
4003:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4003:  & 0,  1.00000000000,  0,   & 
4004:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4004:  & 1.00000000000,  0,  0,   & 
4005:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4005:  & 0,  0,  -1.00000000000,   & 
4006:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4006:  & -1.00000000000,  0,  0,   & 
4007:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4007:  & 0,  -1.00000000000,  0,   & 
4008:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4008:  & 0,  0,  1.00000000000,   & 
4009:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4009:  & -0.500000000000,  -0.866025403784,  0,   & 
4010:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4010:  & 0.866025403784,  -0.500000000000,  0,   & 
4011:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4011:  & 0,  0,  -1.00000000000,   & 
4012:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4012:  & -0.866025403784,  0.500000000000,  0,   & 
4013:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4013:  & 0.500000000000,  0.866025403784,  0,   & 
4014:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4014:  & 0,  0,  -1.00000000000,   & 
4015:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4015:  & -0.500000000000,  0.866025403784,  0,   & 
4016:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4016:  & -0.866025403784,  -0.500000000000,  0,   & 
4017:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4017:  & 0,  0,  1.00000000000,   & 
4018:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4018:  & -1.00000000000,  0,  0,   & 
4019:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4019:  & 0,  -1.00000000000,  0,   & 
4020:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4020:  & 0,  0,  -1.00000000000,   & 
4021:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4021:  & -0.866025403784,  -0.500000000000,  0,   & 
4022:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4022:  & -0.500000000000,  0.866025403784,  0,   & 
4023:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4023:  & 0,  0,  -1.00000000000,   & 
4024:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4024:  & 0.500000000000,  0.866025403784,  0,   & 
4025:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4025:  & -0.866025403784,  0.500000000000,  0,   & 
4026:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4026:  & 0,  0,  1.00000000000,   & 
4027:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4027:  & -0.500000000000,  0.866025403784,  0,   & 
4028:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4028:  & -0.866025403784,  -0.500000000000,  0,   & 
4029:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4029:  & 0,  0,  -1.00000000000,   & 
4030:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4030:  & 0,  -1.00000000000,  0,   & 
4031:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4031:  & -1.00000000000,  0,  0,   & 
4032:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4032:  & 0,  0,  -1.00000000000,   & 
4033:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4033:  & 0.500000000000,  0.866025403784,  0,   & 
4034:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4034:  & -0.866025403784,  0.500000000000,  0,   & 
4035:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4035:  & 0,  0,  -1.00000000000,   & 
4036:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4036:  & 0.866025403784,  -0.500000000000,  0,   & 
4037:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4037:  & -0.500000000000,  -0.866025403784,  0,   & 
4038:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4038:  & 0,  0,  -1.00000000000,   & 
4039:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4039:  & 0.866025403784,  0.500000000000,  0,   & 
4040:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4040:  & 0.500000000000,  -0.866025403784,  0,   & 
4041:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4041:  & 0,  0,  1.00000000000,   & 
4042:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4042:  & 0,  1.00000000000,  0,   & 
4043:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4043:  & 1.00000000000,  0,  0,   & 
4044:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4044:  & 0,  0,  1.00000000000,   & 
4045:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4045:  & -0.866025403784,  0.500000000000,  0,   & 
4046:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4046:  & 0.500000000000,  0.866025403784,  0,   & 
4047:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4047:  & 0,  0,  1.00000000000,   & 
4048:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4048:  & -0.866025403784,  -0.500000000000,  0,   & 
4049:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4049:  & -0.500000000000,  0.866025403784,  0,   & 
4050:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4050:  & 0,  0,  1.00000000000,   & 
4051:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4051:  & 0,  -1.00000000000,  0,   & 
4052:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4052:  & -1.00000000000,  0,  0,   & 
4053:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4053:  & 0,  0,  1.00000000000,   & 
4054:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4054:  & 0.866025403784,  -0.500000000000,  0,   & 
4055:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4055:  & -0.500000000000,  -0.866025403784,  0,   & 
4056:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4056:  & 0,  0,  1.00000000000,   & 
4057:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4057:  & 1.00000000000,  0,  0,   & 
4058:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4058:  & 0,  1.00000000000,  0,   & 
4059:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4059:  & 0,  0,  1.00000000000,   & 
4060:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4060:  & 0.500000000000,  0.866025403784,  0,   & 
4061:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4061:  & -0.866025403784,  0.500000000000,  0,   & 
4062:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4062:  & 0,  0,  1.00000000000,   & 
4063:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4063:  & 1.00000000000,  0,  0,   & 
4064:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4064:  & 0,  1.00000000000,  0,   & 
4065:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4065:  & 0,  0,  -1.00000000000,   & 
4066:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4066:  & 0.866025403784,  0.500000000000,  0,   & 
4067:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4067:  & 0.500000000000,  -0.866025403784,  0,   & 
4068:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4068:  & 0,  0,  -1.00000000000,   & 
4069:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4069:  & -0.500000000000,  0.866025403784,  0,   & 
4070:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4070:  & -0.866025403784,  -0.500000000000,  0,   & 
4071:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4071:  & 0,  0,  1.00000000000,   & 
4072:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4072:  & 0.500000000000,  0.866025403784,  0,   & 
4073:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4073:  & -0.866025403784,  0.500000000000,  0,   & 
4074:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4074:  & 0,  0,  -1.00000000000,   & 
4075:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4075:  & 0,  1.00000000000,  0,   & 
4076:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4076:  & 1.00000000000,  0,  0,   & 
4077:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4077:  & 0,  0,  -1.00000000000,   & 
4078:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4078:  & -1.00000000000,  0,  0,   & 
4079:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4079:  & 0,  -1.00000000000,  0,   & 
4080:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4080:  & 0,  0,  1.00000000000,   & 
4081:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4081:  & -0.500000000000,  0.866025403784,  0,   & 
4082:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4082:  & -0.866025403784,  -0.500000000000,  0,   & 
4083:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4083:  & 0,  0,  -1.00000000000,   & 
4084:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4084:  & -0.866025403784,  0.500000000000,  0,   & 
4085:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4085:  & 0.500000000000,  0.866025403784,  0,   & 
4086:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4086:  & 0,  0,  -1.00000000000,   & 
4087:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4087:  & -0.500000000000,  -0.866025403784,  0,   & 
4088:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4088:  & 0.866025403784,  -0.500000000000,  0,   & 
4089:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4089:  & 0,  0,  1.00000000000,   & 
4090:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4090:  & -1.00000000000,  0,  0,   & 
4091:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4091:  & 0,  -1.00000000000,  0,   & 
4092:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4092:  & 0,  0,  -1.00000000000,   & 
4093:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4093:  & -0.866025403784,  -0.500000000000,  0,   & 
4094:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4094:  & -0.500000000000,  0.866025403784,  0,   & 
4095:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4095:  & 0,  0,  -1.00000000000,   & 
4096:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4096:  & 0.500000000000,  -0.866025403784,  0,   & 
4097:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4097:  & 0.866025403784,  0.500000000000,  0,   & 
4098:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4098:  & 0,  0,  1.00000000000,   & 
4099:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4099:  & -0.500000000000,  -0.866025403784,  0,   & 
4100:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4100:  & 0.866025403784,  -0.500000000000,  0,   & 
4101:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4101:  & 0,  0,  -1.00000000000,   & 
4102:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4102:  & 0,  -1.00000000000,  0,   & 
4103:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4103:  & -1.00000000000,  0,  0,   & 
4104:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4104:  & 0,  0,  -1.00000000000,   & 
4105:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4105:  & 0.500000000000,  -0.866025403784,  0,   & 
4106:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4106:  & 0.866025403784,  0.500000000000,  0,   & 
4107:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4107:  & 0,  0,  -1.00000000000,   & 
4108:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4108:  & 0.866025403784,  -0.500000000000,  0,   & 
4109:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4109:  & -0.500000000000,  -0.866025403784,  0,   & 
4110:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4110:  & 0,  0,  -1.00000000000,   & 
4111:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4111:  & 0.866025403784,  0.500000000000,  0,   & 
4112:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4112:  & 0.500000000000,  -0.866025403784,  0,   & 
4113:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4113:  & 0,  0,  1.00000000000,   & 
4114:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4114:  & 0,  1.00000000000,  0,   & 
4115:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4115:  & 1.00000000000,  0,  0,   & 
4116:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4116:  & 0,  0,  1.00000000000,   & 
4117:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4117:  & -0.866025403784,  0.500000000000,  0,   & 
4118:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4118:  & 0.500000000000,  0.866025403784,  0,   & 
4119:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4119:  & 0,  0,  1.00000000000,   & 
4120:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4120:  & -0.866025403784,  -0.500000000000,  0,   & 
4121:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4121:  & -0.500000000000,  0.866025403784,  0,   & 
4122:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4122:  & 0,  0,  1.00000000000,   & 
4123:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4123:  & 0,  -1.00000000000,  0,   & 
4124:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4124:  & -1.00000000000,  0,  0,   & 
4125:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4125:  & 0,  0,  1.00000000000,   & 
4126:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4126:  & 0.866025403784,  -0.500000000000,  0,   & 
4127:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4127:  & -0.500000000000,  -0.866025403784,  0,   & 
4128:  & 0.0D0,  0.0D0,  1.00000000000D0/4128:  & 0,  0,  1.00000000000/
4129: 4129: 
4130: IF (GETOPS) THEN4130: IF (GETOPS) THEN
4131:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)4131:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
4132:    RETURN4132:    RETURN
4133: ENDIF4133: ENDIF
4134:   4134:   
4135: IF (INV.GE.0) THEN4135: IF (INV.GE.0) THEN
4136:    DO J2=1,NLOCAL4136:    DO J2=1,NLOCAL
4137:       J3=3*(J2-1)4137:       J3=3*(J2-1)
4138:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)4138:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
4150: 4150: 
4151: END SUBROUTINE CSMD6D4151: END SUBROUTINE CSMD6D
4152: 4152: 
4153: SUBROUTINE CSMD6H(X,Y,OPNUM,INV,NLOCAL,GETOPS)4153: SUBROUTINE CSMD6H(X,Y,OPNUM,INV,NLOCAL,GETOPS)
4154: USE COMMONS,ONLY : CSMGPINDEX, PTGP4154: USE COMMONS,ONLY : CSMGPINDEX, PTGP
4155: IMPLICIT NONE4155: IMPLICIT NONE
4156: INTEGER OPNUM, J2, J3, INV, NLOCAL4156: INTEGER OPNUM, J2, J3, INV, NLOCAL
4157: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)4157: DOUBLE PRECISION RMAT(3,3,48), X(3*NLOCAL), Y(3*NLOCAL)
4158: LOGICAL GETOPS4158: LOGICAL GETOPS
4159: DATA RMAT / &4159: DATA RMAT / &
4160:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4160:  & 1.00000000000,  0,  0,   & 
4161:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4161:  & 0,  1.00000000000,  0,   & 
4162:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4162:  & 0,  0,  1.00000000000,   & 
4163:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4163:  & 0.500000000000,  -0.866025403784,  0,   & 
4164:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4164:  & 0.866025403784,  0.500000000000,  0,   & 
4165:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4165:  & 0,  0,  1.00000000000,   & 
4166:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4166:  & 1.00000000000,  0,  0,   & 
4167:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4167:  & 0,  1.00000000000,  0,   & 
4168:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4168:  & 0,  0,  -1.00000000000,   & 
4169:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4169:  & 1.00000000000,  0,  0,   & 
4170:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4170:  & 0,  -1.00000000000,  0,   & 
4171:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4171:  & 0,  0,  -1.00000000000,   & 
4172:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4172:  & -0.500000000000,  -0.866025403784,  0,   & 
4173:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4173:  & 0.866025403784,  -0.500000000000,  0,   & 
4174:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4174:  & 0,  0,  1.00000000000,   & 
4175:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4175:  & 0.500000000000,  -0.866025403784,  0,   & 
4176:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4176:  & 0.866025403784,  0.500000000000,  0,   & 
4177:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4177:  & 0,  0,  -1.00000000000,   & 
4178:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4178:  & 0.500000000000,  0.866025403784,  0,   & 
4179:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4179:  & 0.866025403784,  -0.500000000000,  0,   & 
4180:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4180:  & 0,  0,  -1.00000000000,   & 
4181:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4181:  & -1.00000000000,  0,  0,   & 
4182:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4182:  & 0,  -1.00000000000,  0,   & 
4183:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4183:  & 0,  0,  1.00000000000,   & 
4184:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4184:  & -0.500000000000,  -0.866025403784,  0,   & 
4185:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4185:  & 0.866025403784,  -0.500000000000,  0,   & 
4186:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4186:  & 0,  0,  -1.00000000000,   & 
4187:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4187:  & -0.500000000000,  0.866025403784,  0,   & 
4188:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4188:  & 0.866025403784,  0.500000000000,  0,   & 
4189:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4189:  & 0,  0,  -1.00000000000,   & 
4190:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4190:  & -0.500000000000,  0.866025403784,  0,   & 
4191:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4191:  & -0.866025403784,  -0.500000000000,  0,   & 
4192:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4192:  & 0,  0,  1.00000000000,   & 
4193:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4193:  & -1.00000000000,  0,  0,   & 
4194:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4194:  & 0,  -1.00000000000,  0,   & 
4195:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4195:  & 0,  0,  -1.00000000000,   & 
4196:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4196:  & -1.00000000000,  0,  0,   & 
4197:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4197:  & 0,  1.00000000000,  0,   & 
4198:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4198:  & 0,  0,  -1.00000000000,   & 
4199:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4199:  & 0.500000000000,  0.866025403784,  0,   & 
4200:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4200:  & -0.866025403784,  0.500000000000,  0,   & 
4201:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4201:  & 0,  0,  1.00000000000,   & 
4202:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4202:  & -0.500000000000,  0.866025403784,  0,   & 
4203:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4203:  & -0.866025403784,  -0.500000000000,  0,   & 
4204:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4204:  & 0,  0,  -1.00000000000,   & 
4205:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4205:  & -0.500000000000,  -0.866025403784,  0,   & 
4206:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4206:  & -0.866025403784,  0.500000000000,  0,   & 
4207:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4207:  & 0,  0,  -1.00000000000,   & 
4208:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4208:  & 0.500000000000,  0.866025403784,  0,   & 
4209:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4209:  & -0.866025403784,  0.500000000000,  0,   & 
4210:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4210:  & 0,  0,  -1.00000000000,   & 
4211:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4211:  & 0.500000000000,  -0.866025403784,  0,   & 
4212:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4212:  & -0.866025403784,  -0.500000000000,  0,   & 
4213:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4213:  & 0,  0,  -1.00000000000,   & 
4214:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4214:  & 1.00000000000,  0,  0,   & 
4215:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4215:  & 0,  -1.00000000000,  0,   & 
4216:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4216:  & 0,  0,  1.00000000000,   & 
4217:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4217:  & 0.500000000000,  0.866025403784,  0,   & 
4218:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4218:  & 0.866025403784,  -0.500000000000,  0,   & 
4219:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4219:  & 0,  0,  1.00000000000,   & 
4220:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4220:  & -0.500000000000,  0.866025403784,  0,   & 
4221:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4221:  & 0.866025403784,  0.500000000000,  0,   & 
4222:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4222:  & 0,  0,  1.00000000000,   & 
4223:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4223:  & -1.00000000000,  0,  0,   & 
4224:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4224:  & 0,  1.00000000000,  0,   & 
4225:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4225:  & 0,  0,  1.00000000000,   & 
4226:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4226:  & -0.500000000000,  -0.866025403784,  0,   & 
4227:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4227:  & -0.866025403784,  0.500000000000,  0,   & 
4228:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4228:  & 0,  0,  1.00000000000,   & 
4229:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4229:  & 0.500000000000,  -0.866025403784,  0,   & 
4230:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4230:  & -0.866025403784,  -0.500000000000,  0,   & 
4231:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4231:  & 0,  0,  1.00000000000,   & 
4232:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4232:  & 1.00000000000,  0,  0,   & 
4233:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4233:  & 0,  1.00000000000,  0,   & 
4234:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4234:  & 0,  0,  1.00000000000,   & 
4235:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4235:  & 0.500000000000,  0.866025403784,  0,   & 
4236:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4236:  & -0.866025403784,  0.500000000000,  0,   & 
4237:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4237:  & 0,  0,  1.00000000000,   & 
4238:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4238:  & 1.00000000000,  0,  0,   & 
4239:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4239:  & 0,  1.00000000000,  0,   & 
4240:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4240:  & 0,  0,  -1.00000000000,   & 
4241:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4241:  & 1.00000000000,  0,  0,   & 
4242:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4242:  & 0,  -1.00000000000,  0,   & 
4243:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4243:  & 0,  0,  -1.00000000000,   & 
4244:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4244:  & -0.500000000000,  0.866025403784,  0,   & 
4245:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4245:  & -0.866025403784,  -0.500000000000,  0,   & 
4246:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4246:  & 0,  0,  1.00000000000,   & 
4247:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4247:  & 0.500000000000,  0.866025403784,  0,   & 
4248:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4248:  & -0.866025403784,  0.500000000000,  0,   & 
4249:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4249:  & 0,  0,  -1.00000000000,   & 
4250:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4250:  & 0.500000000000,  0.866025403784,  0,   & 
4251:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4251:  & 0.866025403784,  -0.500000000000,  0,   & 
4252:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4252:  & 0,  0,  -1.00000000000,   & 
4253:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4253:  & -1.00000000000,  0,  0,   & 
4254:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4254:  & 0,  -1.00000000000,  0,   & 
4255:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4255:  & 0,  0,  1.00000000000,   & 
4256:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4256:  & -0.500000000000,  0.866025403784,  0,   & 
4257:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4257:  & -0.866025403784,  -0.500000000000,  0,   & 
4258:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4258:  & 0,  0,  -1.00000000000,   & 
4259:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4259:  & -0.500000000000,  0.866025403784,  0,   & 
4260:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4260:  & 0.866025403784,  0.500000000000,  0,   & 
4261:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4261:  & 0,  0,  -1.00000000000,   & 
4262:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4262:  & -0.500000000000,  -0.866025403784,  0,   & 
4263:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4263:  & 0.866025403784,  -0.500000000000,  0,   & 
4264:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4264:  & 0,  0,  1.00000000000,   & 
4265:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4265:  & -1.00000000000,  0,  0,   & 
4266:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4266:  & 0,  -1.00000000000,  0,   & 
4267:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4267:  & 0,  0,  -1.00000000000,   & 
4268:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4268:  & -1.00000000000,  0,  0,   & 
4269:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4269:  & 0,  1.00000000000,  0,   & 
4270:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4270:  & 0,  0,  -1.00000000000,   & 
4271:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4271:  & 0.500000000000,  -0.866025403784,  0,   & 
4272:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4272:  & 0.866025403784,  0.500000000000,  0,   & 
4273:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4273:  & 0,  0,  1.00000000000,   & 
4274:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4274:  & -0.500000000000,  -0.866025403784,  0,   & 
4275:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4275:  & 0.866025403784,  -0.500000000000,  0,   & 
4276:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4276:  & 0,  0,  -1.00000000000,   & 
4277:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4277:  & -0.500000000000,  -0.866025403784,  0,   & 
4278:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4278:  & -0.866025403784,  0.500000000000,  0,   & 
4279:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4279:  & 0,  0,  -1.00000000000,   & 
4280:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4280:  & 0.500000000000,  -0.866025403784,  0,   & 
4281:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4281:  & 0.866025403784,  0.500000000000,  0,   & 
4282:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4282:  & 0,  0,  -1.00000000000,   & 
4283:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4283:  & 0.500000000000,  -0.866025403784,  0,   & 
4284:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4284:  & -0.866025403784,  -0.500000000000,  0,   & 
4285:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4285:  & 0,  0,  -1.00000000000,   & 
4286:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4286:  & 1.00000000000,  0,  0,   & 
4287:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4287:  & 0,  -1.00000000000,  0,   & 
4288:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4288:  & 0,  0,  1.00000000000,   & 
4289:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4289:  & 0.500000000000,  0.866025403784,  0,   & 
4290:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4290:  & 0.866025403784,  -0.500000000000,  0,   & 
4291:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4291:  & 0,  0,  1.00000000000,   & 
4292:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4292:  & -0.500000000000,  0.866025403784,  0,   & 
4293:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4293:  & 0.866025403784,  0.500000000000,  0,   & 
4294:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4294:  & 0,  0,  1.00000000000,   & 
4295:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4295:  & -1.00000000000,  0,  0,   & 
4296:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4296:  & 0,  1.00000000000,  0,   & 
4297:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4297:  & 0,  0,  1.00000000000,   & 
4298:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4298:  & -0.500000000000,  -0.866025403784,  0,   & 
4299:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4299:  & -0.866025403784,  0.500000000000,  0,   & 
4300:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4300:  & 0,  0,  1.00000000000,   & 
4301:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4301:  & 0.500000000000,  -0.866025403784,  0,   & 
4302:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4302:  & -0.866025403784,  -0.500000000000,  0,   & 
4303:  & 0.0D0,  0.0D0,  1.00000000000D0/ 4303:  & 0,  0,  1.00000000000/ 
4304: 4304: 
4305: IF (GETOPS) THEN4305: IF (GETOPS) THEN
4306:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)4306:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
4307:    RETURN4307:    RETURN
4308: ENDIF4308: ENDIF
4309:   4309:   
4310: IF (INV.GE.0) THEN4310: IF (INV.GE.0) THEN
4311:    DO J2=1,NLOCAL4311:    DO J2=1,NLOCAL
4312:       J3=3*(J2-1)4312:       J3=3*(J2-1)
4313:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)4313:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
4325: 4325: 
4326: END SUBROUTINE CSMD6H4326: END SUBROUTINE CSMD6H
4327: 4327: 
4328: SUBROUTINE CSMD6(X,Y,OPNUM,INV,NLOCAL,GETOPS)4328: SUBROUTINE CSMD6(X,Y,OPNUM,INV,NLOCAL,GETOPS)
4329: USE COMMONS,ONLY : CSMGPINDEX, PTGP4329: USE COMMONS,ONLY : CSMGPINDEX, PTGP
4330: IMPLICIT NONE4330: IMPLICIT NONE
4331: INTEGER OPNUM, J2, J3, INV, NLOCAL4331: INTEGER OPNUM, J2, J3, INV, NLOCAL
4332: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)4332: DOUBLE PRECISION RMAT(3,3,24), X(3*NLOCAL), Y(3*NLOCAL)
4333: LOGICAL GETOPS4333: LOGICAL GETOPS
4334: DATA RMAT / &4334: DATA RMAT / &
4335:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4335:  & 1.00000000000,  0,  0,   & 
4336:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4336:  & 0,  1.00000000000,  0,   & 
4337:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4337:  & 0,  0,  1.00000000000,   & 
4338:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4338:  & 0.500000000000,  -0.866025403784,  0,   & 
4339:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4339:  & 0.866025403784,  0.500000000000,  0,   & 
4340:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4340:  & 0,  0,  1.00000000000,   & 
4341:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4341:  & 1.00000000000,  0,  0,   & 
4342:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4342:  & 0,  -1.00000000000,  0,   & 
4343:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4343:  & 0,  0,  -1.00000000000,   & 
4344:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4344:  & -0.500000000000,  -0.866025403784,  0,   & 
4345:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4345:  & 0.866025403784,  -0.500000000000,  0,   & 
4346:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4346:  & 0,  0,  1.00000000000,   & 
4347:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4347:  & 0.500000000000,  0.866025403784,  0,   & 
4348:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4348:  & 0.866025403784,  -0.500000000000,  0,   & 
4349:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4349:  & 0,  0,  -1.00000000000,   & 
4350:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4350:  & -1.00000000000,  0,  0,   & 
4351:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4351:  & 0,  -1.00000000000,  0,   & 
4352:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4352:  & 0,  0,  1.00000000000,   & 
4353:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4353:  & -0.500000000000,  0.866025403784,  0,   & 
4354:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4354:  & 0.866025403784,  0.500000000000,  0,   & 
4355:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4355:  & 0,  0,  -1.00000000000,   & 
4356:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4356:  & -0.500000000000,  0.866025403784,  0,   & 
4357:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4357:  & -0.866025403784,  -0.500000000000,  0,   & 
4358:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4358:  & 0,  0,  1.00000000000,   & 
4359:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4359:  & -1.00000000000,  0,  0,   & 
4360:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4360:  & 0,  1.00000000000,  0,   & 
4361:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4361:  & 0,  0,  -1.00000000000,   & 
4362:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4362:  & 0.500000000000,  0.866025403784,  0,   & 
4363:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4363:  & -0.866025403784,  0.500000000000,  0,   & 
4364:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4364:  & 0,  0,  1.00000000000,   & 
4365:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4365:  & -0.500000000000,  -0.866025403784,  0,   & 
4366:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4366:  & -0.866025403784,  0.500000000000,  0,   & 
4367:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4367:  & 0,  0,  -1.00000000000,   & 
4368:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4368:  & 0.500000000000,  -0.866025403784,  0,   & 
4369:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4369:  & -0.866025403784,  -0.500000000000,  0,   & 
4370:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4370:  & 0,  0,  -1.00000000000,   & 
4371:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4371:  & 1.00000000000,  0,  0,   & 
4372:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4372:  & 0,  1.00000000000,  0,   & 
4373:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4373:  & 0,  0,  1.00000000000,   & 
4374:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4374:  & 0.500000000000,  0.866025403784,  0,   & 
4375:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4375:  & -0.866025403784,  0.500000000000,  0,   & 
4376:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4376:  & 0,  0,  1.00000000000,   & 
4377:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4377:  & 1.00000000000,  0,  0,   & 
4378:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4378:  & 0,  -1.00000000000,  0,   & 
4379:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4379:  & 0,  0,  -1.00000000000,   & 
4380:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4380:  & -0.500000000000,  0.866025403784,  0,   & 
4381:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4381:  & -0.866025403784,  -0.500000000000,  0,   & 
4382:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4382:  & 0,  0,  1.00000000000,   & 
4383:  & 0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4383:  & 0.500000000000,  0.866025403784,  0,   & 
4384:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4384:  & 0.866025403784,  -0.500000000000,  0,   & 
4385:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4385:  & 0,  0,  -1.00000000000,   & 
4386:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4386:  & -1.00000000000,  0,  0,   & 
4387:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4387:  & 0,  -1.00000000000,  0,   & 
4388:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4388:  & 0,  0,  1.00000000000,   & 
4389:  & -0.500000000000D0,  0.866025403784D0,  0.0D0,   & 4389:  & -0.500000000000,  0.866025403784,  0,   & 
4390:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4390:  & 0.866025403784,  0.500000000000,  0,   & 
4391:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4391:  & 0,  0,  -1.00000000000,   & 
4392:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4392:  & -0.500000000000,  -0.866025403784,  0,   & 
4393:  & 0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4393:  & 0.866025403784,  -0.500000000000,  0,   & 
4394:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4394:  & 0,  0,  1.00000000000,   & 
4395:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4395:  & -1.00000000000,  0,  0,   & 
4396:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4396:  & 0,  1.00000000000,  0,   & 
4397:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4397:  & 0,  0,  -1.00000000000,   & 
4398:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4398:  & 0.500000000000,  -0.866025403784,  0,   & 
4399:  & 0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4399:  & 0.866025403784,  0.500000000000,  0,   & 
4400:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4400:  & 0,  0,  1.00000000000,   & 
4401:  & -0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4401:  & -0.500000000000,  -0.866025403784,  0,   & 
4402:  & -0.866025403784D0,  0.500000000000D0,  0.0D0,   & 4402:  & -0.866025403784,  0.500000000000,  0,   & 
4403:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4403:  & 0,  0,  -1.00000000000,   & 
4404:  & 0.500000000000D0,  -0.866025403784D0,  0.0D0,   & 4404:  & 0.500000000000,  -0.866025403784,  0,   & 
4405:  & -0.866025403784D0,  -0.500000000000D0,  0.0D0,   & 4405:  & -0.866025403784,  -0.500000000000,  0,   & 
4406:  & 0.0D0,  0.0D0,  -1.00000000000D0/ 4406:  & 0,  0,  -1.00000000000/ 
4407: 4407: 
4408: IF (GETOPS) THEN4408: IF (GETOPS) THEN
4409:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)4409:    PTGP(1:3,1:3,1:CSMGPINDEX)=RMAT(1:3,1:3,1:CSMGPINDEX)
4410:    RETURN4410:    RETURN
4411: ENDIF4411: ENDIF
4412:   4412:   
4413: IF (INV.GE.0) THEN4413: IF (INV.GE.0) THEN
4414:    DO J2=1,NLOCAL4414:    DO J2=1,NLOCAL
4415:       J3=3*(J2-1)4415:       J3=3*(J2-1)
4416:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)4416:       Y(J3+1)=RMAT(1,1,OPNUM)*X(J3+1)+RMAT(1,2,OPNUM)*X(J3+2)+RMAT(1,3,OPNUM)*X(J3+3)
4428: 4428: 
4429: END SUBROUTINE CSMD64429: END SUBROUTINE CSMD6
4430: 4430: 
4431: SUBROUTINE CSMOH(X,Y,OPNUM,INV,NLOCAL,GETOPS)4431: SUBROUTINE CSMOH(X,Y,OPNUM,INV,NLOCAL,GETOPS)
4432: USE COMMONS,ONLY : CSMGPINDEX, PTGP4432: USE COMMONS,ONLY : CSMGPINDEX, PTGP
4433: IMPLICIT NONE4433: IMPLICIT NONE
4434: INTEGER OPNUM, J2, J3, INV, NLOCAL4434: INTEGER OPNUM, J2, J3, INV, NLOCAL
4435: DOUBLE PRECISION RMAT(3,3,96), X(3*NLOCAL), Y(3*NLOCAL)4435: DOUBLE PRECISION RMAT(3,3,96), X(3*NLOCAL), Y(3*NLOCAL)
4436: LOGICAL GETOPS4436: LOGICAL GETOPS
4437: DATA RMAT / &4437: DATA RMAT / &
4438:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4438:  & 1.00000000000,  0,  0,   & 
4439:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4439:  & 0,  1.00000000000,  0,   & 
4440:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4440:  & 0,  0,  1.00000000000,   & 
4441:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4441:  & -1.00000000000,  0,  0,   & 
4442:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4442:  & 0,  -1.00000000000,  0,   & 
4443:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4443:  & 0,  0,  1.00000000000,   & 
4444:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4444:  & 0,  0,  1.00000000000,   & 
4445:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4445:  & 1.00000000000,  0,  0,   & 
4446:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4446:  & 0,  1.00000000000,  0,   & 
4447:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4447:  & 0,  -1.00000000000,  0,   & 
4448:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4448:  & 1.00000000000,  0,  0,   & 
4449:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4449:  & 0,  0,  1.00000000000,   & 
4450:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4450:  & -1.00000000000,  0,  0,   & 
4451:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4451:  & 0,  -1.00000000000,  0,   & 
4452:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4452:  & 0,  0,  -1.00000000000,   & 
4453:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4453:  & 0,  0,  -1.00000000000,   & 
4454:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4454:  & -1.00000000000,  0,  0,   & 
4455:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4455:  & 0,  1.00000000000,  0,   & 
4456:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4456:  & 0,  1.00000000000,  0,   & 
4457:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4457:  & -1.00000000000,  0,  0,   & 
4458:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4458:  & 0,  0,  1.00000000000,   & 
4459:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4459:  & 1.00000000000,  0,  0,   & 
4460:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4460:  & 0,  1.00000000000,  0,   & 
4461:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4461:  & 0,  0,  -1.00000000000,   & 
4462:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4462:  & 0,  0,  1.00000000000,   & 
4463:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4463:  & -1.00000000000,  0,  0,   & 
4464:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4464:  & 0,  -1.00000000000,  0,   & 
4465:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4465:  & 0,  0,  -1.00000000000,   & 
4466:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4466:  & 1.00000000000,  0,  0,   & 
4467:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4467:  & 0,  -1.00000000000,  0,   & 
4468:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4468:  & 0,  1.00000000000,  0,   & 
4469:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4469:  & 0,  0,  1.00000000000,   & 
4470:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4470:  & 1.00000000000,  0,  0,   & 
4471:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4471:  & 0,  -1.00000000000,  0,   & 
4472:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4472:  & 0,  0,  -1.00000000000,   & 
4473:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4473:  & 1.00000000000,  0,  0,   & 
4474:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4474:  & 0,  0,  1.00000000000,   & 
4475:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4475:  & 0,  -1.00000000000,  0,   & 
4476:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4476:  & 1.00000000000,  0,  0,   & 
4477:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4477:  & 0,  0,  -1.00000000000,   & 
4478:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4478:  & 0,  1.00000000000,  0,   & 
4479:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4479:  & 1.00000000000,  0,  0,   & 
4480:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4480:  & 0,  0,  -1.00000000000,   & 
4481:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4481:  & -1.00000000000,  0,  0,   & 
4482:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4482:  & 0,  -1.00000000000,  0,   & 
4483:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4483:  & 0,  0,  1.00000000000,   & 
4484:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4484:  & 1.00000000000,  0,  0,   & 
4485:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4485:  & 0,  -1.00000000000,  0,   & 
4486:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4486:  & 0,  1.00000000000,  0,   & 
4487:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4487:  & 0,  0,  -1.00000000000,   & 
4488:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4488:  & -1.00000000000,  0,  0,   & 
4489:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4489:  & 0,  -1.00000000000,  0,   & 
4490:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4490:  & 0,  0,  1.00000000000,   & 
4491:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4491:  & -1.00000000000,  0,  0,   & 
4492:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4492:  & 0,  0,  1.00000000000,   & 
4493:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4493:  & 0,  1.00000000000,  0,   & 
4494:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4494:  & -1.00000000000,  0,  0,   & 
4495:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4495:  & 0,  0,  -1.00000000000,   & 
4496:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4496:  & 0,  -1.00000000000,  0,   & 
4497:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4497:  & -1.00000000000,  0,  0,   & 
4498:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4498:  & 0,  0,  -1.00000000000,   & 
4499:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4499:  & 1.00000000000,  0,  0,   & 
4500:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4500:  & 0,  1.00000000000,  0,   & 
4501:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4501:  & 0,  0,  1.00000000000,   & 
4502:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4502:  & -1.00000000000,  0,  0,   & 
4503:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4503:  & 0,  1.00000000000,  0,   & 
4504:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4504:  & 1.00000000000,  0,  0,   & 
4505:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4505:  & 0,  -1.00000000000,  0,   & 
4506:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4506:  & 0,  0,  -1.00000000000,   & 
4507:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4507:  & -1.00000000000,  0,  0,   & 
4508:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4508:  & 0,  1.00000000000,  0,   & 
4509:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4509:  & 0,  0,  -1.00000000000,   & 
4510:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4510:  & 1.00000000000,  0,  0,   & 
4511:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4511:  & 0,  0,  1.00000000000,   & 
4512:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4512:  & 0,  -1.00000000000,  0,   & 
4513:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4513:  & -1.00000000000,  0,  0,   & 
4514:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4514:  & 0,  0,  -1.00000000000,   & 
4515:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4515:  & 0,  -1.00000000000,  0,   & 
4516:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4516:  & 1.00000000000,  0,  0,   & 
4517:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4517:  & 0,  0,  -1.00000000000,   & 
4518:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4518:  & 0,  1.00000000000,  0,   & 
4519:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4519:  & -1.00000000000,  0,  0,   & 
4520:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4520:  & 0,  0,  1.00000000000,   & 
4521:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4521:  & 0,  1.00000000000,  0,   & 
4522:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4522:  & 0,  -1.00000000000,  0,   & 
4523:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4523:  & 0,  0,  -1.00000000000,   & 
4524:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4524:  & -1.00000000000,  0,  0,   & 
4525:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4525:  & 0,  1.00000000000,  0,   & 
4526:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4526:  & 0,  0,  1.00000000000,   & 
4527:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4527:  & -1.00000000000,  0,  0,   & 
4528:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4528:  & 0,  -1.00000000000,  0,   & 
4529:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4529:  & 0,  0,  1.00000000000,   & 
4530:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4530:  & 1.00000000000,  0,  0,   & 
4531:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4531:  & 0,  1.00000000000,  0,   & 
4532:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4532:  & 0,  0,  -1.00000000000,   & 
4533:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4533:  & 1.00000000000,  0,  0,   & 
4534:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4534:  & 0,  -1.00000000000,  0,   & 
4535:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4535:  & -1.00000000000,  0,  0,   & 
4536:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4536:  & 0,  0,  -1.00000000000,   & 
4537:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4537:  & 0,  1.00000000000,  0,   & 
4538:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4538:  & 1.00000000000,  0,  0,   & 
4539:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4539:  & 0,  0,  -1.00000000000,   & 
4540:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4540:  & -1.00000000000,  0,  0,   & 
4541:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4541:  & 0,  1.00000000000,  0,   & 
4542:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4542:  & 0,  0,  1.00000000000,   & 
4543:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4543:  & 1.00000000000,  0,  0,   & 
4544:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4544:  & 0,  -1.00000000000,  0,   & 
4545:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4545:  & 0,  0,  1.00000000000,   & 
4546:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4546:  & 0,  1.00000000000,  0,   & 
4547:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4547:  & -1.00000000000,  0,  0,   & 
4548:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4548:  & 0,  0,  -1.00000000000,   & 
4549:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4549:  & 0,  -1.00000000000,  0,   & 
4550:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4550:  & 1.00000000000,  0,  0,   & 
4551:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4551:  & 0,  0,  -1.00000000000,   & 
4552:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4552:  & 0,  0,  -1.00000000000,   & 
4553:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4553:  & 0,  1.00000000000,  0,   & 
4554:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4554:  & -1.00000000000,  0,  0,   & 
4555:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4555:  & 0,  0,  1.00000000000,   & 
4556:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4556:  & 0,  -1.00000000000,  0,   & 
4557:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4557:  & -1.00000000000,  0,  0,   & 
4558:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4558:  & 0,  0,  -1.00000000000,   & 
4559:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4559:  & 0,  -1.00000000000,  0,   & 
4560:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4560:  & 1.00000000000,  0,  0,   & 
4561:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4561:  & 0,  0,  1.00000000000,   & 
4562:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4562:  & 0,  1.00000000000,  0,   & 
4563:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4563:  & 1.00000000000,  0,  0,   & 
4564:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4564:  & -1.00000000000,  0,  0,   & 
4565:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4565:  & 0,  0,  -1.00000000000,   & 
4566:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4566:  & 0,  1.00000000000,  0,   & 
4567:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4567:  & 1.00000000000,  0,  0,   & 
4568:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4568:  & 0,  0,  1.00000000000,   & 
4569:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4569:  & 0,  1.00000000000,  0,   & 
4570:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4570:  & -1.00000000000,  0,  0,   & 
4571:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4571:  & 0,  0,  1.00000000000,   & 
4572:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4572:  & 0,  -1.00000000000,  0,   & 
4573:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4573:  & 1.00000000000,  0,  0,   & 
4574:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4574:  & 0,  0,  -1.00000000000,   & 
4575:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4575:  & 0,  -1.00000000000,  0,   & 
4576:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4576:  & 0,  1.00000000000,  0,   & 
4577:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4577:  & 1.00000000000,  0,  0,   & 
4578:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4578:  & 0,  0,  1.00000000000,   & 
4579:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4579:  & 0,  -1.00000000000,  0,   & 
4580:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4580:  & -1.00000000000,  0,  0,   & 
4581:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4581:  & 0,  0,  1.00000000000,   & 
4582:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4582:  & 1.00000000000,  0,  0,   & 
4583:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4583:  & 0,  1.00000000000,  0,   & 
4584:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4584:  & 0,  0,  1.00000000000,   & 
4585:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4585:  & -1.00000000000,  0,  0,   & 
4586:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4586:  & 0,  -1.00000000000,  0,   & 
4587:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4587:  & 0,  0,  1.00000000000,   & 
4588:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4588:  & 0,  1.00000000000,  0,   & 
4589:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4589:  & 0,  0,  1.00000000000,   & 
4590:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4590:  & 1.00000000000,  0,  0,   & 
4591:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4591:  & 0,  1.00000000000,  0,   & 
4592:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4592:  & -1.00000000000,  0,  0,   & 
4593:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4593:  & 0,  0,  1.00000000000,   & 
4594:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4594:  & -1.00000000000,  0,  0,   & 
4595:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4595:  & 0,  -1.00000000000,  0,   & 
4596:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4596:  & 0,  0,  -1.00000000000,   & 
4597:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4597:  & 0,  -1.00000000000,  0,   & 
4598:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4598:  & 0,  0,  1.00000000000,   & 
4599:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4599:  & -1.00000000000,  0,  0,   & 
4600:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4600:  & 0,  -1.00000000000,  0,   & 
4601:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4601:  & 1.00000000000,  0,  0,   & 
4602:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4602:  & 0,  0,  1.00000000000,   & 
4603:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4603:  & 1.00000000000,  0,  0,   & 
4604:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4604:  & 0,  1.00000000000,  0,   & 
4605:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4605:  & 0,  0,  -1.00000000000,   & 
4606:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4606:  & 0,  -1.00000000000,  0,   & 
4607:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4607:  & 0,  0,  -1.00000000000,   & 
4608:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4608:  & 1.00000000000,  0,  0,   & 
4609:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4609:  & 0,  1.00000000000,  0,   & 
4610:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4610:  & 0,  0,  -1.00000000000,   & 
4611:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4611:  & -1.00000000000,  0,  0,   & 
4612:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4612:  & 0,  0,  1.00000000000,   & 
4613:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4613:  & 1.00000000000,  0,  0,   & 
4614:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4614:  & 0,  1.00000000000,  0,   & 
4615:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4615:  & 0,  0,  1.00000000000,   & 
4616:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4616:  & -1.00000000000,  0,  0,   & 
4617:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4617:  & 0,  -1.00000000000,  0,   & 
4618:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4618:  & 0,  0,  1.00000000000,   & 
4619:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4619:  & 0,  -1.00000000000,  0,   & 
4620:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4620:  & 1.00000000000,  0,  0,   & 
4621:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4621:  & 0,  0,  1.00000000000,   & 
4622:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4622:  & 0,  1.00000000000,  0,   & 
4623:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4623:  & -1.00000000000,  0,  0,   & 
4624:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4624:  & 0,  -1.00000000000,  0,   & 
4625:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4625:  & 0,  0,  -1.00000000000,   & 
4626:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4626:  & -1.00000000000,  0,  0,   & 
4627:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4627:  & 0,  1.00000000000,  0,   & 
4628:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4628:  & 0,  0,  -1.00000000000,   & 
4629:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4629:  & 1.00000000000,  0,  0,   & 
4630:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4630:  & 0,  0,  -1.00000000000,   & 
4631:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4631:  & 1.00000000000,  0,  0,   & 
4632:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4632:  & 0,  -1.00000000000,  0,   & 
4633:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4633:  & 0,  0,  -1.00000000000,   & 
4634:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4634:  & -1.00000000000,  0,  0,   & 
4635:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4635:  & 0,  1.00000000000,  0,   & 
4636:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4636:  & 0,  0,  -1.00000000000,   & 
4637:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4637:  & 0,  1.00000000000,  0,   & 
4638:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4638:  & 1.00000000000,  0,  0,   & 
4639:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4639:  & 0,  0,  -1.00000000000,   & 
4640:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4640:  & 0,  -1.00000000000,  0,   & 
4641:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4641:  & -1.00000000000,  0,  0,   & 
4642:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4642:  & 0,  1.00000000000,  0,   & 
4643:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4643:  & 0,  0,  1.00000000000,   & 
4644:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4644:  & -1.00000000000,  0,  0,   & 
4645:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4645:  & 0,  -1.00000000000,  0,   & 
4646:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4646:  & 0,  0,  1.00000000000,   & 
4647:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4647:  & 1.00000000000,  0,  0,   & 
4648:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4648:  & 1.00000000000,  0,  0,   & 
4649:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4649:  & 0,  -1.00000000000,  0,   & 
4650:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4650:  & 0,  0,  -1.00000000000,   & 
4651:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4651:  & -1.00000000000,  0,  0,   & 
4652:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4652:  & 0,  1.00000000000,  0,   & 
4653:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4653:  & 0,  0,  -1.00000000000,   & 
4654:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4654:  & 1.00000000000,  0,  0,   & 
4655:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4655:  & 0,  0,  -1.00000000000,   & 
4656:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4656:  & 0,  1.00000000000,  0,   & 
4657:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4657:  & -1.00000000000,  0,  0,   & 
4658:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4658:  & 0,  0,  -1.00000000000,   & 
4659:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4659:  & 0,  -1.00000000000,  0,   & 
4660:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4660:  & 1.00000000000,  0,  0,   & 
4661:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4661:  & 0,  0,  1.00000000000,   & 
4662:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4662:  & 0,  -1.00000000000,  0,   & 
4663:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4663:  & -1.00000000000,  0,  0,   & 
4664:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4664:  & 0,  0,  1.00000000000,   & 
4665:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4665:  & 0,  1.00000000000,  0,   & 
4666:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4666:  & 0,  0,  -1.00000000000,   & 
4667:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4667:  & -1.00000000000,  0,  0,   & 
4668:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4668:  & 0,  -1.00000000000,  0,   & 
4669:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4669:  & 0,  0,  -1.00000000000,   & 
4670:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4670:  & 1.00000000000,  0,  0,   & 
4671:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4671:  & 0,  1.00000000000,  0,   & 
4672:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4672:  & 0,  0,  1.00000000000,   & 
4673:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4673:  & -1.00000000000,  0,  0,   & 
4674:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4674:  & 0,  1.00000000000,  0,   & 
4675:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4675:  & 0,  0,  1.00000000000,   & 
4676:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4676:  & 1.00000000000,  0,  0,   & 
4677:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4677:  & 0,  -1.00000000000,  0,   & 
4678:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4678:  & 0,  -1.00000000000,  0,   & 
4679:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4679:  & -1.00000000000,  0,  0,   & 
4680:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4680:  & 0,  0,  -1.00000000000,   & 
4681:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4681:  & 0,  1.00000000000,  0,   & 
4682:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4682:  & 1.00000000000,  0,  0,   & 
4683:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4683:  & 0,  0,  -1.00000000000,   & 
4684:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4684:  & -1.00000000000,  0,  0,   & 
4685:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4685:  & 0,  1.00000000000,  0,   & 
4686:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4686:  & 0,  0,  1.00000000000,   & 
4687:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4687:  & 1.00000000000,  0,  0,   & 
4688:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4688:  & 0,  -1.00000000000,  0,   & 
4689:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4689:  & 0,  0,  1.00000000000,   & 
4690:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4690:  & 0,  -1.00000000000,  0,   & 
4691:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4691:  & 1.00000000000,  0,  0,   & 
4692:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4692:  & 0,  0,  -1.00000000000,   & 
4693:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4693:  & 0,  1.00000000000,  0,   & 
4694:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4694:  & -1.00000000000,  0,  0,   & 
4695:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4695:  & 0,  0,  -1.00000000000,   & 
4696:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4696:  & 0,  0,  -1.00000000000,   & 
4697:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4697:  & 0,  1.00000000000,  0,   & 
4698:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4698:  & -1.00000000000,  0,  0,   & 
4699:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4699:  & 0,  0,  -1.00000000000,   & 
4700:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4700:  & 0,  -1.00000000000,  0,   & 
4701:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4701:  & 1.00000000000,  0,  0,   & 
4702:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4702:  & 0,  0,  1.00000000000,   & 
4703:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4703:  & 0,  -1.00000000000,  0,   & 
4704:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4704:  & -1.00000000000,  0,  0,   & 
4705:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4705:  & 0,  0,  1.00000000000,   & 
4706:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4706:  & 0,  1.00000000000,  0,   & 
4707:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4707:  & 1.00000000000,  0,  0,   & 
4708:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4708:  & -1.00000000000,  0,  0,   & 
4709:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4709:  & 0,  0,  1.00000000000,   & 
4710:  & 0.0D0,  -1.00000000000D0,  0.0D0,   & 4710:  & 0,  -1.00000000000,  0,   & 
4711:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4711:  & 1.00000000000,  0,  0,   & 
4712:  & 0.0D0,  0.0D0,  1.00000000000D0,   & 4712:  & 0,  0,  1.00000000000,   & 
4713:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4713:  & 0,  1.00000000000,  0,   & 
4714:  & -1.00000000000D0,  0.0D0,  0.0D0,   & 4714:  & -1.00000000000,  0,  0,   & 
4715:  & 0.0D0,  0.0D0,  -1.00000000000D0,   & 4715:  & 0,  0,  -1.00000000000,   & 
4716:  & 0.0D0,  1.00000000000D0,  0.0D0,   & 4716:  & 0,  1.00000000000,  0,   & 
4717:  & 1.00000000000D0,  0.0D0,  0.0D0,   & 4717:  & 1.00000000000,  0,  0,   & 
4718:  & 0.0D0,  0.0D0,  -1.00000000000D0,   &