From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Tue, 30 Apr 2013 07:10:32 +0000 (+0200)
Subject: Merge branch 'prerelease-3.2.1' of mmka:unres into prerelease-3.2.1
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=466a16180c457d8a2e8fac70525d07a4f82ca225;hp=5ea13d68ca6fd3bf714767029b01e1ae988289d2;p=unres.git

Merge branch 'prerelease-3.2.1' of mmka:unres into prerelease-3.2.1
---

diff --git a/source/xdrfpdb/src/xdrf2pdb.F b/source/xdrfpdb/src/xdrf2pdb.F
index c87e9ff..c33490b 100644
--- a/source/xdrfpdb/src/xdrf2pdb.F
+++ b/source/xdrfpdb/src/xdrf2pdb.F
@@ -108,8 +108,8 @@
        print *,"potE",potE," uconst",uconst
 #ifdef NEWUNRES
        call xdrffloat(ixdrf, uconst_back, iret)
-#endif
        print *,"uconst_back",uconst_back
+#endif
        call xdrffloat(ixdrf, t_bath, iret)
        print *,"t_bath",t_bath
        call xdrfint(ixdrf, nss, iret) 
@@ -118,6 +118,7 @@
         call xdrfint(ixdrf, jhpb(j), iret)
        enddo
        print *,"nss",nss
+       print *,"   ",(ihpb(j),"-",jhpb(j),j=1,nss)
        call xdrfint(ixdrf, nfrag, iret)
        do i=1,nfrag
         call xdrffloat(ixdrf, qfrag(i), iret)