@@ -151,8 +151,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
151
151
stop
152
152
end if
153
153
154
- write (file_io,* ) " ! num_nodes, num_elements, num_boundary_points, num_sets, num_dirichlet_boundary_conditions, &
155
- num_neumann_boundary_conditions"
154
+ write (file_io,* ) " ! num_nodes, num_elements, num_boundary_points, num_sets, num_dirichlet_boundary_conditions, " , &
155
+ " num_neumann_boundary_conditions"
156
156
write (file_io,* ) num_nodes, num_elements, num_boundary_nodes, num_sets, num_dirichlet_boundary_conditions, &
157
157
num_neumann_boundary_conditions
158
158
@@ -169,7 +169,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
169
169
write (file_io,* ) i, nodes(1 , i), nodes(2 , i)
170
170
end do
171
171
172
- write (file_io,* ) " ! je,element_to_node(1,je),element_to_node(2,je),element_to_node(3,je),vb_index(je) - as many lines as num_elements"
172
+ write (file_io,* ) " ! je,element_to_node(1,je),element_to_node(2,je),element_to_node(3,je),vb_index(je) - as many lines " , &
173
+ " as num_elements"
173
174
do i = 1 , num_elements
174
175
write (file_io,* ) i, elements(1 , i), elements(2 , i), elements(3 , i), 1
175
176
end do
@@ -179,7 +180,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
179
180
write (file_io,* ) i, 1
180
181
end do
181
182
182
- write (file_io,* ) " ! num_side_nodes(1,ib),num_side_nodes(2,ib),num_side_nodes(3,ib),num_side_nodes(4,ib) - as many lines as num_boundary_points"
183
+ write (file_io,* ) " ! num_side_nodes(1,ib),num_side_nodes(2,ib),num_side_nodes(3,ib),num_side_nodes(4,ib) - as many " , &
184
+ " lines as num_boundary_points"
183
185
do i = 1 , num_boundary_nodes
184
186
write (file_io,* ) boundary_edges(1 , i), boundary_edges(2 , i), boundary_edges(3 , i), 0
185
187
end do
0 commit comments