Commit a9b3af21 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix timer call error for cublas - part 2

parent 9ed892af
......@@ -1142,8 +1142,11 @@
(umc_dev+ (lcs-1)* &
size_of_datatype), &
cur_l_cols)
call obj%timer%stop("cublas")
if(i==0) cycle
call obj%timer%start("cublas")
lre = min(l_rows,i*l_rows_tile)
call cublas_PRECISION_GEMM('N', 'N', lre,n_cols, lce-lcs+1, ONE, &
(a_dev+ ((lcs-1)*lda* &
......
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