Function gtsl

void gtsl(Real) (
  int n,
  Real* c_,
  Real* d_,
  Real* e_,
  Real* b_,
  out int info
);