adam's update
[unres.git] / source / unres / src-HCD-5D / readpdb.F
index 78d0d98..943d67d 100644 (file)
@@ -11,7 +11,7 @@ C geometry.
       include 'COMMON.GEO'
       include 'COMMON.NAMES'
       include 'COMMON.CONTROL'
-      include 'COMMON.DISTFIT'
+      include 'COMMON.FRAG'
       include 'COMMON.SETUP'
       include 'COMMON.SBRIDGE'
       character*3 seq,atom,res
@@ -588,7 +588,7 @@ C and convert the peptide geometry into virtual-chain geometry.
       include 'COMMON.GEO'
       include 'COMMON.NAMES'
       include 'COMMON.CONTROL'
-      include 'COMMON.DISTFIT'
+      include 'COMMON.FRAG'
       include 'COMMON.SETUP'
       integer i,j,k,ibeg,ishift1,ires,iii,ires_old,ishift,ity,
      &  ishift_pdb,ires_ca