X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Fmake_ensemble1.F;h=f18dd2bffe999f5ad0f3b46894db84d17e52a8bf;hb=68aa1d135805a14583695611acfcf637748b4466;hp=a07dbebfe8f8295032ba063440dda1b973dbc1bb;hpb=809cbbbaf17b645d881fe5c61387d09109acdf19;p=unres.git diff --git a/source/wham/src-HCD/make_ensemble1.F b/source/wham/src-HCD/make_ensemble1.F index a07dbeb..f18dd2b 100644 --- a/source/wham/src-HCD/make_ensemble1.F +++ b/source/wham/src-HCD/make_ensemble1.F @@ -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),