X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Freadpdb.F;h=ca900d3ff8a1cbd74ac3f84d7c6f993a0d19d08c;hb=73752461c70cf3fa6d8f6affce46e918ed547a75;hp=6261f500af60dc0c33cce119c6d993ac7799fc51;hpb=60a3f9d89e537f69c6c19a8240c6c8dc6b2a1db0;p=unres.git

diff --git a/source/wham/src/readpdb.F b/source/wham/src/readpdb.F
index 6261f50..ca900d3 100644
--- 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