- if (lprn) then
- 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,isccori,isccori1,
- & (v1sccor(j,intertyp,isccori,isccori1),j=1,6)
- & ,(v2sccor(j,intertyp,isccori,isccori1),j=1,6)
- write (iout,*) "esccori",esccori
- call flush(iout)
- endif
+ 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,intertyp,itori,itori1),j=1,6)
+ & ,(v2sccor(j,intertyp,itori,itori1),j=1,6)