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,2f10.3)')
+ & 'evdw',i,j,evdwij,' ss',evdw,evdw_t
C triple bond artifac removal
do k=j+1,iend(i,iint)
C search over all next residues
C call the energy function that removes the artifical triple disulfide
C bond the soubroutine is located in ssMD.F
evdw=evdw+evdwij
-C if (energy_dec) write (iout,'(a6,2i5,0pf7.3,a3)')
-C & 'evdw',i,j,evdwij,'tss'
+ write (iout,'(a6,2i5,0pf7.3,a3,2f10.3)')
+ & 'evdw',i,j,evdwij,'tss',evdw,evdw_t
endif!dyn_ss_mask(k)
enddo! k
ELSE
esccor=esccor+v1ij*cosphi+v2ij*sinphi
gloci=gloci+j*(v2ij*cosphi-v1ij*sinphi)
enddo
+ write (iout,*)"EBACK_SC_COR",esccor,i
c write (iout,*) "EBACK_SC_COR",i,v1ij*cosphi+v2ij*sinphi,intertyp,
c & nterm_sccor(isccori,isccori1),isccori,isccori1
c gloc_sc(intertyp,i-3,icg)=gloc_sc(intertyp,i-3,icg)+wsccor*gloci