static void fake_memset_127(double[] a){
  double d=Double.longBitsToDouble(0x7f7f7f7f7f7f7f7fL);
  for (int n=0; n < a.length; n++) {
    a[n]=d;
  }
}

static void fake_memset_127 ( double [ ] a ) { double d = Double . longBitsToDouble ( 0x7f7f7f7f7f7f7f7fL ) ; for ( int n = 0 ; n < a . length ; n ++ ) { a [ n ] = d ; } }
description - - - - - - - - - - - landr ( ) is the las2 driver routine that , upon entry , ( 1 ) checks for the validity of input parameters of the b - eigenproblem ( 2 ) determines several machine constants ( 3 ) makes a lanczos run ( 4 ) calculates b - eigenvectors ( singular vectors of a ) if requested by user arguments - - - - - - - - - ( input ) n dimension of the eigenproblem for a ' a iterations upper limit of desired number of lanczos steps dimensions upper limit of desired number of eigenpairs nnzero number of nonzeros in matrix a endl left end of interval containing unwanted eigenvalues of b endr right end of interval containing unwanted eigenvalues of b vectors 1 indicates both eigenvalues and eigenvectors are wanted and they can be found in output file lav2 ; 0 indicates only eigenvalues are wanted kappa relative accuracy of ritz values acceptable as eigenvalues of b ( singular values of a ) r work array ( output ) j number of lanczos steps actually taken neig number of ritz values stabilized ritz array to hold the ritz values bnd array to hold the error bounds external parameters - - - - - - - - - - - - - - - - - - - defined and documented in las2 . h local parameters - - - - - - - - - - - - - - - - - - - ibeta radix for the floating - point representation it number of base ibeta digits in the floating - point significand irnd floating - point addition rounded or chopped machep machine relative precision or round - off error negeps largest negative integer wptr array of pointers each pointing to a work space functions used - - - - - - - - - - - - - - misc svd_dmax , machar , check_parameters las2 ritvec , lanso
