critical bug in set_matrices

[unres4.git] / source / unres / unres.f90

diff --git a/source/unres/unres.f90 b/source/unres/unres.f90
index 40c0140..e84e1d0 100644 (file)
--- a/source/unres/unres.f90
+++ b/source/unres/unres.f90
@@ -346,7 +346,7 @@
           write (iout,'(a,i20)') '# of energy evaluations:',nfun+1
           write (iout,'(a,f16.3)')'# of energy evaluations/sec:',evals
       else
-        print *,'refstr=',refstr
+        print *,'refstr=',refstr,frac,frac_nn,co
         if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
         print *,"after rms_nac_ncc"
         call briefout(0,etot)