From 93d97bcfa2d79078e6b9d1db0c9bbd856cb16a19 Mon Sep 17 00:00:00 2001
From: Paul-Gerhard Reinhard <mpt218@homework.(none)>
Date: Tue, 16 Aug 2016 14:46:57 +0200
Subject: [PATCH] utility 'analyze-radiation.f90' added in 'Utils/Spectra'

---
 Code/dynamic.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Code/dynamic.f90 b/Code/dynamic.f90
index 804844d..ae69db8 100644
--- a/Code/dynamic.f90
+++ b/Code/dynamic.f90
@@ -79,7 +79,7 @@ CONTAINS
        CALL start_protocol(monopolesfile, &
             '#    Time      rms_n     rms_p   rms_tot   rms_n-rms_p')
        CALL start_protocol(dipolesfile, &
-            '# Iter    c.m. x-y-z                                  Isovector&
+            '#   Time    c.m. x-y-z                                  Isovector&
             &dipoles x-y-z')
        CALL start_protocol(quadrupolesfile, &
             '#     Time     Q(n)          Q(p)         Q(n+p)        x²(n)         &
@@ -254,7 +254,7 @@ CONTAINS
     CALL moments
     IF(printnow.AND.wflag) THEN
        OPEN(unit=scratch,file=dipolesfile,POSITION='APPEND')  
-       WRITE(scratch,'(1x,i5,6(1pg14.4))') iter,cmtot,cm(:,2)-cm(:,1)
+       WRITE(scratch,'(1x,f10.2,6(1pg14.4))') time,cmtot,cm(:,2)-cm(:,1)
        CLOSE(unit=scratch)
        OPEN(unit=scratch,file=momentafile, POSITION='APPEND')  
        WRITE(scratch,'(1x,f10.2,6(1pg14.6))') time,pcm(:,1)+pcm(:,2),&
-- 
GitLab