subroutine tridit	(	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*nt)	rt,
		real(kind=kind_phys), dimension(l,n-1)	au,
		real(kind=kind_phys), dimension(l,n*nt)	at
	)

Referenced by satmedmfvdifq_run().