From 7c6b0cdd62ad24b98f7467758b65982d2827f67b Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Tue, 30 Apr 2013 09:08:54 +0200 Subject: [PATCH] testing ssbond in cx --- source/xdrfpdb/src/xdrf2pdb.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.9.5