






















































































































 


































































































































































 






























































































































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module EHFinder_mod

  use EHFinder_Constants

  INTEGER*4, dimension(0:5), parameter :: ll = (/ 1, 2, 4, 8, 16, 32 /)
  INTEGER*4 :: ixl, ixr, jyl, jyr, kzl, kzr
  REAL*8 :: hfac
  INTEGER*4 :: nx, ny, nz, ngx, ngy, ngz
  INTEGER*4 :: max_handle, min_handle, sum_handle
  INTEGER*4 :: last_called_at_iteration = -1
  INTEGER*4 :: ierr
  REAL*8 :: delta
  REAL*8 :: h
  REAL*8 :: ex_value
  INTEGER*4, dimension(3) :: imin_glob, imax_glob
  REAL*8, dimension(3) :: fimin_glob, fimax_glob
  INTEGER*4 :: githeta, gjphi
  logical :: mask_first = .true.
  logical :: symx, symy, symz
  logical :: s_symx, s_symy, s_symz
  logical, dimension(:), allocatable :: re_init_this_level_set, &
                                        re_initialize_undone
end module EHFinder_mod
