Skip to content
Snippets Groups Projects
Commit 76b228fd authored by Stephan Schulz's avatar Stephan Schulz
Browse files

the change from ALL_VTK_OUTPUT to something different in the examples was...

the change from ALL_VTK_OUTPUT to something different in the examples was somehow reverted at some place
parent cdaca4d5
No related branches found
No related tags found
1 merge request!18Fortran error tests
This commit is part of merge request !18. Comments created here will be created in the context of that merge request.
......@@ -139,7 +139,7 @@ contains
integer :: my_rank, maximum_rank
integer :: i,j
type(ALL_t) :: jall
#ifdef ALL_VTK_OUTPUT
#ifdef ALL_VTK_OUTPUT_EXAMPLE
character (len=ALL_ERROR_LENGTH) :: error_msg
#endif
......@@ -209,7 +209,7 @@ contains
write(stdout,'(a,i0,"/",i0)') "Starting step: ", current_step, number_of_steps
flush(stdout)
endif
#ifdef ALL_VTK_OUTPUT
#ifdef ALL_VTK_OUTPUT_EXAMPLE
call ALL_reset_error()
call jall%print_vtk_outlines(current_step)
if(ALL_error() /= 0) then
......@@ -227,7 +227,7 @@ contains
call MPI_Barrier(MPI_COMM_WORLD, error)
enddo
#ifdef ALL_VTK_OUTPUT
#ifdef ALL_VTK_OUTPUT_EXAMPLE
call ALL_reset_error()
call jall%print_vtk_outlines(current_step)
if(ALL_error() /= 0) then
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment