Commit 3d724877 authored by Daniel Wortmann's avatar Daniel Wortmann

Changes to run better with -C option of ifort

parent 93eb7e6a
......@@ -90,7 +90,11 @@
ALLOCATE( qal(qdim,dimension%neigd,kpts%nkpt),&
& qval(vacuum%nstars*vacuum%layers*vacuum%nvac,dimension%neigd,kpts%nkpt),&
& qlay(dimension%neigd,vacuum%layerd,2),qstars(vacuum%nstars,dimension%neigd,vacuum%layerd,2))
IF (l_mcd) ALLOCATE( mcd(3*atoms%ntype*ncored,dimension%neigd,kpts%nkpt) )
IF (l_mcd) THEN
ALLOCATE( mcd(3*atoms%ntype*ncored,dimension%neigd,kpts%nkpt) )
ELSE
ALLOCATE(mcd(0,0,0))
ENDIF
!
! scale energies
sigma = banddos%sig_dos*factor
......
......@@ -42,8 +42,8 @@ CONTAINS
!-odim
!+odim
LOGICAL, INTENT(IN) :: l_real
REAL, INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX, INTENT (INOUT) :: aa_c(:)
REAL, ALLOCATABLE, INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX,ALLOCATABLE, INTENT (INOUT) :: aa_c(:)
COMPLEX,PARAMETER :: one=CMPLX(1.0,0.0),zero=CMPLX(0.0,0.0)
! ..
......
......@@ -25,7 +25,7 @@ CONTAINS
LOGICAL,INTENT(IN),OPTIONAL:: l_socfirst
COMPLEX,INTENT(IN),OPTIONAL:: isigma(:,:,:)
REAL,INTENT(IN),OPTIONAL :: cross_k(:,:)
REAL,INTENT(IN),OPTIONAL,ALLOCATABLE :: cross_k(:,:)
COMPLEX,INTENT(OUT),OPTIONAL:: chj(:,:,:,:)
COMPLEX,INTENT(OUT),OPTIONAL :: isigma_x(:,:),isigma_y(:,:),isigma_z(:,:)
COMPLEX,INTENT(OUT),OPTIONAL :: chi11so(:,:),chi21so(:,:),chi22so(:,:)
......
......@@ -51,8 +51,8 @@ CONTAINS
COMPLEX,INTENT(IN):: vs_mmp(-lmaxb:lmaxb,-lmaxb:lmaxb,atoms%n_u,input%jspins)
LOGICAL, INTENT(IN) :: l_real
REAL, OPTIONAL,INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX, OPTIONAL,INTENT (INOUT) :: aa_c(:)!(matsize)
REAL, OPTIONAL,INTENT (INOUT),ALLOCATABLE :: aa_r(:)!(matsize)
COMPLEX, OPTIONAL,INTENT (INOUT),ALLOCATABLE :: aa_c(:)!(matsize)
! ..
! .. Local Scalars ..
......
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