2 calls to
TRIDIAG

SOLVWPIM
SOLVWPIM1