wham SAXS cutoff

[unres.git] / source / wham / src / readpdb.F

diff --git a/source/wham/src/readpdb.F b/source/wham/src/readpdb.F
index 6261f50..ca900d3 100644 (file)
--- a/source/wham/src/readpdb.F
+++ b/source/wham/src/readpdb.F
@@ -4,6 +4,7 @@ C geometry.
       implicit real*8 (a-h,o-z)
       include 'DIMENSIONS'
       include 'DIMENSIONS.ZSCOPT'
+      include 'DIMENSIONS.FREE'
       include 'COMMON.FRAG'
       include 'COMMON.LOCAL'
       include 'COMMON.VAR'
@@ -25,6 +26,7 @@ c    &  ishift_pdb
       character*80 card
       double precision sccor(3,20)
       integer rescode
+      logical lsecondary
       efree_temp=0.0d0
       ibeg=1
       ishift1=0
@@ -289,6 +291,7 @@ c---------------------------------------------------------------------------
       implicit real*8 (a-h,o-z)
       include 'DIMENSIONS'
       include 'DIMENSIONS.ZSCOPT'
+      include 'DIMENSIONS.FREE'
 #ifdef MPI
       include "mpif.h"
 #endif
@@ -391,6 +394,7 @@ c-------------------------------------------------------------------------------
       implicit real*8 (a-h,o-z)
       include 'DIMENSIONS'
       include 'DIMENSIONS.ZSCOPT'
+      include 'DIMENSIONS.FREE'
 #ifdef MPI
       include "mpif.h"
 #endif