Commit a436f699 authored by Robin Hilgers's avatar Robin Hilgers

Modified calls in fleur.f90

parent 39c0ced9
......@@ -97,7 +97,7 @@ CONTAINS
TYPE(t_mpi) :: mpi
TYPE(t_coreSpecInput) :: coreSpecInput
TYPE(t_wann) :: wann
TYPE(t_potden) :: vTot, vx, vCoul, vTemp
TYPE(t_potden) :: vTot, vx, vCoul, vTemp, vxcForPlotting
TYPE(t_potden) :: inDen, outDen, EnergyDen
CLASS(t_xcpot), ALLOCATABLE :: xcpot
CLASS(t_forcetheo), ALLOCATABLE :: forcetheo
......@@ -248,11 +248,10 @@ CONTAINS
CALL timestop("generation of potential")
! IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_TOT_INDEX_const,vTot)
! END IF
! IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_TOT_INDEX_const,vTot)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_COU_INDEX_const,vCoul)
! CALL subPotDen(vxcForPlotting,vTot,vCoul)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_VXC_const,vxcForPlotting)
! END IF
#ifdef CPP_MPI
......@@ -379,12 +378,9 @@ CONTAINS
enpara,cell,noco,vTot,results,oneD,coreSpecInput,&
archiveType,xcpot,outDen,EnergyDen)
! IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! IF-statement to check whether we remove core densities
! IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_Y_CORE_INDEX_const,outDen)
! ELSE
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_N_CORE_INDEX_const,outDen)
! END IF
! END IF
IF (input%l_rdmft) 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