























































































































 


































































































































































 






























































































































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module EHFinder_Constants
  INTEGER*4, parameter :: izero = 0
  integer, parameter :: ik = kind(izero)

  REAL*8, parameter :: zero = 0.0d0
  REAL*8, parameter :: one = 1.0d0
  REAL*8, parameter :: two = 2.0d0
  REAL*8, parameter :: three = 3.0d0
  REAL*8, parameter :: four = 4.0d0
  REAL*8, parameter :: eight = 8.0d0
  REAL*8, parameter :: half = 0.5d0
  REAL*8, parameter :: onethird = one / three
  REAL*8, parameter :: twothirds = two / three
  REAL*8, parameter :: fourthirds = four / three
  REAL*8, parameter :: quarter = 0.25d0
  REAL*8, parameter :: pi = 3.1415926535897932385d0
  REAL*8, parameter :: small = 1.0d-10
  integer, parameter :: wp = kind(zero)
end module EHFinder_Constants
