Commit 213a24dd authored by Gregor Michalicek's avatar Gregor Michalicek

Make Fleur + Wannier routines compilable with gfortran

parent 4306f3d9
......@@ -88,9 +88,6 @@ C .. Local Arrays ..
#else
REAL, ALLOCATABLE :: work(:)
#endif
C ..
C .. Intrinsic Functions ..
INTRINSIC cmplx,conjg,exp,sqrt
C ..
ci = cmplx(0.0,1.0)
tpi = 2 * pimach()
......
......@@ -101,9 +101,6 @@ c ..local scalars..
real, allocatable :: gdu(:),gdud(:),gdu_b(:),gdud_b(:)
REAL qssbti(3,2)
c ..intrinsic functions..
intrinsic aimag,cmplx,conjg,real,sqrt
addnoco=0
addnoco2=0
if(l_noco.and.(jspin.eq.2))then
......
......@@ -68,8 +68,6 @@ c ..local scalars..
integer symvacvac
complex av,bv,ic,c_1
integer, allocatable :: kvac1(:),kvac2(:),map2(:)
c ..intrinsic functions..
intrinsic aimag,cmplx,conjg,real,sqrt
allocate ( ac(nv2d,neigd),bc(nv2d,neigd),dt(nv2d),
+ dte(nv2d),t(nv2d),te(nv2d),tei(nv2d),
......
......@@ -99,9 +99,6 @@ c ..local scalars..
real, allocatable :: gbess(:,:),besss(:)
REAL qssbti(3,2)
c ..intrinsic functions..
intrinsic aimag,cmplx,conjg,real,sqrt
addnoco=0
addnoco2=0
if(l_noco.and.(jspin.eq.2))then
......
......@@ -76,8 +76,6 @@ c ..local scalars..
integer, allocatable :: kvac1(:),kvac2(:),map2(:)
integer, allocatable :: kvac1_b(:),kvac2_b(:),map2_b(:)
integer symvac,symvacvac
c ..intrinsic functions..
intrinsic aimag,cmplx,conjg,real,sqrt
allocate ( ac(nv2d,nslibd),bc(nv2d,nslibd),
+ ac_b(nv2d,nslibd_b),bc_b(nv2d,nslibd_b),
......
......@@ -70,9 +70,6 @@ C .. Local Arrays ..
REAL rcc(3),x(3),rcc2(3)
REAL bqpt(3)
C ..
C .. Intrinsic Functions ..
INTRINSIC abs,real,sqrt,cos,sin,conjg
C ..
ci = cmplx(0.,1.)
tpi = 2 * pimach()
......
......@@ -204,7 +204,7 @@ c******************************************************
WRITE(*,*) 'but the Wannier90 library is not linked.'
CALL juDFT_error("Wannier setup without Wannier90 library",
+ calledby ="wann_wan90prep")
#else CPP_WANN
#else
call wann_postproc_setup(
> natd,nkpts,kpoints,amat_ang,bmat_ang,
> num,num_bands,ntype,neq,
......
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