subroutine tridin	(	integer	l,
		integer	n,
		integer	nt,
		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*nt)	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*nt)	a2
	)

Referenced by hedmf::hedmf_run().