Skip to content

Commit a946fe2

Browse files
Clean up
1 parent 329a032 commit a946fe2

2 files changed

Lines changed: 3 additions & 3 deletions

File tree

examples/triangle_mesh_surface_example.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -33,10 +33,10 @@ program example
3333

3434
! Print the interpolated values
3535
print '(A)', "Interpolated Value:"
36-
print '(AF0.3AF0.3AF0.3)', achar(9), xi, achar(9), yi, achar(9), zi
36+
print '(A, F0.3, A, F0.3, A, F0.3)', achar(9), xi, achar(9), yi, achar(9), zi
3737

3838
print '(A)', "Actual Values:"
39-
print '(AF0.3AF0.3AF0.3)', achar(9), xi, achar(9), yi, achar(9), &
39+
print '(A, F0.3, A, F0.3, A, F0.3)', achar(9), xi, achar(9), yi, achar(9), &
4040
sin(xi) + sin(yi)
4141

4242
! Generate the plot

examples/triangulation_2d_example.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ program example
2727
call tri%create(x, y)
2828

2929
! Display the number of points and elements
30-
print '(AI0AI0A)', "The triangulation consists of ", &
30+
print '(A, I0, A, I0, A)', "The triangulation consists of ", &
3131
tri%get_point_count(), " points, and ", tri%get_triangle_count(), &
3232
" triangles."
3333

0 commit comments

Comments
 (0)