c write(iout,*) "PO ZWYKLE", evdwij
evdw=evdw+evdwij
+c write(iout,*) "DISULFIDY:", i,j,evdwij
if (energy_dec) write (iout,'(a6,2i5,0pf7.3,a3)')
& 'evdw',i,j,evdwij,' ss'
C triple bond artifac removal
+C MODIFIED j+1 to j+2 TO AVOID EBERGY BARRIER FOR X-Cys-Cys-X situations
do k=j+1,iend(i,iint)
C search over all next residues
if (dyn_ss_mask(k)) then
c write(iout,*) "PRZED TRI", evdwij
evdwij_przed_tri=evdwij
call triple_ssbond_ene(i,j,k,evdwij)
+c write(iout,*) "TRISULFIDY:", i,j,k,evdwij
c if(evdwij_przed_tri.ne.evdwij) then
c write (iout,*) "TRI:", evdwij, evdwij_przed_tri
c endif