Commit 2fb06c49 authored by Andreas Marek's avatar Andreas Marek

Fix some inconsistent names

parent 0054cf3a
......@@ -279,7 +279,7 @@
real(kind=REAL_DATATYPE) :: BETA
call timer%start("hh_tranform_&
call timer%start("hh_transform_&
&MATH_DATATYPE&
&" // &
&PRECISION_SUFFIX )
......
......@@ -188,7 +188,7 @@
&MATH_DATATYPE
call timer%start("trans_ev_band_to_full_&
&MATH_DATATYPE&
&_" // &
&" // &
&PRECISION_SUFFIX &
)
call timer%start("mpi_communication")
......@@ -766,8 +766,9 @@
if (t_cols <= 0) exit
t_rows = (i - 1) * nbw
tmat_complete(t_rows+1:t_rows+t_cols,t_rows+1:t_rows+t_cols) = tmat(1:t_cols,1:t_cols,(istep-1)*t_blocking + i)
call timer%start("blas")
if (i > 1) then
call timer%start("blas")
#if REALCASE == 1
call PRECISION_GEMM('T', 'N', &
#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