Commit 271b812d authored by Matthias Redies's avatar Matthias Redies

add timers to calc_cmt

parent 2c7b2c0f
......@@ -39,6 +39,7 @@ contains
complex :: cdum
type(t_lapw) :: lapw_ik, lapw_ikp
call timestart("calc_cmt")
ikp = kpts%bkp(ik)
nbands = hybdat%nbands(ikp)
......@@ -115,5 +116,6 @@ contains
call waveftrafo_gen_cmt(cmt, c_phase, zmat_ikp%l_real, ikp, iop, atoms, &
mpdata, hybinp, kpts, sym, nbands, cmt_out)
endif
call timestop("calc_cmt")
end subroutine calc_cmt
end module m_calc_cmt
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