Skip to content
Snippets Groups Projects

Fortran error tests

Merged Stephan Schulz requested to merge fortran_error_tests into master
1 file
+ 3
3
Compare changes
  • Side-by-side
  • Inline
+ 3
3
@@ -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
Loading