mirror of https://gitlab.com/QEF/q-e.git
Towards reducing gfortran hacks!
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11065 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
0247dcd423
commit
2a301bda34
|
@ -12,6 +12,12 @@
|
||||||
!#define __NORMALIZE_BETAMIX
|
!#define __NORMALIZE_BETAMIX
|
||||||
!
|
!
|
||||||
#ifdef __GFORTRAN
|
#ifdef __GFORTRAN
|
||||||
|
#if (__GNUC__<4) || ((__GNUC__==4) && (__GNUC_MINOR__<8))
|
||||||
|
#define __GFORTRAN_HACK
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef __GFORTRAN_HACK
|
||||||
! gfortran hack - for some mysterious reason gfortran doesn't save
|
! gfortran hack - for some mysterious reason gfortran doesn't save
|
||||||
! derived-type variables even with the SAVE attribute
|
! derived-type variables even with the SAVE attribute
|
||||||
MODULE mix_save
|
MODULE mix_save
|
||||||
|
@ -49,7 +55,7 @@ SUBROUTINE mix_rho( input_rhout, rhoin, alphamix, dr2, tr2_min, iter, n_iter,&
|
||||||
high_frequency_mixing, &
|
high_frequency_mixing, &
|
||||||
mix_type_COPY, mix_type_SCAL
|
mix_type_COPY, mix_type_SCAL
|
||||||
USE io_global, ONLY : stdout
|
USE io_global, ONLY : stdout
|
||||||
#ifdef __GFORTRAN
|
#ifdef __GFORTRAN_HACK
|
||||||
USE mix_save
|
USE mix_save
|
||||||
#endif
|
#endif
|
||||||
!
|
!
|
||||||
|
@ -97,7 +103,7 @@ SUBROUTINE mix_rho( input_rhout, rhoin, alphamix, dr2, tr2_min, iter, n_iter,&
|
||||||
!
|
!
|
||||||
INTEGER, SAVE :: &
|
INTEGER, SAVE :: &
|
||||||
mixrho_iter = 0 ! history of mixing
|
mixrho_iter = 0 ! history of mixing
|
||||||
#ifndef __GFORTRAN
|
#ifndef __GFORTRAN_HACK
|
||||||
TYPE(mix_type), ALLOCATABLE, SAVE :: &
|
TYPE(mix_type), ALLOCATABLE, SAVE :: &
|
||||||
df(:), &! information from preceding iterations
|
df(:), &! information from preceding iterations
|
||||||
dv(:) ! " " " " " "
|
dv(:) ! " " " " " "
|
||||||
|
|
Loading…
Reference in New Issue