projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's new constr_dist
[unres.git]
/
source
/
xdrfpdb
/
src-M
/
xdrf2pdb.F
diff --git
a/source/xdrfpdb/src-M/xdrf2pdb.F
b/source/xdrfpdb/src-M/xdrf2pdb.F
index
c87e9ff
..
503d7d7
100644
(file)
--- 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
endif
open(9,file=pdbfile)
nnt = 1
- if (itype(1).eq.21) nnt = 2
+ if (itype(1).eq.ntyp1) nnt = 2
nct=nres
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)
print *,"nnt",nnt," nct",nct
print *,"file",arg
call xdrfopen(ixdrf,arg, "r", iret)