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