Commit 0681ab3f authored by Matthias Redies's avatar Matthias Redies

more intent(out)

parent 467b57dc
......@@ -73,7 +73,8 @@ CONTAINS
SUBROUTINE olap_pwp(l_real, olap_r, olap_c, gpt, ngpt, atoms, cell)
USE m_constants, ONLY: REAL_NOT_INITALIZED, CMPLX_NOT_INITALIZED
USE m_constants, ONLY: REAL_NOT_INITALIZED, CMPLX_NOT_INITALIZED,&
fpi_const, tpi_const
USE m_types
IMPLICIT NONE
TYPE(t_cell), INTENT(IN) :: cell
......
......@@ -297,7 +297,7 @@
! - scalars -
INTEGER, INTENT (IN) :: ncstd
INTEGER, INTENT (IN) :: jspin
INTEGER, INTENT (OUT):: lmaxc(:)
INTEGER, INTENT (INOUT):: lmaxc(:)
! - arrays -
INTEGER, INTENT (INOUT) :: nindxcr(0:ncstd,atoms%ntype)
......
......@@ -229,7 +229,7 @@ CONTAINS
COMPLEX, INTENT(IN) :: coulomb_mt3(:, :, :)
COMPLEX, INTENT(IN) :: coulomb_mtir(:)
COMPLEX, INTENT(IN) :: vecin(:)!(hybdat%nbasm)
COMPLEX, INTENT(OUT):: vecout(:)!(hybdat%nbasm)
COMPLEX, INTENT(INOUT):: vecout(:)!(hybdat%nbasm)
! - local scalars -
INTEGER :: itype, ieq, iatom, ishift
......@@ -244,6 +244,7 @@ CONTAINS
COMPLEX :: vecinhlp(hybdat%nbasm(ikpt))
call timestart("spmvec_noinvs")
vecout = CMPLX_NOT_INITALIZED
vecinhlp = vecin
CALL reorder(hybdat%nbasm(ikpt), atoms, hybinp%lcutm1, maxval(hybinp%lcutm1), mpdata%num_radbasfn, 1, vec_c=vecinhlp)
......
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