Commit d5508ab6 authored by Daniel Wortmann's avatar Daniel Wortmann

More bugfixes for parallel case

parent eaac316a
......@@ -213,6 +213,7 @@
CALL initParallelProcesses(atoms,vacuum,input,stars,sliceplot,banddos,&
DIMENSION,cell,sym,xcpot,noco,jij,oneD,hybrid,&
kpts,enpara,sphhar,mpi,results,obsolete)
CALL mpi_dist_forcetheorem(mpi,forcetheo)
#endif
ELSE ! else branch of "IF (input%l_inpXML) THEN"
......
......@@ -26,7 +26,7 @@ CONTAINS
ENDIF
CALL MPI_BCAST(t,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)
IF (mpi%irank.NE.0) THEN
DEALLOCATE(forcetheo)
IF (ALLOCATED(forcetheo)) DEALLOCATE(forcetheo)
SELECT CASE (t)
CASE (1)
ALLOCATE(t_forcetheo::forcetheo)
......
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