X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb.F;h=503d7d7736dc31387a931ea3cb69a52d887d84bd;hb=2900dbb2e7e1c992d8603e52c0d080ee009318c2;hp=c87e9ffa9312bdd02eb23b8cfd0f06662a9f67af;hpb=0a0b19df2e0f4d0081a0df1b16ff63950010daa5;p=unres.git diff --git a/source/xdrfpdb/src-M/xdrf2pdb.F b/source/xdrfpdb/src-M/xdrf2pdb.F index c87e9ff..503d7d7 100644 --- a/source/xdrfpdb/src-M/xdrf2pdb.F +++ b/source/xdrfpdb/src-M/xdrf2pdb.F @@ -88,9 +88,9 @@ endif 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 print *,"file",arg call xdrfopen(ixdrf,arg, "r", iret)