dubug dss part 3

[unres.git] / source / wham / src-M / energy_p_new.F

diff --git a/source/wham/src-M/energy_p_new.F b/source/wham/src-M/energy_p_new.F
index e4a2a9e..3be7b43 100644 (file)
--- a/source/wham/src-M/energy_p_new.F
+++ b/source/wham/src-M/energy_p_new.F
@@ -820,7 +820,7 @@ C
               call dyn_ssbond_ene(i,j,evdwij)
               evdw=evdw+evdwij
             write (iout,'(a6,2i5,0pf7.3,a3)')
-     &                        'evdw',i,j,evdwij,' ss'
+     &                        'evdw',i,j,evdwij,' ss',evdw
 C triple bond artifac removal
              do k=j+1,iend(i,iint)
 C search over all next residues
@@ -832,7 +832,7 @@ C call the energy function that removes the artifical triple disulfide
 C bond the soubroutine is located in ssMD.F
               evdw=evdw+evdwij
              write (iout,'(a6,2i5,0pf7.3,a3)')
-     &                        'evdw',i,j,evdwij,'tss'
+     &                        'evdw',i,j,evdwij,'tss',evdw
               endif!dyn_ss_mask(k)
              enddo! k
             ELSE