1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! Module with various common variable.
! $Header$
#include "cctk.h"
module EHFinder_mod
use EHFinder_Constants
CCTK_INT, dimension(0:5), parameter :: ix = (/ -1, 1, 0, 0, 0, 0 /)
CCTK_INT, dimension(0:5), parameter :: jy = (/ 0, 0, -1, 1, 0, 0 /)
CCTK_INT, dimension(0:5), parameter :: kz = (/ 0, 0, 0, 0, -1, 1 /)
CCTK_INT, dimension(0:5), parameter :: ll = (/ 1, 2, 4, 8, 16, 32 /)
CCTK_INT :: ixl, ixr, jyl, jyr, kzl, kzr
! CCTK_INT, parameter :: ixl = 1
! CCTK_INT, parameter :: ixr = 2
! CCTK_INT, parameter :: iyl = 4
! CCTK_INT, parameter :: iyr = 8
! CCTK_INT, parameter :: izl = 16
! CCTK_INT, parameter :: izr = 32
CCTK_REAL :: hfac
CCTK_INT :: nx, ny, nz, ngx, ngy, ngz, ierr
CCTK_INT :: max_handle, min_handle, sum_handle
CCTK_INT :: ncalls, rep_count, rep_total
CCTK_REAL :: delta
CCTK_REAL :: h, hlocal
CCTK_REAL :: ex_value
CCTK_REAL :: rdel = 0.8d0
CCTK_REAL :: fmin_bound
CCTK_INT, dimension(3) :: imin_glob, imax_glob
CCTK_REAL, dimension(3) :: fimin_glob, fimax_glob
CCTK_INT :: current_iteration
CCTK_INT :: githeta, gjphi
logical :: mask_first = .true.
logical :: symx, symy, symz
logical :: s_symx, s_symy, s_symz
logical, dimension(:), allocatable :: reparam_this_level_set, &
re_initialize_undone
end module EHFinder_mod
|
