![]() |
A Modular Arbitrary-Order Ocean-Atmosphere Model -- Stochastic implementation
|
Utility module. More...
Functions/Subroutines | |
character(len=20) function, public | str (k) |
Convert an integer to string. More... | |
character(len=40) function, public | rstr (x, fm) |
Convert a real to string with a given format. More... | |
integer function, dimension(size(s)), public | isin (c, s) |
Determine if a character is in a string and where. More... | |
subroutine, public | init_random_seed () |
Random generator initialization routine. More... | |
subroutine, public | piksrt (k, arr, par) |
Simple card player sorting function. More... | |
subroutine, public | init_one (A) |
Initialize a square matrix A as a unit matrix. More... | |
real(kind=8) function, public | mat_trace (A) |
real(kind=8) function, public | mat_contract (A, B) |
subroutine, public | choldc (a, p) |
subroutine, public | printmat (A) |
subroutine, public | cprintmat (A) |
real(kind=8) function, dimension(size(a, 1), size(a, 2)), public | invmat (A) |
subroutine, public | triu (A, T) |
subroutine, public | diag (A, d) |
subroutine, public | cdiag (A, d) |
integer function, public | floordiv (i, j) |
subroutine, public | reduce (A, Ared, n, ind, rind) |
subroutine, public | ireduce (A, Ared, n, ind, rind) |
subroutine, public | vector_outer (u, v, A) |
Utility module.
subroutine, public util::cdiag | ( | complex(kind=16), dimension(:,:), intent(in) | A, |
complex(kind=16), dimension(:), intent(out) | d | ||
) |
subroutine, public util::choldc | ( | real(kind=8), dimension(:,:) | a, |
real(kind=8), dimension(:) | p | ||
) |
subroutine, public util::cprintmat | ( | complex(kind=16), dimension(:,:), intent(in) | A | ) |
subroutine, public util::diag | ( | real(kind=8), dimension(:,:), intent(in) | A, |
real(kind=8), dimension(:), intent(out) | d | ||
) |
integer function, public util::floordiv | ( | integer | i, |
integer | j | ||
) |
subroutine, public util::init_one | ( | real(kind=8), dimension(:,:), intent(inout) | A | ) |
subroutine, public util::init_random_seed | ( | ) |
real(kind=8) function, dimension(size(a,1),size(a,2)), public util::invmat | ( | real(kind=8), dimension(:,:), intent(in) | A | ) |
subroutine, public util::ireduce | ( | real(kind=8), dimension(:,:), intent(out) | A, |
real(kind=8), dimension(:,:), intent(in) | Ared, | ||
integer, intent(in) | n, | ||
integer, dimension(:), intent(in) | ind, | ||
integer, dimension(:), intent(in) | rind | ||
) |
integer function, dimension(size(s)), public util::isin | ( | character, intent(in) | c, |
character, dimension(:), intent(in) | s | ||
) |
Determine if a character is in a string and where.
real(kind=8) function, public util::mat_contract | ( | real(kind=8), dimension(:,:) | A, |
real(kind=8), dimension(:,:) | B | ||
) |
real(kind=8) function, public util::mat_trace | ( | real(kind=8), dimension(:,:) | A | ) |
subroutine, public util::piksrt | ( | integer, intent(in) | k, |
integer, dimension(k), intent(inout) | arr, | ||
integer, intent(out) | par | ||
) |
Simple card player sorting function.
subroutine, public util::printmat | ( | real(kind=8), dimension(:,:), intent(in) | A | ) |
subroutine, public util::reduce | ( | real(kind=8), dimension(:,:), intent(in) | A, |
real(kind=8), dimension(:,:), intent(out) | Ared, | ||
integer, intent(out) | n, | ||
integer, dimension(:), intent(out) | ind, | ||
integer, dimension(:), intent(out) | rind | ||
) |
character(len=40) function, public util::rstr | ( | real(kind=8), intent(in) | x, |
character(len=20), intent(in) | fm | ||
) |
character(len=20) function, public util::str | ( | integer, intent(in) | k | ) |
subroutine, public util::triu | ( | real(kind=8), dimension(:,:), intent(in) | A, |
real(kind=8), dimension(:,:), intent(out) | T | ||
) |
subroutine, public util::vector_outer | ( | real(kind=8), dimension(:), intent(in) | u, |
real(kind=8), dimension(:), intent(in) | v, | ||
real(kind=8), dimension(:,:), intent(out) | A | ||
) |