Commit 7bcb325b authored by Pavel Kus's avatar Pavel Kus

fix in timer string

parent ebbb06d8
...@@ -155,7 +155,7 @@ subroutine solve_tridi_& ...@@ -155,7 +155,7 @@ subroutine solve_tridi_&
(obj, l_cols, nev1, nc, d(nc+1), e(nc+1), q, ldq, nblk, & (obj, l_cols, nev1, nc, d(nc+1), e(nc+1), q, ldq, nblk, &
matrixCols, mpi_comm_rows, useGPU, wantDebug, success, max_threads) matrixCols, mpi_comm_rows, useGPU, wantDebug, success, max_threads)
if (.not.(success)) then if (.not.(success)) then
call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX) call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX // gpuString)
return return
endif endif
! If there is only 1 processor column, we are done ! If there is only 1 processor column, we are done
...@@ -167,7 +167,7 @@ subroutine solve_tridi_& ...@@ -167,7 +167,7 @@ subroutine solve_tridi_&
stop 1 stop 1
endif endif
call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX) call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX // gpuString)
return return
endif endif
...@@ -230,7 +230,7 @@ subroutine solve_tridi_& ...@@ -230,7 +230,7 @@ subroutine solve_tridi_&
&PRECISION & &PRECISION &
(obj, 0, np_cols, useGPU, wantDebug, success) (obj, 0, np_cols, useGPU, wantDebug, success)
if (.not.(success)) then if (.not.(success)) then
call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX) call obj%timer%stop("solve_tridi" // PRECISION_SUFFIX // gpuString)
return return
endif endif
......
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