X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fgeomout.F;h=2c143b7c9e102c154eeabeb261fc18e00047891e;hb=b09212e2812655f95553a0f781fe148994a2091c;hp=d26f57f847189e45a7644764658f7ab2271eda06;hpb=d9cec92383153b0134157610d07c29dd0394fbc8;p=unres.git

diff --git a/source/unres/src_MD/geomout.F b/source/unres/src_MD/geomout.F
index d26f57f..2c143b7 100644
--- a/source/unres/src_MD/geomout.F
+++ b/source/unres/src_MD/geomout.F
@@ -562,6 +562,12 @@ c-----------------------------------------------------------------
            line2=' '
         endif
         if (print_compon) then
+          if(itime.eq.0) then
+           write(format,'(a1,a4,a1,a4,a10)') "(",format1,",",format2,
+     &                                                     ",20a12)"
+           write (istat,format) "#","",
+     &      (ename(print_order(i)),i=1,nprint_ene)
+          endif
           write(format,'(a1,a4,a1,a4,a10)') "(",format1,",",format2,
      &                                                     ",20f12.3)"
           write (istat,format) line1,line2,