Lines Matching refs:shgl
1 subroutine hfilterC (y, x, ien, hfres, shgl, shp, Qwtf) argument
19 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
44 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
45 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
46 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
47 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
48 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
49 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
50 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
51 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
52 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
91 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
92 & + shgl(2,n,intp) * dxidx(:,2,1)
93 & + shgl(3,n,intp) * dxidx(:,3,1))
94 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
95 & + shgl(2,n,intp) * dxidx(:,2,2)
96 & + shgl(3,n,intp) * dxidx(:,3,2))
97 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
98 & + shgl(2,n,intp) * dxidx(:,2,3)
99 & + shgl(3,n,intp) * dxidx(:,3,3))
178 & hfres, shgl, shp, Qwtf) argument
189 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
235 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
236 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
237 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
238 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
239 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
240 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
241 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
242 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
243 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
279 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
280 & + shgl(2,n,intp) * dxidx(:,2,1)
281 & + shgl(3,n,intp) * dxidx(:,3,1))
282 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
283 & + shgl(2,n,intp) * dxidx(:,2,2)
284 & + shgl(3,n,intp) * dxidx(:,3,2))
285 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
286 & + shgl(2,n,intp) * dxidx(:,2,3)
287 & + shgl(3,n,intp) * dxidx(:,3,3))
404 subroutine hfilterCC (y, x, ien, hfres, shgl, shp, Qwtf) argument
418 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
444 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
445 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
446 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
447 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
448 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
449 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
450 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
451 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
452 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
491 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
492 & + shgl(2,n,intp) * dxidx(:,2,1)
493 & + shgl(3,n,intp) * dxidx(:,3,1))
494 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
495 & + shgl(2,n,intp) * dxidx(:,2,2)
496 & + shgl(3,n,intp) * dxidx(:,3,2))
497 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
498 & + shgl(2,n,intp) * dxidx(:,2,3)
499 & + shgl(3,n,intp) * dxidx(:,3,3))
594 & hfres, shgl, shp, Qwtf) argument
605 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
648 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
649 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
650 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
651 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
652 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
653 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
654 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
655 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
656 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
692 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
693 & + shgl(2,n,intp) * dxidx(:,2,1)
694 & + shgl(3,n,intp) * dxidx(:,3,1))
695 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
696 & + shgl(2,n,intp) * dxidx(:,2,2)
697 & + shgl(3,n,intp) * dxidx(:,3,2))
698 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
699 & + shgl(2,n,intp) * dxidx(:,2,3)
700 & + shgl(3,n,intp) * dxidx(:,3,3))
782 subroutine hfilterBB (y, x, ien, hfres, shgl, shp, Qwtf) argument
796 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
823 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
824 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
825 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
826 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
827 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
828 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
829 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
830 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
831 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
870 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
871 & + shgl(2,n,intp) * dxidx(:,2,1)
872 & + shgl(3,n,intp) * dxidx(:,3,1))
873 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
874 & + shgl(2,n,intp) * dxidx(:,2,2)
875 & + shgl(3,n,intp) * dxidx(:,3,2))
876 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
877 & + shgl(2,n,intp) * dxidx(:,2,3)
878 & + shgl(3,n,intp) * dxidx(:,3,3))
971 subroutine ediss (y, ac, shgl, argument
999 & shgl(MAXTOP,nsd,maxsh,MAXQPT), shp(MAXTOP,maxsh,MAXQPT),
1054 & shgl(lcsyst,:,1:nshl,:),
1090 & shgl(lcsyst,:,1:nshl,:), shp(lcsyst,1:nshl,:),
1236 subroutine resSij (y, x, ien, hfres, shgl, shp, Qwtf) argument
1250 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
1277 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
1278 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
1279 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
1280 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
1281 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
1282 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
1283 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
1284 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
1285 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
1324 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
1325 & + shgl(2,n,intp) * dxidx(:,2,1)
1326 & + shgl(3,n,intp) * dxidx(:,3,1))
1327 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
1328 & + shgl(2,n,intp) * dxidx(:,2,2)
1329 & + shgl(3,n,intp) * dxidx(:,3,2))
1330 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
1331 & + shgl(2,n,intp) * dxidx(:,2,3)
1332 & + shgl(3,n,intp) * dxidx(:,3,3))
1639 subroutine stdfdmc (y, shgl, shp, argument
1678 & shgl(MAXTOP,nsd,maxsh,MAXQPT), shp(MAXTOP,maxsh,MAXQPT),
1766 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2326 subroutine widefdmc (y, shgl, shp, argument
2363 dimension shgl(MAXTOP,nsd,maxsh,MAXQPT), shp(MAXTOP,maxsh,MAXQPT),
2541 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),