Commit 3c6e3a1d authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent 42fd54c3
......@@ -51,7 +51,7 @@
#include "../general/sanity.F90"
subroutine tridiag_band_&
subroutine tridiag_band_&
&MATH_DATATYPE&
&_&
&PRECISION &
......@@ -135,6 +135,7 @@
integer(kind=ik), allocatable :: block_limits(:)
MATH_DATATYPE(kind=rck), allocatable :: ab(:,:), hh_gath(:,:,:), hh_send(:,:,:)
integer :: istat
integer(kind=ik) :: nblockEnd
character(200) :: errorMessage
character(20) :: gpuString
......@@ -277,6 +278,7 @@
num_chunks = 0
nx = na
nt = 0
nBlockEnd=1
do n = 1, nblocks_total
call determine_workload(obj,nx, nb, np_rows, limits)
local_size = limits(my_prow+1) - limits(my_prow)
......@@ -380,9 +382,9 @@
#endif /* WITH_MPI */
#ifdef WITH_OPENMP
do istep=1,na-1-block_limits(my_pe)*nb
do istep=1,na-nblockEnd-block_limits(my_pe)*nb
#else
do istep=1,na-1
do istep=1,na-nblockEnd
#endif
if (my_pe==0) then
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment