Commit 42fd54c3 authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent 11c33c77
......@@ -92,7 +92,7 @@ call prmat(na, useGpu, a_mat, a_dev, matrixRows, matrixCols, nblk, my_prow, my_p
!> \param useGPU If true, GPU version of the subroutine will be used
!> \param wantDebug if true more debug information
!>
subroutine tridiag_&
subroutine tridiag_&
&MATH_DATATYPE&
&_&
&PRECISION &
......@@ -182,6 +182,7 @@ call prmat(na, useGpu, a_mat, a_dev, matrixRows, matrixCols, nblk, my_prow, my_p
integer(kind=ik) :: istat
character(200) :: errorMessage
character(20) :: gpuString
integer(kind=ik) :: nblockEnd
integer(kind=c_intptr_t), parameter :: size_of_datatype = size_of_&
&PRECISION&
&_&
......@@ -255,6 +256,8 @@ call prmat(na, useGpu, a_mat, a_dev, matrixRows, matrixCols, nblk, my_prow, my_p
endif
tile_size = ((min_tile_size-1)/tile_size+1)*tile_size
nblockEnd = 3
l_rows_per_tile = tile_size/np_rows ! local rows of a tile
l_cols_per_tile = tile_size/np_cols ! local cols of a tile
......@@ -426,7 +429,7 @@ call prmat(na, useGpu, a_mat, a_dev, matrixRows, matrixCols, nblk, my_prow, my_p
! main cycle of tridiagonalization
! in each step, 1 Householder Vector is calculated
do istep = na, 3 ,-1
do istep = na, nblockEnd ,-1
! Calculate number of local rows and columns of the still remaining matrix
! on the local processor
......@@ -468,7 +471,6 @@ call prmat(na, useGpu, a_mat, a_dev, matrixRows, matrixCols, nblk, my_prow, my_p
#endif
#if COMPLEXCASE == 1
aux, 1_BLAS_KIND, &
#endif
ONE, v_row, 1_BLAS_KIND)
if (wantDebug) call obj%timer%stop("blas")
......
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