Commit 2271895f by Andreas Marek

### Remove whitespaces

parent 088513b2
 ... @@ -496,7 +496,7 @@ ... @@ -496,7 +496,7 @@ n_iter = 0 n_iter = 0 ! first calculate A*v part of (A + VU**T + UV**T)*v ! first calculate A*v part of (A + VU**T + UV**T)*v uc_p(1:l_cols,my_thread) = 0. uc_p(1:l_cols,my_thread) = 0. ur_p(1:l_rows,my_thread) = 0. ur_p(1:l_rows,my_thread) = 0. #endif /* WITH_OPENMP */ #endif /* WITH_OPENMP */ ... @@ -574,45 +574,45 @@ ... @@ -574,45 +574,45 @@ ! endif ! endif call obj%timer%stop("cublas") call obj%timer%stop("cublas") else else !perform multiplication by stripes - it is faster than by blocks, since we call cublas with !perform multiplication by stripes - it is faster than by blocks, since we call cublas with !larger matrices. In general, however, this algorithm is very simmilar to the one with CPU !larger matrices. In general, however, this algorithm is very simmilar to the one with CPU do i=0,(istep-2)/tile_size do i=0,(istep-2)/tile_size l_col_beg = i*l_cols_per_tile+1 l_col_beg = i*l_cols_per_tile+1 l_col_end = min(l_cols,(i+1)*l_cols_per_tile) l_col_end = min(l_cols,(i+1)*l_cols_per_tile) if(l_col_end 0) then if (n_stored_vecs > 0) then call obj%timer%start("blas") call obj%timer%start("blas") #if REALCASE == 1 #if REALCASE == 1 ... @@ -778,7 +778,7 @@ ... @@ -778,7 +778,7 @@ if (l_col_end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!