/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