Commit 011138dc authored by Matthias Redies's avatar Matthias Redies

add timers

parent e6abfe27
......@@ -191,6 +191,7 @@ CONTAINS
COMPLEX :: zhlp(z_in%matsize1, input%neig)
COMPLEX :: cmthlp(2*atoms%lmaxd + 1)
call timestart("genwavf")
if (z_in%l_real) THEN
rrot = transpose(sym%mrot(:, :, sym%invtab(iop)))
invrrot = transpose(sym%mrot(:, :, iop))
......@@ -304,6 +305,7 @@ CONTAINS
z_out%data_c(:, i) = zhlp(:, i)
endif
END DO
call timestop("genwavf")
END SUBROUTINE waveftrafo_genwavf
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
......
......@@ -204,9 +204,7 @@ contains
cmt=0;cmthlp=0
!rec = kpts%nkptf * (jsp - 1) + ik
call timestart("read_z")
if(ik <= kpts%nkpt) then
call read_eig(hybdat%eig_id,ik,jsp,zmat=z_out)
else
......@@ -224,6 +222,7 @@ contains
hybdat%nbands(ikp), lapw_ikp, lapw_ik,cmthlp, z_out)
!CALL read_matrix(mat, rec, id_z)
endif
call timestart("read_z")
END subroutine read_z
subroutine write_z(mat, rec)
......
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