Planned maintenance on Wednesday, 2021-01-20, 17:00-18:00. Expect some interruptions during that time

Commit 124fb0d9 authored by Andreas Marek's avatar Andreas Marek

Max stored rows tunable

parent ad0947e2
......@@ -109,7 +109,7 @@
MATH_DATATYPE(kind=rck), intent(inout) :: a_mat(lda,matrixCols), q_mat(ldq,matrixCols)
#endif
logical, intent(in) :: useGPU
integer(kind=ik) :: max_stored_rows
integer(kind=ik) :: max_stored_rows, max_stored_rows_fac
integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
integer(kind=ik) :: totalblocks, max_blocks_row, max_blocks_col, max_local_rows, max_local_cols
......@@ -130,6 +130,7 @@
&PRECISION&
&_&
&MATH_DATATYPE
integer(kind=ik) :: error
if(useGPU) then
gpuString = "_gpu"
else
......@@ -149,6 +150,8 @@
call mpi_comm_size(mpi_comm_cols,np_cols,mpierr)
call obj%timer%stop("mpi_communication")
call obj%get("max_stored_rows",max_stored_rows_fac, error)
totalblocks = (na-1)/nblk + 1
max_blocks_row = (totalblocks-1)/np_rows + 1
max_blocks_col = ((nqc-1)/nblk)/np_cols + 1 ! Columns of q_mat!
......@@ -156,7 +159,7 @@
max_local_rows = max_blocks_row*nblk
max_local_cols = max_blocks_col*nblk
max_stored_rows = (63/nblk+1)*nblk
max_stored_rows = (max_stored_rows_fac/nblk+1)*nblk
allocate(tmat(max_stored_rows,max_stored_rows), stat=istat, errmsg=errorMessage)
call check_alloc("trans_ev_&
......
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