& 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)
& 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)