Lines Matching refs:EGmass
1 subroutine AsAuGMR (ien, EGmass, uBrg, uBtmp ) argument
19 dimension ien(npro,nshl), EGmass(npro,nedof,nedof),
35 & + EGmass(:,i ,j ) * uBrgl(:,j )
36 & + EGmass(:,i ,j+1) * uBrgl(:,j+1)
37 & + EGmass(:,i ,j+2) * uBrgl(:,j+2)
38 & + EGmass(:,i ,j+3) * uBrgl(:,j+3)
39 & + EGmass(:,i ,j+4) * uBrgl(:,j+4)
42 & + EGmass(:,i+1,j ) * uBrgl(:,j )
43 & + EGmass(:,i+1,j+1) * uBrgl(:,j+1)
44 & + EGmass(:,i+1,j+2) * uBrgl(:,j+2)
45 & + EGmass(:,i+1,j+3) * uBrgl(:,j+3)
46 & + EGmass(:,i+1,j+4) * uBrgl(:,j+4)
49 & + EGmass(:,i+2,j ) * uBrgl(:,j )
50 & + EGmass(:,i+2,j+1) * uBrgl(:,j+1)
51 & + EGmass(:,i+2,j+2) * uBrgl(:,j+2)
52 & + EGmass(:,i+2,j+3) * uBrgl(:,j+3)
53 & + EGmass(:,i+2,j+4) * uBrgl(:,j+4)
56 & + EGmass(:,i+3,j ) * uBrgl(:,j )
57 & + EGmass(:,i+3,j+1) * uBrgl(:,j+1)
58 & + EGmass(:,i+3,j+2) * uBrgl(:,j+2)
59 & + EGmass(:,i+3,j+3) * uBrgl(:,j+3)
60 & + EGmass(:,i+3,j+4) * uBrgl(:,j+4)
63 & + EGmass(:,i+4,j ) * uBrgl(:,j )
64 & + EGmass(:,i+4,j+1) * uBrgl(:,j+1)
65 & + EGmass(:,i+4,j+2) * uBrgl(:,j+2)
66 & + EGmass(:,i+4,j+3) * uBrgl(:,j+3)
67 & + EGmass(:,i+4,j+4) * uBrgl(:,j+4)
83 subroutine AsAuGMRSclr (ien, EGmass, uBrg, uBtmp ) argument
103 dimension ien(npro,nshl), EGmass(npro,nshape,nshape),
120 & + EGmass(:,i ,j ) * uBrgl(:,j )