IF (dyn_ss_mask(i).and.dyn_ss_mask(j)) THEN
call dyn_ssbond_ene(i,j,evdwij)
evdw=evdw+evdwij
-C if (energy_dec) write (iout,'(a6,2i5,0pf7.3,a3)')
-C & 'evdw',i,j,evdwij,' ss'
+ write (iout,'(a6,2i5,0pf7.3,a3)')
+ & 'evdw',i,j,evdwij,' ss'
C triple bond artifac removal
do k=j+1,iend(i,iint)
C search over all next residues