/*
 * Author:  G. Jungman
 * RCS:     $Id: source_tpsv_r.h,v 1.4 1999/10/18 04:50:11 jungman Exp $
 */
#include "matrix_access.h"
#define ACCESS_UP M_PACKEDTRUP_ACCESS
#define ACCESS_LO M_PACKEDTRLO_ACCESS
#define KBAND (N-1)
#define LDA 0
#include "source_tXsv_r.h"
#undef ACCESS_UP
#undef ACCESS_LO
#undef KBAND
#undef LDA