Commit bdda3a59 authored by Daniel Wortmann's avatar Daniel Wortmann

updated fleur_init

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