- if (energy_dec) write(iout,'(a6,2i5,5f10.3,i5)')
- & "edisQ",ii,jj,dd,dhpb(i),dhpb1(i),forcon(i),
- & forcon(i)*gnmr1(dd,dhpb(i),dhpb1(i)),irestr_type(i)
+c if (energy_dec) write(iout,'(a6,2i5,5f10.3,i5)')
+c & "edisQ",ii,jj,dd,dhpb(i),dhpb1(i),forcon(i),
+c & forcon(i)*gnmr1(dd,dhpb(i),dhpb1(i)),irestr_type(i)