Adam's wham update
[unres.git] / source / wham / src-HCD / make_ensemble1.F
index a07dbeb..f18dd2b 100644 (file)
@@ -371,7 +371,7 @@ c          write (iout,*) "qfree",qfree
      &        ctemper(:ilen(ctemper))//"pdb" 
           endif
           open(ipdb,file=pdbname)
-          write (iout,*) "Before reading nlist",nlist
+c          write (iout,*) "Before reading nlist",nlist
           do i=1,nlist
             read (ientout,rec=iperm(i))
      &        ((csingle(l,k),l=1,3),k=1,nres),