X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc%2Fxdrf2pdb.F;fp=source%2Fxdrfpdb%2Fsrc%2Fxdrf2pdb.F;h=c33490b27104d96c8fbae76abc218550a9646238;hp=c87e9ffa9312bdd02eb23b8cfd0f06662a9f67af;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

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)