Skip to content

Commit 5001639

Browse files
committed
wrap quoted lines with comma
1 parent 126bdd6 commit 5001639

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

src/mesh_generator/mesh_generator.f90

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -151,8 +151,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
151151
stop
152152
end if
153153

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"
156156
write(file_io,*) num_nodes, num_elements, num_boundary_nodes, num_sets, num_dirichlet_boundary_conditions, &
157157
num_neumann_boundary_conditions
158158

@@ -169,7 +169,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
169169
write(file_io,*) i, nodes(1, i), nodes(2, i)
170170
end do
171171

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"
173174
do i = 1, num_elements
174175
write(file_io,*) i, elements(1, i), elements(2, i), elements(3, i), 1
175176
end do
@@ -179,7 +180,8 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
179180
write(file_io,*) i, 1
180181
end do
181182

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"
183185
do i = 1, num_boundary_nodes
184186
write(file_io,*) boundary_edges(1, i), boundary_edges(2, i), boundary_edges(3, i), 0
185187
end do

0 commit comments

Comments
 (0)