Commit 350d7953 authored by Matthias Redies's avatar Matthias Redies

timers are now in read_z

parent e63a7e38
......@@ -122,10 +122,8 @@ CONTAINS
call z_kqpt%alloc(.true., nbasfcn, input%neig)
! read in z at k-point nk and nkqpt
call timestart("read_z")
CALL read_z(atoms, cell, mpdata, hybdat, hybinp, kpts, sym, noco, input, nk, jsp, z_nk)
call read_z(atoms, cell, mpdata, hybdat, hybinp, kpts, sym, noco, input, nkqpt, jsp, z_kqpt)
call timestop("read_z")
g = maxval(abs(lapw%gvec(:, :lapw%nv(jsp), jsp)), dim=2) &
+ maxval(abs(lapw_nkqpt%gvec(:, :lapw_nkqpt%nv(jsp), jsp)), dim=2)&
......
......@@ -125,10 +125,8 @@ CONTAINS
call z_kqpt%alloc(.false., nbasfcn, input%neig)
! read in z at k-point ik and nkqpt
call timestart("read_z")
call read_z(atoms, cell, mpdata, hybdat, hybinp, kpts, sym, noco, input, ik, jsp, z_nk)
call read_z(atoms, cell, mpdata, hybdat, hybinp, kpts, sym, noco, input, nkqpt, jsp, z_kqpt)
call timestop("read_z")
g = maxval(abs(lapw%gvec(:,:lapw%nv(jsp), jsp)), dim=2) &
+ maxval(abs(lapw_nkqpt%gvec(:,:lapw_nkqpt%nv(jsp), jsp)), dim=2)&
......
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