|
XBeach
|
Public Member Functions | |
| pure subroutine, public | linear_interp_2d (X, nx, Y, ny, Z, xx, yy, zz, method, exception) |
| pure subroutine, public | linear_interp (x, y, n, xx, yy, indint) |
| subroutine, public | mkmap (code, x1, y1, m1, n1, x2, y2, n2, xs, ys, nrx, nry, iflag, nrin, w, iref, iprint, covered, xymiss) |
| subroutine, public | make_map (code, x1, y1, m1, n1, x2, y2, n2, w, iref, iprint, covered, xymiss) |
| subroutine, public | mkmap_step (x1, y1, m1, n1, alfaz, dsu, dnv, x2, y2, n2, w, iref) |
| subroutine, public | grmap (f1, n1, f2, n2, iref, w, np, iprint) |
| subroutine, public | grmap2 (f1, cellsz1i, n1, f2, cellsz2, n2, iref, w, np) |
| subroutine, public | trapezoidal (x, y, n, x1_in, x2_in, integ) |
| subroutine, public | interp_using_trapez_rule (x, y, n, xcycle, xtarg, ytarg, ntarg) |
| subroutine, public | interp_in_cyclic_function (x, y, n, xcycle, xp, np, yp) |
Private Member Functions | |
| pure subroutine | binary_search (xx, n, x, j) |
| subroutine | ipon (xq, yq, n, xp, yp, inout) |
| subroutine | hunt (xx, n, x, jlo) |
| subroutine | indexx (n, arrin, indx) |
| subroutine | bilin5 (xa, ya, x0, y0, w, ier) |
| subroutine | sort (n, ra, wksp, iwksp) |
| subroutine | trapezoidal_cyclic (x, y, n, xcycle, x1, x2, integ) |
Definition at line 1 of file interp.F90.
| subroutine interp::bilin5 | ( | real*8, dimension(4), intent(in) | xa, |
| real*8, dimension(4), intent(in) | ya, | ||
| real*8, intent(in) | x0, | ||
| real*8, intent(in) | y0, | ||
| real*8, dimension(4), intent(out) | w, | ||
| integer, intent(out) | ier | ||
| ) | [private] |
Definition at line 1214 of file interp.F90.
| pure subroutine interp::binary_search | ( | real*8, dimension(n), intent(in) | xx, |
| integer, intent(in) | n, | ||
| real*8, intent(in) | x, | ||
| integer, intent(out) | j | ||
| ) | [private] |
Definition at line 180 of file interp.F90.
| subroutine, public interp::grmap | ( | real*8, dimension(n1), intent(in) | f1, |
| integer, intent(in) | n1, | ||
| real*8, dimension(n2) | f2, | ||
| integer, intent(in) | n2, | ||
| integer, dimension(np, n2), intent(in) | iref, | ||
| real*8, dimension(np, n2), intent(in) | w, | ||
| integer, intent(in) | np, | ||
| integer, intent(in) | iprint | ||
| ) |
Definition at line 839 of file interp.F90.
| subroutine, public interp::grmap2 | ( | real*8, dimension(n1) | f1, |
| real*8, dimension(n1), intent(in) | cellsz1i, | ||
| integer, intent(in) | n1, | ||
| real*8, dimension(n2), intent(in) | f2, | ||
| real*8, intent(in) | cellsz2, | ||
| integer, intent(in) | n2, | ||
| integer, dimension(np, n2), intent(in) | iref, | ||
| real*8, dimension(np, n2), intent(in) | w, | ||
| integer, intent(in) | np | ||
| ) |
Definition at line 903 of file interp.F90.
| subroutine interp::hunt | ( | real*8, dimension(n), intent(in) | xx, |
| integer, intent(in) | n, | ||
| real*8, intent(in) | x, | ||
| integer | jlo | ||
| ) | [private] |
Definition at line 1051 of file interp.F90.
| subroutine interp::indexx | ( | integer, intent(in) | n, |
| real*8, dimension(n), intent(in) | arrin, | ||
| integer, dimension(n) | indx | ||
| ) | [private] |
Definition at line 1120 of file interp.F90.
| subroutine, public interp::interp_in_cyclic_function | ( | real*8, dimension(n), intent(in) | x, |
| real*8, dimension(n), intent(in) | y, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | xcycle, | ||
| real*8, dimension(np), intent(in) | xp, | ||
| integer, intent(in) | np, | ||
| real*8, dimension(np), intent(out) | yp | ||
| ) |
Definition at line 1475 of file interp.F90.
| subroutine, public interp::interp_using_trapez_rule | ( | real*8, dimension(n), intent(in) | x, |
| real*8, dimension(n), intent(in) | y, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | xcycle, | ||
| real*8, dimension(ntarg), intent(in) | xtarg, | ||
| real*8, dimension(ntarg), intent(out) | ytarg, | ||
| integer, intent(in) | ntarg | ||
| ) |
Definition at line 1452 of file interp.F90.
| subroutine interp::ipon | ( | real*8, dimension(*) | xq, |
| real*8, dimension(*) | yq, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | xp, | ||
| real*8, intent(in) | yp, | ||
| integer, intent(out) | inout | ||
| ) | [private] |
Definition at line 950 of file interp.F90.
| pure subroutine, public interp::linear_interp | ( | real*8, dimension(n), intent(in) | x, |
| real*8, dimension(n), intent(in) | y, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | xx, | ||
| real*8, intent(out) | yy, | ||
| integer, intent(out), optional | indint | ||
| ) |
Definition at line 105 of file interp.F90.
| pure subroutine, public interp::linear_interp_2d | ( | real*8, dimension(nx), intent(in) | X, |
| integer, intent(in) | nx, | ||
| real*8, dimension(ny), intent(in) | Y, | ||
| integer, intent(in) | ny, | ||
| real*8, dimension(nx,ny), intent(in) | Z, | ||
| real*8, intent(in) | xx, | ||
| real*8, intent(in) | yy, | ||
| real*8, intent(out) | zz, | ||
| character(len=*), intent(in) | method, | ||
| real*8, intent(in) | exception | ||
| ) |
Definition at line 8 of file interp.F90.
| subroutine, public interp::make_map | ( | integer, dimension(m1, n1), intent(in) | code, |
| real*8, dimension(m1, n1), intent(in) | x1, | ||
| real*8, dimension(m1, n1), intent(in) | y1, | ||
| integer, intent(in) | m1, | ||
| integer, intent(in) | n1, | ||
| real*8, dimension(n2), intent(in) | x2, | ||
| real*8, dimension(n2), intent(in) | y2, | ||
| integer, intent(in) | n2, | ||
| real*8, dimension(4 , n2), intent(out) | w, | ||
| integer, dimension(4 , n2), intent(out) | iref, | ||
| integer, intent(in) | iprint, | ||
| integer, dimension(n2), intent(out) | covered, | ||
| real, intent(in) | xymiss | ||
| ) |
Definition at line 488 of file interp.F90.
| subroutine, public interp::mkmap | ( | integer, dimension(m1, n1), intent(in) | code, |
| real*8, dimension(m1, n1), intent(in) | x1, | ||
| real*8, dimension(m1, n1), intent(in) | y1, | ||
| integer, intent(in) | m1, | ||
| integer, intent(in) | n1, | ||
| real*8, dimension(n2) | x2, | ||
| real*8, dimension(n2) | y2, | ||
| integer | n2, | ||
| real*8, dimension(n2) | xs, | ||
| real*8, dimension(n2) | ys, | ||
| integer, dimension(n2) | nrx, | ||
| integer, dimension(n2) | nry, | ||
| integer, dimension(n2) | iflag, | ||
| integer, dimension(n2) | nrin, | ||
| real*8, dimension(4 , n2) | w, | ||
| integer, dimension(4 , n2), intent(out) | iref, | ||
| integer, intent(in) | iprint, | ||
| integer, dimension(n2) | covered, | ||
| real, intent(in) | xymiss | ||
| ) |
Definition at line 225 of file interp.F90.
| subroutine, public interp::mkmap_step | ( | real*8, dimension(m1, n1), intent(in) | x1, |
| real*8, dimension(m1, n1), intent(in) | y1, | ||
| integer, intent(in) | m1, | ||
| integer, intent(in) | n1, | ||
| real*8, dimension(m1, n1), intent(in) | alfaz, | ||
| real*8, dimension(m1, n1), intent(in) | dsu, | ||
| real*8, dimension(m1, n1), intent(in) | dnv, | ||
| real*8, dimension(n2) | x2, | ||
| real*8, dimension(n2) | y2, | ||
| integer | n2, | ||
| real*8, dimension(4 , n2) | w, | ||
| integer, dimension(4 , n2) | iref | ||
| ) |
Definition at line 757 of file interp.F90.
| subroutine interp::sort | ( | integer | n, |
| real*8, dimension(n) | ra, | ||
| real*8, dimension(n), intent(out) | wksp, | ||
| integer, dimension(n) | iwksp | ||
| ) | [private] |
Definition at line 1346 of file interp.F90.
| subroutine, public interp::trapezoidal | ( | real*8, dimension(n), intent(in) | x, |
| real*8, dimension(n), intent(in) | y, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | x1_in, | ||
| real*8, intent(in) | x2_in, | ||
| real*8, intent(out) | integ | ||
| ) |
Definition at line 1374 of file interp.F90.
| subroutine interp::trapezoidal_cyclic | ( | real*8, dimension(n), intent(in) | x, |
| real*8, dimension(n), intent(in) | y, | ||
| integer, intent(in) | n, | ||
| real*8, intent(in) | xcycle, | ||
| real*8, intent(in) | x1, | ||
| real*8, intent(in) | x2, | ||
| real*8, intent(out) | integ | ||
| ) | [private] |
Definition at line 1413 of file interp.F90.
1.7.6.1
