From: Adam Liwo <adam@chem.univ.gda.pl>
Date: Wed, 21 Mar 2012 13:08:53 +0000 (+0100)
Subject: xdrf2pdb-M.F: corrected order of reading
X-Git-Tag: v.3.1~15
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=02b71500770d343ae340160c84e2e4a10088b5cc

xdrf2pdb-M.F: corrected order of reading
---

diff --git a/source/xdrfpdb/src/xdrf2pdb-m.F b/source/xdrfpdb/src/xdrf2pdb-m.F
index 0016d40..6a116ee 100644
--- a/source/xdrfpdb/src/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src/xdrf2pdb-m.F
@@ -103,10 +103,10 @@
        kk = kk + 1
        call xdrffloat(ixdrf, potE, iret)
        call xdrffloat(ixdrf, uconst, iret)
+       call xdrffloat(ixdrf, t_bath, iret)
 #ifdef NEWUNRES
        call xdrffloat(ixdrf, uconst_back, iret)
 #endif
-       call xdrffloat(ixdrf, t_bath, iret)
        call xdrfint(ixdrf, nss, iret) 
        do j=1,nss
         call xdrfint(ixdrf, ihpb(j), iret)