diff --git a/Code/dynamic.f90 b/Code/dynamic.f90 index 804844d81e786791c2900c6d839f59ea0873e92a..ae69db831dc360de3d1986e8ee7e02de26fa2468 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),&