From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Tue, 19 Mar 2019 13:26:52 +0000 (+0100)
Subject: xdrf2pdb-m-mult bug corrected
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;ds=sidebyside;h=0941412b97a571e4389e751d57f0714259566599;p=unres.git

xdrf2pdb-m-mult bug corrected
---

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index 24be584..d2d7d9c 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -85,9 +85,9 @@
 c      print *,"ifreq",ifreq," ntraj",ntraj," itraj",itraj
       open(9,file=pdbfile)
       nnt = 1
-      if (itype(1).eq.21) nnt = 2
+      if (itype(1).eq.ntyp1) nnt = 2
       nct=nres
-      if (itype(nres).eq.21) nct = nres-1
+      if (itype(nres).eq.ntyp1) nct = nres-1
       print *,"nnt",nnt," nct",nct
       call xdrfopen(ixdrf,arg, "r", iret)
       kk = 0