(analysis_radiotde) solve compiling warning

danieljprice · Oct 9, 2023 · 3991080 · 3991080
1 parent 0cad194
commit 3991080
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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, &