& restyp(itype(i-2)),i-2,restyp(itype(i-1)),i-1,isccori,isccori1,
& (v1sccor(j,intertyp,isccori,isccori1),j=1,6)
& ,(v2sccor(j,intertyp,isccori,isccori1),j=1,6)
- gsccor_loc(i-3)=gsccor_loc(i-3)+gloci
+C gsccor_loc(i-3)=gsccor_loc(i-3)+gloci
enddo !intertyp
enddo