76 module tridiagonal_mod
78 use platform_mod,
only: r4_kind, r8_kind
83 real(r4_kind),
private,
allocatable,
dimension(:,:,:) :: e, g, cc
84 real(r4_kind),
private,
allocatable,
dimension(:,:) :: bb
88 real(r8_kind),
private,
allocatable,
dimension(:,:,:) :: e, g, cc
89 real(r8_kind),
private,
allocatable,
dimension(:,:) :: bb
104 module procedure tri_invert_r4
105 module procedure tri_invert_r8
129 #include "tridiagonal_r4.fh"
130 #include "tridiagonal_r8.fh"
132 end module tridiagonal_mod
135 !
close documentation grouping
logical, private init_tridiagonal_r4
true when fields in tridiag_r4 are allocated
type(tridiag_reals_r4) tridiag_r4
holds reals stored from r4_kind calls to tri_invert
subroutine close_tridiagonal
Releases memory used by the solver.
logical, private init_tridiagonal_r8
true when fields in tridiag_r8 are allocated
type(tridiag_reals_r8) tridiag_r8
holds reals stored from r8_kind calls to tri_invert
Interface to solve tridiagonal systems of equations for either kind value. Module level variables wil...