Commit 367b50b8 authored by Matthias Redies's avatar Matthias Redies

remove intent(out)

parent 9c2ee045
......@@ -67,12 +67,12 @@ CONTAINS
! dFx_ds - derivative of this factor with respect to s
! d2Fx_ds2 - second derivative with respect to s
SUBROUTINE calculateEnhancementFactor(kF, s_inp, F_x, dFx_Ds, d2Fx_Ds2, dFx_dkF, d2Fx_dsdkF)
use m_constants, only: REAL_NOT_INITALIZED
IMPLICIT NONE
REAL, INTENT(IN) :: kF, s_inp
REAL, INTENT(OUT) :: F_x, dFx_ds, d2Fx_ds2
REAL, INTENT(OUT) :: dFx_dkF, d2Fx_dsdkF
REAL, INTENT(INOUT) :: F_x, dFx_ds, d2Fx_ds2
REAL, INTENT(INOUT) :: dFx_dkF, d2Fx_dsdkF
! Helper variables
REAL :: r1_kF, & ! 1 / kF
......@@ -107,6 +107,9 @@ CONTAINS
! If a large value of s would violate the Lieb-Oxford bound, the value of s is reduced,
! so that this condition is fullfilled
F_x=REAL_NOT_INITALIZED; dFx_ds=REAL_NOT_INITALIZED; d2Fx_ds2=REAL_NOT_INITALIZED
dFx_dkF=REAL_NOT_INITALIZED;d2Fx_dsdkF=REAL_NOT_INITALIZED
correction = s_inp > s_thresh
IF (correction) THEN
s_si2 = s_chg/(s_inp*s_inp)
......
......@@ -136,9 +136,9 @@ CONTAINS
TYPE(t_atoms), INTENT(IN) :: atoms
! - scalars -
INTEGER, INTENT(IN) :: ncstd
INTEGER, INTENT(IN) :: jspin
INTEGER, INTENT(OUT):: lmaxc(:)
INTEGER, INTENT(IN) :: ncstd
INTEGER, INTENT(IN) :: jspin
INTEGER, INTENT(INOUT):: lmaxc(:)
! - arrays -
INTEGER, INTENT(INOUT):: nindxcr(0:ncstd, atoms%ntype)
......@@ -311,7 +311,7 @@ CONTAINS
TYPE(t_input), INTENT(IN) :: input
TYPE(t_atoms), INTENT(IN) :: atoms
INTEGER, INTENT(OUT) :: maxindxc, lmaxcd
INTEGER, INTENT(INOUT) :: maxindxc, lmaxcd
! - local scalars -
INTEGER :: itype, korb, ncmsh, nst
......
......@@ -23,10 +23,10 @@ CONTAINS
TYPE(t_hybdat), INTENT(INOUT) :: hybdat
! - scalars -
INTEGER, INTENT(IN) :: bandi, bandf, bandoi, bandof
INTEGER, INTENT(IN) :: nk, iq, jsp
INTEGER, INTENT(IN) :: nbasm_mt
INTEGER, INTENT(OUT) :: nkqpt
INTEGER, INTENT(IN) :: bandi, bandf, bandoi, bandof
INTEGER, INTENT(IN) :: nk, iq, jsp
INTEGER, INTENT(IN) :: nbasm_mt
INTEGER, INTENT(INOUT) :: nkqpt
! - arrays -
......@@ -37,7 +37,7 @@ CONTAINS
call timestart("wavefproducts_noinv5")
cprod = cmplx_0
cprod = cmplx_0; nkqpt = 0
! calculate nkpqt
kqpthlp = kpts%bkf(:,nk) + kpts%bkf(:,iq)
......
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