Commit 7315bd26 authored by Alexander Neukirchen's avatar Alexander Neukirchen

made xcpot optional for ow_to_grid; this might be it

parent 9555bce3
......@@ -75,17 +75,16 @@ CONTAINS
USE m_types
USE m_constants
IMPLICIT NONE
CLASS(t_xcpot), INTENT(IN) :: xcpot
LOGICAL,INTENT(IN) :: dograds
INTEGER,INTENT(IN) :: jspins
LOGICAL,INTENT(IN) :: l_noco
TYPE(t_stars),INTENT(IN) :: stars
TYPE(t_cell),INTENT(IN) :: cell
COMPLEX,INTENT(IN) :: den_pw(:,:)
TYPE(t_gradients),INTENT(OUT) :: grad
REAL,ALLOCATABLE,INTENT(out),OPTIONAL :: rho(:,:)
LOGICAL,INTENT(IN) :: dograds
INTEGER,INTENT(IN) :: jspins
LOGICAL,INTENT(IN) :: l_noco
TYPE(t_stars),INTENT(IN) :: stars
TYPE(t_cell),INTENT(IN) :: cell
COMPLEX,INTENT(IN) :: den_pw(:,:)
TYPE(t_gradients),INTENT(OUT) :: grad
CLASS(t_xcpot), INTENT(IN),OPTIONAL :: xcpot
REAL,ALLOCATABLE,INTENT(OUT),OPTIONAL :: rho(:,:)
INTEGER :: js,i,idm,ig,ndm,jdm
......@@ -218,8 +217,9 @@ CONTAINS
ENDDO !jdm
ENDDO !idm
END IF
CALL xcpot%alloc_gradients(ifftxc3,jspins,grad)
IF (PRESENT(xcpot)) THEN
CALL xcpot%alloc_gradients(ifftxc3,jspins,grad)
END IF
!!!!!!!THIS IS A QUICKFIX! TO BE REMOVED ASAP!!!!!!!!!
!A. Neukirchen 25.09.19
!IF (ALLOCATED(grad%agrt)) 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