Fixed formatting for negative bunit and rho

gafusion · May 22, 2024 · 0ef97cf · 0ef97cf
1 parent cd7dd52
commit 0ef97cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cgyro/src/cgyro_write_initdata.f90 b/cgyro/src/cgyro_write_initdata.f90
@@ -146,7 +146,7 @@ subroutine cgyro_write_initdata
         dn = rho/(rhos/a_meters)
         kyrat = abs(q/rmin*rhos/a_meters)
         write(io,*)
-        write(io,10) '           a[m]:',a_meters,'  b_unit[T]:',b_unit,  '     rhos/a:',rhos/a_meters,' dn:',dn
+        write(io,10) '           a[m]:',a_meters, '|b_unit[T]|:',abs(b_unit),  '   |rhos/a|:',abs(rhos)/a_meters,' dn:',dn
         write(io,10) 'n_norm[e19/m^3]:',dens_norm,'v_norm[m/s]:',vth_norm,'T_norm[keV]:',temp_norm
         write(io,*)
         write(io,'(t2,a)') ' n = 1         2         3         4         5         6         7         8'