Macros | |
#define | BL_LANG_FORT |
#define | REAL_T double precision |
#define | zero 0.0d0 |
#define | one 1.0d0 |
#define | SDIM 2 |
Functions/Subroutines | |
subroutine | fort_maxval_avgdown (crse, crse_l1, crse_l2, crse_h1, crse_h2, nvar, fine, fine_l1, fine_l2, fine_h1, fine_h2, lo, hi, ratios) |
subroutine | fort_cv_avgdown (crse, crse_l1, crse_l2, crse_h1, crse_h2, nvar, fine, fine_l1, fine_l2, fine_h1, fine_h2, lo, hi, ratios) |
subroutine | fort_cv_avgdown_stag (nodal_dir, crse, crse_l1, crse_l2, crse_h1, crse_h2, nvar, fine, fine_l1, fine_l2, fine_h1, fine_h2, lo, hi, ratios) |
subroutine | fort_avgdown (crse, crse_l1, crse_l2, crse_h1, crse_h2, nvar, fine, fine_l1, fine_l2, fine_h1, fine_h2, cv, cv_l1, cv_l2, cv_h1, cv_h2, fv, fv_l1, fv_l2, fv_h1, fv_h2, lo, hi, ratios) |
#define BL_LANG_FORT |
#define one 1.0d0 |
#define REAL_T double precision |
#define SDIM 2 |
#define zero 0.0d0 |
subroutine fort_avgdown | ( | crse, | |
integer | crse_l1, | ||
integer | crse_l2, | ||
integer | crse_h1, | ||
integer | crse_h2, | ||
integer | nvar, | ||
fine, | |||
integer | fine_l1, | ||
integer | fine_l2, | ||
integer | fine_h1, | ||
integer | fine_h2, | ||
cv, | |||
integer | cv_l1, | ||
integer | cv_l2, | ||
integer | cv_h1, | ||
integer | cv_h2, | ||
fv, | |||
integer | fv_l1, | ||
integer | fv_l2, | ||
integer | fv_h1, | ||
integer | fv_h2, | ||
integer, dimension(sdim) | lo, | ||
integer, dimension(sdim) | hi, | ||
integer, dimension(sdim) | ratios | ||
) |
subroutine fort_cv_avgdown | ( | crse, | |
integer | crse_l1, | ||
integer | crse_l2, | ||
integer | crse_h1, | ||
integer | crse_h2, | ||
integer | nvar, | ||
fine, | |||
integer | fine_l1, | ||
integer | fine_l2, | ||
integer | fine_h1, | ||
integer | fine_h2, | ||
integer, dimension(sdim) | lo, | ||
integer, dimension(sdim) | hi, | ||
integer, dimension(sdim) | ratios | ||
) |
subroutine fort_cv_avgdown_stag | ( | integer | nodal_dir, |
crse, | |||
integer | crse_l1, | ||
integer | crse_l2, | ||
integer | crse_h1, | ||
integer | crse_h2, | ||
integer | nvar, | ||
fine, | |||
integer | fine_l1, | ||
integer | fine_l2, | ||
integer | fine_h1, | ||
integer | fine_h2, | ||
integer, dimension(sdim) | lo, | ||
integer, dimension(sdim) | hi, | ||
integer, dimension(sdim) | ratios | ||
) |
subroutine fort_maxval_avgdown | ( | crse, | |
integer | crse_l1, | ||
integer | crse_l2, | ||
integer | crse_h1, | ||
integer | crse_h2, | ||
integer | nvar, | ||
fine, | |||
integer | fine_l1, | ||
integer | fine_l2, | ||
integer | fine_h1, | ||
integer | fine_h2, | ||
integer, dimension(sdim) | lo, | ||
integer, dimension(sdim) | hi, | ||
integer, dimension(sdim) | ratios | ||
) |