Tridiagonal

INTERFACE:

   subroutine Tridiagonal (n, a, b, c, r, u)

DESCRIPTION:

   Tridiagonal matrix solution

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8

ARGUMENTS:

     implicit none
     integer , intent(in)  :: n
     real(r8), intent(in)  :: a(1:n), b(1:n), c(1:n), r(1:n)
     real(r8), intent(out) :: u(1:n)

CALLED FROM:

  subroutine BiogeophysicsLake in module BiogeophysicsLakeMod
  subroutine SoilTemperature in module SoilTemperatureMod
  subroutine SoilWater in module HydrologyMod

REVISION HISTORY:

   15 September 1999: Yongjiu Dai; Initial code
   15 December 1999:  Paul Houser and Jon Radakovich; F90 Revision