Fix bug in write formatting (#411)

gafusion · Sep 26, 2024 · 5618d62 · 5618d62
1 parent b8268d2
commit 5618d62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/profiles_gen/locpargen/locpargen_tglf_stack.f90 b/profiles_gen/locpargen/locpargen_tglf_stack.f90
@@ -68,6 +68,6 @@ subroutine locpargen_tglf_stack
        'VPAR_1=',mach_loc/cs_loc
   close(1)
 
-10 format(sp,21(a,1pe12.5,2x),a,s,i0,2x,4(a,s,i0,2x,sp,7(a,1pe12.5,2x)))
+10 format(sp,43(a,1pe12.5,2x),a,s,i0,2x,4(a,s,i0,2x,sp,7(a,1pe12.5,2x)))
 
 end subroutine locpargen_tglf_stack