All Packages Class Hierarchy This Package Previous Next Index
java.lang.Object | +----linear_algebra.Blas_f77
This class contains Java versions of a number of the LINPACK basic linear algebra subroutines (blas):
IMPORTANT: The "_f77" suffixes indicate that these routines use FORTRAN style indexing. For example, you will see
for (i = 1; i <= n; i++)rather than
for (i = 0; i < n; i++)To use the "_f77" routines you will have to declare your vectors and matrices to be one element larger (e.g., v[101] rather than v[100], and a[101][101] rather than a[100][100]), and you will have to fill elements 1 through n rather than elements 0 through n - 1. Versions of these programs that use C/Java style indexing will soon be available. They will end with the suffix "_j".
This class was translated by a statistician from FORTRAN versions of the LINPACK blas. It is NOT an official translation. It wastes memory by failing to use the first elements of vectors. When public domain Java numerical analysis routines become available from the people who produce LAPACK, then THE CODE PRODUCED BY THE NUMERICAL ANALYSTS SHOULD BE USED.
Meanwhile, if you have suggestions for improving this code, please contact Steve Verrill at sverrill@fs.fed.us.
Blas_f77()
colaxpy_f77(int, double, double[][], int, int, int)
This method multiplies a constant times a portion of a column of a matrix and adds the product to the corresponding portion of another column of the matrix --- a portion of col2 is replaced by the corresponding portion of a*col1 + col2.
coldot_f77(int, double[][], int, int, int)
This method calculates the dot product of portions of two columns of a matrix.
colisamax_f77(int, double[][], int, int, int)
This method finds the index of the element of a portion of a column of a matrix that has the maximum absolute value.
colnrm2_f77(int, double[][], int, int)
This method calculates the Euclidean norm of a portion of a column of a matrix.
colrot_f77(int, double[][], int, int, double, double)
This method "applies a plane rotation." It is a modification of the LINPACK function DROT.
colscal_f77(int, double, double[][], int, int)
This method scales a portion of a column of a matrix by a constant.
colswap_f77(int, double[][], int, int)
This method interchanges two columns of a matrix.
colvaxpy_f77(int, double, double[][], double[], int, int)
This method multiplies a constant times a portion of a column of a matrix x[ ][ ] and adds the product to the corresponding portion of a vector y[ ] --- a portion of y[ ] is replaced by the corresponding portion of ax[ ][j] + y[ ].
colvdot_f77(int, double[][], double[], int, int)
This method calculates the dot product of a portion of a column of a matrix and the corresponding portion of a vector.
colvraxpy_f77(int, double, double[], double[][], int, int)
This method multiplies a constant times a portion of a vector y[ ] and adds the product to the corresponding portion of a column of a matrix x[ ][ ] --- a portion of column j of x[ ][ ] is replaced by the corresponding portion of ay[ ] + x[ ][j].
daxpy_f77(int, double, double[], int, double[], int)
This method multiplies a constant times a vector and adds the product to another vector --- dy[ ] = da*dx[ ] + dy[ ].
dcopy_f77(int, double[], int, double[], int)
This method copies the vector dx[ ] to the vector dy[ ].
dcopyp_f77(int, double[], double[], int)
This method copies a portion of vector x[ ] to the corresponding portion of vector y[ ].
ddot_f77(int, double[], int, double[], int)
This method calculates the dot product of two vectors.
dnrm2_f77(int, double[], int)
This method calculates the Euclidean norm of the vector stored in dx[ ] with storage increment incx.
dnrm2p_f77(int, double[], int)
This method calculates the Euclidean norm of a portion of a vector x[ ].
drotg_f77(double[])
This method constructs a Givens plane rotation.
dscal_f77(int, double, double[], int)
This method scales a vector by a constant.
dscalp_f77(int, double, double[], int)
This method scales a portion of a vector by a constant.
dswap_f77(int, double[], int, double[], int)
This method interchanges two vectors.
isamax_f77(int, double[], int)
This method finds the index of the element of a vector that has the maximum absolute value.
matmat_f77(double[][], double[][], double[][], int, int, int)
This method multiplies an n x p matrix by a p x r matrix.
mattran_f77(double[][], double[][], int, int)
This method obtains the transpose of an n x p matrix.
matvec_f77(double[][], double[], double[], int, int)
This method multiplies an n x p matrix by a p x 1 vector.
sign_f77(double, double)
This method implements the FORTRAN sign (not sin) function.
Blas_f77
public Blas_f77()
isamax_f77
public static int isamax_f77(int n,
double x[],
int incx)
This method finds the index of the element of a vector that has the maximum absolute value. It is a translation from FORTRAN to Java of the LINPACK function ISAMAX. In the LINPACK listing ISAMAX is attributed to Jack Dongarra with a date of March 11, 1978. Translated by Steve Verrill, March 10, 1998.
colisamax_f77
public static int colisamax_f77(int n,
double x[][],
int incx,
int begin,
int j)
This method finds the index of the element of a portion of a column of a matrix that has the maximum absolute value. It is a modification of the LINPACK function ISAMAX. In the LINPACK listing ISAMAX is attributed to Jack Dongarra with a date of March 11, 1978. Translated by Steve Verrill, March 10, 1998.
daxpy_f77
public static void daxpy_f77(int n,
double da,
double dx[],
int incx,
double dy[],
int incy)
This method multiplies a constant times a vector and adds the product to another vector --- dy[ ] = da*dx[ ] + dy[ ]. It uses unrolled loops for increments equal to one. It is a translation from FORTRAN to Java of the LINPACK subroutine DAXPY. In the LINPACK listing DAXPY is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, February 25, 1997.
ddot_f77
public static double ddot_f77(int n,
double dx[],
int incx,
double dy[],
int incy)
This method calculates the dot product of two vectors. It uses unrolled loops for increments equal to one. It is a translation from FORTRAN to Java of the LINPACK function DDOT. In the LINPACK listing DDOT is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, February 25, 1997.
dscal_f77
public static void dscal_f77(int n,
double da,
double dx[],
int incx)
This method scales a vector by a constant. It uses unrolled loops for an increment equal to one. It is a translation from FORTRAN to Java of the LINPACK subroutine DSCAL. In the LINPACK listing DSCAL is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, February 25, 1997.
dswap_f77
public static void dswap_f77(int n,
double dx[],
int incx,
double dy[],
int incy)
This method interchanges two vectors. It uses unrolled loops for increments equal to one. It is a translation from FORTRAN to Java of the LINPACK function DSWAP. In the LINPACK listing DSWAP is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, February 25, 1997.
dnrm2_f77
public static double dnrm2_f77(int n,
double x[],
int incx)
This method calculates the Euclidean norm of the vector stored in dx[ ] with storage increment incx. It is a translation from FORTRAN to Java of the LINPACK function DNRM2. In the LINPACK listing DNRM2 is attributed to C.L. Lawson with a date of January 8, 1978. The routine below is based on a more recent DNRM2 version that is attributed in LAPACK documentation to Sven Hammarling. Translated by Steve Verrill, February 25, 1997.
dcopy_f77
public static void dcopy_f77(int n,
double dx[],
int incx,
double dy[],
int incy)
This method copies the vector dx[ ] to the vector dy[ ]. It uses unrolled loops for increments equal to one. It is a translation from FORTRAN to Java of the LINPACK subroutine DCOPY. In the LINPACK listing DCOPY is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, March 1, 1997.
drotg_f77
public static void drotg_f77(double rotvec[])
This method constructs a Givens plane rotation. It is a translation from FORTRAN to Java of the LINPACK subroutine DROTG. In the LINPACK listing DROTG is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, March 3, 1997.
colaxpy_f77
public static void colaxpy_f77(int nrow,
double a,
double x[][],
int begin,
int j1,
int j2)
This method multiplies a constant times a portion of a column of a matrix and adds the product to the corresponding portion of another column of the matrix --- a portion of col2 is replaced by the corresponding portion of a*col1 + col2. It uses unrolled loops. It is a modification of the LINPACK subroutine DAXPY. In the LINPACK listing DAXPY is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, February 26, 1997.
colvaxpy_f77
public static void colvaxpy_f77(int nrow,
double a,
double x[][],
double y[],
int begin,
int j)
This method multiplies a constant times a portion of a column of a matrix x[ ][ ] and adds the product to the corresponding portion of a vector y[ ] --- a portion of y[ ] is replaced by the corresponding portion of ax[ ][j] + y[ ]. It uses unrolled loops. It is a modification of the LINPACK subroutine DAXPY. In the LINPACK listing DAXPY is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, March 1, 1997.
colvraxpy_f77
public static void colvraxpy_f77(int nrow,
double a,
double y[],
double x[][],
int begin,
int j)
This method multiplies a constant times a portion of a vector y[ ] and adds the product to the corresponding portion of a column of a matrix x[ ][ ] --- a portion of column j of x[ ][ ] is replaced by the corresponding portion of ay[ ] + x[ ][j]. It uses unrolled loops. It is a modification of the LINPACK subroutine DAXPY. In the LINPACK listing DAXPY is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, March 3, 1997.
coldot_f77
public static double coldot_f77(int nrow,
double x[][],
int begin,
int j1,
int j2)
This method calculates the dot product of portions of two columns of a matrix. It uses unrolled loops. It is a modification of the LINPACK function DDOT. In the LINPACK listing DDOT is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, February 27, 1997.
colvdot_f77
public static double colvdot_f77(int nrow,
double x[][],
double y[],
int begin,
int j)
This method calculates the dot product of a portion of a column of a matrix and the corresponding portion of a vector. It uses unrolled loops. It is a modification of the LINPACK function DDOT. In the LINPACK listing DDOT is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, March 1, 1997.
colscal_f77
public static void colscal_f77(int nrow,
double a,
double x[][],
int begin,
int j)
This method scales a portion of a column of a matrix by a constant. It uses unrolled loops. It is a modification of the LINPACK subroutine DSCAL. In the LINPACK listing DSCAL is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, February 27, 1997.
dscalp_f77
public static void dscalp_f77(int nrow,
double a,
double x[],
int begin)
This method scales a portion of a vector by a constant. It uses unrolled loops. It is a modification of the LINPACK subroutine DSCAL. In the LINPACK listing DSCAL is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, March 3, 1997.
colswap_f77
public static void colswap_f77(int n,
double x[][],
int j1,
int j2)
This method interchanges two columns of a matrix. It uses unrolled loops. It is a modification of the LINPACK function DSWAP. In the LINPACK listing DSWAP is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, February 26, 1997.
colnrm2_f77
public static double colnrm2_f77(int nrow,
double x[][],
int begin,
int j)
This method calculates the Euclidean norm of a portion of a column of a matrix. It is a modification of the LINPACK function dnrm2. In the LINPACK listing dnrm2 is attributed to C.L. Lawson with a date of January 8, 1978. The routine below is based on a more recent dnrm2 version that is attributed in LAPACK documentation to Sven Hammarling. Translated and modified by Steve Verrill, February 26, 1997.
dnrm2p_f77
public static double dnrm2p_f77(int nrow,
double x[],
int begin)
This method calculates the Euclidean norm of a portion of a vector x[ ]. It is a modification of the LINPACK function dnrm2. In the LINPACK listing dnrm2 is attributed to C.L. Lawson with a date of January 8, 1978. The routine below is based on a more recent dnrm2 version that is attributed in LAPACK documentation to Sven Hammarling. Translated by Steve Verrill, March 3, 1997.
dcopyp_f77
public static void dcopyp_f77(int nrow,
double x[],
double y[],
int begin)
This method copies a portion of vector x[ ] to the corresponding portion of vector y[ ]. It uses unrolled loops. It is a modification of the LINPACK subroutine dcopy. In the LINPACK listing dcopy is attributed to Jack Dongarra with a date of 3/11/78. Translated by Steve Verrill, March 1, 1997.
colrot_f77
public static void colrot_f77(int n,
double x[][],
int j1,
int j2,
double c,
double s)
This method "applies a plane rotation." It is a modification of the LINPACK function DROT. In the LINPACK listing DROT is attributed to Jack Dongarra with a date of 3/11/78. Translated and modified by Steve Verrill, March 4, 1997.
sign_f77
public static double sign_f77(double a,
double b)
This method implements the FORTRAN sign (not sin) function. See the code for details. Created by Steve Verrill, March 1997.
matmat_f77
public static void matmat_f77(double a[][],
double b[][],
double c[][],
int n,
int p,
int r)
This method multiplies an n x p matrix by a p x r matrix. Created by Steve Verrill, March 1997.
mattran_f77
public static void mattran_f77(double a[][],
double at[][],
int n,
int p)
This method obtains the transpose of an n x p matrix. Created by Steve Verrill, March 1997.
matvec_f77
public static void matvec_f77(double a[][],
double b[],
double c[],
int n,
int p)
This method multiplies an n x p matrix by a p x 1 vector. Created by Steve Verrill, March 1997.
All Packages Class Hierarchy This Package Previous Next Index