X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fread_ref_str.F;h=4966da10d2051f6f7f80621fd53005a3803c1ada;hb=7006db11d703450fb82ce20cfc53f74614334362;hp=2245a5956b40bb5ad66463c5c32f3d58443c1bac;hpb=9beb3f412ed14c69dd53a317a0ac1db4afae03c5;p=unres.git

diff --git a/source/wham/src-M/read_ref_str.F b/source/wham/src-M/read_ref_str.F
index 2245a59..4966da1 100644
--- a/source/wham/src-M/read_ref_str.F
+++ b/source/wham/src-M/read_ref_str.F
@@ -7,6 +7,7 @@ C
       include 'DIMENSIONS'
       include 'DIMENSIONS.ZSCOPT'
       include 'DIMENSIONS.COMPAR'
+      include 'DIMENSIONS.FREE'
       include 'COMMON.IOUNITS'
       include 'COMMON.GEO'
       include 'COMMON.VAR'
@@ -29,10 +30,13 @@ C
       logical seq_comp
       integer i,j,k,nres_pdb,iaux
       double precision ddsc,dist
+      integer nnt_old,nct_old
       integer ilen,kkk
       external ilen
 C
       nres0=nres
+      nnt_old=nnt
+      nct_old=nct
       write (iout,*) "pdbref",pdbref
       if (pdbref) then
         read(inp,'(a)') pdbfile
@@ -164,5 +168,8 @@ c      print *,"Calling elecont"
      &    'Number of residues to be superposed:',nsup,
      &    ' (from residue',nstart_sup,' to residue',
      &    nend_sup,').'
+      nres=nres0
+      nnt=nnt_old
+      nct=nct_old
       return
       end