Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

blkslv

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: BLKSLV Solves the block tri-diagonal system: A(I)*X(I-1) + B(I)*X(I) + C(I)*X(I+1) = H(I)
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine blkslv(nd)

Variables:

i : integer

j : integer

k : integer

id : integer

nd : integer

sum : real*8