Macros | |
| #define | BL_LANG_FORT |
| #define | REAL_T double precision |
| #define | zero 0.0d0 |
| #define | one 1.0d0 |
| #define | SDIM 3 |
Functions/Subroutines | |
| subroutine | fort_cv_avgdown (crse, crse_l1, crse_l2, crse_l3, crse_h1, crse_h2, crse_h3, nvar, fine, fine_l1, fine_l2, fine_l3, fine_h1, fine_h2, fine_h3, lo, hi, ratios) |
| subroutine | fort_cv_avgdown_stag (nodal_dir, crse, crse_l1, crse_l2, crse_l3, crse_h1, crse_h2, crse_h3, nvar, fine, fine_l1, fine_l2, fine_l3, fine_h1, fine_h2, fine_h3, lo, hi, ratios) |
| subroutine | fort_avgdown (crse, crse_l1, crse_l2, crse_l3, crse_h1, crse_h2, crse_h3, nvar, fine, fine_l1, fine_l2, fine_l3, fine_h1, fine_h2, fine_h3, cv, cv_l1, cv_l2, cv_l3, cv_h1, cv_h2, cv_h3, fv, fv_l1, fv_l2, fv_l3, fv_h1, fv_h2, fv_h3, lo, hi, ratios) |
| #define BL_LANG_FORT |
| #define one 1.0d0 |
| #define REAL_T double precision |
| #define SDIM 3 |
| #define zero 0.0d0 |
| subroutine fort_avgdown | ( | crse, | |
| integer | crse_l1, | ||
| integer | crse_l2, | ||
| integer | crse_l3, | ||
| integer | crse_h1, | ||
| integer | crse_h2, | ||
| integer | crse_h3, | ||
| integer | nvar, | ||
| fine, | |||
| integer | fine_l1, | ||
| integer | fine_l2, | ||
| integer | fine_l3, | ||
| integer | fine_h1, | ||
| integer | fine_h2, | ||
| integer | fine_h3, | ||
| cv, | |||
| integer | cv_l1, | ||
| integer | cv_l2, | ||
| integer | cv_l3, | ||
| integer | cv_h1, | ||
| integer | cv_h2, | ||
| integer | cv_h3, | ||
| fv, | |||
| integer | fv_l1, | ||
| integer | fv_l2, | ||
| integer | fv_l3, | ||
| integer | fv_h1, | ||
| integer | fv_h2, | ||
| integer | fv_h3, | ||
| 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_l3, | ||
| integer | crse_h1, | ||
| integer | crse_h2, | ||
| integer | crse_h3, | ||
| integer | nvar, | ||
| fine, | |||
| integer | fine_l1, | ||
| integer | fine_l2, | ||
| integer | fine_l3, | ||
| integer | fine_h1, | ||
| integer | fine_h2, | ||
| integer | fine_h3, | ||
| 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_l3, | ||
| integer | crse_h1, | ||
| integer | crse_h2, | ||
| integer | crse_h3, | ||
| integer | nvar, | ||
| fine, | |||
| integer | fine_l1, | ||
| integer | fine_l2, | ||
| integer | fine_l3, | ||
| integer | fine_h1, | ||
| integer | fine_h2, | ||
| integer | fine_h3, | ||
| integer, dimension(sdim) | lo, | ||
| integer, dimension(sdim) | hi, | ||
| integer, dimension(sdim) | ratios | ||
| ) |