static double fabs(double a){
  return Math.abs(a);
}

static double fabs ( double a ) { return Math . abs ( a ) ; }
description - - - - - - - - - - - function performs the first step of the lanczos algorithm . it also does a step of extended local re - orthogonalization . arguments - - - - - - - - - ( input ) n dimension of the eigenproblem for matrix b ( output ) ierr error flag wptr array of pointers that point to work space that contains wptr [ 0 ] r [ j ] wptr [ 1 ] q [ j ] wptr [ 2 ] q [ j - 1 ] wptr [ 3 ] p wptr [ 4 ] p [ j - 1 ] wptr [ 6 ] diagonal elements of matrix t functions used - - - - - - - - - - - - - - blas svd_daxpy , svd_datx , svd_dcopy , svd_ddot , svd_dscal user store , opb las startv
