X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Freadpdb.f;h=5913aa670b4fc4523587491607c11917b2170035;hb=ecdaefb55cd2370287e648c14fb657d5c7ad5145;hp=856db5f2512a0afc32e06e46f30520135d3c490d;hpb=e51900fbfd051455bc2983ff8d287899ec47822f;p=unres.git diff --git a/source/cluster/wham/src-M/readpdb.f b/source/cluster/wham/src-M/readpdb.f index 856db5f..5913aa6 100644 --- a/source/cluster/wham/src-M/readpdb.f +++ b/source/cluster/wham/src-M/readpdb.f @@ -298,7 +298,7 @@ c write (iout,*) i,dist(i,i-1) if ((dist(i,i-1).lt.2.0D0 .or. dist(i,i-1).gt.5.0D0) &.and.(iti.ne.ntyp1).and.(itype(i-1).ne.ntyp1)) then write (iout,'(a,i4)') 'Bad Cartesians for residue',i - stop +c stop endif theta(i+1)=alpha(i-1,i,i+1) if (i.gt.2) phi(i+1)=beta(i-2,i-1,i,i+1)