update

[unres.git] / source / unres / src_MD-M-SAXS-homology / cored.f

diff --git a/source/unres/src_MD-M-SAXS-homology/cored.f b/source/unres/src_MD-M-SAXS-homology/cored.f
index 1cf25e5..87e13f6 100644 (file)
--- a/source/unres/src_MD-M-SAXS-homology/cored.f
+++ b/source/unres/src_MD-M-SAXS-homology/cored.f
@@ -1706,6 +1706,7 @@ c
       if (iv(1) - 2) 30, 40, 50
 c
  30   nf = iv(nfcall)
+      write (iout,*) "in humsl: before calling calcf x",x
       call calcf(n, x, nf, f, uiparm, urparm, ufparm)
       if (nf .le. 0) iv(toobig) = 1
       go to 20