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 | ||
| ) |