subroutine tridi2	(	integer	l,
		integer	n,
		real(kind=kind_phys), dimension(l,2:n)	cl,
		real(kind=kind_phys), dimension(l,n)	cm,
		real(kind=kind_phys), dimension(l,n-1)	cu,
		real(kind=kind_phys), dimension(l,n)	r1,
		real(kind=kind_phys), dimension(l,n)	r2,
		real(kind=kind_phys), dimension(l,n-1)	au,
		real(kind=kind_phys), dimension(l,n)	a1,
		real(kind=kind_phys), dimension(l,n)	a2
	)

Referenced by hedmf::hedmf_run(), and satmedmfvdifq::satmedmfvdifq_run().