/Library/Developer/CommandLineTools/usr/bin/make -C BLAS /Library/Developer/CommandLineTools/usr/bin/make -C SRC /Library/Developer/CommandLineTools/usr/bin/make -C SRC /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o isamax.o isamax.f /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o sbdsvdx.o sbdsvdx.f /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o sasum.o sasum.f /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o spotrf2.o spotrf2.f /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o saxpy.o saxpy.f /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o sgetrf2.o sgetrf2.f isamax.f:1:1: 1 | *> \brief \b ISAMAX | 1 Error: Invalid character in name at (1) isamax.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) isamax.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) isamax.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) isamax.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) isamax.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) isamax.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) spotrf2.f:1:1: 1 | *> \brief \b SPOTRF2 | 1 Error: Invalid character in name at (1) isamax.f:8:1: 8 | * Definition: | 1 Error: Invalid character in name at (1) spotrf2.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) isamax.f:9:1: 9 | * =========== | 1 Error: Invalid character in name at (1) spotrf2.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) isamax.f:10:1: 10 | * | 1 Error: Invalid character in name at (1) isamax.f:11:1: 11 | * INTEGER FUNCTION ISAMAX(N,SX,INCX) | 1 Error: Invalid character in name at (1) isamax.f:12:1: 12 | * | 1 Error: Invalid character in name at (1) spotrf2.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) isamax.f:13:1: 13 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) spotrf2.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) isamax.f:14:1: 14 | * INTEGER INCX,N | 1 Error: Invalid character in name at (1) spotrf2.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) isamax.f:15:1: 15 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) isamax.f:16:1: 16 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) spotrf2.f:8:1: 8 | * Definition: | 1 Error: Invalid character in name at (1) isamax.f:17:1: 17 | * REAL SX(*) | 1 Error: Invalid character in name at (1) spotrf2.f:9:1: 9 | * =========== | 1 Error: Invalid character in name at (1) isamax.f:18:1: 18 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:10:1: 10 | * | 1 Error: Invalid character in name at (1) spotrf2.f:11:1: 11 | * RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) | 1 Error: Invalid character in name at (1) isamax.f:19:1: 19 | * | 1 Error: Invalid character in name at (1) spotrf2.f:12:1: 12 | * | 1 Error: Invalid character in name at (1) isamax.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) spotrf2.f:13:1: 13 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:1:1: 1 | *> \brief \b SBDSVDX | 1 Error: Invalid character in name at (1) spotrf2.f:14:1: 14 | * CHARACTER UPLO | 1 Error: Invalid character in name at (1) isamax.f:21:1: 21 | *> \par Purpose: | 1 Error: Invalid character in name at (1) spotrf2.f:15:1: 15 | * INTEGER INFO, LDA, N | 1 Error: Invalid character in name at (1) isamax.f:22:1: 22 | * ============= | 1 Error: Invalid character in name at (1) sbdsvdx.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) isamax.f:23:1: 23 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:16:1: 16 | * .. | 1 Error: Invalid character in name at (1) isamax.f:24:1: 24 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) spotrf2.f:17:1: 17 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) isamax.f:25:1: 25 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:18:1: 18 | * REAL A( LDA, * ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) isamax.f:26:1: 26 | *> ISAMAX finds the index of the first element having maximum absolute value. | 1 Error: Invalid character in name at (1) spotrf2.f:19:1: 19 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) isamax.f:27:1: 27 | *> \endverbatim | 1 Error: Invalid character in name at (1) spotrf2.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) isamax.f:28:1: 28 | * | 1 Error: Invalid character in name at (1) spotrf2.f:21:1: 21 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) isamax.f:29:1: 29 | * Arguments: | 1 Error: Invalid character in name at (1) sasum.f:1:1: 1 | *> \brief \b SASUM | 1 Error: Invalid character in name at (1) isamax.f:30:1: 30 | * ========== | 1 Error: Invalid character in name at (1) spotrf2.f:22:1: 22 | *> \par Purpose: | 1 Error: Invalid character in name at (1) isamax.f:31:1: 31 | * | 1 Error: Invalid character in name at (1) sasum.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:8:1: 8 | *> \htmlonly | 1 Error: Invalid character in name at (1) spotrf2.f:23:1: 23 | * ============= | 1 Error: Invalid character in name at (1) isamax.f:32:1: 32 | *> \param[in] N | 1 Error: Invalid character in name at (1) sasum.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) sbdsvdx.f:9:1: 9 | *> Download SBDSVDX + dependencies | 1 Error: Invalid character in name at (1) spotrf2.f:24:1: 24 | *> | 1 Error: Invalid character in name at (1) sasum.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) isamax.f:33:1: 33 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:10:1: 10 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:25:1: 25 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) isamax.f:34:1: 34 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:11:1: 11 | *> [TGZ] | 1 Error: Invalid character in name at (1) sasum.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) spotrf2.f:26:1: 26 | *> | 1 Error: Invalid character in name at (1) isamax.f:35:1: 35 | *> number of elements in input vector(s) | 1 Error: Invalid character in name at (1) sasum.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:12:1: 12 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:27:1: 27 | *> SPOTRF2 computes the Cholesky factorization of a real symmetric | 1 Error: Invalid character in name at (1) isamax.f:36:1: 36 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:13:1: 13 | *> [ZIP] | 1 Error: Invalid character in name at (1) sasum.f:8:1: 8 | * Definition: | 1 Error: Invalid character in name at (1) spotrf2.f:28:1: 28 | *> positive definite matrix A using the recursive algorithm. | 1 Error: Invalid character in name at (1) isamax.f:37:1: 37 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:14:1: 14 | *> | 1 Error: Invalid character in name at (1) sasum.f:9:1: 9 | * =========== | 1 Error: Invalid character in name at (1) spotrf2.f:29:1: 29 | *> | 1 Error: Invalid character in name at (1) isamax.f:38:1: 38 | *> \param[in] SX | 1 Error: Invalid character in name at (1) sbdsvdx.f:15:1: 15 | *> [TXT] | 1 Error: Invalid character in name at (1) sasum.f:10:1: 10 | * | 1 Error: Invalid character in name at (1) spotrf2.f:30:1: 30 | *> The factorization has the form | 1 Error: Invalid character in name at (1) isamax.f:39:1: 39 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:16:1: 16 | *> \endhtmlonly | 1 Error: Invalid character in name at (1) spotrf2.f:31:1: 31 | *> A = U**T * U, if UPLO = 'U', or | 1 Error: Invalid character in name at (1) sasum.f:11:1: 11 | * REAL FUNCTION SASUM(N,SX,INCX) | 1 Error: Invalid character in name at (1) isamax.f:40:1: 40 | *> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) | 1 Error: Invalid character in name at (1) spotrf2.f:32:1: 32 | *> A = L * L**T, if UPLO = 'L', | 1 Error: Invalid character in name at (1) sbdsvdx.f:17:1: 17 | * | 1 Error: Invalid character in name at (1) spotrf2.f:33:1: 33 | *> where U is an upper triangular matrix and L is lower triangular. | 1 Error: Invalid character in name at (1) isamax.f:41:1: 41 | *> \endverbatim | 1 Error: Invalid character in name at (1) sasum.f:12:1: 12 | * | 1 Error: Invalid character in name at (1) spotrf2.f:34:1: 34 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:18:1: 18 | * Definition: | 1 Error: Invalid character in name at (1) sasum.f:13:1: 13 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) isamax.f:42:1: 42 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:19:1: 19 | * =========== | 1 Error: Invalid character in name at (1) spotrf2.f:35:1: 35 | *> This is the recursive version of the algorithm. It divides | 1 Error: Invalid character in name at (1) sasum.f:14:1: 14 | * INTEGER INCX,N | 1 Error: Invalid character in name at (1) isamax.f:43:1: 43 | *> \param[in] INCX | 1 Error: Invalid character in name at (1) spotrf2.f:36:1: 36 | *> the matrix into four submatrices: | 1 Error: Invalid character in name at (1) sasum.f:15:1: 15 | * .. | 1 Error: Invalid character in name at (1) sasum.f:16:1: 16 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sasum.f:17:1: 17 | * REAL SX(*) | 1 Error: Invalid character in name at (1) sasum.f:18:1: 18 | * .. | 1 Error: Invalid character in name at (1) sasum.f:19:1: 19 | * | 1 Error: Invalid character in name at (1) sasum.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) isamax.f:44:1: 44 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) sasum.f:21:1: 21 | *> \par Purpose: | 1 Error: Invalid character in name at (1) isamax.f:45:1: 45 | *> INCX is INTEGER | 1 Error: Invalid character in name at (1) sasum.f:22:1: 22 | * ============= | 1 Error: Invalid character in name at (1) sbdsvdx.f:21:1: 21 | * SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, | 1 Error: Invalid character in name at (1) isamax.f:46:1: 46 | *> storage spacing between elements of SX | 1 Error: Invalid character in name at (1) spotrf2.f:37:1: 37 | *> | 1 Error: Invalid character in name at (1) sasum.f:23:1: 23 | *> | 1 Error: Invalid character in name at (1) isamax.f:47:1: 47 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:22:1: 22 | * $ NS, S, Z, LDZ, WORK, IWORK, INFO ) | 1 Error: Invalid character in name at (1) spotrf2.f:38:1: 38 | *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 | 1 Error: Invalid character in name at (1) sasum.f:24:1: 24 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:39:1: 39 | *> A = [ -----|----- ] with n1 = n/2 | 1 Error: Invalid character in name at (1) sasum.f:25:1: 25 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:23:1: 23 | * | 1 Error: Invalid character in name at (1) spotrf2.f:40:1: 40 | *> [ A21 | A22 ] n2 = n-n1 | 1 Error: Invalid character in name at (1) isamax.f:48:1: 48 | * | 1 Error: Invalid character in name at (1) spotrf2.f:41:1: 41 | *> | 1 Error: Invalid character in name at (1) sasum.f:26:1: 26 | *> SASUM takes the sum of the absolute values. | 1 Error: Invalid character in name at (1) isamax.f:49:1: 49 | * Authors: | 1 Error: Invalid character in name at (1) spotrf2.f:42:1: 42 | *> The subroutine calls itself to factor A11. Update and scale A21 | 1 Error: Invalid character in name at (1) sasum.f:27:1: 27 | *> uses unrolled loops for increment equal to one. | 1 Error: Invalid character in name at (1) sbdsvdx.f:24:1: 24 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) isamax.f:50:1: 50 | * ======== | 1 Error: Invalid character in name at (1) sasum.f:28:1: 28 | *> \endverbatim | 1 Error: Invalid character in name at (1) isamax.f:51:1: 51 | * | 1 Error: Invalid character in name at (1) spotrf2.f:43:1: 43 | *> or A12, update A22 then call itself to factor A22. | 1 Error: Invalid character in name at (1) sbdsvdx.f:25:1: 25 | * CHARACTER JOBZ, RANGE, UPLO | 1 Error: Invalid character in name at (1) isamax.f:52:1: 52 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) sasum.f:29:1: 29 | * | 1 Error: Invalid character in name at (1) spotrf2.f:44:1: 44 | *> | 1 Error: Invalid character in name at (1) isamax.f:53:1: 53 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) spotrf2.f:45:1: 45 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:26:1: 26 | * INTEGER IL, INFO, IU, LDZ, N, NS | 1 Error: Invalid character in name at (1) isamax.f:54:1: 54 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) sasum.f:30:1: 30 | * Arguments: | 1 Error: Invalid character in name at (1) sbdsvdx.f:27:1: 27 | * REAL VL, VU | 1 Error: Invalid character in name at (1) isamax.f:55:1: 55 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) sbdsvdx.f:28:1: 28 | * .. | 1 Error: Invalid character in name at (1) sasum.f:31:1: 31 | * ========== | 1 Error: Invalid character in name at (1) isamax.f:56:1: 56 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:29:1: 29 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) isamax.f:57:1: 57 | *> \date November 2017 | 1 Error: Invalid character in name at (1) sasum.f:32:1: 32 | * | 1 Error: Invalid character in name at (1) spotrf2.f:46:1: 46 | * | 1 Error: Invalid character in name at (1) sasum.f:33:1: 33 | *> \param[in] N | 1 Error: Invalid character in name at (1) isamax.f:58:1: 58 | * | 1 Error: Invalid character in name at (1) sasum.f:34:1: 34 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:47:1: 47 | * Arguments: | 1 Error: Invalid character in name at (1) sbdsvdx.f:30:1: 30 | * INTEGER IWORK( * ) | 1 Error: Invalid character in name at (1) spotrf2.f:48:1: 48 | * ========== | 1 Error: Invalid character in name at (1) sasum.f:35:1: 35 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:31:1: 31 | * REAL D( * ), E( * ), S( * ), WORK( * ), | 1 Error: Invalid character in name at (1) isamax.f:59:1: 59 | *> \ingroup aux_blas | 1 Error: Invalid character in name at (1) sasum.f:36:1: 36 | *> number of elements in input vector(s) | 1 Error: Invalid character in name at (1) spotrf2.f:49:1: 49 | * | 1 Error: Invalid character in name at (1) isamax.f:60:1: 60 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:32:1: 32 | * Z( LDZ, * ) | 1 Error: Invalid character in name at (1) isamax.f:61:1: 61 | *> \par Further Details: | 1 Error: Invalid character in name at (1) isamax.f:62:1: 62 | * ===================== | 1 Error: Invalid character in name at (1) spotrf2.f:50:1: 50 | *> \param[in] UPLO | 1 Error: Invalid character in name at (1) sasum.f:37:1: 37 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:33:1: 33 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:51:1: 51 | *> \verbatim | 1 Error: Invalid character in name at (1) isamax.f:63:1: 63 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:34:1: 34 | * | 1 Error: Invalid character in name at (1) sasum.f:38:1: 38 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:52:1: 52 | *> UPLO is CHARACTER*1 | 1 Error: Invalid character in name at (1) sbdsvdx.f:35:1: 35 | *> \par Purpose: | 1 Error: Invalid character in name at (1) isamax.f:64:1: 64 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:39:1: 39 | *> \param[in] SX | 1 Error: Invalid character in name at (1) spotrf2.f:53:1: 53 | *> = 'U': Upper triangle of A is stored; | 1 Error: Invalid character in name at (1) sbdsvdx.f:36:1: 36 | * ============= | 1 Error: Invalid character in name at (1) saxpy.f:1:1: 1 | *> \brief \b SAXPY | 1 Error: Invalid character in name at (1) sasum.f:40:1: 40 | *> \verbatim | 1 Error: Invalid character in name at (1) isamax.f:65:1: 65 | *> | 1 Error: Invalid character in name at (1) sasum.f:41:1: 41 | *> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) | 1 Error: Invalid character in name at (1) spotrf2.f:54:1: 54 | *> = 'L': Lower triangle of A is stored. | 1 Error: Invalid character in name at (1) saxpy.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:37:1: 37 | *> | 1 Error: Invalid character in name at (1) isamax.f:66:1: 66 | *> jack dongarra, linpack, 3/11/78. | 1 Error: Invalid character in name at (1) sasum.f:42:1: 42 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:38:1: 38 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:55:1: 55 | *> \endverbatim | 1 Error: Invalid character in name at (1) isamax.f:67:1: 67 | *> modified 3/93 to return if incx .le. 0. | 1 Error: Invalid character in name at (1) sbdsvdx.f:39:1: 39 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:56:1: 56 | *> | 1 Error: Invalid character in name at (1) isamax.f:68:1: 68 | *> modified 12/3/93, array(1) declarations changed to array(*) | 1 Error: Invalid character in name at (1) sasum.f:43:1: 43 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:57:1: 57 | *> \param[in] N | 1 Error: Invalid character in name at (1) sbdsvdx.f:40:1: 40 | *> SBDSVDX computes the singular value decomposition (SVD) of a real | 1 Error: Invalid character in name at (1) isamax.f:69:1: 69 | *> \endverbatim | 1 Error: Invalid character in name at (1) sasum.f:44:1: 44 | *> \param[in] INCX | 1 Error: Invalid character in name at (1) isamax.f:70:1: 70 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:41:1: 41 | *> N-by-N (upper or lower) bidiagonal matrix B, B = U * S * VT, | 1 Error: Invalid character in name at (1) saxpy.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) isamax.f:71:1: 71 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:42:1: 42 | *> where S is a diagonal matrix with non-negative diagonal elements | 1 Error: Invalid character in name at (1) sasum.f:45:1: 45 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:58:1: 58 | *> \verbatim | 1 Error: Invalid character in name at (1) saxpy.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) sasum.f:46:1: 46 | *> INCX is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:43:1: 43 | *> (the singular values of B), and U and VT are orthogonal matrices | 1 Error: Invalid character in name at (1) sasum.f:47:1: 47 | *> storage spacing between elements of SX | 1 Error: Invalid character in name at (1) saxpy.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) spotrf2.f:59:1: 59 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sasum.f:48:1: 48 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) sbdsvdx.f:44:1: 44 | *> of left and right singular vectors, respectively. | 1 Error: Invalid character in name at (1) sasum.f:49:1: 49 | * | 1 Error: Invalid character in name at (1) spotrf2.f:60:1: 60 | *> The order of the matrix A. N >= 0. | 1 Error: Invalid character in name at (1) saxpy.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:45:1: 45 | *> | 1 Error: Invalid character in name at (1) sasum.f:50:1: 50 | * Authors: | 1 Error: Invalid character in name at (1) spotrf2.f:61:1: 61 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:46:1: 46 | *> Given an upper bidiagonal B with diagonal D = [ d_1 d_2 ... d_N ] | 1 Error: Invalid character in name at (1) saxpy.f:8:1: 8 | * Definition: | 1 Error: Invalid character in name at (1) sasum.f:51:1: 51 | * ======== | 1 Error: Invalid character in name at (1) spotrf2.f:62:1: 62 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:47:1: 47 | *> and superdiagonal E = [ e_1 e_2 ... e_N-1 ], SBDSVDX computes the | 1 Error: Invalid character in name at (1) saxpy.f:9:1: 9 | * =========== | 1 Error: Invalid character in name at (1) spotrf2.f:63:1: 63 | *> \param[in,out] A | 1 Error: Invalid character in name at (1) sasum.f:52:1: 52 | * | 1 Error: Invalid character in name at (1) saxpy.f:10:1: 10 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:48:1: 48 | *> singular value decompositon of B through the eigenvalues and | 1 Error: Invalid character in name at (1) spotrf2.f:64:1: 64 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:49:1: 49 | *> eigenvectors of the N*2-by-N*2 tridiagonal matrix | 1 Error: Invalid character in name at (1) spotrf2.f:65:1: 65 | *> A is REAL array, dimension (LDA,N) | 1 Error: Invalid character in name at (1) saxpy.f:11:1: 11 | * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | 1 Error: Invalid character in name at (1) sasum.f:53:1: 53 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) spotrf2.f:66:1: 66 | *> On entry, the symmetric matrix A. If UPLO = 'U', the leading | 1 Error: Invalid character in name at (1) sbdsvdx.f:50:1: 50 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:67:1: 67 | *> N-by-N upper triangular part of A contains the upper | 1 Error: Invalid character in name at (1) saxpy.f:12:1: 12 | * | 1 Error: Invalid character in name at (1) spotrf2.f:68:1: 68 | *> triangular part of the matrix A, and the strictly lower | 1 Error: Invalid character in name at (1) sbdsvdx.f:51:1: 51 | *> | 0 d_1 | | 1 Error: Invalid character in name at (1) sasum.f:54:1: 54 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) spotrf2.f:69:1: 69 | *> triangular part of A is not referenced. If UPLO = 'L', the | 1 Error: Invalid character in name at (1) saxpy.f:13:1: 13 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:52:1: 52 | *> | d_1 0 e_1 | | 1 Error: Invalid character in name at (1) sasum.f:55:1: 55 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) spotrf2.f:70:1: 70 | *> leading N-by-N lower triangular part of A contains the lower | 1 Error: Invalid character in name at (1) saxpy.f:14:1: 14 | * REAL SA | 1 Error: Invalid character in name at (1) sasum.f:56:1: 56 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) spotrf2.f:71:1: 71 | *> triangular part of the matrix A, and the strictly upper | 1 Error: Invalid character in name at (1) sbdsvdx.f:53:1: 53 | *> TGK = | e_1 0 d_2 | | 1 Error: Invalid character in name at (1) sasum.f:57:1: 57 | * | 1 Error: Invalid character in name at (1) saxpy.f:15:1: 15 | * INTEGER INCX,INCY,N | 1 Error: Invalid character in name at (1) sbdsvdx.f:54:1: 54 | *> | d_2 . . | | 1 Error: Invalid character in name at (1) spotrf2.f:72:1: 72 | *> triangular part of A is not referenced. | 1 Error: Invalid character in name at (1) sasum.f:58:1: 58 | *> \date November 2017 | 1 Error: Invalid character in name at (1) saxpy.f:16:1: 16 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:55:1: 55 | *> | . . . | | 1 Error: Invalid character in name at (1) sasum.f:59:1: 59 | * | 1 Error: Invalid character in name at (1) saxpy.f:17:1: 17 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:56:1: 56 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:73:1: 73 | *> | 1 Error: Invalid character in name at (1) saxpy.f:18:1: 18 | * REAL SX(*),SY(*) | 1 Error: Invalid character in name at (1) sasum.f:60:1: 60 | *> \ingroup single_blas_level1 | 1 Error: Invalid character in name at (1) sbdsvdx.f:57:1: 57 | *> If (s,u,v) is a singular triplet of B with ||u|| = ||v|| = 1, then | 1 Error: Invalid character in name at (1) spotrf2.f:74:1: 74 | *> On exit, if INFO = 0, the factor U or L from the Cholesky | 1 Error: Invalid character in name at (1) sasum.f:61:1: 61 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:58:1: 58 | *> (+/-s,q), ||q|| = 1, are eigenpairs of TGK, with q = P * ( u' +/-v' ) / | 1 Error: Invalid character in name at (1) spotrf2.f:75:1: 75 | *> factorization A = U**T*U or A = L*L**T. | 1 Error: Invalid character in name at (1) saxpy.f:19:1: 19 | * .. | 1 Error: Invalid character in name at (1) sasum.f:62:1: 62 | *> \par Further Details: | 1 Error: Invalid character in name at (1) spotrf2.f:76:1: 76 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) sasum.f:63:1: 63 | * ===================== | 1 Error: Invalid character in name at (1) spotrf2.f:77:1: 77 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:1:1: 1 | *> \brief \b SGETRF2 | 1 Error: Invalid character in name at (1) spotrf2.f:78:1: 78 | *> \param[in] LDA | 1 Error: Invalid character in name at (1) saxpy.f:21:1: 21 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:59:1: 59 | *> sqrt(2) = ( v_1 u_1 v_2 u_2 ... v_n u_n ) / sqrt(2), and | 1 Error: Invalid character in name at (1) sgetrf2.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) spotrf2.f:79:1: 79 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:60:1: 60 | *> P = [ e_{n+1} e_{1} e_{n+2} e_{2} ... ]. | 1 Error: Invalid character in name at (1) sasum.f:64:1: 64 | *> | 1 Error: Invalid character in name at (1) saxpy.f:22:1: 22 | *> \par Purpose: | 1 Error: Invalid character in name at (1) sbdsvdx.f:61:1: 61 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:80:1: 80 | *> LDA is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) sbdsvdx.f:62:1: 62 | *> Given a TGK matrix, one can either a) compute -s,-v and change signs | 1 Error: Invalid character in name at (1) saxpy.f:23:1: 23 | * ============= | 1 Error: Invalid character in name at (1) isamax.f:73:1: 73 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) saxpy.f:24:1: 24 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:63:1: 63 | *> so that the singular values (and corresponding vectors) are already in | 1 Error: Invalid character in name at (1) isamax.f:74:1: 74 | * -- Reference BLAS level1 routine (version 3.8.0) -- | 1 Error: Invalid character in name at (1) sgetrf2.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) sasum.f:65:1: 65 | *> \verbatim | 1 Error: Invalid character in name at (1) isamax.f:75:1: 75 | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:64:1: 64 | *> descending order (as in SGESVD/SGESDD) or b) compute s,v and reorder | 1 Error: Invalid character in name at (1) saxpy.f:25:1: 25 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:81:1: 81 | *> The leading dimension of the array A. LDA >= max(1,N). | 1 Error: Invalid character in name at (1) sbdsvdx.f:65:1: 65 | *> the values (and corresponding vectors). SBDSVDX implements a) by | 1 Error: Invalid character in name at (1) sgetrf2.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) saxpy.f:26:1: 26 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:82:1: 82 | *> \endverbatim | 1 Error: Invalid character in name at (1) sasum.f:66:1: 66 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:66:1: 66 | *> calling SSTEVX (bisection plus inverse iteration, to be replaced | 1 Error: Invalid character in name at (1) saxpy.f:27:1: 27 | *> SAXPY constant times a vector plus a vector. | 1 Error: Invalid character in name at (1) spotrf2.f:83:1: 83 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:67:1: 67 | *> with a version of the Multiple Relative Robust Representation | 1 Error: Invalid character in name at (1) sgetrf2.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) spotrf2.f:84:1: 84 | *> \param[out] INFO | 1 Error: Invalid character in name at (1) isamax.f:76:1: 76 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) saxpy.f:28:1: 28 | *> uses unrolled loops for increments equal to one. | 1 Error: Invalid character in name at (1) spotrf2.f:85:1: 85 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:8:1: 8 | * Definition: | 1 Error: Invalid character in name at (1) sasum.f:67:1: 67 | *> jack dongarra, linpack, 3/11/78. | 1 Error: Invalid character in name at (1) spotrf2.f:86:1: 86 | *> INFO is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:9:1: 9 | * =========== | 1 Error: Invalid character in name at (1) sasum.f:68:1: 68 | *> modified 3/93 to return if incx .le. 0. | 1 Error: Invalid character in name at (1) sbdsvdx.f:68:1: 68 | *> algorithm. (See P. Willems and B. Lang, A framework for the MR^3 | 1 Error: Invalid character in name at (1) sasum.f:69:1: 69 | *> modified 12/3/93, array(1) declarations changed to array(*) | 1 Error: Invalid character in name at (1) spotrf2.f:87:1: 87 | *> = 0: successful exit | 1 Error: Invalid character in name at (1) sbdsvdx.f:69:1: 69 | *> algorithm: theory and implementation, SIAM J. Sci. Comput., | 1 Error: Invalid character in name at (1) isamax.f:77:1: 77 | * November 2017 | 1 Error: Invalid character in name at (1) sbdsvdx.f:70:1: 70 | *> 35:740-766, 2013.) | 1 Error: Invalid character in name at (1) sgetrf2.f:10:1: 10 | * | 1 Error: Invalid character in name at (1) saxpy.f:29:1: 29 | *> \endverbatim | 1 Error: Invalid character in name at (1) sasum.f:70:1: 70 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:11:1: 11 | * RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) | 1 Error: Invalid character in name at (1) spotrf2.f:88:1: 88 | *> < 0: if INFO = -i, the i-th argument had an illegal value | 1 Error: Invalid character in name at (1) saxpy.f:30:1: 30 | * | 1 Error: Invalid character in name at (1) sasum.f:71:1: 71 | *> | 1 Error: Invalid character in name at (1) isamax.f:78:1: 78 | * | 1 Error: Invalid character in name at (1) spotrf2.f:89:1: 89 | *> > 0: if INFO = i, the leading minor of order i is not | 1 Error: Invalid character in name at (1) saxpy.f:31:1: 31 | * Arguments: | 1 Error: Invalid character in name at (1) sgetrf2.f:12:1: 12 | * | 1 Error: Invalid character in name at (1) isamax.f:79:1: 79 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) saxpy.f:32:1: 32 | * ========== | 1 Error: Invalid character in name at (1) sasum.f:72:1: 72 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:71:1: 71 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:13:1: 13 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:72:1: 72 | * | 1 Error: Invalid character in name at (1) saxpy.f:33:1: 33 | * | 1 Error: Invalid character in name at (1) isamax.f:81:1: 81 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:90:1: 90 | *> positive definite, and the factorization could not be | 1 Error: Invalid character in name at (1) sbdsvdx.f:73:1: 73 | * Arguments: | 1 Error: Invalid character in name at (1) isamax.f:82:1: 82 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) saxpy.f:34:1: 34 | *> \param[in] N | 1 Error: Invalid character in name at (1) sbdsvdx.f:74:1: 74 | * ========== | 1 Error: Invalid character in name at (1) spotrf2.f:91:1: 91 | *> completed. | 1 Error: Invalid character in name at (1) sbdsvdx.f:75:1: 75 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:14:1: 14 | * INTEGER INFO, LDA, M, N | 1 Error: Invalid character in name at (1) sbdsvdx.f:76:1: 76 | *> \param[in] UPLO | 1 Error: Invalid character in name at (1) spotrf2.f:92:1: 92 | *> \endverbatim | 1 Error: Invalid character in name at (1) sasum.f:74:1: 74 | * | 1 Error: Invalid character in name at (1) spotrf2.f:93:1: 93 | * | 1 Error: Invalid character in name at (1) saxpy.f:35:1: 35 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:75:1: 75 | * -- Reference BLAS level1 routine (version 3.8.0) -- | 1 Error: Invalid character in name at (1) isamax.f:84:1: 84 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:77:1: 77 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:76:1: 76 | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sgetrf2.f:15:1: 15 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:94:1: 94 | * Authors: | 1 Error: Invalid character in name at (1) isamax.f:85:1: 85 | * | 1 Error: Invalid character in name at (1) sasum.f:77:1: 77 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) spotrf2.f:95:1: 95 | * ======== | 1 Error: Invalid character in name at (1) isamax.f:86:1: 86 | * ===================================================================== | 1 Error: Invalid character in name at (1) sasum.f:78:1: 78 | * November 2017 | 1 Error: Invalid character in name at (1) spotrf2.f:96:1: 96 | * | 1 Error: Invalid character in name at (1) saxpy.f:36:1: 36 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:78:1: 78 | *> UPLO is CHARACTER*1 | 1 Error: Invalid character in name at (1) isamax.f:87:1: 87 | * | 1 Error: Invalid character in name at (1) sasum.f:79:1: 79 | * | 1 Error: Invalid character in name at (1) saxpy.f:37:1: 37 | *> number of elements in input vector(s) | 1 Error: Invalid character in name at (1) isamax.f:88:1: 88 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) sgetrf2.f:16:1: 16 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) spotrf2.f:97:1: 97 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) sbdsvdx.f:79:1: 79 | *> = 'U': B is upper bidiagonal; | 1 Error: Invalid character in name at (1) sasum.f:80:1: 80 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) saxpy.f:38:1: 38 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:80:1: 80 | *> = 'L': B is lower bidiagonal. | 1 Error: Invalid character in name at (1) isamax.f:91:1: 91 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:98:1: 98 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) isamax.f:92:1: 92 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) saxpy.f:39:1: 39 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:17:1: 17 | * INTEGER IPIV( * ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:81:1: 81 | *> \endverbatim | 1 Error: Invalid character in name at (1) spotrf2.f:99:1: 99 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) sgetrf2.f:18:1: 18 | * REAL A( LDA, * ) | 1 Error: Invalid character in name at (1) saxpy.f:40:1: 40 | *> \param[in] SA | 1 Error: Invalid character in name at (1) spotrf2.f:100:1: 100 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) isamax.f:94:1: 94 | * .. | 1 Error: Invalid character in name at (1) sasum.f:82:1: 82 | * .. | 1 Error: Invalid character in name at (1) saxpy.f:41:1: 41 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:19:1: 19 | * .. | 1 Error: Invalid character in name at (1) sasum.f:83:1: 83 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) saxpy.f:42:1: 42 | *> SA is REAL | 1 Error: Invalid character in name at (1) sbdsvdx.f:82:1: 82 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:101:1: 101 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) spotrf2.f:102:1: 102 | *> \date November 2017 | 1 Error: Invalid character in name at (1) saxpy.f:43:1: 43 | *> On entry, SA specifies the scalar alpha. | 1 Error: Invalid character in name at (1) sbdsvdx.f:83:1: 83 | *> \param[in] JOBZ | 1 Error: Invalid character in name at (1) sgetrf2.f:21:1: 21 | * | 1 Error: Invalid character in name at (1) spotrf2.f:103:1: 103 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:84:1: 84 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:22:1: 22 | *> \par Purpose: | 1 Error: Invalid character in name at (1) sbdsvdx.f:85:1: 85 | *> JOBZ is CHARACTER*1 | 1 Error: Invalid character in name at (1) saxpy.f:44:1: 44 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:86:1: 86 | *> = 'N': Compute singular values only; | 1 Error: Invalid character in name at (1) spotrf2.f:104:1: 104 | *> \ingroup realPOcomputational | 1 Error: Invalid character in name at (1) sasum.f:85:1: 85 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:23:1: 23 | * ============= | 1 Error: Invalid character in name at (1) sbdsvdx.f:87:1: 87 | *> = 'V': Compute singular values and singular vectors. | 1 Error: Invalid character in name at (1) saxpy.f:45:1: 45 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:105:1: 105 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:88:1: 88 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:46:1: 46 | *> \param[in] SX | 1 Error: Invalid character in name at (1) sgetrf2.f:24:1: 24 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:106:1: 106 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:89:1: 89 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:25:1: 25 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:86:1: 86 | * | 1 Error: Invalid character in name at (1) saxpy.f:47:1: 47 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:90:1: 90 | *> \param[in] RANGE | 1 Error: Invalid character in name at (1) sgetrf2.f:26:1: 26 | *> | 1 Error: Invalid character in name at (1) sasum.f:87:1: 87 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:91:1: 91 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:27:1: 27 | *> SGETRF2 computes an LU factorization of a general M-by-N matrix A | 1 Error: Invalid character in name at (1) sasum.f:88:1: 88 | * | 1 Error: Invalid character in name at (1) saxpy.f:48:1: 48 | *> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) | 1 Error: Invalid character in name at (1) sasum.f:89:1: 89 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) spotrf2.f:108:1: 108 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:28:1: 28 | *> using partial pivoting with row interchanges. | 1 Error: Invalid character in name at (1) spotrf2.f:109:1: 109 | * -- LAPACK computational routine (version 3.8.0) -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:92:1: 92 | *> RANGE is CHARACTER*1 | 1 Error: Invalid character in name at (1) spotrf2.f:110:1: 110 | * -- LAPACK is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sgetrf2.f:29:1: 29 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:30:1: 30 | *> The factorization has the form | 1 Error: Invalid character in name at (1) sgetrf2.f:31:1: 31 | *> A = P * L * U | 1 Error: Invalid character in name at (1) saxpy.f:49:1: 49 | *> \endverbatim | 1 Error: Invalid character in name at (1) spotrf2.f:111:1: 111 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) saxpy.f:50:1: 50 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:93:1: 93 | *> = 'A': all singular values will be found. | 1 Error: Invalid character in name at (1) spotrf2.f:112:1: 112 | * November 2017 | 1 Error: Invalid character in name at (1) sgetrf2.f:32:1: 32 | *> where P is a permutation matrix, L is lower triangular with unit | 1 Error: Invalid character in name at (1) sasum.f:92:1: 92 | * .. | 1 Error: Invalid character in name at (1) saxpy.f:51:1: 51 | *> \param[in] INCX | 1 Error: Invalid character in name at (1) sbdsvdx.f:94:1: 94 | *> = 'V': all singular values in the half-open interval [VL,VU) | 1 Error: Invalid character in name at (1) saxpy.f:52:1: 52 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:95:1: 95 | *> will be found. | 1 Error: Invalid character in name at (1) saxpy.f:53:1: 53 | *> INCX is INTEGER | 1 Error: Invalid character in name at (1) sasum.f:93:1: 93 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:96:1: 96 | *> = 'I': the IL-th through IU-th singular values will be found. | 1 Error: Invalid character in name at (1) saxpy.f:54:1: 54 | *> storage spacing between elements of SX | 1 Error: Invalid character in name at (1) sbdsvdx.f:97:1: 97 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:98:1: 98 | *> | 1 Error: Invalid character in name at (1) saxpy.f:55:1: 55 | *> \endverbatim | 1 Error: Invalid character in name at (1) spotrf2.f:113:1: 113 | * | 1 Error: Invalid character in name at (1) sasum.f:95:1: 95 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:99:1: 99 | *> \param[in] N | 1 Error: Invalid character in name at (1) sgetrf2.f:33:1: 33 | *> diagonal elements (lower trapezoidal if m > n), and U is upper | 1 Error: Invalid character in name at (1) saxpy.f:56:1: 56 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:114:1: 114 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:100:1: 100 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:34:1: 34 | *> triangular (upper trapezoidal if m < n). | 1 Error: Invalid character in name at (1) saxpy.f:57:1: 57 | *> \param[in,out] SY | 1 Error: Invalid character in name at (1) sbdsvdx.f:101:1: 101 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:35:1: 35 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:36:1: 36 | *> This is the recursive version of the algorithm. It divides | 1 Error: Invalid character in name at (1) sbdsvdx.f:102:1: 102 | *> The order of the bidiagonal matrix. N >= 0. | 1 Error: Invalid character in name at (1) isamax.f:100:1: 100 | * | 1 Error: Invalid character in name at (1) saxpy.f:58:1: 58 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:100:1: 100 | * code for increment equal to 1 | 1 Error: Invalid character in name at (1) sgetrf2.f:37:1: 37 | *> the matrix into four submatrices: | 1 Error: Invalid character in name at (1) sbdsvdx.f:103:1: 103 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:59:1: 59 | *> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) | 1 Error: Invalid character in name at (1) sasum.f:101:1: 101 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:104:1: 104 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:38:1: 38 | *> | 1 Error: Invalid character in name at (1) saxpy.f:60:1: 60 | *> \endverbatim | 1 Error: Invalid character in name at (1) isamax.f:101:1: 101 | * code for increment equal to 1 | 1 Error: Invalid character in name at (1) sbdsvdx.f:105:1: 105 | *> \param[in] D | 1 Error: Invalid character in name at (1) sasum.f:102:1: 102 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:39:1: 39 | *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 | 1 Error: Invalid character in name at (1) sasum.f:103:1: 103 | * clean-up loop | 1 Error: Invalid character in name at (1) sbdsvdx.f:106:1: 106 | *> \verbatim | 1 Error: Invalid character in name at (1) sasum.f:104:1: 104 | * | 1 Error: Invalid character in name at (1) spotrf2.f:117:1: 117 | * .. | 1 Error: Invalid character in name at (1) saxpy.f:61:1: 61 | *> | 1 Error: Invalid character in name at (1) isamax.f:102:1: 102 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:107:1: 107 | *> D is REAL array, dimension (N) | 1 Error: Invalid character in name at (1) sgetrf2.f:40:1: 40 | *> A = [ -----|----- ] with n1 = min(m,n)/2 | 1 Error: Invalid character in name at (1) spotrf2.f:118:1: 118 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sgetrf2.f:41:1: 41 | *> [ A21 | A22 ] n2 = n-n1 | 1 Error: Invalid character in name at (1) saxpy.f:62:1: 62 | *> \param[in] INCY | 1 Error: Invalid character in name at (1) sbdsvdx.f:108:1: 108 | *> The n diagonal elements of the bidiagonal matrix B. | 1 Error: Invalid character in name at (1) sgetrf2.f:42:1: 42 | *> | 1 Error: Invalid character in name at (1) saxpy.f:63:1: 63 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:109:1: 109 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:43:1: 43 | *> [ A11 ] | 1 Error: Invalid character in name at (1) saxpy.f:64:1: 64 | *> INCY is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:44:1: 44 | *> The subroutine calls itself to factor [ --- ], | 1 Error: Invalid character in name at (1) sbdsvdx.f:110:1: 110 | *> | 1 Error: Invalid character in name at (1) saxpy.f:65:1: 65 | *> storage spacing between elements of SY | 1 Error: Invalid character in name at (1) sbdsvdx.f:111:1: 111 | *> \param[in] E | 1 Error: Invalid character in name at (1) saxpy.f:66:1: 66 | *> \endverbatim | 1 Error: Invalid character in name at (1) spotrf2.f:120:1: 120 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:45:1: 45 | *> [ A12 ] | 1 Error: Invalid character in name at (1) saxpy.f:67:1: 67 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:112:1: 112 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:46:1: 46 | *> [ A12 ] | 1 Error: Invalid character in name at (1) spotrf2.f:121:1: 121 | * | 1 Error: Invalid character in name at (1) saxpy.f:68:1: 68 | * Authors: | 1 Error: Invalid character in name at (1) sbdsvdx.f:113:1: 113 | *> E is REAL array, dimension (max(1,N-1)) | 1 Error: Invalid character in name at (1) sgetrf2.f:47:1: 47 | *> do the swaps on [ --- ], solve A12, update A22, | 1 Error: Invalid character in name at (1) spotrf2.f:122:1: 122 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:114:1: 114 | *> The (n-1) superdiagonal elements of the bidiagonal matrix | 1 Error: Invalid character in name at (1) saxpy.f:69:1: 69 | * ======== | 1 Error: Invalid character in name at (1) spotrf2.f:123:1: 123 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:115:1: 115 | *> B in elements 1 to N-1. | 1 Error: Invalid character in name at (1) sgetrf2.f:48:1: 48 | *> [ A22 ] | 1 Error: Invalid character in name at (1) isamax.f:111:1: 111 | * | 1 Error: Invalid character in name at (1) saxpy.f:70:1: 70 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:49:1: 49 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:124:1: 124 | * .. Parameters .. | 1 Error: Invalid character in name at (1) isamax.f:112:1: 112 | * code for increment not equal to 1 | 1 Error: Invalid character in name at (1) sgetrf2.f:50:1: 50 | *> then calls itself to factor A22 and do the swaps on A21. | 1 Error: Invalid character in name at (1) saxpy.f:71:1: 71 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) sbdsvdx.f:116:1: 116 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:72:1: 72 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) sgetrf2.f:51:1: 51 | *> | 1 Error: Invalid character in name at (1) saxpy.f:73:1: 73 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) sbdsvdx.f:117:1: 117 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:52:1: 52 | *> \endverbatim | 1 Error: Invalid character in name at (1) isamax.f:113:1: 113 | * | 1 Error: Invalid character in name at (1) saxpy.f:74:1: 74 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) sbdsvdx.f:118:1: 118 | *> \param[in] VL | 1 Error: Invalid character in name at (1) sgetrf2.f:53:1: 53 | * | 1 Error: Invalid character in name at (1) saxpy.f:75:1: 75 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:119:1: 119 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:54:1: 54 | * Arguments: | 1 Error: Invalid character in name at (1) saxpy.f:76:1: 76 | *> \date November 2017 | 1 Error: Invalid character in name at (1) sgetrf2.f:55:1: 55 | * ========== | 1 Error: Invalid character in name at (1) sbdsvdx.f:120:1: 120 | *> VL is REAL | 1 Error: Invalid character in name at (1) sgetrf2.f:56:1: 56 | * | 1 Error: Invalid character in name at (1) saxpy.f:77:1: 77 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:57:1: 57 | *> \param[in] M | 1 Error: Invalid character in name at (1) sasum.f:117:55: 117 | STEMP = STEMP + ABS(SX(I)) + ABS(SX(I+1)) + | 1 Error: Syntax error in expression at (1) sbdsvdx.f:121:1: 121 | *> If RANGE='V', the lower bound of the interval to | 1 Error: Invalid character in name at (1) saxpy.f:78:1: 78 | *> \ingroup single_blas_level1 | 1 Error: Invalid character in name at (1) sgetrf2.f:58:1: 58 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:127:1: 127 | * .. | 1 Error: Invalid character in name at (1) sasum.f:118:6: 118 | $ ABS(SX(I+2)) + ABS(SX(I+3)) + | 1 Error: Invalid character in name at (1) saxpy.f:79:1: 79 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:59:1: 59 | *> M is INTEGER | 1 Error: Invalid character in name at (1) spotrf2.f:128:1: 128 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) saxpy.f:80:1: 80 | *> \par Further Details: | 1 Error: Invalid character in name at (1) sasum.f:119:6: 119 | $ ABS(SX(I+4)) + ABS(SX(I+5)) | 1 Error: Invalid character in name at (1) sbdsvdx.f:122:1: 122 | *> be searched for singular values. VU > VL. | 1 Error: Invalid character in name at (1) sgetrf2.f:60:1: 60 | *> The number of rows of the matrix A. M >= 0. | 1 Error: Invalid character in name at (1) saxpy.f:81:1: 81 | * ===================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:123:1: 123 | *> Not referenced if RANGE = 'A' or 'I'. | 1 Error: Invalid character in name at (1) spotrf2.f:131:1: 131 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:61:1: 61 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:124:1: 124 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:82:1: 82 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:132:1: 132 | * .. External Functions .. | 1 Error: Invalid character in name at (1) sgetrf2.f:62:1: 62 | *> | 1 Error: Invalid character in name at (1) sasum.f:122:1: 122 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:125:1: 125 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:63:1: 63 | *> \param[in] N | 1 Error: Invalid character in name at (1) saxpy.f:83:1: 83 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:64:1: 64 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:126:1: 126 | *> \param[in] VU | 1 Error: Invalid character in name at (1) sgetrf2.f:65:1: 65 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sasum.f:123:1: 123 | * code for increment not equal to 1 | 1 Error: Invalid character in name at (1) sgetrf2.f:66:1: 66 | *> The number of columns of the matrix A. N >= 0. | 1 Error: Invalid character in name at (1) sbdsvdx.f:127:1: 127 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:135:1: 135 | * .. | 1 Error: Invalid character in name at (1) saxpy.f:84:1: 84 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:128:1: 128 | *> VU is REAL | 1 Error: Invalid character in name at (1) sasum.f:124:1: 124 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:67:1: 67 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:85:1: 85 | *> jack dongarra, linpack, 3/11/78. | 1 Error: Invalid character in name at (1) sbdsvdx.f:129:1: 129 | *> If RANGE='V', the upper bound of the interval to | 1 Error: Invalid character in name at (1) spotrf2.f:136:1: 136 | * .. External Subroutines .. | 1 Error: Invalid character in name at (1) sgetrf2.f:68:1: 68 | *> | 1 Error: Invalid character in name at (1) saxpy.f:86:1: 86 | *> modified 12/3/93, array(1) declarations changed to array(*) | 1 Error: Invalid character in name at (1) sbdsvdx.f:130:1: 130 | *> be searched for singular values. VU > VL. | 1 Error: Invalid character in name at (1) sgetrf2.f:69:1: 69 | *> \param[in,out] A | 1 Error: Invalid character in name at (1) saxpy.f:87:1: 87 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:131:1: 131 | *> Not referenced if RANGE = 'A' or 'I'. | 1 Error: Invalid character in name at (1) sgetrf2.f:70:1: 70 | *> \verbatim | 1 Error: Invalid character in name at (1) saxpy.f:88:1: 88 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:132:1: 132 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:71:1: 71 | *> A is REAL array, dimension (LDA,N) | 1 Error: Invalid character in name at (1) spotrf2.f:138:1: 138 | * .. | 1 Error: Invalid character in name at (1) saxpy.f:89:1: 89 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:133:1: 133 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:139:1: 139 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:134:1: 134 | *> \param[in] IL | 1 Error: Invalid character in name at (1) sgetrf2.f:72:1: 72 | *> On entry, the M-by-N matrix to be factored. | 1 Error: Invalid character in name at (1) sbdsvdx.f:135:1: 135 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:141:1: 141 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:73:1: 73 | *> On exit, the factors L and U from the factorization | 1 Error: Invalid character in name at (1) spotrf2.f:142:1: 142 | * .. Executable Statements .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:136:1: 136 | *> IL is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:74:1: 74 | *> A = P*L*U; the unit diagonal elements of L are not stored. | 1 Error: Invalid character in name at (1) spotrf2.f:143:1: 143 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:137:1: 137 | *> If RANGE='I', the index of the | 1 Error: Invalid character in name at (1) saxpy.f:91:1: 91 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:138:1: 138 | *> smallest singular value to be returned. | 1 Error: Invalid character in name at (1) spotrf2.f:144:1: 144 | * Test the input parameters | 1 Error: Invalid character in name at (1) sbdsvdx.f:139:1: 139 | *> 1 <= IL <= IU <= min(M,N), if min(M,N) > 0. | 1 Error: Invalid character in name at (1) saxpy.f:92:1: 92 | * -- Reference BLAS level1 routine (version 3.8.0) -- | 1 Error: Invalid character in name at (1) spotrf2.f:145:1: 145 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:140:1: 140 | *> Not referenced if RANGE = 'A' or 'V'. | 1 Error: Invalid character in name at (1) sgetrf2.f:75:1: 75 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:141:1: 141 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:76:1: 76 | *> | 1 Error: Invalid character in name at (1) saxpy.f:93:1: 93 | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sgetrf2.f:77:1: 77 | *> \param[in] LDA | 1 Error: Invalid character in name at (1) sbdsvdx.f:142:1: 142 | *> | 1 Error: Invalid character in name at (1) saxpy.f:94:1: 94 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) sgetrf2.f:78:1: 78 | *> \verbatim | 1 Error: Invalid character in name at (1) saxpy.f:95:1: 95 | * November 2017 | 1 Error: Invalid character in name at (1) saxpy.f:96:1: 96 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:143:1: 143 | *> \param[in] IU | 1 Error: Invalid character in name at (1) saxpy.f:97:1: 97 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sgetrf2.f:79:1: 79 | *> LDA is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:144:1: 144 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:145:1: 145 | *> IU is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:80:1: 80 | *> The leading dimension of the array A. LDA >= max(1,M). | 1 Error: Invalid character in name at (1) sbdsvdx.f:146:1: 146 | *> If RANGE='I', the index of the | 1 Error: Invalid character in name at (1) sgetrf2.f:81:1: 81 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:147:1: 147 | *> largest singular value to be returned. | 1 Error: Invalid character in name at (1) saxpy.f:100:1: 100 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:148:1: 148 | *> 1 <= IL <= IU <= min(M,N), if min(M,N) > 0. | 1 Error: Invalid character in name at (1) saxpy.f:101:1: 101 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sgetrf2.f:82:1: 82 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:149:1: 149 | *> Not referenced if RANGE = 'A' or 'V'. | 1 Error: Invalid character in name at (1) sgetrf2.f:83:1: 83 | *> \param[out] IPIV | 1 Error: Invalid character in name at (1) sbdsvdx.f:150:1: 150 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:84:1: 84 | *> \verbatim | 1 Error: Invalid character in name at (1) saxpy.f:103:1: 103 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:151:1: 151 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:85:1: 85 | *> IPIV is INTEGER array, dimension (min(M,N)) | 1 Error: Invalid character in name at (1) spotrf2.f:159:1: 159 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:152:1: 152 | *> \param[out] NS | 1 Error: Invalid character in name at (1) saxpy.f:104:1: 104 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:86:1: 86 | *> The pivot indices; for 1 <= i <= min(M,N), row i of the | 1 Error: Invalid character in name at (1) sbdsvdx.f:153:1: 153 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:160:1: 160 | * Quick return if possible | 1 Error: Invalid character in name at (1) sbdsvdx.f:154:1: 154 | *> NS is INTEGER | 1 Error: Invalid character in name at (1) saxpy.f:105:1: 105 | * ===================================================================== | 1 Error: Invalid character in name at (1) spotrf2.f:161:1: 161 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:155:1: 155 | *> The total number of singular values found. 0 <= NS <= N. | 1 Error: Invalid character in name at (1) sgetrf2.f:87:1: 87 | *> matrix was interchanged with row IPIV(i). | 1 Error: Invalid character in name at (1) sgetrf2.f:88:1: 88 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:106:1: 106 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:89:1: 89 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:156:1: 156 | *> If RANGE = 'A', NS = N, and if RANGE = 'I', NS = IU-IL+1. | 1 Error: Invalid character in name at (1) spotrf2.f:162:18: 162 | IF( N.EQ.0 ) | 1 Error: Cannot assign to a named constant at (1) saxpy.f:107:1: 107 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:157:1: 157 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:90:1: 90 | *> \param[out] INFO | 1 Error: Invalid character in name at (1) spotrf2.f:163:6: 163 | $ RETURN | 1 Error: Invalid character in name at (1) sgetrf2.f:91:1: 91 | *> \verbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:158:1: 158 | *> | 1 Error: Invalid character in name at (1) saxpy.f:109:1: 109 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:92:1: 92 | *> INFO is INTEGER | 1 Error: Invalid character in name at (1) spotrf2.f:164:1: 164 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:159:1: 159 | *> \param[out] S | 1 Error: Invalid character in name at (1) saxpy.f:110:1: 110 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sgetrf2.f:93:1: 93 | *> = 0: successful exit | 1 Error: Invalid character in name at (1) sbdsvdx.f:160:1: 160 | *> \verbatim | 1 Error: Invalid character in name at (1) spotrf2.f:165:1: 165 | * N=1 case | 1 Error: Invalid character in name at (1) sbdsvdx.f:161:1: 161 | *> S is REAL array, dimension (N) | 1 Error: Invalid character in name at (1) sgetrf2.f:94:1: 94 | *> < 0: if INFO = -i, the i-th argument had an illegal value | 1 Error: Invalid character in name at (1) sbdsvdx.f:162:1: 162 | *> The first NS elements contain the selected singular values in | 1 Error: Invalid character in name at (1) spotrf2.f:166:1: 166 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:163:1: 163 | *> ascending order. | 1 Error: Invalid character in name at (1) saxpy.f:112:1: 112 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:164:1: 164 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:95:1: 95 | *> > 0: if INFO = i, U(i,i) is exactly zero. The factorization | 1 Error: Invalid character in name at (1) spotrf2.f:168:1: 168 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:165:1: 165 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:169:1: 169 | * Test for non-positive-definiteness | 1 Error: Invalid character in name at (1) sgetrf2.f:96:1: 96 | *> has been completed, but the factor U is exactly | 1 Error: Invalid character in name at (1) spotrf2.f:170:1: 170 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:166:1: 166 | *> \param[out] Z | 1 Error: Invalid character in name at (1) sgetrf2.f:97:1: 97 | *> singular, and division by zero will occur if it is used | 1 Error: Invalid character in name at (1) sbdsvdx.f:167:1: 167 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:98:1: 98 | *> to solve a system of equations. | 1 Error: Invalid character in name at (1) sbdsvdx.f:168:1: 168 | *> Z is REAL array, dimension (2*N,K) | 1 Error: Invalid character in name at (1) sgetrf2.f:99:1: 99 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:169:1: 169 | *> If JOBZ = 'V', then if INFO = 0 the first NS columns of Z | 1 Error: Invalid character in name at (1) sgetrf2.f:100:1: 100 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:170:1: 170 | *> contain the singular vectors of the matrix B corresponding to | 1 Error: Invalid character in name at (1) sgetrf2.f:101:1: 101 | * Authors: | 1 Error: Invalid character in name at (1) spotrf2.f:175:1: 175 | * | 1 Error: Invalid character in name at (1) saxpy.f:116:1: 116 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:171:1: 171 | *> the selected singular values, with U in rows 1 to N and V | 1 Error: Invalid character in name at (1) sgetrf2.f:102:1: 102 | * ======== | 1 Error: Invalid character in name at (1) sbdsvdx.f:172:1: 172 | *> in rows N+1 to N*2, i.e. | 1 Error: Invalid character in name at (1) spotrf2.f:176:1: 176 | * Factor | 1 Error: Invalid character in name at (1) sbdsvdx.f:173:1: 173 | *> Z = [ U ] | 1 Error: Invalid character in name at (1) saxpy.f:117:1: 117 | * code for both increments equal to 1 | 1 Error: Invalid character in name at (1) spotrf2.f:177:1: 177 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:103:1: 103 | * | 1 Error: Invalid character in name at (1) saxpy.f:118:1: 118 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:104:1: 104 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) sbdsvdx.f:174:1: 174 | *> [ V ] | 1 Error: Invalid character in name at (1) spotrf2.f:179:1: 179 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:105:1: 105 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) sbdsvdx.f:175:1: 175 | *> If JOBZ = 'N', then Z is not referenced. | 1 Error: Invalid character in name at (1) sgetrf2.f:106:1: 106 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) spotrf2.f:180:1: 180 | * Use recursive code | 1 Error: Invalid character in name at (1) sgetrf2.f:107:1: 107 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) saxpy.f:119:1: 119 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:108:1: 108 | * | 1 Error: Invalid character in name at (1) spotrf2.f:181:1: 181 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:109:1: 109 | *> \date June 2016 | 1 Error: Invalid character in name at (1) saxpy.f:120:1: 120 | * clean-up loop | 1 Error: Invalid character in name at (1) sbdsvdx.f:176:1: 176 | *> Note: The user must ensure that at least K = NS+1 columns are | 1 Error: Invalid character in name at (1) saxpy.f:121:1: 121 | * | 1 Error: Invalid character in name at (1) spotrf2.f:185:1: 185 | * | 1 Error: Invalid character in name at (1) spotrf2.f:186:1: 186 | * Factor A11 | 1 Error: Invalid character in name at (1) sgetrf2.f:110:1: 110 | * | 1 Error: Invalid character in name at (1) spotrf2.f:187:1: 187 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:111:1: 111 | *> \ingroup realGEcomputational | 1 Error: Invalid character in name at (1) sgetrf2.f:112:1: 112 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:113:1: 113 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:177:1: 177 | *> supplied in the array Z; if RANGE = 'V', the exact value of | 1 Error: Invalid character in name at (1) sgetrf2.f:115:1: 115 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:116:1: 116 | * -- LAPACK computational routine (version 3.7.1) -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:178:1: 178 | *> NS is not known in advance and an upper bound must be used. | 1 Error: Invalid character in name at (1) spotrf2.f:193:1: 193 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:179:1: 179 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:117:1: 117 | * -- LAPACK is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:180:1: 180 | *> | 1 Error: Invalid character in name at (1) spotrf2.f:194:1: 194 | * Compute the Cholesky factorization A = U**T*U | 1 Error: Invalid character in name at (1) sgetrf2.f:118:1: 118 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) sbdsvdx.f:181:1: 181 | *> \param[in] LDZ | 1 Error: Invalid character in name at (1) spotrf2.f:195:1: 195 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:119:1: 119 | * June 2016 | 1 Error: Invalid character in name at (1) sbdsvdx.f:182:1: 182 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:120:1: 120 | * | 1 Error: Invalid character in name at (1) spotrf2.f:197:1: 197 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:183:1: 183 | *> LDZ is INTEGER | 1 Error: Invalid character in name at (1) sgetrf2.f:121:1: 121 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) spotrf2.f:198:1: 198 | * Update and scale A12 | 1 Error: Invalid character in name at (1) sbdsvdx.f:184:1: 184 | *> The leading dimension of the array Z. LDZ >= 1, and if | 1 Error: Invalid character in name at (1) saxpy.f:137:1: 137 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:185:1: 185 | *> JOBZ = 'V', LDZ >= max(2,N*2). | 1 Error: Invalid character in name at (1) spotrf2.f:199:1: 199 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:186:1: 186 | *> \endverbatim | 1 Error: Invalid character in name at (1) saxpy.f:138:1: 138 | * code for unequal increments or equal increments | 1 Error: Invalid character in name at (1) sbdsvdx.f:187:1: 187 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:123:1: 123 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:124:1: 124 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:188:1: 188 | *> \param[out] WORK | 1 Error: Invalid character in name at (1) spotrf2.f:200:56: 200 | CALL STRSM( 'L', 'U', 'T', 'N', N1, N2, ONE, | 1 Error: Syntax error in argument list at (1) saxpy.f:139:1: 139 | * not equal to 1 | 1 Error: Invalid character in name at (1) saxpy.f:140:1: 140 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:189:1: 189 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:127:1: 127 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:190:1: 190 | *> WORK is REAL array, dimension (14*N) | 1 Error: Invalid character in name at (1) sgetrf2.f:128:1: 128 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:191:1: 191 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:129:1: 129 | * ===================================================================== | 1 Error: Invalid character in name at (1) spotrf2.f:201:6: 201 | $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:192:1: 192 | *> | 1 Error: Invalid character in name at (1) sgetrf2.f:130:1: 130 | * | 1 Error: Invalid character in name at (1) spotrf2.f:202:1: 202 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:193:1: 193 | *> \param[out] IWORK | 1 Error: Invalid character in name at (1) spotrf2.f:203:1: 203 | * Update and factor A22 | 1 Error: Invalid character in name at (1) sbdsvdx.f:194:1: 194 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:131:1: 131 | * .. Parameters .. | 1 Error: Invalid character in name at (1) spotrf2.f:204:1: 204 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:195:1: 195 | *> IWORK is INTEGER array, dimension (12*N) | 1 Error: Invalid character in name at (1) sbdsvdx.f:196:1: 196 | *> If JOBZ = 'V', then if INFO = 0, the first NS elements of | 1 Error: Invalid character in name at (1) sbdsvdx.f:197:1: 197 | *> IWORK are zero. If INFO > 0, then IWORK contains the indices | 1 Error: Invalid character in name at (1) spotrf2.f:205:67: 205 | CALL SSYRK( UPLO, 'T', N2, N1, -ONE, A( 1, N1+1 ), LDA, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:198:1: 198 | *> of the eigenvectors that failed to converge in DSTEVX. | 1 Error: Invalid character in name at (1) spotrf2.f:206:6: 206 | $ ONE, A( N1+1, N1+1 ), LDA ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:199:1: 199 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:200:1: 200 | *> | 1 Error: Invalid character in name at (1) sbdsvdx.f:201:1: 201 | *> \param[out] INFO | 1 Error: Invalid character in name at (1) sbdsvdx.f:202:1: 202 | *> \verbatim | 1 Error: Invalid character in name at (1) sgetrf2.f:134:1: 134 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:135:1: 135 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:203:1: 203 | *> INFO is INTEGER | 1 Error: Invalid character in name at (1) sbdsvdx.f:204:1: 204 | *> = 0: successful exit | 1 Error: Invalid character in name at (1) spotrf2.f:212:1: 212 | * | 1 Error: Invalid character in name at (1) spotrf2.f:213:1: 213 | * Compute the Cholesky factorization A = L*L**T | 1 Error: Invalid character in name at (1) spotrf2.f:214:1: 214 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:205:1: 205 | *> < 0: if INFO = -i, the i-th argument had an illegal value | 1 Error: Invalid character in name at (1) sgetrf2.f:138:1: 138 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:139:1: 139 | * .. External Functions .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:206:1: 206 | *> > 0: if INFO = i, then i eigenvectors failed to converge | 1 Error: Invalid character in name at (1) sbdsvdx.f:207:1: 207 | *> in SSTEVX. The indices of the eigenvectors | 1 Error: Invalid character in name at (1) spotrf2.f:216:1: 216 | * | 1 Error: Invalid character in name at (1) spotrf2.f:217:1: 217 | * Update and scale A21 | 1 Error: Invalid character in name at (1) spotrf2.f:218:1: 218 | * | 1 Error: Invalid character in name at (1) spotrf2.f:219:56: 219 | CALL STRSM( 'R', 'L', 'T', 'N', N2, N1, ONE, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:208:1: 208 | *> (as returned by SSTEVX) are stored in the | 1 Error: Invalid character in name at (1) sgetrf2.f:143:1: 143 | * .. | 1 Error: Invalid character in name at (1) spotrf2.f:220:6: 220 | $ A( 1, 1 ), LDA, A( N1+1, 1 ), LDA ) | 1 Error: Invalid character in name at (1) sgetrf2.f:144:1: 144 | * .. External Subroutines .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:209:1: 209 | *> array IWORK. | 1 Error: Invalid character in name at (1) sbdsvdx.f:210:1: 210 | *> if INFO = N*2 + 1, an internal error occurred. | 1 Error: Invalid character in name at (1) spotrf2.f:221:1: 221 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:211:1: 211 | *> \endverbatim | 1 Error: Invalid character in name at (1) sbdsvdx.f:212:1: 212 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:213:1: 213 | * Authors: | 1 Error: Invalid character in name at (1) spotrf2.f:222:1: 222 | * Update and factor A22 | 1 Error: Invalid character in name at (1) sgetrf2.f:146:1: 146 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:214:1: 214 | * ======== | 1 Error: Invalid character in name at (1) spotrf2.f:223:1: 223 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:215:1: 215 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:147:1: 147 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:216:1: 216 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) spotrf2.f:224:67: 224 | CALL SSYRK( UPLO, 'N', N2, N1, -ONE, A( N1+1, 1 ), LDA, | 1 Error: Syntax error in argument list at (1) sgetrf2.f:149:1: 149 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:217:1: 217 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) spotrf2.f:225:6: 225 | $ ONE, A( N1+1, N1+1 ), LDA ) | 1 Error: Invalid character in name at (1) sgetrf2.f:150:1: 150 | * .. Executable Statements .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:218:1: 218 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) sgetrf2.f:151:1: 151 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:219:1: 219 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) sbdsvdx.f:220:1: 220 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:152:1: 152 | * Test the input parameters | 1 Error: Invalid character in name at (1) sbdsvdx.f:221:1: 221 | *> \date June 2016 | 1 Error: Invalid character in name at (1) sgetrf2.f:153:1: 153 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:222:1: 222 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:223:1: 223 | *> \ingroup realOTHEReigen | 1 Error: Invalid character in name at (1) sbdsvdx.f:224:1: 224 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:225:1: 225 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:226:69: 226 | SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, | 1 Error: Invalid character in name at (1) sbdsvdx.f:227:6: 227 | $ NS, S, Z, LDZ, WORK, IWORK, INFO) | 1 Error: Invalid character in name at (1) sbdsvdx.f:228:1: 228 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:229:1: 229 | * -- LAPACK driver routine (version 3.8.0) -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:230:1: 230 | * -- LAPACK is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sbdsvdx.f:231:1: 231 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) spotrf2.f:234:1: 234 | * | 1 Error: Invalid character in name at (1) spotrf2.f:235:1: 235 | * End of SPOTRF2 | 1 Error: Invalid character in name at (1) sbdsvdx.f:232:1: 232 | * November 2017 | 1 Error: Invalid character in name at (1) spotrf2.f:236:1: 236 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:233:1: 233 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:234:1: 234 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sgetrf2.f:166:1: 166 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:167:1: 167 | * Quick return if possible | 1 Error: Invalid character in name at (1) sgetrf2.f:168:1: 168 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:238:1: 238 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:169:30: 169 | IF( M.EQ.0 .OR. N.EQ.0 ) | 1 Error: Cannot assign to a named constant at (1) sgetrf2.f:170:6: 170 | $ RETURN | 1 Error: Invalid character in name at (1) sbdsvdx.f:239:1: 239 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sgetrf2.f:173:1: 173 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:174:1: 174 | * Use unblocked code for one row case | 1 Error: Invalid character in name at (1) sgetrf2.f:175:1: 175 | * Just need to handle IPIV and INFO | 1 Error: Invalid character in name at (1) sbdsvdx.f:241:59: 241 | REAL D( * ), E( * ), S( * ), WORK( * ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:242:6: 242 | $ Z( LDZ, * ) | 1 Error: Invalid character in name at (1) sgetrf2.f:176:1: 176 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:243:1: 243 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:244:1: 244 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:245:1: 245 | * ===================================================================== | 1 Error: Invalid character in name at (1) sbdsvdx.f:246:1: 246 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:247:1: 247 | * .. Parameters .. | 1 Error: Invalid character in name at (1) sgetrf2.f:178:30: 178 | IF ( A(1,1).EQ.ZERO ) | 1 Error: Cannot assign to a named constant at (1) sgetrf2.f:179:6: 179 | $ INFO = 1 | 1 Error: Invalid character in name at (1) sgetrf2.f:180:1: 180 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:182:1: 182 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:249:67: 249 | PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0, TEN = 10.0E0, | 1 Error: Expected variable name at (1) in PARAMETER statement sbdsvdx.f:250:6: 250 | $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 ) | 1 Error: Invalid character in name at (1) sgetrf2.f:183:1: 183 | * Use unblocked code for one column case | 1 Error: Invalid character in name at (1) sgetrf2.f:184:1: 184 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:185:1: 185 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:253:1: 253 | * .. | 1 Error: Invalid character in name at (1) sgetrf2.f:186:1: 186 | * Compute machine safe minimum | 1 Error: Invalid character in name at (1) sgetrf2.f:187:1: 187 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:254:1: 254 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) sgetrf2.f:189:1: 189 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:190:1: 190 | * Find pivot and test for singularity | 1 Error: Invalid character in name at (1) sgetrf2.f:191:1: 191 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:195:1: 195 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:196:1: 196 | * Apply the interchange | 1 Error: Invalid character in name at (1) sbdsvdx.f:257:69: 257 | INTEGER I, ICOLZ, IDBEG, IDEND, IDTGK, IDPTR, IEPTR, | 1 Error: Invalid character in name at (1) sgetrf2.f:197:1: 197 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:258:6: 258 | $ IETGK, IIFAIL, IIWORK, ILTGK, IROWU, IROWV, | 1 Error: Invalid character in name at (1) sbdsvdx.f:259:6: 259 | $ IROWZ, ISBEG, ISPLT, ITEMP, IUTGK, J, K, | 1 Error: Invalid character in name at (1) sgetrf2.f:203:1: 203 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:260:6: 260 | $ NTGK, NRU, NRV, NSL | 1 Error: Invalid character in name at (1) sgetrf2.f:204:1: 204 | * Compute elements 2:M of the column | 1 Error: Invalid character in name at (1) sgetrf2.f:205:1: 205 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:261:72: 261 | REAL ABSTOL, EPS, EMIN, MU, NRMU, NRMV, ORTOL, SMAX, | 1 Error: Invalid character in name at (1) sbdsvdx.f:262:6: 262 | $ SMIN, SQRT2, THRESH, TOL, ULP, | 1 Error: Invalid character in name at (1) sbdsvdx.f:263:6: 263 | $ VLTGK, VUTGK, ZJTJI | 1 Error: Invalid character in name at (1) sbdsvdx.f:264:1: 264 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:265:1: 265 | * .. External Functions .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:270:1: 270 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:271:1: 271 | * .. External Subroutines .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:273:1: 273 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:274:1: 274 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sgetrf2.f:213:1: 213 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:276:1: 276 | * .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:277:1: 277 | * .. Executable Statements .. | 1 Error: Invalid character in name at (1) sbdsvdx.f:278:1: 278 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:217:1: 217 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:279:1: 279 | * Test the input parameters. | 1 Error: Invalid character in name at (1) sbdsvdx.f:280:1: 280 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:219:1: 219 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:220:1: 220 | * Use recursive code | 1 Error: Invalid character in name at (1) sgetrf2.f:221:1: 221 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:224:1: 224 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:286:1: 286 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:225:1: 225 | * [ A11 ] | 1 Error: Invalid character in name at (1) sgetrf2.f:226:1: 226 | * Factor [ --- ] | 1 Error: Invalid character in name at (1) sgetrf2.f:227:1: 227 | * [ A21 ] | 1 Error: Invalid character in name at (1) sgetrf2.f:228:1: 228 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:231:42: 231 | IF ( info.EQ.0 .AND. iinfo.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgetrf2.f:232:6: 232 | $ info = iinfo | 1 Error: Invalid character in name at (1) sgetrf2.f:233:1: 233 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:234:1: 234 | * [ A12 ] | 1 Error: Invalid character in name at (1) sgetrf2.f:235:1: 235 | * Apply interchanges to [ --- ] | 1 Error: Invalid character in name at (1) sgetrf2.f:236:1: 236 | * [ A22 ] | 1 Error: Invalid character in name at (1) sgetrf2.f:237:1: 237 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:239:1: 239 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:240:1: 240 | * Solve A12 | 1 Error: Invalid character in name at (1) sgetrf2.f:241:1: 241 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:242:61: 242 | CALL STRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, | 1 Error: Syntax error in argument list at (1) sgetrf2.f:243:6: 243 | $ A( 1, N1+1 ), LDA ) | 1 Error: Invalid character in name at (1) sgetrf2.f:244:1: 244 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:245:1: 245 | * Update A22 | 1 Error: Invalid character in name at (1) sgetrf2.f:246:1: 246 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:247:69: 247 | CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, | 1 Error: Syntax error in argument list at (1) sgetrf2.f:248:6: 248 | $ A( 1, N1+1 ), LDA, ONE, A( N1+1, N1+1 ), LDA ) | 1 Error: Invalid character in name at (1) sgetrf2.f:249:1: 249 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:250:1: 250 | * Factor A22 | 1 Error: Invalid character in name at (1) sbdsvdx.f:314:1: 314 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:251:1: 251 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:252:68: 252 | CALL SGETRF2( M-N1, N2, A( N1+1, N1+1 ), LDA, IPIV( N1+1 ), | 1 Error: Syntax error in argument list at (1) sgetrf2.f:253:6: 253 | $ IINFO ) | 1 Error: Invalid character in name at (1) sgetrf2.f:254:1: 254 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:255:1: 255 | * Adjust INFO and the pivot indices | 1 Error: Invalid character in name at (1) sgetrf2.f:256:1: 256 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:319:1: 319 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:320:1: 320 | * Quick return if possible (N.LE.1) | 1 Error: Invalid character in name at (1) sgetrf2.f:257:42: 257 | IF ( INFO.EQ.0 .AND. IINFO.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgetrf2.f:258:6: 258 | $ INFO = IINFO + N1 | 1 Error: Invalid character in name at (1) sbdsvdx.f:321:1: 321 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:262:1: 262 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:263:1: 263 | * Apply interchanges to A21 | 1 Error: Invalid character in name at (1) sbdsvdx.f:324:1: 324 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:264:1: 264 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:266:1: 266 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:269:1: 269 | * | 1 Error: Invalid character in name at (1) sgetrf2.f:270:1: 270 | * End of SGETRF2 | 1 Error: Invalid character in name at (1) sgetrf2.f:271:1: 271 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:341:1: 341 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:347:1: 347 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:348:1: 348 | * Criterion for splitting is taken from SBDSQR when singular | 1 Error: Invalid character in name at (1) sbdsvdx.f:349:1: 349 | * values are computed to relative accuracy TOL. (See J. Demmel and | 1 Error: Invalid character in name at (1) sbdsvdx.f:350:1: 350 | * W. Kahan, Accurate singular values of bidiagonal matrices, SIAM | 1 Error: Invalid character in name at (1) sbdsvdx.f:351:1: 351 | * J. Sci. and Stat. Comput., 11:873–912, 1990.) | 1 Error: Invalid character in name at (1) sbdsvdx.f:352:1: 352 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:354:1: 354 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:355:1: 355 | * Compute approximate maximum, minimum singular values. | 1 Error: Invalid character in name at (1) sbdsvdx.f:356:1: 356 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:361:1: 361 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:362:1: 362 | * Compute threshold for neglecting D's and E's. | 1 Error: Invalid character in name at (1) sbdsvdx.f:363:1: 363 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:375:1: 375 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:376:1: 376 | * Check for zeros in D and E (splits), i.e. submatrices. | 1 Error: Invalid character in name at (1) sbdsvdx.f:377:1: 377 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:379:39: 379 | IF( ABS( D( I ) ).LE.THRESH ) D( I ) = ZERO | 1 Error: Cannot assign to a named constant at (1) sbdsvdx.f:380:39: 380 | IF( ABS( E( I ) ).LE.THRESH ) E( I ) = ZERO | 1 Error: Cannot assign to a named constant at (1) sbdsvdx.f:382:36: 382 | IF( ABS( D( N ) ).LE.THRESH ) D( N ) = ZERO | 1 Error: Cannot assign to a named constant at (1) sbdsvdx.f:383:1: 383 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:384:1: 384 | * Pointers for arrays used by SSTEVX. | 1 Error: Invalid character in name at (1) sbdsvdx.f:385:1: 385 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:391:1: 391 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:392:1: 392 | * Set RNGVX, which corresponds to RANGE for SSTEVX in TGK mode. | 1 Error: Invalid character in name at (1) sbdsvdx.f:393:1: 393 | * VL,VU or IL,IU are redefined to conform to implementation a) | 1 Error: Invalid character in name at (1) sbdsvdx.f:394:1: 394 | * described in the leading comments. | 1 Error: Invalid character in name at (1) sbdsvdx.f:395:1: 395 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:400:1: 400 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:402:1: 402 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:403:1: 403 | * All singular values will be found. We aim at -s (see | 1 Error: Invalid character in name at (1) sbdsvdx.f:404:1: 404 | * leading comments) with RNGVX = 'I'. IL and IU are set | 1 Error: Invalid character in name at (1) sbdsvdx.f:405:1: 405 | * later (as ILTGK and IUTGK) according to the dimension | 1 Error: Invalid character in name at (1) sbdsvdx.f:406:1: 406 | * of the active submatrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:407:1: 407 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:411:1: 411 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:412:1: 412 | * Find singular values in a half-open interval. We aim | 1 Error: Invalid character in name at (1) sbdsvdx.f:413:1: 413 | * at -s (see leading comments) and we swap VL and VU | 1 Error: Invalid character in name at (1) sbdsvdx.f:414:1: 414 | * (as VUTGK and VLTGK), changing their signs. | 1 Error: Invalid character in name at (1) sbdsvdx.f:415:1: 415 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:422:66: 422 | CALL SSTEVX( 'N', 'V', N*2, WORK( IDTGK ), WORK( IETGK ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:423:6: 423 | $ VLTGK, VUTGK, ILTGK, ILTGK, ABSTOL, NS, S, | 1 Error: Invalid character in name at (1) sbdsvdx.f:424:6: 424 | $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:425:6: 425 | $ IWORK( IIFAIL ), INFO ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:432:1: 432 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:433:1: 433 | * Find the IL-th through the IU-th singular values. We aim | 1 Error: Invalid character in name at (1) sbdsvdx.f:434:1: 434 | * at -s (see leading comments) and indices are mapped into | 1 Error: Invalid character in name at (1) sbdsvdx.f:435:1: 435 | * values, therefore mimicking SSTEBZ, where | 1 Error: Invalid character in name at (1) sbdsvdx.f:436:1: 436 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:437:1: 437 | * GL = GL - FUDGE*TNORM*ULP*N - FUDGE*TWO*PIVMIN | 1 Error: Invalid character in name at (1) sbdsvdx.f:438:1: 438 | * GU = GU + FUDGE*TNORM*ULP*N + FUDGE*PIVMIN | 1 Error: Invalid character in name at (1) sbdsvdx.f:439:1: 439 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:443:13: 443 | WORK( IDTGK:IDTGK+2*N-1 ) = ZERO | 1 Error: ‘work’ at (1) is not a variable sbdsvdx.f:446:66: 446 | CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:447:6: 447 | $ VLTGK, VLTGK, ILTGK, ILTGK, ABSTOL, NS, S, | 1 Error: Invalid character in name at (1) sbdsvdx.f:448:6: 448 | $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:449:6: 449 | $ IWORK( IIFAIL ), INFO ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:451:13: 451 | WORK( IDTGK:IDTGK+2*N-1 ) = ZERO | 1 Error: ‘work’ at (1) is not a variable sbdsvdx.f:454:66: 454 | CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:455:6: 455 | $ VUTGK, VUTGK, IUTGK, IUTGK, ABSTOL, NS, S, | 1 Error: Invalid character in name at (1) sbdsvdx.f:456:6: 456 | $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:457:6: 457 | $ IWORK( IIFAIL ), INFO ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:460:1: 460 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:461:1: 461 | * If VLTGK=VUTGK, SSTEVX returns an error message, | 1 Error: Invalid character in name at (1) sbdsvdx.f:462:1: 462 | * so if needed we change VUTGK slightly. | 1 Error: Invalid character in name at (1) sbdsvdx.f:463:1: 463 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:465:1: 465 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:468:1: 468 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:469:1: 469 | * Initialize variables and pointers for S, Z, and WORK. | 1 Error: Invalid character in name at (1) sbdsvdx.f:470:1: 470 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:471:1: 471 | * NRU, NRV: number of rows in U and V for the active submatrix | 1 Error: Invalid character in name at (1) sbdsvdx.f:472:1: 472 | * IDBEG, ISBEG: offsets for the entries of D and S | 1 Error: Invalid character in name at (1) sbdsvdx.f:473:1: 473 | * IROWZ, ICOLZ: offsets for the rows and columns of Z | 1 Error: Invalid character in name at (1) sbdsvdx.f:474:1: 474 | * IROWU, IROWV: offsets for the rows of U and V | 1 Error: Invalid character in name at (1) sbdsvdx.f:475:1: 475 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:487:1: 487 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:488:1: 488 | * Form the tridiagonal TGK matrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:489:1: 489 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:490:7: 490 | S( 1:N ) = ZERO | 1 Error: ‘s’ at (1) is not a variable sbdsvdx.f:492:10: 492 | WORK( IDTGK:IDTGK+2*N-1 ) = ZERO | 1 Error: ‘work’ at (1) is not a variable sbdsvdx.f:495:1: 495 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:496:1: 496 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:497:1: 497 | * Check for splits in two levels, outer level | 1 Error: Invalid character in name at (1) sbdsvdx.f:498:1: 498 | * in E and inner level in D. | 1 Error: Invalid character in name at (1) sbdsvdx.f:499:1: 499 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:502:1: 502 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:503:1: 503 | * Split in E (this piece of B is square) or bottom | 1 Error: Invalid character in name at (1) sbdsvdx.f:504:1: 504 | * of the (input bidiagonal) matrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:505:1: 505 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:510:1: 510 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:511:1: 511 | * Split in D (rectangular submatrix). Set the number | 1 Error: Invalid character in name at (1) sbdsvdx.f:512:1: 512 | * of rows in U and V (NRU and NRV) accordingly. | 1 Error: Invalid character in name at (1) sbdsvdx.f:513:1: 513 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:515:1: 515 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:516:1: 516 | * D=0 at the top. | 1 Error: Invalid character in name at (1) sbdsvdx.f:517:1: 517 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:524:1: 524 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:525:1: 525 | * D=0 at the bottom. | 1 Error: Invalid character in name at (1) sbdsvdx.f:526:1: 526 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:535:1: 535 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:536:1: 536 | * Split: top rectangular submatrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:537:1: 537 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:541:1: 541 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:542:1: 542 | * Split: middle square submatrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:543:1: 543 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:549:1: 549 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:550:1: 550 | * Last entry of D in the active submatrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:551:1: 551 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:553:1: 553 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:554:1: 554 | * No split (trivial case). | 1 Error: Invalid character in name at (1) sbdsvdx.f:555:1: 555 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:559:1: 559 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:560:1: 560 | * Split: bottom rectangular submatrix. | 1 Error: Invalid character in name at (1) sbdsvdx.f:561:1: 561 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:566:1: 566 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:568:1: 568 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:570:1: 570 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:571:1: 571 | * Compute eigenvalues/vectors of the active | 1 Error: Invalid character in name at (1) sbdsvdx.f:572:1: 572 | * submatrix according to RANGE: | 1 Error: Invalid character in name at (1) sbdsvdx.f:573:1: 573 | * if RANGE='A' (ALLSV) then RNGVX = 'I' | 1 Error: Invalid character in name at (1) sbdsvdx.f:574:1: 574 | * if RANGE='V' (VALSV) then RNGVX = 'V' | 1 Error: Invalid character in name at (1) sbdsvdx.f:575:1: 575 | * if RANGE='I' (INDSV) then RNGVX = 'V' | 1 Error: Invalid character in name at (1) sbdsvdx.f:576:1: 576 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:580:35: 580 | IF( SVEQ0 .OR. | 1 Error: Syntax error in expression at (1) sbdsvdx.f:581:6: 581 | $ SMIN.LT.EPS .OR. | 1 Error: Invalid character in name at (1) sbdsvdx.f:582:6: 582 | $ MOD(NTGK,2).GT.0 ) THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:583:1: 583 | * Special case: eigenvalue equal to zero or very | 1 Error: Invalid character in name at (1) sbdsvdx.f:584:1: 584 | * small, additional eigenvector is needed. | 1 Error: Invalid character in name at (1) sbdsvdx.f:588:1: 588 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:589:1: 589 | * Workspace needed by SSTEVX: | 1 Error: Invalid character in name at (1) sbdsvdx.f:590:1: 590 | * WORK( ITEMP: ): 2*5*NTGK | 1 Error: Invalid character in name at (1) sbdsvdx.f:591:1: 591 | * IWORK( 1: ): 2*6*NTGK | 1 Error: Invalid character in name at (1) sbdsvdx.f:592:1: 592 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:593:72: 593 | CALL SSTEVX( JOBZ, RNGVX, NTGK, WORK( IDTGK+ISPLT-1 ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:594:6: 594 | $ WORK( IETGK+ISPLT-1 ), VLTGK, VUTGK, | 1 Error: Invalid character in name at (1) sbdsvdx.f:595:6: 595 | $ ILTGK, IUTGK, ABSTOL, NSL, S( ISBEG ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:596:6: 596 | $ Z( IROWZ,ICOLZ ), LDZ, WORK( ITEMP ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:597:6: 597 | $ IWORK( IIWORK ), IWORK( IIFAIL ), | 1 Error: Invalid character in name at (1) sbdsvdx.f:598:6: 598 | $ INFO ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:600:1: 600 | * Exit with the error code from SSTEVX. | 1 Error: Invalid character in name at (1) sbdsvdx.f:603:46: 603 | EMIN = ABS( MAXVAL( S( ISBEG:ISBEG+NSL-1 ) ) ) | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:604:1: 604 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:606:1: 606 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:607:1: 607 | * Normalize u=Z([2,4,...],:) and v=Z([1,3,...],:), | 1 Error: Invalid character in name at (1) sbdsvdx.f:608:1: 608 | * changing the sign of v as discussed in the leading | 1 Error: Invalid character in name at (1) sbdsvdx.f:609:1: 609 | * comments. The norms of u and v may be (slightly) | 1 Error: Invalid character in name at (1) sbdsvdx.f:610:1: 610 | * different from 1/sqrt(2) if the corresponding | 1 Error: Invalid character in name at (1) sbdsvdx.f:611:1: 611 | * eigenvalues are very small or too close. We check | 1 Error: Invalid character in name at (1) sbdsvdx.f:612:1: 612 | * those norms and, if needed, reorthogonalize the | 1 Error: Invalid character in name at (1) sbdsvdx.f:613:1: 613 | * vectors. | 1 Error: Invalid character in name at (1) sbdsvdx.f:614:1: 614 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:615:39: 615 | IF( NSL.GT.1 .AND. | 1 Error: Syntax error in expression at (1) sbdsvdx.f:616:6: 616 | $ VUTGK.EQ.ZERO .AND. | 1 Error: Invalid character in name at (1) sbdsvdx.f:617:6: 617 | $ MOD(NTGK,2).EQ.0 .AND. | 1 Error: Invalid character in name at (1) sbdsvdx.f:618:6: 618 | $ EMIN.EQ.0 .AND. .NOT.SPLIT ) THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:619:1: 619 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:620:1: 620 | * D=0 at the top or bottom of the active submatrix: | 1 Error: Invalid character in name at (1) sbdsvdx.f:621:1: 621 | * one eigenvalue is equal to zero; concatenate the | 1 Error: Invalid character in name at (1) sbdsvdx.f:622:1: 622 | * eigenvectors corresponding to the two smallest | 1 Error: Invalid character in name at (1) sbdsvdx.f:623:1: 623 | * eigenvalues. | 1 Error: Invalid character in name at (1) sbdsvdx.f:624:1: 624 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:625:25: 625 | Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) = | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:626:6: 626 | $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) + | 1 Error: Invalid character in name at (1) sbdsvdx.f:627:6: 627 | $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:628:25: 628 | Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) = | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:629:6: 629 | $ ZERO | 1 Error: Invalid character in name at (1) sbdsvdx.f:630:1: 630 | * IF( IUTGK*2.GT.NTGK ) THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:631:1: 631 | * Eigenvalue equal to zero or very small. | 1 Error: Invalid character in name at (1) sbdsvdx.f:632:1: 632 | * NSL = NSL - 1 | 1 Error: Invalid character in name at (1) sbdsvdx.f:633:1: 633 | * END IF | 1 Error: Invalid character in name at (1) sbdsvdx.f:635:1: 635 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:642:50: 642 | CALL SSCAL( NRU, ONE/NRMU, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:643:6: 643 | $ Z( IROWU,ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:644:45: 644 | IF( NRMU.NE.ONE .AND. | 1 Error: Syntax error in expression at (1) sbdsvdx.f:645:6: 645 | $ ABS( NRMU-ORTOL )*SQRT2.GT.ONE ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:646:6: 646 | $ THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:648:70: 648 | ZJTJI = -SDOT( NRU, Z( IROWU, ICOLZ+J ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:649:6: 649 | $ 2, Z( IROWU, ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:650:53: 650 | CALL SAXPY( NRU, ZJTJI, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:651:6: 651 | $ Z( IROWU, ICOLZ+J ), 2, | 1 Error: Invalid character in name at (1) sbdsvdx.f:652:6: 652 | $ Z( IROWU, ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:655:53: 655 | CALL SSCAL( NRU, ONE/NRMU, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:656:6: 656 | $ Z( IROWU,ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:657:27: 657 | END IF | 1 Error: Expecting END DO statement at (1) sbdsvdx.f:665:51: 665 | CALL SSCAL( NRV, -ONE/NRMV, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:666:6: 666 | $ Z( IROWV,ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:667:45: 667 | IF( NRMV.NE.ONE .AND. | 1 Error: Syntax error in expression at (1) sbdsvdx.f:668:6: 668 | $ ABS( NRMV-ORTOL )*SQRT2.GT.ONE ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:669:6: 669 | $ THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:671:70: 671 | ZJTJI = -SDOT( NRV, Z( IROWV, ICOLZ+J ), | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:672:6: 672 | $ 2, Z( IROWV, ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:673:53: 673 | CALL SAXPY( NRU, ZJTJI, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:674:6: 674 | $ Z( IROWV, ICOLZ+J ), 2, | 1 Error: Invalid character in name at (1) sbdsvdx.f:675:6: 675 | $ Z( IROWV, ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:678:53: 678 | CALL SSCAL( NRV, ONE/NRMV, | 1 Error: Syntax error in argument list at (1) sbdsvdx.f:679:6: 679 | $ Z( IROWV,ICOLZ+I ), 2 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:680:27: 680 | END IF | 1 Error: Expecting END DO statement at (1) sbdsvdx.f:682:44: 682 | IF( VUTGK.EQ.ZERO .AND. | 1 Error: Syntax error in expression at (1) sbdsvdx.f:683:6: 683 | $ IDPTR.LT.IDEND .AND. | 1 Error: Invalid character in name at (1) sbdsvdx.f:684:6: 684 | $ MOD(NTGK,2).GT.0 ) THEN | 1 Error: Invalid character in name at (1) sbdsvdx.f:685:1: 685 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:686:1: 686 | * D=0 in the middle of the active submatrix (one | 1 Error: Invalid character in name at (1) sbdsvdx.f:687:1: 687 | * eigenvalue is equal to zero): save the corresponding | 1 Error: Invalid character in name at (1) sbdsvdx.f:688:1: 688 | * eigenvector for later use (when bottom of the | 1 Error: Invalid character in name at (1) sbdsvdx.f:689:1: 689 | * active submatrix is reached). | 1 Error: Invalid character in name at (1) sbdsvdx.f:690:1: 690 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:692:25: 692 | Z( IROWZ:IROWZ+NTGK-1,N+1 ) = | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:693:6: 693 | $ Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:694:25: 694 | Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) = | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:695:6: 695 | $ ZERO | 1 Error: Invalid character in name at (1) sbdsvdx.f:696:24: 696 | END IF | 1 Error: Expecting END DO statement at (1) sbdsvdx.f:697:21: 697 | END IF !** WANTZ **! | 1 Error: Expecting END DO statement at (1) sbdsvdx.f:698:1: 698 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:701:1: 701 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:702:1: 702 | * Absolute values of the eigenvalues of TGK. | 1 Error: Invalid character in name at (1) sbdsvdx.f:703:1: 703 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:707:1: 707 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:708:1: 708 | * Update pointers for TGK, S and Z. | 1 Error: Invalid character in name at (1) sbdsvdx.f:709:1: 709 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:719:18: 719 | END IF !** NTGK.GT.0 **! | 1 Error: Expecting END DO statement at (1) sbdsvdx.f:721:19: 721 | Z( 1:IROWZ-1, ICOLZ ) = ZERO | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:725:1: 725 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:726:1: 726 | * Bring back eigenvector corresponding | 1 Error: Invalid character in name at (1) sbdsvdx.f:727:1: 727 | * to eigenvalue equal to zero. | 1 Error: Invalid character in name at (1) sbdsvdx.f:728:1: 728 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:729:16: 729 | Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) = | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:730:6: 730 | $ Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) + | 1 Error: Invalid character in name at (1) sbdsvdx.f:731:6: 731 | $ Z( IDBEG:IDEND-NTGK+1,N+1 ) | 1 Error: Invalid character in name at (1) sbdsvdx.f:732:16: 732 | Z( IDBEG:IDEND-NTGK+1,N+1 ) = 0 | 1 Error: ‘z’ at (1) is not a variable sbdsvdx.f:741:1: 741 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:742:1: 742 | * Sort the singular values into decreasing order (insertion sort on | 1 Error: Invalid character in name at (1) sbdsvdx.f:743:1: 743 | * singular values, but only one transposition per singular vector) | 1 Error: Invalid character in name at (1) sbdsvdx.f:744:1: 744 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:760:1: 760 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:761:1: 761 | * If RANGE=I, check for singular values/vectors to be discarded. | 1 Error: Invalid character in name at (1) sbdsvdx.f:762:1: 762 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:766:13: 766 | S( K+1:NS ) = ZERO | 1 Error: ‘s’ at (1) is not a variable sbdsvdx.f:767:24: 767 | IF( WANTZ ) Z( 1:N*2,K+1:NS ) = ZERO | 1 Error: Cannot assign to a named constant at (1) sbdsvdx.f:771:1: 771 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:772:1: 772 | * Reorder Z: U = Z( 1:N,1:NS ), V = Z( N+1:N*2,1:NS ). | 1 Error: Invalid character in name at (1) sbdsvdx.f:773:1: 773 | * If B is a lower diagonal, swap U and V. | 1 Error: Invalid character in name at (1) sbdsvdx.f:774:1: 774 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:787:1: 787 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:789:1: 789 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:790:1: 790 | * End of SBDSVDX | 1 Error: Invalid character in name at (1) sbdsvdx.f:791:1: 791 | * | 1 Error: Invalid character in name at (1) sbdsvdx.f:240:35: 240 | INTEGER IWORK( * ) | 1 Error: Assumed size array at (1) must be a dummy argument sbdsvdx.f:328:12: 328 | S( 1 ) = ABS( D( 1 ) ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:332:15: 332 | S( 1 ) = ABS( D( 1 ) ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:336:12: 336 | Z( 1, 1 ) = SIGN( ONE, D( 1 ) ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:337:12: 337 | Z( 2, 1 ) = ONE | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:366:14: 366 | MU = SMIN | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:368:17: 368 | MU = ABS( D( I ) )*( MU / ( MU+ABS( E( I-1 ) ) ) ) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:369:30: 369 | SMIN = MIN( SMIN, MU ) | 1 Error: ‘a2’ argument of ‘min’ intrinsic at (1) must be REAL(4) sbdsvdx.f:491:6: 491 | WORK( IETGK+2*N-1 ) = ZERO | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:637:31: 637 | NRMU = SNRM2( NRU, Z( IROWU, ICOLZ+I ), 2 ) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:654:34: 654 | NRMU = SNRM2( NRU, Z( IROWU, ICOLZ+I ), 2 ) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:660:31: 660 | NRMV = SNRM2( NRV, Z( IROWV, ICOLZ+I ), 2 ) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:677:34: 677 | NRMV = SNRM2( NRV, Z( IROWV, ICOLZ+I ), 2 ) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sbdsvdx.f:705:21: 705 | S( ISBEG+I ) = ABS( S( ISBEG+I ) ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:755:12: 755 | S( K ) = S( NS+1-I ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sbdsvdx.f:756:12: 756 | S( NS+1-I ) = SMIN | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. make[2]: *** [saxpy.o] Error 1 make[2]: *** Waiting for unfinished jobs.... /opt/anaconda3/envs/AmberTools20/bin/x86_64-apple-darwin13.4.0-gfortran -Wall -O3 -ffree-form -march=core2 -mtune=haswell -ftree-vectorize -fPIC -fstack-protector -O2 -pipe -isystem /opt/anaconda3/envs/AmberTools20/include -c -o sgbbrd.o sgbbrd.f make[2]: *** [sasum.o] Error 1 make[2]: *** [isamax.o] Error 1 make[1]: *** [blas] Error 2 make: *** [blaslib] Error 2 make: *** Waiting for unfinished jobs.... make[1]: *** [sgetrf2.o] Error 1 make[1]: *** Waiting for unfinished jobs.... make[1]: *** [spotrf2.o] Error 1 make[1]: *** [sbdsvdx.o] Error 1 sgbbrd.f:1:1: 1 | *> \brief \b SGBBRD | 1 Error: Invalid character in name at (1) sgbbrd.f:2:1: 2 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:3:1: 3 | * =========== DOCUMENTATION =========== | 1 Error: Invalid character in name at (1) sgbbrd.f:4:1: 4 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:5:1: 5 | * Online html documentation available at | 1 Error: Invalid character in name at (1) sgbbrd.f:6:1: 6 | * http://www.netlib.org/lapack/explore-html/ | 1 Error: Invalid character in name at (1) sgbbrd.f:7:1: 7 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:8:1: 8 | *> \htmlonly | 1 Error: Invalid character in name at (1) sgbbrd.f:9:1: 9 | *> Download SGBBRD + dependencies | 1 Error: Invalid character in name at (1) sgbbrd.f:10:1: 10 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:11:1: 11 | *> [TGZ] | 1 Error: Invalid character in name at (1) sgbbrd.f:12:1: 12 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:13:1: 13 | *> [ZIP] | 1 Error: Invalid character in name at (1) sgbbrd.f:14:1: 14 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:15:1: 15 | *> [TXT] | 1 Error: Invalid character in name at (1) sgbbrd.f:16:1: 16 | *> \endhtmlonly | 1 Error: Invalid character in name at (1) sgbbrd.f:17:1: 17 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:18:1: 18 | * Definition: | 1 Error: Invalid character in name at (1) sgbbrd.f:19:1: 19 | * =========== | 1 Error: Invalid character in name at (1) sgbbrd.f:20:1: 20 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:21:1: 21 | * SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, | 1 Error: Invalid character in name at (1) sgbbrd.f:22:1: 22 | * LDQ, PT, LDPT, C, LDC, WORK, INFO ) | 1 Error: Invalid character in name at (1) sgbbrd.f:23:1: 23 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:24:1: 24 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sgbbrd.f:25:1: 25 | * CHARACTER VECT | 1 Error: Invalid character in name at (1) sgbbrd.f:26:1: 26 | * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC | 1 Error: Invalid character in name at (1) sgbbrd.f:27:1: 27 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:28:1: 28 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sgbbrd.f:29:1: 29 | * REAL AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), | 1 Error: Invalid character in name at (1) sgbbrd.f:30:1: 30 | * $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) | 1 Error: Invalid character in name at (1) sgbbrd.f:31:1: 31 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:32:1: 32 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:33:1: 33 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:34:1: 34 | *> \par Purpose: | 1 Error: Invalid character in name at (1) sgbbrd.f:35:1: 35 | * ============= | 1 Error: Invalid character in name at (1) sgbbrd.f:36:1: 36 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:37:1: 37 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:38:1: 38 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:39:1: 39 | *> SGBBRD reduces a real general m-by-n band matrix A to upper | 1 Error: Invalid character in name at (1) sgbbrd.f:40:1: 40 | *> bidiagonal form B by an orthogonal transformation: Q**T * A * P = B. | 1 Error: Invalid character in name at (1) sgbbrd.f:41:1: 41 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:42:1: 42 | *> The routine computes B, and optionally forms Q or P**T, or computes | 1 Error: Invalid character in name at (1) sgbbrd.f:43:1: 43 | *> Q**T*C for a given matrix C. | 1 Error: Invalid character in name at (1) sgbbrd.f:44:1: 44 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:45:1: 45 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:46:1: 46 | * Arguments: | 1 Error: Invalid character in name at (1) sgbbrd.f:47:1: 47 | * ========== | 1 Error: Invalid character in name at (1) sgbbrd.f:48:1: 48 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:49:1: 49 | *> \param[in] VECT | 1 Error: Invalid character in name at (1) sgbbrd.f:50:1: 50 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:51:1: 51 | *> VECT is CHARACTER*1 | 1 Error: Invalid character in name at (1) sgbbrd.f:52:1: 52 | *> Specifies whether or not the matrices Q and P**T are to be | 1 Error: Invalid character in name at (1) sgbbrd.f:53:1: 53 | *> formed. | 1 Error: Invalid character in name at (1) sgbbrd.f:54:1: 54 | *> = 'N': do not form Q or P**T; | 1 Error: Invalid character in name at (1) sgbbrd.f:55:1: 55 | *> = 'Q': form Q only; | 1 Error: Invalid character in name at (1) sgbbrd.f:56:1: 56 | *> = 'P': form P**T only; | 1 Error: Invalid character in name at (1) sgbbrd.f:57:1: 57 | *> = 'B': form both. | 1 Error: Invalid character in name at (1) sgbbrd.f:58:1: 58 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:59:1: 59 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:60:1: 60 | *> \param[in] M | 1 Error: Invalid character in name at (1) sgbbrd.f:61:1: 61 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:62:1: 62 | *> M is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:63:1: 63 | *> The number of rows of the matrix A. M >= 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:64:1: 64 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:65:1: 65 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:66:1: 66 | *> \param[in] N | 1 Error: Invalid character in name at (1) sgbbrd.f:67:1: 67 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:68:1: 68 | *> N is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:69:1: 69 | *> The number of columns of the matrix A. N >= 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:70:1: 70 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:71:1: 71 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:72:1: 72 | *> \param[in] NCC | 1 Error: Invalid character in name at (1) sgbbrd.f:73:1: 73 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:74:1: 74 | *> NCC is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:75:1: 75 | *> The number of columns of the matrix C. NCC >= 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:76:1: 76 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:77:1: 77 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:78:1: 78 | *> \param[in] KL | 1 Error: Invalid character in name at (1) sgbbrd.f:79:1: 79 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:80:1: 80 | *> KL is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:81:1: 81 | *> The number of subdiagonals of the matrix A. KL >= 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:82:1: 82 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:83:1: 83 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:84:1: 84 | *> \param[in] KU | 1 Error: Invalid character in name at (1) sgbbrd.f:85:1: 85 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:86:1: 86 | *> KU is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:87:1: 87 | *> The number of superdiagonals of the matrix A. KU >= 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:88:1: 88 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:89:1: 89 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:90:1: 90 | *> \param[in,out] AB | 1 Error: Invalid character in name at (1) sgbbrd.f:91:1: 91 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:92:1: 92 | *> AB is REAL array, dimension (LDAB,N) | 1 Error: Invalid character in name at (1) sgbbrd.f:93:1: 93 | *> On entry, the m-by-n band matrix A, stored in rows 1 to | 1 Error: Invalid character in name at (1) sgbbrd.f:94:1: 94 | *> KL+KU+1. The j-th column of A is stored in the j-th column of | 1 Error: Invalid character in name at (1) sgbbrd.f:95:1: 95 | *> the array AB as follows: | 1 Error: Invalid character in name at (1) sgbbrd.f:96:1: 96 | *> AB(ku+1+i-j,j) = A(i,j) for max(1,j-ku)<=i<=min(m,j+kl). | 1 Error: Invalid character in name at (1) sgbbrd.f:97:1: 97 | *> On exit, A is overwritten by values generated during the | 1 Error: Invalid character in name at (1) sgbbrd.f:98:1: 98 | *> reduction. | 1 Error: Invalid character in name at (1) sgbbrd.f:99:1: 99 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:100:1: 100 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:101:1: 101 | *> \param[in] LDAB | 1 Error: Invalid character in name at (1) sgbbrd.f:102:1: 102 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:103:1: 103 | *> LDAB is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:104:1: 104 | *> The leading dimension of the array A. LDAB >= KL+KU+1. | 1 Error: Invalid character in name at (1) sgbbrd.f:105:1: 105 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:106:1: 106 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:107:1: 107 | *> \param[out] D | 1 Error: Invalid character in name at (1) sgbbrd.f:108:1: 108 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:109:1: 109 | *> D is REAL array, dimension (min(M,N)) | 1 Error: Invalid character in name at (1) sgbbrd.f:110:1: 110 | *> The diagonal elements of the bidiagonal matrix B. | 1 Error: Invalid character in name at (1) sgbbrd.f:111:1: 111 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:112:1: 112 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:113:1: 113 | *> \param[out] E | 1 Error: Invalid character in name at (1) sgbbrd.f:114:1: 114 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:115:1: 115 | *> E is REAL array, dimension (min(M,N)-1) | 1 Error: Invalid character in name at (1) sgbbrd.f:116:1: 116 | *> The superdiagonal elements of the bidiagonal matrix B. | 1 Error: Invalid character in name at (1) sgbbrd.f:117:1: 117 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:118:1: 118 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:119:1: 119 | *> \param[out] Q | 1 Error: Invalid character in name at (1) sgbbrd.f:120:1: 120 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:121:1: 121 | *> Q is REAL array, dimension (LDQ,M) | 1 Error: Invalid character in name at (1) sgbbrd.f:122:1: 122 | *> If VECT = 'Q' or 'B', the m-by-m orthogonal matrix Q. | 1 Error: Invalid character in name at (1) sgbbrd.f:123:1: 123 | *> If VECT = 'N' or 'P', the array Q is not referenced. | 1 Error: Invalid character in name at (1) sgbbrd.f:124:1: 124 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:125:1: 125 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:126:1: 126 | *> \param[in] LDQ | 1 Error: Invalid character in name at (1) sgbbrd.f:127:1: 127 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:128:1: 128 | *> LDQ is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:129:1: 129 | *> The leading dimension of the array Q. | 1 Error: Invalid character in name at (1) sgbbrd.f:130:1: 130 | *> LDQ >= max(1,M) if VECT = 'Q' or 'B'; LDQ >= 1 otherwise. | 1 Error: Invalid character in name at (1) sgbbrd.f:131:1: 131 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:132:1: 132 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:133:1: 133 | *> \param[out] PT | 1 Error: Invalid character in name at (1) sgbbrd.f:134:1: 134 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:135:1: 135 | *> PT is REAL array, dimension (LDPT,N) | 1 Error: Invalid character in name at (1) sgbbrd.f:136:1: 136 | *> If VECT = 'P' or 'B', the n-by-n orthogonal matrix P'. | 1 Error: Invalid character in name at (1) sgbbrd.f:137:1: 137 | *> If VECT = 'N' or 'Q', the array PT is not referenced. | 1 Error: Invalid character in name at (1) sgbbrd.f:138:1: 138 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:139:1: 139 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:140:1: 140 | *> \param[in] LDPT | 1 Error: Invalid character in name at (1) sgbbrd.f:141:1: 141 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:142:1: 142 | *> LDPT is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:143:1: 143 | *> The leading dimension of the array PT. | 1 Error: Invalid character in name at (1) sgbbrd.f:144:1: 144 | *> LDPT >= max(1,N) if VECT = 'P' or 'B'; LDPT >= 1 otherwise. | 1 Error: Invalid character in name at (1) sgbbrd.f:145:1: 145 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:146:1: 146 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:147:1: 147 | *> \param[in,out] C | 1 Error: Invalid character in name at (1) sgbbrd.f:148:1: 148 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:149:1: 149 | *> C is REAL array, dimension (LDC,NCC) | 1 Error: Invalid character in name at (1) sgbbrd.f:150:1: 150 | *> On entry, an m-by-ncc matrix C. | 1 Error: Invalid character in name at (1) sgbbrd.f:151:1: 151 | *> On exit, C is overwritten by Q**T*C. | 1 Error: Invalid character in name at (1) sgbbrd.f:152:1: 152 | *> C is not referenced if NCC = 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:153:1: 153 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:154:1: 154 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:155:1: 155 | *> \param[in] LDC | 1 Error: Invalid character in name at (1) sgbbrd.f:156:1: 156 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:157:1: 157 | *> LDC is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:158:1: 158 | *> The leading dimension of the array C. | 1 Error: Invalid character in name at (1) sgbbrd.f:159:1: 159 | *> LDC >= max(1,M) if NCC > 0; LDC >= 1 if NCC = 0. | 1 Error: Invalid character in name at (1) sgbbrd.f:160:1: 160 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:161:1: 161 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:162:1: 162 | *> \param[out] WORK | 1 Error: Invalid character in name at (1) sgbbrd.f:163:1: 163 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:164:1: 164 | *> WORK is REAL array, dimension (2*max(M,N)) | 1 Error: Invalid character in name at (1) sgbbrd.f:165:1: 165 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:166:1: 166 | *> | 1 Error: Invalid character in name at (1) sgbbrd.f:167:1: 167 | *> \param[out] INFO | 1 Error: Invalid character in name at (1) sgbbrd.f:168:1: 168 | *> \verbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:169:1: 169 | *> INFO is INTEGER | 1 Error: Invalid character in name at (1) sgbbrd.f:170:1: 170 | *> = 0: successful exit. | 1 Error: Invalid character in name at (1) sgbbrd.f:171:1: 171 | *> < 0: if INFO = -i, the i-th argument had an illegal value. | 1 Error: Invalid character in name at (1) sgbbrd.f:172:1: 172 | *> \endverbatim | 1 Error: Invalid character in name at (1) sgbbrd.f:173:1: 173 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:174:1: 174 | * Authors: | 1 Error: Invalid character in name at (1) sgbbrd.f:175:1: 175 | * ======== | 1 Error: Invalid character in name at (1) sgbbrd.f:176:1: 176 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:177:1: 177 | *> \author Univ. of Tennessee | 1 Error: Invalid character in name at (1) sgbbrd.f:178:1: 178 | *> \author Univ. of California Berkeley | 1 Error: Invalid character in name at (1) sgbbrd.f:179:1: 179 | *> \author Univ. of Colorado Denver | 1 Error: Invalid character in name at (1) sgbbrd.f:180:1: 180 | *> \author NAG Ltd. | 1 Error: Invalid character in name at (1) sgbbrd.f:181:1: 181 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:182:1: 182 | *> \date December 2016 | 1 Error: Invalid character in name at (1) sgbbrd.f:183:1: 183 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:184:1: 184 | *> \ingroup realGBcomputational | 1 Error: Invalid character in name at (1) sgbbrd.f:185:1: 185 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:186:1: 186 | * ===================================================================== | 1 Error: Invalid character in name at (1) sgbbrd.f:187:68: 187 | SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, | 1 Error: Invalid character in name at (1) sgbbrd.f:188:6: 188 | $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) | 1 Error: Invalid character in name at (1) sgbbrd.f:189:1: 189 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:190:1: 190 | * -- LAPACK computational routine (version 3.7.0) -- | 1 Error: Invalid character in name at (1) sgbbrd.f:191:1: 191 | * -- LAPACK is a software package provided by Univ. of Tennessee, -- | 1 Error: Invalid character in name at (1) sgbbrd.f:192:1: 192 | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | 1 Error: Invalid character in name at (1) sgbbrd.f:193:1: 193 | * December 2016 | 1 Error: Invalid character in name at (1) sgbbrd.f:194:1: 194 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:195:1: 195 | * .. Scalar Arguments .. | 1 Error: Invalid character in name at (1) sgbbrd.f:198:1: 198 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:199:1: 199 | * .. Array Arguments .. | 1 Error: Invalid character in name at (1) sgbbrd.f:200:68: 200 | REAL AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), | 1 Error: Invalid character in name at (1) sgbbrd.f:201:6: 201 | $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) | 1 Error: Invalid character in name at (1) sgbbrd.f:202:1: 202 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:203:1: 203 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:204:1: 204 | * ===================================================================== | 1 Error: Invalid character in name at (1) sgbbrd.f:205:1: 205 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:206:1: 206 | * .. Parameters .. | 1 Error: Invalid character in name at (1) sgbbrd.f:209:1: 209 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:210:1: 210 | * .. Local Scalars .. | 1 Error: Invalid character in name at (1) sgbbrd.f:212:68: 212 | INTEGER I, INCA, J, J1, J2, KB, KB1, KK, KLM, KLU1, | 1 Error: Invalid character in name at (1) sgbbrd.f:213:6: 213 | $ KUN, L, MINMN, ML, ML0, MN, MU, MU0, NR, NRT | 1 Error: Invalid character in name at (1) sgbbrd.f:215:1: 215 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:216:1: 216 | * .. External Subroutines .. | 1 Error: Invalid character in name at (1) sgbbrd.f:218:1: 218 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:219:1: 219 | * .. Intrinsic Functions .. | 1 Error: Invalid character in name at (1) sgbbrd.f:221:1: 221 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:222:1: 222 | * .. External Functions .. | 1 Error: Invalid character in name at (1) sgbbrd.f:225:1: 225 | * .. | 1 Error: Invalid character in name at (1) sgbbrd.f:226:1: 226 | * .. Executable Statements .. | 1 Error: Invalid character in name at (1) sgbbrd.f:227:1: 227 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:228:1: 228 | * Test the input parameters | 1 Error: Invalid character in name at (1) sgbbrd.f:229:1: 229 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:236:70: 236 | IF( .NOT.WANTQ .AND. .NOT.WANTPT .AND. .NOT.LSAME( VECT, 'N' ) ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:237:6: 237 | $ THEN | 1 Error: Invalid character in name at (1) sgbbrd.f:239:28: 239 | ELSE IF( M.LT.0 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:241:28: 241 | ELSE IF( N.LT.0 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:243:30: 243 | ELSE IF( NCC.LT.0 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:245:29: 245 | ELSE IF( KL.LT.0 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:247:29: 247 | ELSE IF( KU.LT.0 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:249:34: 249 | ELSE IF( LDAB.LT.KLU1 ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:251:66: 251 | ELSE IF( LDQ.LT.1 .OR. WANTQ .AND. LDQ.LT.MAX( 1, M ) ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:253:69: 253 | ELSE IF( LDPT.LT.1 .OR. WANTPT .AND. LDPT.LT.MAX( 1, N ) ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:255:66: 255 | ELSE IF( LDC.LT.1 .OR. WANTC .AND. LDC.LT.MAX( 1, M ) ) THEN | 1 Error: Unexpected ELSE IF statement at (1) sgbbrd.f:257:9: 257 | END IF | 1 Error: Expecting END PROGRAM statement at (1) sgbbrd.f:262:1: 262 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:263:1: 263 | * Initialize Q and P**T to the unit matrix, if needed | 1 Error: Invalid character in name at (1) sgbbrd.f:264:1: 264 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:265:17: 265 | IF( WANTQ ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:266:6: 266 | $ CALL SLASET( 'Full', M, M, ZERO, ONE, Q, LDQ ) | 1 Error: Invalid character in name at (1) sgbbrd.f:267:18: 267 | IF( WANTPT ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:268:6: 268 | $ CALL SLASET( 'Full', N, N, ZERO, ONE, PT, LDPT ) | 1 Error: Invalid character in name at (1) sgbbrd.f:269:1: 269 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:270:1: 270 | * Quick return if possible. | 1 Error: Invalid character in name at (1) sgbbrd.f:271:1: 271 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:272:30: 272 | IF( M.EQ.0 .OR. N.EQ.0 ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:273:6: 273 | $ RETURN | 1 Error: Invalid character in name at (1) sgbbrd.f:274:1: 274 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:276:1: 276 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:278:1: 278 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:279:1: 279 | * Reduce to upper bidiagonal form if KU > 0; if KU = 0, reduce | 1 Error: Invalid character in name at (1) sgbbrd.f:280:1: 280 | * first to lower bidiagonal form and then transform to upper | 1 Error: Invalid character in name at (1) sgbbrd.f:281:1: 281 | * bidiagonal | 1 Error: Invalid character in name at (1) sgbbrd.f:282:1: 282 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:290:1: 290 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:291:1: 291 | * Wherever possible, plane rotations are generated and applied in | 1 Error: Invalid character in name at (1) sgbbrd.f:292:1: 292 | * vector operations of length NR over the index set J1:J2:KLU1. | 1 Error: Invalid character in name at (1) sgbbrd.f:293:1: 293 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:294:1: 294 | * The sines of the plane rotations are stored in WORK(1:max(m,n)) | 1 Error: Invalid character in name at (1) sgbbrd.f:295:1: 295 | * and the cosines in WORK(max(m,n)+1:2*max(m,n)). | 1 Error: Invalid character in name at (1) sgbbrd.f:296:1: 296 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:306:1: 306 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:308:1: 308 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:309:1: 309 | * Reduce i-th column and i-th row of matrix to bidiagonal form | 1 Error: Invalid character in name at (1) sgbbrd.f:310:1: 310 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:316:1: 316 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:317:1: 317 | * generate plane rotations to annihilate nonzero elements | 1 Error: Invalid character in name at (1) sgbbrd.f:318:1: 318 | * which have been created below the band | 1 Error: Invalid character in name at (1) sgbbrd.f:319:1: 319 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:320:28: 320 | IF( NR.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:321:6: 321 | $ CALL SLARGV( NR, AB( KLU1, J1-KLM-1 ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:322:6: 322 | $ WORK( J1 ), KB1, WORK( MN+J1 ), KB1 ) | 1 Error: Invalid character in name at (1) sgbbrd.f:323:1: 323 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:324:1: 324 | * apply plane rotations from the left | 1 Error: Invalid character in name at (1) sgbbrd.f:325:1: 325 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:332:32: 332 | IF( NRT.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:333:6: 333 | $ CALL SLARTV( NRT, AB( KLU1-L, J1-KLM+L-1 ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:334:6: 334 | $ AB( KLU1-L+1, J1-KLM+L-1 ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:335:6: 335 | $ WORK( MN+J1 ), WORK( J1 ), KB1 ) | 1 Error: Invalid character in name at (1) sgbbrd.f:337:1: 337 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:340:1: 340 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:341:1: 341 | * generate plane rotation to annihilate a(i+ml-1,i) | 1 Error: Invalid character in name at (1) sgbbrd.f:342:1: 342 | * within the band, and apply rotation from the left | 1 Error: Invalid character in name at (1) sgbbrd.f:343:1: 343 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:344:67: 344 | CALL SLARTG( AB( KU+ML-1, I ), AB( KU+ML, I ), | 1 Error: Syntax error in argument list at (1) sgbbrd.f:345:6: 345 | $ WORK( MN+I+ML-1 ), WORK( I+ML-1 ), | 1 Error: Invalid character in name at (1) sgbbrd.f:346:6: 346 | $ RA ) | 1 Error: Invalid character in name at (1) sgbbrd.f:348:33: 348 | IF( I.LT.N ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:349:6: 349 | $ CALL SROT( MIN( KU+ML-2, N-I ), | 1 Error: Invalid character in name at (1) sgbbrd.f:350:6: 350 | $ AB( KU+ML-2, I+1 ), LDAB-1, | 1 Error: Invalid character in name at (1) sgbbrd.f:351:6: 351 | $ AB( KU+ML-1, I+1 ), LDAB-1, | 1 Error: Invalid character in name at (1) sgbbrd.f:352:6: 352 | $ WORK( MN+I+ML-1 ), WORK( I+ML-1 ) ) | 1 Error: Invalid character in name at (1) sgbbrd.f:357:1: 357 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:359:1: 359 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:360:1: 360 | * accumulate product of plane rotations in Q | 1 Error: Invalid character in name at (1) sgbbrd.f:361:1: 361 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:363:64: 363 | CALL SROT( M, Q( 1, J-1 ), 1, Q( 1, J ), 1, | 1 Error: Syntax error in argument list at (1) sgbbrd.f:364:6: 364 | $ WORK( MN+J ), WORK( J ) ) | 1 Error: Invalid character in name at (1) sgbbrd.f:367:1: 367 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:369:1: 369 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:370:1: 370 | * apply plane rotations to C | 1 Error: Invalid character in name at (1) sgbbrd.f:371:1: 371 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:373:70: 373 | CALL SROT( NCC, C( J-1, 1 ), LDC, C( J, 1 ), LDC, | 1 Error: Syntax error in argument list at (1) sgbbrd.f:374:6: 374 | $ WORK( MN+J ), WORK( J ) ) | 1 Error: Invalid character in name at (1) sgbbrd.f:377:1: 377 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:379:1: 379 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:380:1: 380 | * adjust J2 to keep within the bounds of the matrix | 1 Error: Invalid character in name at (1) sgbbrd.f:381:1: 381 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:385:1: 385 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:387:1: 387 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:388:1: 388 | * create nonzero element a(j-1,j+ku) above the band | 1 Error: Invalid character in name at (1) sgbbrd.f:389:1: 389 | * and store it in WORK(n+1:2*n) | 1 Error: Invalid character in name at (1) sgbbrd.f:390:1: 390 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:394:1: 394 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:395:1: 395 | * generate plane rotations to annihilate nonzero elements | 1 Error: Invalid character in name at (1) sgbbrd.f:396:1: 396 | * which have been generated above the band | 1 Error: Invalid character in name at (1) sgbbrd.f:397:1: 397 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:398:28: 398 | IF( NR.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:399:6: 399 | $ CALL SLARGV( NR, AB( 1, J1+KUN-1 ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:400:6: 400 | $ WORK( J1+KUN ), KB1, WORK( MN+J1+KUN ), | 1 Error: Invalid character in name at (1) sgbbrd.f:401:6: 401 | $ KB1 ) | 1 Error: Invalid character in name at (1) sgbbrd.f:402:1: 402 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:403:1: 403 | * apply plane rotations from the right | 1 Error: Invalid character in name at (1) sgbbrd.f:404:1: 404 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:411:32: 411 | IF( NRT.GT.0 ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:412:6: 412 | $ CALL SLARTV( NRT, AB( L+1, J1+KUN-1 ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:413:6: 413 | $ AB( L, J1+KUN ), INCA, | 1 Error: Invalid character in name at (1) sgbbrd.f:414:6: 414 | $ WORK( MN+J1+KUN ), WORK( J1+KUN ), | 1 Error: Invalid character in name at (1) sgbbrd.f:415:6: 415 | $ KB1 ) | 1 Error: Invalid character in name at (1) sgbbrd.f:417:1: 417 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:420:1: 420 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:421:1: 421 | * generate plane rotation to annihilate a(i,i+mu-1) | 1 Error: Invalid character in name at (1) sgbbrd.f:422:1: 422 | * within the band, and apply rotation from the right | 1 Error: Invalid character in name at (1) sgbbrd.f:423:1: 423 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:424:56: 424 | CALL SLARTG( AB( KU-MU+3, I+MU-2 ), | 1 Error: Syntax error in argument list at (1) sgbbrd.f:425:6: 425 | $ AB( KU-MU+2, I+MU-1 ), | 1 Error: Invalid character in name at (1) sgbbrd.f:426:6: 426 | $ WORK( MN+I+MU-1 ), WORK( I+MU-1 ), | 1 Error: Invalid character in name at (1) sgbbrd.f:427:6: 427 | $ RA ) | 1 Error: Invalid character in name at (1) sgbbrd.f:429:52: 429 | CALL SROT( MIN( KL+MU-2, M-I ), | 1 Error: Syntax error in argument list at (1) sgbbrd.f:430:6: 430 | $ AB( KU-MU+4, I+MU-2 ), 1, | 1 Error: Invalid character in name at (1) sgbbrd.f:431:6: 431 | $ AB( KU-MU+3, I+MU-1 ), 1, | 1 Error: Invalid character in name at (1) sgbbrd.f:432:6: 432 | $ WORK( MN+I+MU-1 ), WORK( I+MU-1 ) ) | 1 Error: Invalid character in name at (1) sgbbrd.f:437:1: 437 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:439:1: 439 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:440:1: 440 | * accumulate product of plane rotations in P**T | 1 Error: Invalid character in name at (1) sgbbrd.f:441:1: 441 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:443:58: 443 | CALL SROT( N, PT( J+KUN-1, 1 ), LDPT, | 1 Error: Syntax error in argument list at (1) sgbbrd.f:444:6: 444 | $ PT( J+KUN, 1 ), LDPT, WORK( MN+J+KUN ), | 1 Error: Invalid character in name at (1) sgbbrd.f:445:6: 445 | $ WORK( J+KUN ) ) | 1 Error: Invalid character in name at (1) sgbbrd.f:448:1: 448 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:450:1: 450 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:451:1: 451 | * adjust J2 to keep within the bounds of the matrix | 1 Error: Invalid character in name at (1) sgbbrd.f:452:1: 452 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:456:1: 456 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:458:1: 458 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:459:1: 459 | * create nonzero element a(j+kl+ku,j+ku-1) below the | 1 Error: Invalid character in name at (1) sgbbrd.f:460:1: 460 | * band and store it in WORK(1:n) | 1 Error: Invalid character in name at (1) sgbbrd.f:461:1: 461 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:465:1: 465 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:474:1: 474 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:476:1: 476 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:477:1: 477 | * A has been reduced to lower bidiagonal form | 1 Error: Invalid character in name at (1) sgbbrd.f:478:1: 478 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:479:1: 479 | * Transform lower bidiagonal form to upper bidiagonal by applying | 1 Error: Invalid character in name at (1) sgbbrd.f:480:1: 480 | * plane rotations from the left, storing diagonal elements in D | 1 Error: Invalid character in name at (1) sgbbrd.f:481:1: 481 | * and off-diagonal elements in E | 1 Error: Invalid character in name at (1) sgbbrd.f:482:1: 482 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:490:23: 490 | IF( WANTQ ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:491:6: 491 | $ CALL SROT( M, Q( 1, I ), 1, Q( 1, I+1 ), 1, RC, RS ) | 1 Error: Invalid character in name at (1) sgbbrd.f:492:23: 492 | IF( WANTC ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:493:6: 493 | $ CALL SROT( NCC, C( I, 1 ), LDC, C( I+1, 1 ), LDC, RC, | 1 Error: Invalid character in name at (1) sgbbrd.f:494:6: 494 | $ RS ) | 1 Error: Invalid character in name at (1) sgbbrd.f:496:21: 496 | IF( M.LE.N ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:497:6: 497 | $ D( M ) = AB( 1, M ) | 1 Error: Invalid character in name at (1) sgbbrd.f:499:1: 499 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:500:1: 500 | * A has been reduced to upper bidiagonal form | 1 Error: Invalid character in name at (1) sgbbrd.f:501:1: 501 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:503:1: 503 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:504:1: 504 | * Annihilate a(m,m+1) by applying plane rotations from the | 1 Error: Invalid character in name at (1) sgbbrd.f:505:1: 505 | * right, storing diagonal elements in D and off-diagonal | 1 Error: Invalid character in name at (1) sgbbrd.f:506:1: 506 | * elements in E | 1 Error: Invalid character in name at (1) sgbbrd.f:507:1: 507 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:516:27: 516 | IF( WANTPT ) | 1 Error: Cannot assign to a named constant at (1) sgbbrd.f:517:6: 517 | $ CALL SROT( N, PT( I, 1 ), LDPT, PT( M+1, 1 ), LDPT, | 1 Error: Invalid character in name at (1) sgbbrd.f:518:6: 518 | $ RC, RS ) | 1 Error: Invalid character in name at (1) sgbbrd.f:521:1: 521 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:522:1: 522 | * Copy off-diagonal elements to E and diagonal elements to D | 1 Error: Invalid character in name at (1) sgbbrd.f:523:1: 523 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:532:1: 532 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:533:1: 533 | * A is diagonal. Set elements of E to zero and copy diagonal | 1 Error: Invalid character in name at (1) sgbbrd.f:534:1: 534 | * elements to D. | 1 Error: Invalid character in name at (1) sgbbrd.f:535:1: 535 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:544:1: 544 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:545:1: 545 | * End of SGBBRD | 1 Error: Invalid character in name at (1) sgbbrd.f:546:1: 546 | * | 1 Error: Invalid character in name at (1) sgbbrd.f:347:21: 347 | AB( KU+ML-1, I ) = RA | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:391:18: 391 | WORK( J+KUN ) = WORK( J )*AB( 1, J+KUN ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:392:18: 392 | AB( 1, J+KUN ) = WORK( MN+J )*AB( 1, J+KUN ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:428:21: 428 | AB( KU-MU+3, I+MU-2 ) = RA | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:462:18: 462 | WORK( J+KB ) = WORK( J+KUN )*AB( KLU1, J+KUN ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:463:18: 463 | AB( KLU1, J+KUN ) = WORK( MN+J+KUN )*AB( KLU1, J+KUN ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:485:12: 485 | D( I ) = RA | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:487:15: 487 | E( I ) = RS*AB( 1, I+1 ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:488:15: 488 | AB( 1, I+1 ) = RC*AB( 1, I+1 ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:511:15: 511 | D( I ) = RA | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:514:18: 514 | E( I-1 ) = RC*AB( KU, I ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:525:15: 525 | E( I ) = AB( KU, I+1 ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:528:15: 528 | D( I ) = AB( KU+1, I ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:537:12: 537 | E( I ) = ZERO | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. sgbbrd.f:540:12: 540 | D( I ) = AB( 1, I ) | 1 Error: The function result on the lhs of the assignment at (1) must have the pointer attribute. make[1]: *** [sgbbrd.o] Error 1 make: *** [lapacklib] Error 2