Commit 32722adc authored by Matthias Redies's avatar Matthias Redies

rename timer

parent e7602881
......@@ -304,7 +304,7 @@ contains
indx1 = sum([(((2*l + 1)*fi%atoms%neq(itype), l=0, fi%hybinp%lcutm1(itype)), &
itype=1, fi%atoms%ntype)]) + mpdata%n_g(ikpt)
call timestart("ibasm+1->nbasm: zgemv")
call timestart("ibasm+1->nbasm: zgemm")
if(conjg_mtir) then
call zgemm("N", "N", indx1, n_vec, indx1, cmplx_1, conjg(hybdat%coul(ikpt)%mtir_c), indx1, &
mat_hlp%data_c(ibasm + 1, 1), mat_hlp%matsize1, cmplx_0, mat_out%data_c(ibasm + 1, 1), mat_out%matsize1)
......@@ -312,7 +312,7 @@ contains
call zgemm("N", "N", indx1, n_vec, indx1, cmplx_1, hybdat%coul(ikpt)%mtir_c, indx1, &
mat_hlp%data_c(ibasm + 1, 1), mat_hlp%matsize1, cmplx_0, mat_out%data_c(ibasm + 1, 1), mat_out%matsize1)
endif
call timestop("ibasm+1->nbasm: zgemv")
call timestop("ibasm+1->nbasm: zgemm")
call timestart("dot prod")
iatom = 0
......
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