From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Thu, 21 Dec 2017 09:46:47 +0000 (+0100)
Subject: xdrf2pdb-m-mult time t_bath printout
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=0a0b19df2e0f4d0081a0df1b16ff63950010daa5;hp=17f6ba1f1fcc75e0823f1cfb16fa99c11f606d6d;p=unres.git

xdrf2pdb-m-mult time t_bath printout
---

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index d60a016..24be584 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -138,7 +138,8 @@ c       write (*,'(8f10.5)') ((coord(k,j),k=1,3),j=1,isize)
            enddo
          enddo
          etot=potE
-         write (tytul,'(a,i6)') "Structure",kk
+         write (tytul,'(a1,i6,a8,f6.1,a6,f10.1)') "#",kk," t_bath ",
+     &             t_bath, " time ",time
          call pdbout(etot,tytul,9)
        endif
       enddo