From 39910803bbab5d3e4158d90d9f90e263574a3a73 Mon Sep 17 00:00:00 2001 From: fhu Date: Mon, 9 Oct 2023 21:28:40 +1100 Subject: [PATCH] (analysis_radiotde) solve compiling warning --- src/utils/analysis_radiotde.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/utils/analysis_radiotde.f90 b/src/utils/analysis_radiotde.f90 index 29d2d2b8f..4d009de92 100644 --- a/src/utils/analysis_radiotde.f90 +++ b/src/utils/analysis_radiotde.f90 @@ -138,8 +138,8 @@ subroutine do_analysis(dumpfile,numfile,xyzh,vxyzu,pmass,npart,time,iunit) open(iunit,file='outflows',status='old',position='append') else open(iunit,file='outflows',status='new') - write(iunit,*) '# time, m_cap[msun], m_accum[msun], vr_accum_mean[c], vr_cap_mean[c], & - v_accum_mean[c], v_cap_mean[c], e_accum[erg], e_cap[erg]' + write(iunit,'(9(A15,1X))') '# time', 'm_cap[msun]', 'm_accum[msun]', 'vr_accum_mean[c]', 'vr_cap_mean[c]', & + 'v_accum_mean[c]', 'v_cap_mean[c]', 'e_accum[erg]', 'e_cap[erg]' endif write(iunit,'(9(es18.10,1x))') & time*todays, &