From 45d76551e7279617c6d05e1c9eb6e178ba574e0c Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Wed, 17 Jun 2026 10:37:46 -0600 Subject: [PATCH 1/3] Fix format issue preventing fields from appearing in BeamDyn YAML summary file Update AllFmt format strings in BeamDyn_IO.f90 for Init_Nodes and Init_QP arrays to use proper spacing and trailing comma in Fortran format specs. This was preventing writing of this information. Remove redundant format statement from yaml_write_array2R[48] --- modules/beamdyn/src/BeamDyn_IO.f90 | 4 ++-- modules/nwtc-library/src/YAML.f90 | 2 -- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/modules/beamdyn/src/BeamDyn_IO.f90 b/modules/beamdyn/src/BeamDyn_IO.f90 index e0322d6bb1..825f291d49 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..a60d024d32 100644 --- a/modules/nwtc-library/src/YAML.f90 +++ b/modules/nwtc-library/src/YAML.f90 @@ -519,7 +519,6 @@ subroutine yaml_write_array2R4(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm Fmt='' ! Indent and Key - if (present(level)) Fmt = trim(Num2LStr(level*INDENT_SPACES))//'X,' if (present(comment)) then write(fid, '('//trim(Fmt)//'A,": # ",I0," x ",I0,1X,A)', iostat=ErrStat ) trim(key), nr, nc, trim(comment) else @@ -572,7 +571,6 @@ subroutine yaml_write_array2R8(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm Fmt='' ! Indent and Key - if (present(level)) Fmt = trim(Num2LStr(level*INDENT_SPACES))//'X,' if (present(comment)) then write(fid, '('//trim(Fmt)//'A,": # ",I0," x ",I0,1X,A)', iostat=ErrStat ) trim(key), nr, nc, trim(comment) else From 0a1c79c8e7a7378dab38066b9868ac795036589a Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Wed, 17 Jun 2026 10:51:48 -0600 Subject: [PATCH 2/3] Revert changes in formating internal to yaml.f90 I missed the usage of it right afterwards --- modules/nwtc-library/src/YAML.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/modules/nwtc-library/src/YAML.f90 b/modules/nwtc-library/src/YAML.f90 index a60d024d32..5af02a2097 100644 --- a/modules/nwtc-library/src/YAML.f90 +++ b/modules/nwtc-library/src/YAML.f90 @@ -519,6 +519,7 @@ subroutine yaml_write_array2R4(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm Fmt='' ! Indent and Key + if (present(level)) Fmt = trim(Num2LStr(level*INDENT_SPACES))//'X,' if (present(comment)) then write(fid, '('//trim(Fmt)//'A,": # ",I0," x ",I0,1X,A)', iostat=ErrStat ) trim(key), nr, nc, trim(comment) else @@ -571,6 +572,7 @@ subroutine yaml_write_array2R8(fid, key, A, VarFmt, ErrStat, ErrMsg, level, comm Fmt='' ! Indent and Key + if (present(level)) Fmt = trim(Num2LStr(level*INDENT_SPACES))//'X,' if (present(comment)) then write(fid, '('//trim(Fmt)//'A,": # ",I0," x ",I0,1X,A)', iostat=ErrStat ) trim(key), nr, nc, trim(comment) else From c14a338e6daad0ef5b66612549d5efbf7ae20b80 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Wed, 17 Jun 2026 11:30:38 -0600 Subject: [PATCH 3/3] Move additional comma into YAML.f90 -- a bit cleaner --- modules/beamdyn/src/BeamDyn_IO.f90 | 4 ++-- modules/nwtc-library/src/YAML.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/beamdyn/src/BeamDyn_IO.f90 b/modules/beamdyn/src/BeamDyn_IO.f90 index 825f291d49..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