- gcart(j,1)=gcart(j,1)+gloc_sc(1,1,icg)*
- & dtauangle(j,
- if (itype(2).ne.10) gxcart(j,1)=gxcart(j,1)
- &-gloc_sc(3,1,icg)*dtauangle(j,3,1,3)
+ gcart(j,1)=gcart(j,1)+gloc_sc(1,0,icg)*
+ & dtauangle(j,1,2,3)
+ if (itype(2).ne.10) then
+ gxcart(j,1)= gxcart(j,1)
+ & -gloc_sc(3,0,icg)*dtauangle(j,3,1,3)
+ gcart(j,1)=gcart(j,1)+gloc_sc(3,0,icg)*
+ dtauangle(j,3,2,3)
+ endif