readpdb-mult and other Adam's corrections

[unres.git] / source / unres / src-HCD-5D / unres.F

diff --git a/source/unres/src-HCD-5D/unres.F b/source/unres/src-HCD-5D/unres.F
index f556eb6..be40e75 100644 (file)
--- a/source/unres/src-HCD-5D/unres.F
+++ b/source/unres/src-HCD-5D/unres.F
@@ -283,9 +283,9 @@ crc overlap test
         endif
 
         if (overlapsc) then 
-c          print *, 'Calling OVERLAP_SC'
+          write (iout,*) 'Calling OVERLAP_SC'
           call overlap_sc(fail)
-c          print *,"After overlap_sc"
+          write (iout,*) "After overlap_sc"
         endif 
 
         if (searchsc) then 
@@ -339,6 +339,7 @@ c          print *,'Calling MINIMIZE.'
           potE=etot
           call cartoutx(0.0d0)
         endif
+        if (outpdb) call pdbout(etot,titel(:50),ipdb)
         if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
 #ifdef LBFGS
           write (iout,'(a,a9)') 'LBFGS return code:',status