Commit 38643950 authored by Matthias Redies's avatar Matthias Redies

remove unnecessary dims

parent 87fe98a9
......@@ -133,7 +133,7 @@ CONTAINS
CALL timestart("Vxc in MT")
END IF
CALL vmt_xc(DIMENSION, mpi, sphhar, atoms, den, xcpot, input, sym, &
CALL vmt_xc(mpi, sphhar, atoms, den, xcpot, input, sym, &
obsolete, EnergyDen, vTot, vx, exc)
!
......
......@@ -23,7 +23,7 @@
! *********************************************************
CONTAINS
SUBROUTINE vmt_xc(DIMENSION,mpi,sphhar,atoms,&
SUBROUTINE vmt_xc(mpi,sphhar,atoms,&
den,xcpot,input,sym, obsolete,EnergyDen,vTot,vx,exc)
#include"cpp_double.h"
use m_libxc_postprocess_gga
......@@ -35,7 +35,6 @@
IMPLICIT NONE
CLASS(t_xcpot),INTENT(INOUT) :: xcpot
TYPE(t_dimension),INTENT(IN) :: dimension
TYPE(t_mpi),INTENT(IN) :: mpi
TYPE(t_obsolete),INTENT(IN) :: obsolete
TYPE(t_input),INTENT(IN) :: input
......@@ -121,8 +120,6 @@
!
! calculate the ex.-cor. potential
write (*,*) "perform_MGGA = ", perform_MetaGGA
write (*,*) "xcpot%kinED%set = ", xcpot%kinED%set
if(perform_MetaGGA .and. xcpot%kinED%set) then
CALL xcpot%get_vxc(input%jspins,ch(:nsp*atoms%jri(n),:),v_xc(:nsp*atoms%jri(n),:)&
, v_x(:nsp*atoms%jri(n),:),grad, kinED_KS=xcpot%kinED%mt(:,:,loc_n))
......
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