!
! Copyright (C) 2001-2004 PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!----------------------------------------------------------------------------
!
MODULE acfdtest
!
!! Common variables for the \(\texttt{acfdt}\) program.
!
 USE kinds
 SAVE
 LOGICAL :: acfdt_is_active=.FALSE.
 LOGICAL :: off_vrs_setup  =.FALSE.
 LOGICAL :: acfdt_num_der=.FALSE.
 LOGICAL :: acfdt_term1 = .FALSE.
 LOGICAL :: acfdt_term2 = .FALSE.
 LOGICAL :: acfdt_term3 = .FALSE.
 LOGICAL :: test_oep=.FALSE. 
 LOGICAL :: do_numer_eig=.FALSE. 
 LOGICAL :: int_numer_eig=.FALSE. 
 INTEGER :: ir_point=0
 REAL(DP):: delta_vrs=0.0_DP
 REAL(DP):: f1=1.0_DP
 REAL(DP):: f2=1.0_DP
 REAL(DP):: f3=1.0_DP
 REAL(DP):: sum_der_etot=1.0_DP
 REAL(DP), ALLOCATABLE :: vrs_save(:)
 REAL(DP), ALLOCATABLE :: den_xc(:)
 LOGICAL :: skip_ph = .FALSE. 
END MODULE acfdtest

