write (iout,'(i3,2x,a,i4,2x,a,i4,5f8.3,3f10.5)') &
i,restyp(it1,mnum),i1,restyp(it2,mnum),i2,cscore(i),&
sc_cutoff(iabs(it1),iabs(it2)),ddsc(i),ddla(i),ddlb(i),&
write (iout,'(i3,2x,a,i4,2x,a,i4,5f8.3,3f10.5)') &
i,restyp(it1,mnum),i1,restyp(it2,mnum),i2,cscore(i),&
sc_cutoff(iabs(it1),iabs(it2)),ddsc(i),ddla(i),ddlb(i),&