& +wturn3*gshieldx_t3(j,i)
& +wturn4*gshieldx_t4(j,i)
& +wel_loc*gshieldx_ll(j,i)
+ & +wtube*gg_tube_SC(j,i)
else
gradc(j,i,icg)=fact(1)*wsc*gvdwc(j,i)
& +wturn3*gshieldx_t3(j,i)
& +wturn4*gshieldx_t4(j,i)
& +wel_loc*gshieldx_ll(j,i)
+ & +wtube*gg_tube_SC(j,i)
endif
& +wturn4*gshieldc_loc_t4(j,i)
& +wel_loc*gshieldc_ll(j,i)
& +wel_loc*gshieldc_loc_ll(j,i)
+ & +wtube*gg_tube(j,i)
gradx(j,i,icg)=wsc*gvdwx(j,i)+wscp*gradx_scp(j,i)+
& wbond*gradbx(j,i)+
& +wturn4*gshieldc_loc_t4(j,i)
& +wel_loc*gshieldc_ll(j,i)
& +wel_loc*gshieldc_loc_ll(j,i)
+ & +wtube*gg_tube(j,i)
gradx(j,i,icg)=fact(1)*wsc*gvdwx(j,i)+
& fact(1)*wscp*gradx_scp(j,i)+