X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-SAXS-homology%2Fcored.f;h=87e13f6774508c304c6ef4d3c9f4d86982b6071e;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=1cf25e5a6a1ce35ec0b5428d39e99fe3ebe0e0d2;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

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
--- 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