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
...@@ -139,7 +139,7 @@ contains ...@@ -139,7 +139,7 @@ contains
integer :: my_rank, maximum_rank integer :: my_rank, maximum_rank
integer :: i,j integer :: i,j
type(ALL_t) :: jall type(ALL_t) :: jall
#ifdef ALL_VTK_OUTPUT #ifdef ALL_VTK_OUTPUT_EXAMPLE
character (len=ALL_ERROR_LENGTH) :: error_msg character (len=ALL_ERROR_LENGTH) :: error_msg
#endif #endif
...@@ -209,7 +209,7 @@ contains ...@@ -209,7 +209,7 @@ contains
write(stdout,'(a,i0,"/",i0)') "Starting step: ", current_step, number_of_steps write(stdout,'(a,i0,"/",i0)') "Starting step: ", current_step, number_of_steps
flush(stdout) flush(stdout)
endif endif
#ifdef ALL_VTK_OUTPUT #ifdef ALL_VTK_OUTPUT_EXAMPLE
call ALL_reset_error() call ALL_reset_error()
call jall%print_vtk_outlines(current_step) call jall%print_vtk_outlines(current_step)
if(ALL_error() /= 0) then if(ALL_error() /= 0) then
...@@ -227,7 +227,7 @@ contains ...@@ -227,7 +227,7 @@ contains
call MPI_Barrier(MPI_COMM_WORLD, error) call MPI_Barrier(MPI_COMM_WORLD, error)
enddo enddo
#ifdef ALL_VTK_OUTPUT #ifdef ALL_VTK_OUTPUT_EXAMPLE
call ALL_reset_error() call ALL_reset_error()
call jall%print_vtk_outlines(current_step) call jall%print_vtk_outlines(current_step)
if(ALL_error() /= 0) then if(ALL_error() /= 0) then
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment