Commit c085f7b9 authored by Uliana Alekseeva's avatar Uliana Alekseeva

Time measurement for the initialization

parent 84bb95e9
......@@ -205,9 +205,12 @@
integer:: ierr(2)
#endif
mpi%mpi_comm=mpi_comm
CALL timestart("Initialization")
CALL fleur_init(mpi,input,dimension,atoms,sphhar,cell,stars,sym,noco,vacuum,&
sliceplot,banddos,obsolete,enpara,xcpot,results,jij,kpts,hybrid,&
oneD,l_opti)
CALL timestop("Initialization")
IF (l_opti) THEN
IF (sliceplot%iplot .AND. (mpi%irank==0) ) THEN
......
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