Commit bdda3a59 authored by Daniel Wortmann's avatar Daniel Wortmann

updated fleur_init

parent 682c1aeb
......@@ -122,6 +122,7 @@
OPEN (16,status='SCRATCH')
ENDIF
ALLOCATE(t_xcpot_inbuild::xcpot)
IF (mpi%irank.EQ.0) THEN
CALL fleurinput_read_xml(cell,sym,atoms,input,noco,vacuum,field,&
......@@ -133,6 +134,7 @@
sliceplot,banddos,hybrid,oneD,coreSpecInput,wann,&
xcpot,forcetheo_data,kpts,enparaXML,mpi%mpi_comm)
CALL timestart("postprocessInput")
CALL postprocessInput(mpi,input,field,sym,stars,atoms,vacuum,kpts,&
oneD,hybrid,cell,banddos,sliceplot,xcpot,forcetheo,&
......@@ -147,13 +149,6 @@
END IF
#ifdef CPP_MPI
CALL initParallelProcesses(atoms,vacuum,input,stars,sliceplot,banddos,&
DIMENSION,cell,sym,xcpot,noco,oneD,hybrid,&
kpts,enpara,sphhar,mpi)
#endif
CALL ylmnorm_init(atoms%lmaxd)
!
!--> determine more dimensions
......
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