subroutine write_stat_msg_gmsh_msh1_file(mesh_data, write_unit)
type(gmsh_msh1_data_type), intent(in) :: mesh_data
integer, intent(in) :: write_unit
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_nod_section_header , &!
nod_section_header(:)
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_number_of_nodes , &!
'number_of_nodes'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_deallocation_nodes , &!
'deallocation_nodes'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_allocation_nodes , &!
'allocation_nodes'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_reading_nodes , &!
'reading_nodes'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_nod_section_footer , &!
nod_section_footer(:)
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_elm_section_header , &!
elm_section_header(:)
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_number_of_elements , &!
'number_of_elements'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_deallocation_elements , &!
'deallocation_elements'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_allocation_elements , &!
'allocation_elements'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_reading_elements , &!
'reading_elements'
write( write_unit, '(L1,6X,":",1X,A)' ) &!
mesh_data%flag_elm_section_footer , &!
elm_section_footer(:)
write( write_unit, "(A,I0)" ) "iostat : ", mesh_data%status% io %code
write( write_unit, "(A,A )" ) "iomsg : ", trim( mesh_data%status% io %msg(:) )
write( write_unit, "(A,I0)" ) "stat : ", mesh_data%status% err %code
write( write_unit, "(A,A )" ) "errmsg : ", trim( mesh_data%status% err %msg(:) )
end subroutine write_stat_msg_gmsh_msh1_file