Commit e8db8737 authored by Gregor Michalicek's avatar Gregor Michalicek

Some cleanup in the Wannier code related to preprocessor statements

parent c45fd28c
set(fleur_F77 ${fleur_F77}
wannier/abcof_small.F
#wannier/abcof_small.F
wannier/eulerrot.f
#wannier/w90kpunktgen.f
wannier/wann_1dvacabcof.F
......@@ -41,7 +41,7 @@ wannier/wann_mmk0_od_vac.F
wannier/wann_mmk0_sph.f
wannier/wann_mmk0_updown_sph.f
wannier/wann_mmk0_vac.F
wannier/wann_mmkb_int2.F
#wannier/wann_mmkb_int2.F
wannier/wann_mmkb_int.F
#wannier/wann_mmkb_od_vac2.F
wannier/wann_mmkb_od_vac.F
......
MODULE m_abcof_small
CONTAINS
SUBROUTINE abcof_small(
> sym,atoms,usdus,lapw,noco,zMat,
> input,sym,atoms,usdus,lapw,noco,zMat,
> lmaxd,ntypd,neigd,nobd,natd,nop,nvd,jspd,
> lmd,nbasfcn,llod,nlod,nlotot,invtab,
> ntype,mrot,ngopr,taual,neq,lmax,rmt,omtil,
......@@ -26,6 +26,7 @@ c ************************************************************
IMPLICIT NONE
TYPE(t_input),INTENT(IN) :: input
TYPE(t_sym),INTENT(IN) :: sym
TYPE(t_atoms),INTENT(IN) :: atoms
TYPE(t_usdus),INTENT(IN) :: usdus
......@@ -104,9 +105,9 @@ c+APW_LO
DO lo = 1,nlo(n)
IF (l_dulo(lo,n)) apw(l,n) = .true.
ENDDO
#ifdef CPP_APW
IF (lapw_l(n).GE.l) apw(l,n) = .false.
#endif
IF (input%l_useapw) THEN
IF (lapw_l(n).GE.l) apw(l,n) = .false.
END IF
ENDDO
DO lo = 1,nlo(n)
IF (l_dulo(lo,n)) apw(llo(lo,n),n) = .true.
......
......@@ -6,7 +6,7 @@ wannier/uhu/wann_uHu_commat.f
#wannier/uhu/wann_uHu_commat_save.f
wannier/uhu/wann_uHu_dmi.F
wannier/uhu/wann_uHu.F
wannier/uhu/wann_uHu_int2.F
#wannier/uhu/wann_uHu_int2.F
wannier/uhu/wann_uHu_int.F
wannier/uhu/wann_uHu_od_vac.F
wannier/uhu/wann_uHu_radintsra2.F
......
......@@ -144,13 +144,7 @@ cccccccccccccccccc local variables cccccccccccccccccccc
integer, allocatable :: kveclo_b(:),nv_b(:)
integer, allocatable :: k1(:,:),k2(:,:),k3(:,:)
integer, allocatable :: k1_b(:,:),k2_b(:,:),k3_b(:,:)
#if ( !defined(CPP_INVERSION) || defined(CPP_SOC) )
complex, allocatable :: z_b(:,:)
complex, allocatable :: ztrans(:,:)
#else
real, allocatable :: z_b(:,:)
real, allocatable :: ztrans(:,:)
#endif
real, allocatable :: eigg(:,:)
real kpoints(nkptd)
!!! a and b coeff. constructed for each k-point
......
......@@ -172,11 +172,7 @@ cccccccccccccccccc local variables cccccccccccccccccccc
integer, allocatable :: k1_b(:,:),k2_b(:,:),k3_b(:,:)
INTEGER, ALLOCATABLE :: eig_idList(:)
real, allocatable :: we(:),we_b(:)
#if ( !defined(CPP_INVERSION) || defined(CPP_SOC) )
complex, allocatable :: ztrans(:,:)
#else
real, allocatable :: ztrans(:,:)
#endif
real, allocatable :: eigg(:)
real kpoints(nkptd)
!!! a and b coeff. constructed for each k-point
......
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