Commit 9a5a8edf authored by Matthias Redies's avatar Matthias Redies

remove intent(out) from trafo; introduce cmplx_not_init

parent a7ccaca7
......@@ -13,13 +13,14 @@ MODULE m_types_fleurinput_base
!use ieee_module
#ifdef CPP_DEBUG
#ifdef CPP_IEEE_SUPPORT
REAL,PARAMETER :: REAL_NOT_INITALIZED=IEEE_VALUE(1.0,IEEE_SIGNALING_NAN)
REAL,PARAMETER :: REAL_NOT_INITALIZED=IEEE_VALUE(1.0,IEEE_SIGNALING_NAN)
#else
REAL,PARAMETER :: REAL_NOT_INITALIZED=TRANSFER(dsnan_pat, 1.0)
#endif
#else
REAL,PARAMETER :: REAL_NOT_INITALIZED=0.0
#endif
COMPLEX, PARAMETER :: CMPLX_NOT_INITALIZED=(REAL_NOT_INITALIZED,REAL_NOT_INITALIZED)
!This module defines an abstract datatype all fleurinput-datatypes should
!implement
......
......@@ -35,8 +35,8 @@ CONTAINS
LOGICAL, INTENT(IN) :: l_real
REAL, INTENT(IN) :: z_r(:,:)
COMPLEX, INTENT(IN) :: z_c(:,:)
COMPLEX, INTENT(OUT) :: cmt_out(hybdat%maxlmindx, atoms%nat, ndb)
COMPLEX, INTENT(OUT) :: z_out(lapw%nv(jsp), ndb)
COMPLEX, INTENT(INOUT) :: cmt_out(hybdat%maxlmindx, atoms%nat, ndb)
COMPLEX, INTENT(INOUT) :: z_out(lapw%nv(jsp), ndb)
! - local -
......@@ -544,6 +544,7 @@ CONTAINS
USE m_constants
USE m_util
USE m_types
use m_types_fleurinput_base, only: REAL_NOT_INITALIZED,CMPLX_NOT_INITALIZED
IMPLICIT NONE
type(t_mpdata), intent(in) :: mpdata
TYPE(t_hybinp), INTENT(IN) :: hybinp
......@@ -560,9 +561,9 @@ CONTAINS
LOGICAL, INTENT(IN) :: l_real
REAL, INTENT(IN) :: vecin_r(:,:,:)
REAL, INTENT(OUT) :: vecout_r(:,:,:)
REAL, INTENT(INOUT) :: vecout_r(:,:,:)
COMPLEX, INTENT(IN) :: vecin_c(:,:,:)
COMPLEX, INTENT(OUT) :: vecout_c(:,:,:)
COMPLEX, INTENT(INOUT) :: vecout_c(:,:,:)
COMPLEX, INTENT(OUT) :: phase(:,:)
! - local -
......@@ -751,8 +752,10 @@ CONTAINS
if (l_real) THEN
vecout_r = real(vecout1)
vecout_c = CMPLX_NOT_INITALIZED
else
vecout_c = vecout1
vecout_r = REAL_NOT_INITALIZED
endif
deallocate(vecout1)
call timestop("bra trafo")
......
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