diff --git a/modules/beamdyn/src/BeamDyn_IO.f90 b/modules/beamdyn/src/BeamDyn_IO.f90
index e0322d6bb1..3ac90b1a52 100644
--- a/modules/beamdyn/src/BeamDyn_IO.f90
+++ b/modules/beamdyn/src/BeamDyn_IO.f90
@@ -2057,7 +2057,7 @@ SUBROUTINE BD_PrintSum( p, x, OtherState, m, InitInp, ErrStat, ErrMsg )
    WRITE (UnSu, '("#", 6(2x,A))') '    -----------------','-----------------','-----------------','-----------------','-----------------','-----------------'
    DO i=1,p%elem_total
        WRITE (UnSu, '("#", 1x,A,I4)') 'Element number: ',i
-       call yaml_write_array(UnSu, 'Init_Nodes_E'//num2lstr(i), transpose(p%uuN0(1:6,:,i)), 'DummyFmt', ErrStat, ErrMsg, AllFmt='5(ES18.5,","),ES18.5')
+       call yaml_write_array(UnSu, 'Init_Nodes_E'//num2lstr(i), transpose(p%uuN0(1:6,:,i)), 'DummyFmt', ErrStat, ErrMsg, AllFmt=' 5(ES18.5, ","), ES18.5')
    ENDDO
 
    WRITE (UnSu,'(/,A)')  '# Quadrature points position and rotation vectors'
@@ -2065,7 +2065,7 @@ SUBROUTINE BD_PrintSum( p, x, OtherState, m, InitInp, ErrStat, ErrMsg )
    WRITE (UnSu, '("#", 6(2x,A))') '    -----------------','-----------------','-----------------','-----------------','-----------------','-----------------'
    DO i=1,p%elem_total
        WRITE (UnSu, '("#", 1x,A,I4)')  'Element number: ',i
-       call yaml_write_array(UnSu, 'Init_QP_E'//num2lstr(i), transpose(p%uu0(1:6,:,i)), 'DummyFmt', ErrStat, ErrMsg, AllFmt='5(ES18.5,","),ES18.5')
+       call yaml_write_array(UnSu, 'Init_QP_E'//num2lstr(i), transpose(p%uu0(1:6,:,i)), 'DummyFmt', ErrStat, ErrMsg, AllFmt=' 5(ES18.5, ","), ES18.5')
    ENDDO
 
    WRITE (UnSu,'(/,A)')  '# Sectional stiffness and mass matrices at quadrature points (in IEC coordinates)'
diff --git a/modules/nwtc-library/src/YAML.f90 b/modules/nwtc-library/src/YAML.f90
index 5af02a2097..38777111f8 100644
--- a/modules/nwtc-library/src/YAML.f90
+++ b/modules/nwtc-library/src/YAML.f90
@@ -536,7 +536,7 @@ subroutine yaml_write_array2R4(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm
    else
       ! YAML Line format
       if (present(AllFmt)) then
-         Fmt = '('//trim(Fmt)//'"- [",'//trim(AllFmt)//'"]")'   
+         Fmt = '('//trim(Fmt)//'"- [",'//trim(AllFmt)//', "]")'   
       elseif (nc==1) then
          Fmt = '('//trim(Fmt)//'"- [", '//trim(Num2LStr(nc))//'('//VarFmt//'), "]")'   
       else
@@ -589,7 +589,7 @@ subroutine yaml_write_array2R8(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm
    else
       ! YAML Line format
       if (present(AllFmt)) then
-         Fmt = '('//trim(Fmt)//'"- [",'//trim(AllFmt)//'"]")'   
+         Fmt = '('//trim(Fmt)//'"- [",'//trim(AllFmt)//', "]")'   
       elseif (nc==1) then
          Fmt = '('//trim(Fmt)//'"- [", '//trim(Num2LStr(nc))//'('//VarFmt//'), "]")'   
       else