Commit c085f7b9 authored by Uliana Alekseeva's avatar Uliana Alekseeva

Time measurement for the initialization

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