MODULE Phi_Module
!-----------------------------------------------------------------------
!  fuzz   Set to a small number so that IF two REAL numbers differ by
!         less than this amount they will be considered equal.
!-----------------------------------------------------------------------
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(dp),ALLOCATABLE    :: phi_real(:), phi_imag(:)
   COMPLEX(dp),ALLOCATABLE :: phi_n(:), phi_nm1(:), phi_nm2(:)

 REAL(dp),ALLOCATABLE  :: phi_real_temp(:), phi_imag_temp(:)
REAL(dp),ALLOCATABLE  :: phi_real_n(:), phi_real_nm1(:), phi_real_nm2(:)
REAL(dp),ALLOCATABLE  :: phi_imag_n(:), phi_imag_nm1(:), phi_imag_nm2(:)
REAL(dp),ALLOCATABLE  :: phi_real_sum(:), phi_imag_sum(:)


END MODULE Phi_Module