enddo
c write (iout,*) "EBACK_SC_COR",i,v1ij*cosphi+v2ij*sinphi,intertyp,
c & nterm_sccor(isccori,isccori1),isccori,isccori1
- gloc_sc(intertyp,i-3,icg)=gloc_sc(intertyp,i-3,icg)+wsccor*gloci
+c gloc_sc(intertyp,i-3,icg)=gloc_sc(intertyp,i-3,icg)+wsccor*gloci
if (lprn)
& write (iout,'(2(a3,2x,i3,2x),2i3,6f8.3/26x,6f8.3/)')
& restyp(itype(i-2)),i-2,restyp(itype(i-1)),i-1,itori,itori1,
& (v1sccor(j,1,itori,itori1),j=1,6)
& ,(v2sccor(j,1,itori,itori1),j=1,6)
- gsccor_loc(i-3)=gloci
+c gsccor_loc(i-3)=gloci
enddo !intertyp
enddo
return