From 4d589a9cb8933377cc44ba3cb751df34bf53e111 Mon Sep 17 00:00:00 2001 From: Adam Liwo Date: Fri, 27 Nov 2015 22:32:46 +0100 Subject: [PATCH] fixed readrtns as per Adasko's changes in the FM branch http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff;f=source/wham/src-M/read_ref_str.F;h=292fa0236d5fbbe4ca40af27ddaca12f3737320f;hp=2245a5956b40bb5ad66463c5c32f3d58443c1bac;hb=8fe319640b1d7d6e9471168cad02823d363aaaa1;hpb=d4c545ab7e7b0f82774654c089c8f879c5edc0a7 --- source/unres/src_MD-M/cinfo.f | 6 +++--- source/wham/src-M/read_ref_str.F | 4 ++++ 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/source/unres/src_MD-M/cinfo.f b/source/unres/src_MD-M/cinfo.f index 8757613..a933126 100644 --- 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 --- 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 -- 1.7.9.5