fixed readrtns as per Adasko's changes in the FM branch http://mmka.chem.univ.gda...

diff --git a/source/unres/src_MD-M/cinfo.f b/source/unres/src_MD-M/cinfo.f
index 8757613..a933126 100644 (file)
--- a/source/unres/src_MD-M/cinfo.f
+++ b/source/unres/src_MD-M/cinfo.f
@@ -1,10 +1,10 @@
 C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C
-C 0 40360 15
+C 0 40360 16
       subroutine cinfo
       include 'COMMON.IOUNITS'
       write(iout,*)'++++ Compile info ++++'
-      write(iout,*)'Version 0.40360 build 15'
-      write(iout,*)'compiled Thu Nov 26 21:54:36 2015'
+      write(iout,*)'Version 0.40360 build 16'
+      write(iout,*)'compiled Fri Nov 27 21:15:33 2015'
       write(iout,*)'compiled by adam@piasek4'
       write(iout,*)'OS name:    Linux '
       write(iout,*)'OS release: 3.2.0-91-generic '

diff --git a/source/wham/src-M/read_ref_str.F b/source/wham/src-M/read_ref_str.F
index 2245a59..ac1af61 100644 (file)
--- a/source/wham/src-M/read_ref_str.F
+++ b/source/wham/src-M/read_ref_str.F
@@ -33,6 +33,8 @@ C
       external ilen
 C
       nres0=nres
+      nnt_old=nnt
+      nct_old=nct
       write (iout,*) "pdbref",pdbref
       if (pdbref) then
         read(inp,'(a)') pdbfile
@@ -164,5 +166,7 @@ c      print *,"Calling elecont"
      &    'Number of residues to be superposed:',nsup,
      &    ' (from residue',nstart_sup,' to residue',
      &    nend_sup,').'
+      nnt_old=nnt
+      nct_old=nct
       return
       end