Commit bdda3a59 authored by Daniel Wortmann's avatar Daniel Wortmann

updated fleur_init

parent 682c1aeb
...@@ -122,17 +122,19 @@ ...@@ -122,17 +122,19 @@
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,&
sliceplot,banddos,hybrid,oneD,coreSpecInput,wann,& sliceplot,banddos,hybrid,oneD,coreSpecInput,wann,&
xcpot,forcetheo_data,kpts,enparaXML) xcpot,forcetheo_data,kpts,enparaXML)
END IF END IF
CALL fleurinput_mpi_bc(cell,sym,atoms,input,noco,vacuum,field,& CALL fleurinput_mpi_bc(cell,sym,atoms,input,noco,vacuum,field,&
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,&
...@@ -146,14 +148,7 @@ ...@@ -146,14 +148,7 @@
.TRUE.,[.TRUE.,.TRUE.,.TRUE.,.TRUE.]) .TRUE.,[.TRUE.,.TRUE.,.TRUE.,.TRUE.])
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