diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 7d8066c44e..84e85250e6 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -57,16 +57,16 @@ # Comment out the next 6 definitions if you already have # the Level 1 BLAS. #--------------------------------------------------------- -set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f +set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f) -set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f +set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f) -set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f +set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f) -set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f +set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f) set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f) @@ -84,20 +84,20 @@ set(ALLBLAS lsame.f xerbla.f xerbla_array.f) # Comment out the next 4 definitions if you already have # the Level 2 BLAS. #--------------------------------------------------------- -set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f - strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f +set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f + strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f sger.f ssyr.f sspr.f ssyr2.f sspr2.f) -set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f - ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f +set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f + ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f) -set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f - dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f +set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f + dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f dger.f dsyr.f dspr.f dsyr2.f dspr2.f) -set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f - ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f +set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f + ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) #--------------------------------------------------------- @@ -106,36 +106,36 @@ set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f #--------------------------------------------------------- set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f ) -set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f +set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f chemm.f cherk.f cher2k.f) set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f) -set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f +set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f zhemm.f zherk.f zher2k.f) # default build all of it -set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} - ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} +set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} + ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} ${ZBLAS2} ${ZBLAS3} ${ALLBLAS}) if(BLAS_SINGLE) - set(ALLOBJ ${SBLAS1} ${ALLBLAS} + set(ALLOBJ ${SBLAS1} ${ALLBLAS} ${SBLAS2} ${SBLAS3}) endif() if(BLAS_DOUBLE) - set(ALLOBJ ${DBLAS1} ${ALLBLAS} + set(ALLOBJ ${DBLAS1} ${ALLBLAS} ${DBLAS2} ${DBLAS3}) endif() if(BLAS_COMPLEX) - set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} + set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} ${ALLBLAS} ${CBLAS2}) endif() if(BLAS_COMPLEX16) - set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} + set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} ${ALLBLAS} ${ZBLAS2} ${ZBLAS3}) endif() - - + + add_library(blas ${ALLOBJ}) #if(UNIX) # target_link_libraries(blas m) diff --git a/BLAS/SRC/Makefile b/BLAS/SRC/Makefile index 43dbfb749d..f36e8ad932 100644 --- a/BLAS/SRC/Makefile +++ b/BLAS/SRC/Makefile @@ -56,7 +56,7 @@ include ../../make.inc ####################################################################### all: $(BLASLIB) - + #--------------------------------------------------------- # Comment out the next 6 definitions if you already have # the Level 1 BLAS. @@ -119,7 +119,7 @@ $(ZBLAS2): $(FRC) # Comment out the next 4 definitions if you already have # the Level 3 BLAS. #--------------------------------------------------------- -SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o +SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o $(SBLAS3): $(FRC) CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \ @@ -167,5 +167,5 @@ FRC: clean: rm -f *.o -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/BLAS/SRC/caxpy.f b/BLAS/SRC/caxpy.f index 7b23a3476a..d49c3e7019 100644 --- a/BLAS/SRC/caxpy.f +++ b/BLAS/SRC/caxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * COMPLEX CA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ccopy.f b/BLAS/SRC/ccopy.f index 9c11db0d97..f5ffbd0fed 100644 --- a/BLAS/SRC/ccopy.f +++ b/BLAS/SRC/ccopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cdotc.f b/BLAS/SRC/cdotc.f index 75c72a63bf..c58bebe4c1 100644 --- a/BLAS/SRC/cdotc.f +++ b/BLAS/SRC/cdotc.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/cdotu.f b/BLAS/SRC/cdotu.f index b3b21ada13..c1e27edccb 100644 --- a/BLAS/SRC/cdotu.f +++ b/BLAS/SRC/cdotu.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 2525003785..c485dc09b7 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f index 6a2c806307..1e5b352df6 100644 --- a/BLAS/SRC/cgemm.f +++ b/BLAS/SRC/cgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index 30c94758e5..c0439db651 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/cgerc.f b/BLAS/SRC/cgerc.f index a99d5b9293..c278ca1b08 100644 --- a/BLAS/SRC/cgerc.f +++ b/BLAS/SRC/cgerc.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cgeru.f b/BLAS/SRC/cgeru.f index c551782d2a..921895b067 100644 --- a/BLAS/SRC/cgeru.f +++ b/BLAS/SRC/cgeru.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f index bbfeb1fabd..072e7c891f 100644 --- a/BLAS/SRC/chbmv.f +++ b/BLAS/SRC/chbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f index 069491c992..8675033eb2 100644 --- a/BLAS/SRC/chemm.f +++ b/BLAS/SRC/chemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f index 56f8359199..4c6320c325 100644 --- a/BLAS/SRC/chemv.f +++ b/BLAS/SRC/chemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f index 8cd6f0c283..b2b82b5f77 100644 --- a/BLAS/SRC/cher.f +++ b/BLAS/SRC/cher.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f index cdbeba35ad..ae0c56be48 100644 --- a/BLAS/SRC/cher2.f +++ b/BLAS/SRC/cher2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f index 0c8218d0ae..ea23a96f59 100644 --- a/BLAS/SRC/cher2k.f +++ b/BLAS/SRC/cher2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * REAL BETA @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f index cbc59555f2..384b56ee07 100644 --- a/BLAS/SRC/cherk.f +++ b/BLAS/SRC/cherk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f index 93c03424d4..6cdcbd59fa 100644 --- a/BLAS/SRC/chpmv.f +++ b/BLAS/SRC/chpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f index 8b0cecd539..794be1ed2d 100644 --- a/BLAS/SRC/chpr.f +++ b/BLAS/SRC/chpr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f index eea346b751..6255b76a7f 100644 --- a/BLAS/SRC/chpr2.f +++ b/BLAS/SRC/chpr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/crotg.f b/BLAS/SRC/crotg.f index 1a2efd44f0..a5729f1f6a 100644 --- a/BLAS/SRC/crotg.f +++ b/BLAS/SRC/crotg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CROTG(CA,CB,C,S) -* +* * .. Scalar Arguments .. * COMPLEX CA,CB,S * REAL C * .. -* +* * *> \par Purpose: * ============= @@ -27,10 +27,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cscal.f b/BLAS/SRC/cscal.f index cceb77e967..5066022ba5 100644 --- a/BLAS/SRC/cscal.f +++ b/BLAS/SRC/cscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSCAL(N,CA,CX,INCX) -* +* * .. Scalar Arguments .. * COMPLEX CA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/csrot.f b/BLAS/SRC/csrot.f index b600d9afbe..b381c22004 100644 --- a/BLAS/SRC/csrot.f +++ b/BLAS/SRC/csrot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL C, S @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/csscal.f b/BLAS/SRC/csscal.f index f2edde8eaa..1acfd2e57e 100644 --- a/BLAS/SRC/csscal.f +++ b/BLAS/SRC/csscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSSCAL(N,SA,CX,INCX) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/cswap.f b/BLAS/SRC/cswap.f index 2e4bedf86e..d789c465be 100644 --- a/BLAS/SRC/cswap.f +++ b/BLAS/SRC/cswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f index 9d6d743afa..4461cc0852 100644 --- a/BLAS/SRC/csymm.f +++ b/BLAS/SRC/csymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f index dfa68e075d..d8c73efdfa 100644 --- a/BLAS/SRC/csyr2k.f +++ b/BLAS/SRC/csyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f index 8bf58ad2bc..ab6923a086 100644 --- a/BLAS/SRC/csyrk.f +++ b/BLAS/SRC/csyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f index 47f59d80fb..b18511dce1 100644 --- a/BLAS/SRC/ctbmv.f +++ b/BLAS/SRC/ctbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f index 3e6c663bc7..f70607a72a 100644 --- a/BLAS/SRC/ctbsv.f +++ b/BLAS/SRC/ctbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index 3df93d8f44..ca34ebbaad 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f index 40844debff..b12fd9c258 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f index b0ac1dd9f4..75e6ac2404 100644 --- a/BLAS/SRC/ctrmm.f +++ b/BLAS/SRC/ctrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f index fb4cd12841..712369a59a 100644 --- a/BLAS/SRC/ctrmv.f +++ b/BLAS/SRC/ctrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f index b87bfe3e4a..c562b972a8 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is COMPLEX array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f index 90897286b2..8e360a5eaf 100644 --- a/BLAS/SRC/ctrsv.f +++ b/BLAS/SRC/ctrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dasum.f b/BLAS/SRC/dasum.f index c1bd78ac81..27864c5b6e 100644 --- a/BLAS/SRC/dasum.f +++ b/BLAS/SRC/dasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/daxpy.f b/BLAS/SRC/daxpy.f index 64a02d68bc..023e36f4b3 100644 --- a/BLAS/SRC/daxpy.f +++ b/BLAS/SRC/daxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f index 1ea86a95cd..0b8ae486dd 100644 --- a/BLAS/SRC/dcabs1.f +++ b/BLAS/SRC/dcabs1.f @@ -2,35 +2,35 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DCABS1(Z) -* +* * .. Scalar Arguments .. * COMPLEX*16 Z * .. * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number +*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/dcopy.f b/BLAS/SRC/dcopy.f index d9d5ac7aa2..952466a0af 100644 --- a/BLAS/SRC/dcopy.f +++ b/BLAS/SRC/dcopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -85,7 +85,7 @@ SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) DY(I) = DX(I) END DO IF (N.LT.7) RETURN - END IF + END IF MP1 = M + 1 DO I = MP1,N,7 DY(I) = DX(I) @@ -96,7 +96,7 @@ SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) DY(I+5) = DX(I+5) DY(I+6) = DX(I+6) END DO - ELSE + ELSE * * code for unequal increments or equal increments * not equal to 1 diff --git a/BLAS/SRC/ddot.f b/BLAS/SRC/ddot.f index cc0c1b7a43..2228c730ba 100644 --- a/BLAS/SRC/ddot.f +++ b/BLAS/SRC/ddot.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index 1d90f50664..83449a94e1 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f index 4bae243a8f..4bd6c6fd95 100644 --- a/BLAS/SRC/dgemm.f +++ b/BLAS/SRC/dgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f index e04cc07cf1..de23f073dc 100644 --- a/BLAS/SRC/dgemv.f +++ b/BLAS/SRC/dgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/dger.f b/BLAS/SRC/dger.f index a042483703..6e6e31751e 100644 --- a/BLAS/SRC/dger.f +++ b/BLAS/SRC/dger.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dnrm2.f b/BLAS/SRC/dnrm2.f index 5ea257a200..0fe5374f34 100644 --- a/BLAS/SRC/dnrm2.f +++ b/BLAS/SRC/dnrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/drot.f b/BLAS/SRC/drot.f index 1615ef6a87..f5a9e1e01a 100644 --- a/BLAS/SRC/drot.f +++ b/BLAS/SRC/drot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION C,S * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/drotg.f b/BLAS/SRC/drotg.f index 1026151136..054b0493e4 100644 --- a/BLAS/SRC/drotg.f +++ b/BLAS/SRC/drotg.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTG(DA,DB,C,S) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION C,DA,DB,S * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index 538af67be9..080f344c24 100644 --- a/BLAS/SRC/drotm.f +++ b/BLAS/SRC/drotm.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DPARAM(5),DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f index d18d258f04..01b8edb291 100644 --- a/BLAS/SRC/drotmg.f +++ b/BLAS/SRC/drotmg.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DD1,DD2,DX1,DY1 * .. * .. Array Arguments .. * DOUBLE PRECISION DPARAM(5) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -135,7 +135,7 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) DFLAG = -TWO DPARAM(1) = DFLAG RETURN - END IF + END IF * REGULAR-CASE.. DP1 = DD1*DX1 DQ2 = DP2*DY1 @@ -203,7 +203,7 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) END IF ENDDO END IF - + IF (DD2.NE.ZERO) THEN DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) ) IF (DFLAG.EQ.ZERO) THEN @@ -223,10 +223,10 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) DD2 = DD2/GAM**2 DH21 = DH21*GAM DH22 = DH22*GAM - END IF + END IF END DO END IF - + END IF IF (DFLAG.LT.ZERO) THEN @@ -236,7 +236,7 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) DPARAM(5) = DH22 ELSE IF (DFLAG.EQ.ZERO) THEN DPARAM(3) = DH21 - DPARAM(4) = DH12 + DPARAM(4) = DH12 ELSE DPARAM(2) = DH11 DPARAM(5) = DH22 @@ -245,7 +245,7 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) DPARAM(1) = DFLAG RETURN END - - - - + + + + diff --git a/BLAS/SRC/dsbmv.f b/BLAS/SRC/dsbmv.f index 734668b09e..b74a2e2e3c 100644 --- a/BLAS/SRC/dsbmv.f +++ b/BLAS/SRC/dsbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dscal.f b/BLAS/SRC/dscal.f index 3337de8e63..e32f7bd554 100644 --- a/BLAS/SRC/dscal.f +++ b/BLAS/SRC/dscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSCAL(N,DA,DX,INCX) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsdot.f b/BLAS/SRC/dsdot.f index f95a9ab5e9..c9b67216f9 100644 --- a/BLAS/SRC/dsdot.f +++ b/BLAS/SRC/dsdot.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * AUTHORS * ======= -* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), +* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -99,7 +99,7 @@ *> *> \verbatim *> -*> +*> *> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. *> Krogh, Basic linear algebra subprograms for Fortran *> usage, Algorithm No. 539, Transactions on Mathematical @@ -133,7 +133,7 @@ DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) * * Authors: * ======== -* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), +* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) * * ===================================================================== diff --git a/BLAS/SRC/dspmv.f b/BLAS/SRC/dspmv.f index fd3e2a04d9..dc97b8ac97 100644 --- a/BLAS/SRC/dspmv.f +++ b/BLAS/SRC/dspmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dspr.f b/BLAS/SRC/dspr.f index 6a575e7d5f..d934514d3e 100644 --- a/BLAS/SRC/dspr.f +++ b/BLAS/SRC/dspr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dspr2.f b/BLAS/SRC/dspr2.f index 5861b29ace..b1c0f1bb06 100644 --- a/BLAS/SRC/dspr2.f +++ b/BLAS/SRC/dspr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dswap.f b/BLAS/SRC/dswap.f index e567bd93ec..2ff4a8bdcd 100644 --- a/BLAS/SRC/dswap.f +++ b/BLAS/SRC/dswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f index ee8df4df4b..599bef03b6 100644 --- a/BLAS/SRC/dsymm.f +++ b/BLAS/SRC/dsymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsymv.f b/BLAS/SRC/dsymv.f index 5522023834..4fbbd04175 100644 --- a/BLAS/SRC/dsymv.f +++ b/BLAS/SRC/dsymv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsyr.f b/BLAS/SRC/dsyr.f index 0b8a762817..0219691be3 100644 --- a/BLAS/SRC/dsyr.f +++ b/BLAS/SRC/dsyr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsyr2.f b/BLAS/SRC/dsyr2.f index 05e148105c..b25c798a2f 100644 --- a/BLAS/SRC/dsyr2.f +++ b/BLAS/SRC/dsyr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsyr2k.f b/BLAS/SRC/dsyr2k.f index 2dde293eae..f090d2f7c8 100644 --- a/BLAS/SRC/dsyr2k.f +++ b/BLAS/SRC/dsyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dsyrk.f b/BLAS/SRC/dsyrk.f index d91c3369f6..2e31325e0a 100644 --- a/BLAS/SRC/dsyrk.f +++ b/BLAS/SRC/dsyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f index 851f44570b..b7150ba846 100644 --- a/BLAS/SRC/dtbmv.f +++ b/BLAS/SRC/dtbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f index 5e25a927b8..9d07679ffb 100644 --- a/BLAS/SRC/dtbsv.f +++ b/BLAS/SRC/dtbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f index 905d748ce4..8487c46240 100644 --- a/BLAS/SRC/dtpmv.f +++ b/BLAS/SRC/dtpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f index 9376f21a04..a45a7303e8 100644 --- a/BLAS/SRC/dtpsv.f +++ b/BLAS/SRC/dtpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f index cbd5ce7034..b89766ea60 100644 --- a/BLAS/SRC/dtrmm.f +++ b/BLAS/SRC/dtrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f index 5eb2f404dc..e56190ee89 100644 --- a/BLAS/SRC/dtrmv.f +++ b/BLAS/SRC/dtrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f index 065df9a153..eaeb1ae112 100644 --- a/BLAS/SRC/dtrsm.f +++ b/BLAS/SRC/dtrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f index e54303a93a..2d1e149b2f 100644 --- a/BLAS/SRC/dtrsv.f +++ b/BLAS/SRC/dtrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/dzasum.f b/BLAS/SRC/dzasum.f index fe5faaa63a..4f358ea9ba 100644 --- a/BLAS/SRC/dzasum.f +++ b/BLAS/SRC/dzasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/dznrm2.f b/BLAS/SRC/dznrm2.f index b5713a2bfa..55126cc661 100644 --- a/BLAS/SRC/dznrm2.f +++ b/BLAS/SRC/dznrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/icamax.f b/BLAS/SRC/icamax.f index e9dee107b5..6ef42afbe1 100644 --- a/BLAS/SRC/icamax.f +++ b/BLAS/SRC/icamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ICAMAX(N,CX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/idamax.f b/BLAS/SRC/idamax.f index 845a71b5e5..f2ac6096dd 100644 --- a/BLAS/SRC/idamax.f +++ b/BLAS/SRC/idamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION IDAMAX(N,DX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/isamax.f b/BLAS/SRC/isamax.f index 79d944b986..effd7c70f1 100644 --- a/BLAS/SRC/isamax.f +++ b/BLAS/SRC/isamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ISAMAX(N,SX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/izamax.f b/BLAS/SRC/izamax.f index 71cb2a6641..f1d66faf02 100644 --- a/BLAS/SRC/izamax.f +++ b/BLAS/SRC/izamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION IZAMAX(N,ZX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/lsame.f b/BLAS/SRC/lsame.f index f19f9cda9e..61e442bcba 100644 --- a/BLAS/SRC/lsame.f +++ b/BLAS/SRC/lsame.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION LSAME(CA,CB) -* +* * .. Scalar Arguments .. * CHARACTER CA,CB * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sasum.f b/BLAS/SRC/sasum.f index 46a4ecc1b6..c8387845f8 100644 --- a/BLAS/SRC/sasum.f +++ b/BLAS/SRC/sasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SASUM(N,SX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/saxpy.f b/BLAS/SRC/saxpy.f index 3fd45d73f5..3a7b60df34 100644 --- a/BLAS/SRC/saxpy.f +++ b/BLAS/SRC/saxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/scabs1.f b/BLAS/SRC/scabs1.f index d76aeb6572..ae3899bbd1 100644 --- a/BLAS/SRC/scabs1.f +++ b/BLAS/SRC/scabs1.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCABS1(Z) -* +* * .. Scalar Arguments .. * COMPLEX Z * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/scasum.f b/BLAS/SRC/scasum.f index 7601b10a5b..e3e0878166 100644 --- a/BLAS/SRC/scasum.f +++ b/BLAS/SRC/scasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCASUM(N,CX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/scnrm2.f b/BLAS/SRC/scnrm2.f index 4a581e8e17..1d38f65a32 100644 --- a/BLAS/SRC/scnrm2.f +++ b/BLAS/SRC/scnrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/scopy.f b/BLAS/SRC/scopy.f index 3376fb0192..078625dfe8 100644 --- a/BLAS/SRC/scopy.f +++ b/BLAS/SRC/scopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -85,7 +85,7 @@ SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) SY(I) = SX(I) END DO IF (N.LT.7) RETURN - END IF + END IF MP1 = M + 1 DO I = MP1,N,7 SY(I) = SX(I) @@ -96,7 +96,7 @@ SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) SY(I+5) = SX(I+5) SY(I+6) = SX(I+6) END DO - ELSE + ELSE * * code for unequal increments or equal increments * not equal to 1 diff --git a/BLAS/SRC/sdot.f b/BLAS/SRC/sdot.f index 68555aad86..acf78cecca 100644 --- a/BLAS/SRC/sdot.f +++ b/BLAS/SRC/sdot.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sdsdot.f b/BLAS/SRC/sdsdot.f index 39d3a2e6cb..f4c9a8ba84 100644 --- a/BLAS/SRC/sdsdot.f +++ b/BLAS/SRC/sdsdot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * REAL SB * INTEGER INCX,INCY,N @@ -17,59 +17,59 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * PURPOSE * ======= -* +* * Compute the inner product of two vectors with extended * precision accumulation. -* +* * Returns S.P. result with dot product accumulated in D.P. * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is * defined in a similar way using INCY. -* +* * AUTHOR * ====== * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) -* -* ARGUMENTS +* +* ARGUMENTS * ========= -* +* * N (input) INTEGER * number of elements in input vector(s) -* +* * SB (input) REAL * single precision scalar to be added to inner product -* +* * SX (input) REAL array, dimension (N) * single precision vector with N elements -* +* * INCX (input) INTEGER * storage spacing between elements of SX -* +* * SY (input) REAL array, dimension (N) * single precision vector with N elements -* +* * INCY (input) INTEGER * storage spacing between elements of SY -* +* * SDSDOT (output) REAL * single precision dot product (SB if N .LE. 0) -* +* * Further Details * =============== -* +* * REFERENCES -* +* * C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. * Krogh, Basic linear algebra subprograms for Fortran * usage, Algorithm No. 539, Transactions on Mathematical * Software 5, 3 (September 1979), pp. 308-323. -* +* * REVISION HISTORY (YYMMDD) -* +* * 791001 DATE WRITTEN * 890531 Changed all specific intrinsics to generic. (WRB) * 890831 Modified array declarations. (WRB) @@ -78,9 +78,9 @@ * 920310 Corrected definition of LX in DESCRIPTION. (WRB) * 920501 Reformatted the REFERENCES section. (WRB) * 070118 Reformat to LAPACK coding style -* +* * ===================================================================== -* +* * .. Local Scalars .. * DOUBLE PRECISION DSDOT * INTEGER I,KX,KY,NS @@ -92,19 +92,19 @@ * IF (N.LE.0) THEN * SDSDOT = DSDOT * RETURN -* END IF +* END IF * IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN -* +* * Code for equal and positive increments. -* +* * NS = N*INCX * DO I = 1,NS,INCX * DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I)) * END DO * ELSE -* +* * Code for unequal or nonpositive increments. -* +* * KX = 1 * KY = 1 * IF (INCX.LT.0) KX = 1 + (1-N)*INCX @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -169,7 +169,7 @@ REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) * -* ARGUMENTS +* ARGUMENTS * ========= * * N (input) INTEGER @@ -204,7 +204,7 @@ REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) * Software 5, 3 (September 1979), pp. 308-323. * * REVISION HISTORY (YYMMDD) -* +* * 791001 DATE WRITTEN * 890531 Changed all specific intrinsics to generic. (WRB) * 890831 Modified array declarations. (WRB) @@ -227,7 +227,7 @@ REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) IF (N.LE.0) THEN SDSDOT = DSDOT RETURN - END IF + END IF IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN * * Code for equal and positive increments. diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index 51fe8527e8..fa13b7a329 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f index e310110013..bee5e936a1 100644 --- a/BLAS/SRC/sgemm.f +++ b/BLAS/SRC/sgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f index 1d47e82d98..8e5bfa95d4 100644 --- a/BLAS/SRC/sgemv.f +++ b/BLAS/SRC/sgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/sger.f b/BLAS/SRC/sger.f index cf85ffdc0b..f075033a21 100644 --- a/BLAS/SRC/sger.f +++ b/BLAS/SRC/sger.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/snrm2.f b/BLAS/SRC/snrm2.f index a3674a6d7e..18702ee012 100644 --- a/BLAS/SRC/snrm2.f +++ b/BLAS/SRC/snrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/srot.f b/BLAS/SRC/srot.f index c326e1c789..5b5677fcf8 100644 --- a/BLAS/SRC/srot.f +++ b/BLAS/SRC/srot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) -* +* * .. Scalar Arguments .. * REAL C,S * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/srotg.f b/BLAS/SRC/srotg.f index 90ba220ebf..27f54b6a15 100644 --- a/BLAS/SRC/srotg.f +++ b/BLAS/SRC/srotg.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTG(SA,SB,C,S) -* +* * .. Scalar Arguments .. * REAL C,S,SA,SB * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f index f465f4483a..dbd560123a 100644 --- a/BLAS/SRC/srotm.f +++ b/BLAS/SRC/srotm.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SPARAM(5),SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/srotmg.f b/BLAS/SRC/srotmg.f index 9a41e0a9dc..69d535ff2f 100644 --- a/BLAS/SRC/srotmg.f +++ b/BLAS/SRC/srotmg.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) -* +* * .. Scalar Arguments .. * REAL SD1,SD2,SX1,SY1 * .. * .. Array Arguments .. * REAL SPARAM(5) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -135,7 +135,7 @@ SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) SFLAG = -TWO SPARAM(1) = SFLAG RETURN - END IF + END IF * REGULAR-CASE.. SP1 = SD1*SX1 SQ2 = SP2*SY1 @@ -203,7 +203,7 @@ SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) END IF ENDDO END IF - + IF (SD2.NE.ZERO) THEN DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) IF (SFLAG.EQ.ZERO) THEN @@ -223,10 +223,10 @@ SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) SD2 = SD2/GAM**2 SH21 = SH21*GAM SH22 = SH22*GAM - END IF + END IF END DO END IF - + END IF IF (SFLAG.LT.ZERO) THEN @@ -236,7 +236,7 @@ SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) SPARAM(5) = SH22 ELSE IF (SFLAG.EQ.ZERO) THEN SPARAM(3) = SH21 - SPARAM(4) = SH12 + SPARAM(4) = SH12 ELSE SPARAM(2) = SH11 SPARAM(5) = SH22 @@ -245,7 +245,7 @@ SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) SPARAM(1) = SFLAG RETURN END - - - - + + + + diff --git a/BLAS/SRC/ssbmv.f b/BLAS/SRC/ssbmv.f index 483f80bfd9..cc20c2c964 100644 --- a/BLAS/SRC/ssbmv.f +++ b/BLAS/SRC/ssbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sscal.f b/BLAS/SRC/sscal.f index b4b086252b..7031590630 100644 --- a/BLAS/SRC/sscal.f +++ b/BLAS/SRC/sscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSCAL(N,SA,SX,INCX) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sspmv.f b/BLAS/SRC/sspmv.f index b19f902b72..82ae66b2f0 100644 --- a/BLAS/SRC/sspmv.f +++ b/BLAS/SRC/sspmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sspr.f b/BLAS/SRC/sspr.f index 9350cea0b5..ac56f51202 100644 --- a/BLAS/SRC/sspr.f +++ b/BLAS/SRC/sspr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sspr2.f b/BLAS/SRC/sspr2.f index 50fa67c489..9355b3f81b 100644 --- a/BLAS/SRC/sspr2.f +++ b/BLAS/SRC/sspr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/sswap.f b/BLAS/SRC/sswap.f index ad5a7f5c61..dcd89ab6db 100644 --- a/BLAS/SRC/sswap.f +++ b/BLAS/SRC/sswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSWAP(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f index ac10d0b347..8f142d2c1c 100644 --- a/BLAS/SRC/ssymm.f +++ b/BLAS/SRC/ssymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssymv.f b/BLAS/SRC/ssymv.f index 2b9ef1775f..5ce9e35158 100644 --- a/BLAS/SRC/ssymv.f +++ b/BLAS/SRC/ssymv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssyr.f b/BLAS/SRC/ssyr.f index 18a1a913be..79f14a49ba 100644 --- a/BLAS/SRC/ssyr.f +++ b/BLAS/SRC/ssyr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssyr2.f b/BLAS/SRC/ssyr2.f index 4c90ae8fcd..a2273509e0 100644 --- a/BLAS/SRC/ssyr2.f +++ b/BLAS/SRC/ssyr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssyr2k.f b/BLAS/SRC/ssyr2k.f index 435e9969b0..3271100b9e 100644 --- a/BLAS/SRC/ssyr2k.f +++ b/BLAS/SRC/ssyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f index c428029d32..f09b521bce 100644 --- a/BLAS/SRC/ssyrk.f +++ b/BLAS/SRC/ssyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f index 12c15429a9..b6317bb8d2 100644 --- a/BLAS/SRC/stbmv.f +++ b/BLAS/SRC/stbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f index 4c313479e2..ade4000dd4 100644 --- a/BLAS/SRC/stbsv.f +++ b/BLAS/SRC/stbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f index d712a99e70..3c731d3d6f 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f index 9c58591c6e..13d88be56f 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f index e713d19518..7a262d5bb7 100644 --- a/BLAS/SRC/strmm.f +++ b/BLAS/SRC/strmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f index 2fe99018c6..d51bf71d8d 100644 --- a/BLAS/SRC/strmv.f +++ b/BLAS/SRC/strmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f index dad4bb0573..03a61153af 100644 --- a/BLAS/SRC/strsm.f +++ b/BLAS/SRC/strsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is REAL array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f index 03262fb043..e8d48922b7 100644 --- a/BLAS/SRC/strsv.f +++ b/BLAS/SRC/strsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/xerbla.f b/BLAS/SRC/xerbla.f index eb1c037d27..5c22f3d4fd 100644 --- a/BLAS/SRC/xerbla.f +++ b/BLAS/SRC/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -48,10 +48,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/xerbla_array.f b/BLAS/SRC/xerbla_array.f index e2145a6cca..21d03696a2 100644 --- a/BLAS/SRC/xerbla_array.f +++ b/BLAS/SRC/xerbla_array.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO) -* +* * .. Scalar Arguments .. * INTEGER SRNAME_LEN, INFO * .. * .. Array Arguments .. * CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN) * .. -* +* * *> \par Purpose: * ============= @@ -68,10 +68,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zaxpy.f b/BLAS/SRC/zaxpy.f index e6f5e1f6db..e357b95c25 100644 --- a/BLAS/SRC/zaxpy.f +++ b/BLAS/SRC/zaxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZAXPY(N,ZA,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ZA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zcopy.f b/BLAS/SRC/zcopy.f index baeafd5c3b..6a21337dd4 100644 --- a/BLAS/SRC/zcopy.f +++ b/BLAS/SRC/zcopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCOPY(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zdotc.f b/BLAS/SRC/zdotc.f index a425b471d1..2793ecb667 100644 --- a/BLAS/SRC/zdotc.f +++ b/BLAS/SRC/zdotc.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZDOTC(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/zdotu.f b/BLAS/SRC/zdotu.f index 8ea711536b..9401b3f423 100644 --- a/BLAS/SRC/zdotu.f +++ b/BLAS/SRC/zdotu.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZDOTU(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/zdrot.f b/BLAS/SRC/zdrot.f index f8bdcd79d6..cfaf17bc99 100644 --- a/BLAS/SRC/zdrot.f +++ b/BLAS/SRC/zdrot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION C, S @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zdscal.f b/BLAS/SRC/zdscal.f index 57a9490237..26db2d34fe 100644 --- a/BLAS/SRC/zdscal.f +++ b/BLAS/SRC/zdscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDSCAL(N,DA,ZX,INCX) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 130d30f406..b24c9539d2 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f index 0f16f72368..d17fbdeef9 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f index bbab583553..f615d25b3c 100644 --- a/BLAS/SRC/zgemv.f +++ b/BLAS/SRC/zgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/BLAS/SRC/zgerc.f b/BLAS/SRC/zgerc.f index accfeafc05..e6d197de7f 100644 --- a/BLAS/SRC/zgerc.f +++ b/BLAS/SRC/zgerc.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zgeru.f b/BLAS/SRC/zgeru.f index bf23ed7f07..6286db13af 100644 --- a/BLAS/SRC/zgeru.f +++ b/BLAS/SRC/zgeru.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhbmv.f b/BLAS/SRC/zhbmv.f index 6a668c205f..8f1ff750ae 100644 --- a/BLAS/SRC/zhbmv.f +++ b/BLAS/SRC/zhbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f index 77abea143e..c2e2ba945c 100644 --- a/BLAS/SRC/zhemm.f +++ b/BLAS/SRC/zhemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhemv.f b/BLAS/SRC/zhemv.f index 34216fbfff..c4a3420cec 100644 --- a/BLAS/SRC/zhemv.f +++ b/BLAS/SRC/zhemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zher.f b/BLAS/SRC/zher.f index 0edc1191bf..f5d15eabbf 100644 --- a/BLAS/SRC/zher.f +++ b/BLAS/SRC/zher.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zher2.f b/BLAS/SRC/zher2.f index e2a02c3c68..fceccbaa74 100644 --- a/BLAS/SRC/zher2.f +++ b/BLAS/SRC/zher2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zher2k.f b/BLAS/SRC/zher2k.f index 0b91bd2cbb..b8ad2d57d4 100644 --- a/BLAS/SRC/zher2k.f +++ b/BLAS/SRC/zher2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * DOUBLE PRECISION BETA @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zherk.f b/BLAS/SRC/zherk.f index 7e561e812a..e62b74a214 100644 --- a/BLAS/SRC/zherk.f +++ b/BLAS/SRC/zherk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhpmv.f b/BLAS/SRC/zhpmv.f index 23dad36681..e52326d7fe 100644 --- a/BLAS/SRC/zhpmv.f +++ b/BLAS/SRC/zhpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhpr.f b/BLAS/SRC/zhpr.f index 42e61196ba..85f8179499 100644 --- a/BLAS/SRC/zhpr.f +++ b/BLAS/SRC/zhpr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zhpr2.f b/BLAS/SRC/zhpr2.f index 2c6f353bc0..093c5c7167 100644 --- a/BLAS/SRC/zhpr2.f +++ b/BLAS/SRC/zhpr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zrotg.f b/BLAS/SRC/zrotg.f index ca03e0684a..4dc38173e4 100644 --- a/BLAS/SRC/zrotg.f +++ b/BLAS/SRC/zrotg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZROTG(CA,CB,C,S) -* +* * .. Scalar Arguments .. * COMPLEX*16 CA,CB,S * DOUBLE PRECISION C * .. -* +* * *> \par Purpose: * ============= @@ -27,10 +27,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zscal.f b/BLAS/SRC/zscal.f index ad28a10a9b..84113c4a09 100644 --- a/BLAS/SRC/zscal.f +++ b/BLAS/SRC/zscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSCAL(N,ZA,ZX,INCX) -* +* * .. Scalar Arguments .. * COMPLEX*16 ZA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zswap.f b/BLAS/SRC/zswap.f index ca2f347211..2e68e4afc0 100644 --- a/BLAS/SRC/zswap.f +++ b/BLAS/SRC/zswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSWAP(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f index b0ff42e657..f88f6e8084 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zsyr2k.f b/BLAS/SRC/zsyr2k.f index f46ede1236..99559eb73e 100644 --- a/BLAS/SRC/zsyr2k.f +++ b/BLAS/SRC/zsyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/zsyrk.f b/BLAS/SRC/zsyrk.f index c3484f9943..d08df1deae 100644 --- a/BLAS/SRC/zsyrk.f +++ b/BLAS/SRC/zsyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f index 6c52da452c..60afc5ded8 100644 --- a/BLAS/SRC/ztbmv.f +++ b/BLAS/SRC/ztbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f index ea2721953a..89c839d88e 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f index 547dc01240..71de986c13 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f index 0e75f9facf..caa54cb3b8 100644 --- a/BLAS/SRC/ztpsv.f +++ b/BLAS/SRC/ztpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f index ba7aead68b..7c879103cb 100644 --- a/BLAS/SRC/ztrmm.f +++ b/BLAS/SRC/ztrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f index fd9263ce1e..2e4cd9f857 100644 --- a/BLAS/SRC/ztrmv.f +++ b/BLAS/SRC/ztrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f index 8e0125467e..ac995cc884 100644 --- a/BLAS/SRC/ztrsm.f +++ b/BLAS/SRC/ztrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is COMPLEX*16 array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f index f9fd4f8407..5d1f760b6e 100644 --- a/BLAS/SRC/ztrsv.f +++ b/BLAS/SRC/ztrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/BLAS/TESTING/CMakeLists.txt b/BLAS/TESTING/CMakeLists.txt index b6e5a5c250..2b7a6a60ae 100644 --- a/BLAS/TESTING/CMakeLists.txt +++ b/BLAS/TESTING/CMakeLists.txt @@ -38,7 +38,7 @@ macro(add_blas_test name src) -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") else() - add_test(NAME BLAS-${name} COMMAND "${CMAKE_COMMAND}" + add_test(NAME BLAS-${name} COMMAND "${CMAKE_COMMAND}" -DTEST=$ -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") diff --git a/BLAS/TESTING/Makeblat1 b/BLAS/TESTING/Makeblat1 index 4492d8fe4f..573a289145 100644 --- a/BLAS/TESTING/Makeblat1 +++ b/BLAS/TESTING/Makeblat1 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 1 routines. # The test files are grouped as follows: @@ -28,11 +28,11 @@ include ../../make.inc # ####################################################################### -SBLAT1 = sblat1.o +SBLAT1 = sblat1.o -CBLAT1 = cblat1.o +CBLAT1 = cblat1.o -DBLAT1 = dblat1.o +DBLAT1 = dblat1.o ZBLAT1 = zblat1.o @@ -47,28 +47,28 @@ complex16: ../xblat1z $(LOADER) $(LOADOPTS) $(SBLAT1) \ $(BLASLIB) -o ../xblat1s -../xblat1c: $(CBLAT1) +../xblat1c: $(CBLAT1) $(LOADER) $(LOADOPTS) $(CBLAT1) \ $(BLASLIB) -o ../xblat1c - -../xblat1d: $(DBLAT1) + +../xblat1d: $(DBLAT1) $(LOADER) $(LOADOPTS) $(DBLAT1) \ $(BLASLIB) -o ../xblat1d - -../xblat1z: $(ZBLAT1) + +../xblat1z: $(ZBLAT1) $(LOADER) $(LOADOPTS) $(ZBLAT1) \ $(BLASLIB) -o ../xblat1z - + $(SBLAT1): $(FRC) $(CBLAT1): $(FRC) $(DBLAT1): $(FRC) $(ZBLAT1): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/BLAS/TESTING/Makeblat2 b/BLAS/TESTING/Makeblat2 index 9308993c24..2c62684ce2 100644 --- a/BLAS/TESTING/Makeblat2 +++ b/BLAS/TESTING/Makeblat2 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 2 routines. # The test files are grouped as follows: @@ -28,11 +28,11 @@ include ../../make.inc # ####################################################################### -SBLAT2 = sblat2.o +SBLAT2 = sblat2.o -CBLAT2 = cblat2.o +CBLAT2 = cblat2.o -DBLAT2 = dblat2.o +DBLAT2 = dblat2.o ZBLAT2 = zblat2.o @@ -47,28 +47,28 @@ complex16: ../xblat2z $(LOADER) $(LOADOPTS) $(SBLAT2) \ $(BLASLIB) -o ../xblat2s -../xblat2c: $(CBLAT2) +../xblat2c: $(CBLAT2) $(LOADER) $(LOADOPTS) $(CBLAT2) \ $(BLASLIB) -o ../xblat2c - -../xblat2d: $(DBLAT2) + +../xblat2d: $(DBLAT2) $(LOADER) $(LOADOPTS) $(DBLAT2) \ $(BLASLIB) -o ../xblat2d - -../xblat2z: $(ZBLAT2) + +../xblat2z: $(ZBLAT2) $(LOADER) $(LOADOPTS) $(ZBLAT2) \ $(BLASLIB) -o ../xblat2z - + $(SBLAT2): $(FRC) $(CBLAT2): $(FRC) $(DBLAT2): $(FRC) $(ZBLAT2): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/BLAS/TESTING/Makeblat3 b/BLAS/TESTING/Makeblat3 index 02e3b87caf..8ee1212a5b 100644 --- a/BLAS/TESTING/Makeblat3 +++ b/BLAS/TESTING/Makeblat3 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 3 routines. # The test files are grouped as follows: @@ -30,9 +30,9 @@ include ../../make.inc SBLAT3 = sblat3.o -CBLAT3 = cblat3.o +CBLAT3 = cblat3.o -DBLAT3 = dblat3.o +DBLAT3 = dblat3.o ZBLAT3 = zblat3.o @@ -47,28 +47,28 @@ complex16: ../xblat3z $(LOADER) $(LOADOPTS) $(SBLAT3) \ $(BLASLIB) -o ../xblat3s -../xblat3c: $(CBLAT3) +../xblat3c: $(CBLAT3) $(LOADER) $(LOADOPTS) $(CBLAT3) \ $(BLASLIB) -o ../xblat3c - -../xblat3d: $(DBLAT3) + +../xblat3d: $(DBLAT3) $(LOADER) $(LOADOPTS) $(DBLAT3) \ $(BLASLIB) -o ../xblat3d - -../xblat3z: $(ZBLAT3) + +../xblat3z: $(ZBLAT3) $(LOADER) $(LOADOPTS) $(ZBLAT3) \ $(BLASLIB) -o ../xblat3z - + $(SBLAT3): $(FRC) $(CBLAT3): $(FRC) $(DBLAT3): $(FRC) $(ZBLAT3): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/BLAS/TESTING/cblat1.f b/BLAS/TESTING/cblat1.f index 8ca67fb199..983c858e2d 100644 --- a/BLAS/TESTING/cblat1.f +++ b/BLAS/TESTING/cblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f index 5833ea81ae..73b4a8ebce 100644 --- a/BLAS/TESTING/cblat2.f +++ b/BLAS/TESTING/cblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT2 -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f index 09f2cb9c5c..9ec757db8f 100644 --- a/BLAS/TESTING/cblat3.f +++ b/BLAS/TESTING/cblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT3 -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/dblat1.f b/BLAS/TESTING/dblat1.f index 30691f9bff..cd48e28e06 100644 --- a/BLAS/TESTING/dblat1.f +++ b/BLAS/TESTING/dblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -345,7 +345,7 @@ SUBROUTINE CHECK2(SFAC) * .. Local Scalars .. DOUBLE PRECISION SA INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, - $ MX, MY + $ MX, MY * .. Local Arrays .. DOUBLE PRECISION DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4), $ DT8(7,4,4), DX1(7), @@ -589,7 +589,7 @@ SUBROUTINE CHECK2(SFAC) M .7D0, -.9D0, 1.2D0, .7D0, -1.5D0, .2D0, 1.6D0, N 1.7D0, -.9D0, .5D0, .7D0, -1.6D0, .2D0, 2.4D0, O -2.6D0, -.9D0, -1.3D0, .7D0, 2.9D0, .2D0, -4.0D0 / -* +* * .. Executable Statements .. * DO 120 KI = 1, 4 diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f index 0fa80afa4d..bdeac953b4 100644 --- a/BLAS/TESTING/dblat2.f +++ b/BLAS/TESTING/dblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT2 -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f index 8d37c74531..308e7e5642 100644 --- a/BLAS/TESTING/dblat3.f +++ b/BLAS/TESTING/dblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT3 -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/sblat1.f b/BLAS/TESTING/sblat1.f index 6657c26930..d5746a7def 100644 --- a/BLAS/TESTING/sblat1.f +++ b/BLAS/TESTING/sblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -345,7 +345,7 @@ SUBROUTINE CHECK2(SFAC) * .. Local Scalars .. REAL SA INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, - $ MX, MY + $ MX, MY * .. Local Arrays .. REAL DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4), $ DT8(7,4,4), DX1(7), diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f index 71605ed312..11bd59d431 100644 --- a/BLAS/TESTING/sblat2.f +++ b/BLAS/TESTING/sblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT2 -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -2925,7 +2925,7 @@ SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, WRITE( NOUT, FMT = 9998 )I, YT( I ), $ YY( 1 + ( I - 1 )*ABS( INCY ) ) ELSE - WRITE( NOUT, FMT = 9998 )I, + WRITE( NOUT, FMT = 9998 )I, $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) END IF 60 CONTINUE diff --git a/BLAS/TESTING/sblat3.f b/BLAS/TESTING/sblat3.f index 8792696337..8934bed0b0 100644 --- a/BLAS/TESTING/sblat3.f +++ b/BLAS/TESTING/sblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT3 -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/zblat1.f b/BLAS/TESTING/zblat1.f index d30112c637..6c37e7b5db 100644 --- a/BLAS/TESTING/zblat1.f +++ b/BLAS/TESTING/zblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f index 53129a11e9..65ba78545a 100644 --- a/BLAS/TESTING/zblat2.f +++ b/BLAS/TESTING/zblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT2 -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f index 59ca241456..133a2da2e8 100644 --- a/BLAS/TESTING/zblat3.f +++ b/BLAS/TESTING/zblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT3 -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> ZHER2K T PUT F FOR NO TEST. SAME COLUMNS. *> ZSYR2K T PUT F FOR NO TEST. SAME COLUMNS. *> -*> +*> *> Further Details *> =============== *> @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/CBLAS/CMakeLists.txt b/CBLAS/CMakeLists.txt index 5dac73342d..b014270a4d 100644 --- a/CBLAS/CMakeLists.txt +++ b/CBLAS/CMakeLists.txt @@ -7,7 +7,7 @@ set(LAPACK_INSTALL_EXPORT_NAME cblas-targets) include(FortranCInterface) ## Ensure that the fortran compiler and c compiler specified are compatible FortranCInterface_VERIFY() -FortranCInterface_HEADER( ${LAPACK_BINARY_DIR}/include/cblas_mangling.h +FortranCInterface_HEADER( ${LAPACK_BINARY_DIR}/include/cblas_mangling.h MACRO_NAMESPACE "F77_" SYMBOL_NAMESPACE "F77_" ) if( NOT FortranCInterface_GLOBAL_FOUND OR NOT FortranCInterface_MODULE_FOUND) diff --git a/CBLAS/Makefile b/CBLAS/Makefile index 3da723c34d..c4ab4e87b8 100644 --- a/CBLAS/Makefile +++ b/CBLAS/Makefile @@ -22,6 +22,6 @@ cblas_testing: runtst: cd testing && $(MAKE) run - + example: all cd examples && make all diff --git a/CBLAS/Makefile.in b/CBLAS/Makefile.in index fe01430445..8fb9d13965 100644 --- a/CBLAS/Makefile.in +++ b/CBLAS/Makefile.in @@ -5,7 +5,7 @@ # If you compile, change the name to Makefile.in. # # - + #----------------------------------------------------------------------------- # Shell #----------------------------------------------------------------------------- @@ -21,7 +21,7 @@ PLAT = LINUX #----------------------------------------------------------------------------- # Libraries and includes #----------------------------------------------------------------------------- - + BLLIB = $(home)/lib/librefblas.a CBLIB = ../lib/libcblas.a @@ -38,7 +38,7 @@ LOADER = $(FC) #----------------------------------------------------------------------------- CFLAGS = -O3 -DADD_ -FFLAGS = -O3 +FFLAGS = -O3 #----------------------------------------------------------------------------- # Archive programs and flags diff --git a/CBLAS/README b/CBLAS/README index 2ad513b557..6c87ed6943 100644 --- a/CBLAS/README +++ b/CBLAS/README @@ -6,25 +6,25 @@ INSTALLATION BLASLIB is your Legacy BLAS library (by default the Reference BLAS shipped within LAPACK) Then type: - + prompt> make - + which will create the CBLAS library. CREATING THE TESTERS type: - + prompt> make cblas_testing - + This will create the BLAS library if necessary, then compile the CBLAS testings. EXECUTING THE TESTERS type: - + prompt> make runtst - + _______________________________________________________________________________ This package contains C interface to Legacy BLAS. @@ -34,7 +34,7 @@ _______________________________________________________________________________ This release updates an inconsistency between the BLAST document and the interface. According to the document, the enumerated types for - the C interface to the BLAS are not typedef'ed. + the C interface to the BLAS are not typedef'ed. It also updates the Level 2 and 3 testers which check for correct exiting of routines when called with bad arguments. This is done by @@ -56,4 +56,4 @@ _______________________________________________________________________________ Updated by Julie Langou (08/22/2014): Integrate CBLAS package into LAPACK -Improve headers for mangling +Improve headers for mangling diff --git a/CBLAS/cmake/tmp.jIUCyIMYeG b/CBLAS/cmake/tmp.jIUCyIMYeG new file mode 100644 index 0000000000..e69de29bb2 diff --git a/CBLAS/examples/Makefile b/CBLAS/examples/Makefile index cd75a6ea95..61a00c97c5 100644 --- a/CBLAS/examples/Makefile +++ b/CBLAS/examples/Makefile @@ -2,13 +2,13 @@ include ../../make.inc all: example1 example2 -example1: +example1: $(CC) -c $(CFLAGS) -I../include cblas_example1.c $(LOADER) -o cblas_ex1 cblas_example1.o $(CBLASLIB) $(BLASLIB) -example2: +example2: $(CC) -c $(CFLAGS) -I../include cblas_example2.c $(LOADER) -o cblas_ex2 cblas_example2.o $(CBLASLIB) $(BLASLIB) - + cleanall: rm -f *.o cblas_ex1 cblas_ex2 diff --git a/CBLAS/examples/cblas_example1.c b/CBLAS/examples/cblas_example1.c index 0b0cc6c681..c3acd554d4 100644 --- a/CBLAS/examples/cblas_example1.c +++ b/CBLAS/examples/cblas_example1.c @@ -39,7 +39,7 @@ int main ( ) a[m+3] = 1; /* The elements of the third column */ a[m*2] = 3; - a[m*2+1] = 4; + a[m*2+1] = 4; a[m*2+2] = 5; a[m*2+3] = 6; /* The elements of the fourth column */ @@ -47,7 +47,7 @@ int main ( ) a[m*3+1] = 6; a[m*3+2] = 7; a[m*3+3] = 8; - /* The elemetns of x and y */ + /* The elemetns of x and y */ x[0] = 1; x[1] = 2; x[2] = 1; @@ -56,11 +56,11 @@ int main ( ) y[1] = 0; y[2] = 0; y[3] = 0; - + cblas_dgemv( Layout, transa, m, n, alpha, a, lda, x, incx, beta, y, incy ); /* Print y */ - for( i = 0; i < n; i++ ) + for( i = 0; i < n; i++ ) printf(" y%d = %f\n", i, y[i]); free(a); free(x); diff --git a/CBLAS/examples/cblas_example2.c b/CBLAS/examples/cblas_example2.c index d3b35f2ebc..d2c28d53f3 100644 --- a/CBLAS/examples/cblas_example2.c +++ b/CBLAS/examples/cblas_example2.c @@ -10,16 +10,16 @@ int main (int argc, char **argv ) { int rout=-1,info=0,m,n,k,lda,ldb,ldc; - double A[2] = {0.0,0.0}, - B[2] = {0.0,0.0}, - C[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + B[2] = {0.0,0.0}, + C[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; - + if (argc > 2){ rout = atoi(argv[1]); info = atoi(argv[2]); } - + if (rout == 1) { if (info==0) { printf("Checking if cblas_dgemm fails on parameter 4\n"); @@ -67,6 +67,6 @@ int main (int argc, char **argv ) &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); } } - + return 0; } diff --git a/CBLAS/include/cblas.h b/CBLAS/include/cblas.h index 7523a779e5..9e937964ed 100644 --- a/CBLAS/include/cblas.h +++ b/CBLAS/include/cblas.h @@ -88,39 +88,39 @@ CBLAS_INDEX cblas_izamax(const int N, const void *X, const int incX); * =========================================================================== */ -/* +/* * Routines with standard 4 prefixes (s, d, c, z) */ -void cblas_sswap(const int N, float *X, const int incX, +void cblas_sswap(const int N, float *X, const int incX, float *Y, const int incY); -void cblas_scopy(const int N, const float *X, const int incX, +void cblas_scopy(const int N, const float *X, const int incX, float *Y, const int incY); void cblas_saxpy(const int N, const float alpha, const float *X, const int incX, float *Y, const int incY); -void cblas_dswap(const int N, double *X, const int incX, +void cblas_dswap(const int N, double *X, const int incX, double *Y, const int incY); -void cblas_dcopy(const int N, const double *X, const int incX, +void cblas_dcopy(const int N, const double *X, const int incX, double *Y, const int incY); void cblas_daxpy(const int N, const double alpha, const double *X, const int incX, double *Y, const int incY); -void cblas_cswap(const int N, void *X, const int incX, +void cblas_cswap(const int N, void *X, const int incX, void *Y, const int incY); -void cblas_ccopy(const int N, const void *X, const int incX, +void cblas_ccopy(const int N, const void *X, const int incX, void *Y, const int incY); void cblas_caxpy(const int N, const void *alpha, const void *X, const int incX, void *Y, const int incY); -void cblas_zswap(const int N, void *X, const int incX, +void cblas_zswap(const int N, void *X, const int incX, void *Y, const int incY); -void cblas_zcopy(const int N, const void *X, const int incX, +void cblas_zcopy(const int N, const void *X, const int incX, void *Y, const int incY); void cblas_zaxpy(const int N, const void *alpha, const void *X, const int incX, void *Y, const int incY); -/* +/* * Routines with S and D prefix only */ void cblas_srotg(float *a, float *b, float *c, float *s); @@ -138,7 +138,7 @@ void cblas_drotm(const int N, double *X, const int incX, double *Y, const int incY, const double *P); -/* +/* * Routines with S D C Z CS and ZD prefixes */ void cblas_sscal(const int N, const float alpha, float *X, const int incX); @@ -154,7 +154,7 @@ void cblas_zdscal(const int N, const double alpha, void *X, const int incX); * =========================================================================== */ -/* +/* * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemv(const CBLAS_LAYOUT layout, @@ -169,11 +169,11 @@ void cblas_sgbmv(CBLAS_LAYOUT layout, const int incX, const float beta, float *Y, const int incY); void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const float *A, const int lda, + const int N, const float *A, const int lda, float *X, const int incX); void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const int K, const float *A, const int lda, + const int N, const int K, const float *A, const int lda, float *X, const int incX); void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, @@ -202,11 +202,11 @@ void cblas_dgbmv(CBLAS_LAYOUT layout, const int incX, const double beta, double *Y, const int incY); void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const double *A, const int lda, + const int N, const double *A, const int lda, double *X, const int incX); void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const int K, const double *A, const int lda, + const int N, const int K, const double *A, const int lda, double *X, const int incX); void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, @@ -235,11 +235,11 @@ void cblas_cgbmv(CBLAS_LAYOUT layout, const int incX, const void *beta, void *Y, const int incY); void cblas_ctrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const void *A, const int lda, + const int N, const void *A, const int lda, void *X, const int incX); void cblas_ctbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const int K, const void *A, const int lda, + const int N, const int K, const void *A, const int lda, void *X, const int incX); void cblas_ctpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, @@ -268,11 +268,11 @@ void cblas_zgbmv(CBLAS_LAYOUT layout, const int incX, const void *beta, void *Y, const int incY); void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const void *A, const int lda, + const int N, const void *A, const int lda, void *X, const int incX); void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const int N, const int K, const void *A, const int lda, + const int N, const int K, const void *A, const int lda, void *X, const int incX); void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, @@ -290,7 +290,7 @@ void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int N, const void *Ap, void *X, const int incX); -/* +/* * Routines with S and D prefixes only */ void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, @@ -352,7 +352,7 @@ void cblas_dspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int incX, const double *Y, const int incY, double *A); -/* +/* * Routines with C and Z prefixes only */ void cblas_chemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, @@ -423,7 +423,7 @@ void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int N, * =========================================================================== */ -/* +/* * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, @@ -547,7 +547,7 @@ void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, void *B, const int ldb); -/* +/* * Routines with prefixes C and Z only */ void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h index 8aa2c876db..3035ab0b5e 100644 --- a/CBLAS/include/cblas_f77.h +++ b/CBLAS/include/cblas_f77.h @@ -201,7 +201,7 @@ void F77_xerbla(FCHAR, void *); /* Single Precision */ void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *); - void F77_srotg(float *,float *,float *,float *); + void F77_srotg(float *,float *,float *,float *); void F77_srotm( FINT, float *, FINT, float *, FINT, const float *); void F77_srotmg(float *,float *,float *,const float *, float *); void F77_sswap( FINT, float *, FINT, float *, FINT); @@ -217,7 +217,7 @@ void F77_xerbla(FCHAR, void *); /* Double Precision */ void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *); - void F77_drotg(double *,double *,double *,double *); + void F77_drotg(double *,double *,double *,double *); void F77_drotm( FINT, double *, FINT, double *, FINT, const double *); void F77_drotmg(double *,double *,double *,const double *, double *); void F77_dswap( FINT, double *, FINT, double *, FINT); @@ -278,8 +278,8 @@ void F77_xerbla(FCHAR, void *); void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT); void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT); - void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *); - void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *); + void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *); + void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *); void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); /* Double Precision */ @@ -297,8 +297,8 @@ void F77_xerbla(FCHAR, void *); void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT); void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT); - void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *); - void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *); + void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *); + void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *); void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); /* Single Complex Precision */ diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index 8093a5c685..41b74a2313 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -10,7 +10,7 @@ set (ERRHAND cblas_globals.c cblas_xerbla.c xerbla.c) # # Level 1 # -# +# # # All object files for single real precision @@ -23,9 +23,9 @@ set (SLEV1 cblas_srotg.c cblas_srotmg.c cblas_srot.c cblas_srotm.c # # All object files for double real precision # -set (DLEV1 cblas_drotg.c cblas_drotmg.c cblas_drot.c cblas_drotm.c +set (DLEV1 cblas_drotg.c cblas_drotmg.c cblas_drot.c cblas_drotm.c cblas_dswap.c cblas_dscal.c cblas_dcopy.c cblas_daxpy.c - cblas_ddot.c cblas_dsdot.c cblas_dnrm2.c cblas_dasum.c + cblas_ddot.c cblas_dsdot.c cblas_dnrm2.c cblas_dasum.c cblas_idamax.c ddotsub.f dsdotsub.f dnrm2sub.f dasumsub.f idamaxsub.f) @@ -41,9 +41,9 @@ set (CLEV1 cblas_cswap.c cblas_cscal.c cblas_csscal.c cblas_ccopy.c # set (ZLEV1 cblas_zswap.c cblas_zscal.c cblas_zdscal.c cblas_zcopy.c cblas_zaxpy.c cblas_zdotu_sub.c cblas_zdotc_sub.c cblas_dznrm2.c - cblas_dzasum.c cblas_izamax.c zdotcsub.f zdotusub.f + cblas_dzasum.c cblas_izamax.c zdotcsub.f zdotusub.f dzasumsub.f dznrm2sub.f izamaxsub.f) - + # # Common files for single complex precision @@ -63,7 +63,7 @@ set (ALEV1 ${slev1} ${dlev1} ${clev1} ${zlev1} ${sclev1}) # # Level 2 # -# +# # # All object files for single real precision @@ -73,7 +73,7 @@ set (SLEV2 cblas_sgemv.c cblas_sgbmv.c cblas_sger.c cblas_ssbmv.c cblas_sspmv.c cblas_stbmv.c cblas_stbsv.c cblas_stpmv.c cblas_stpsv.c cblas_strmv.c cblas_strsv.c) - + # # All object files for double real precision # @@ -108,7 +108,7 @@ set (AVEL2 ${slev2} ${dlev2} ${clev2} ${zlev2}) # # Level 3 # -# +# # # All object files for single real precision @@ -140,7 +140,7 @@ set (ALEV3 ${slev3} ${dlev3} ${clev3} ${zlev3}) # default build all of it set(ALLOBJ ${SCLEV1} ${SLEV1} ${SLEV2} ${SLEV3} ${ERRHAND} ${DLEV1} ${DLEV2} ${DLEV3} - ${CLEV1} ${CLEV2} ${CLEV3} + ${CLEV1} ${CLEV2} ${CLEV3} ${ZLEV1} ${ZLEV2} ${ZLEV3} ) # Single real precision @@ -152,14 +152,14 @@ endif(CBLAS_SINGLE) if(CBLAS_DOUBLE) set(ALLOBJ ${DLEV1} ${DLEV2} ${DLEV3} ${ERRHAND}) endif(CBLAS_DOUBLE) - + # Single complex precision if (CBLAS_COMPLEX) set(ALLOBJ ${CLEV1} ${SCLEV1} ${CLEV2} ${CLEV3} ${ERRHAND}) endif(CBLAS_COMPLEX) # Double complex precision -if (CBLAS_COMPLEX16) +if (CBLAS_COMPLEX16) set(ALLOBJ ${ZLEV1} ${ZLEV2} ${ZLEV3} ${ERRHAND}) endif(CBLAS_COMPLEX16) diff --git a/CBLAS/src/Makefile b/CBLAS/src/Makefile index d5c73cbb0a..30dd476bbd 100644 --- a/CBLAS/src/Makefile +++ b/CBLAS/src/Makefile @@ -8,21 +8,21 @@ include ../../make.inc all: cblaslib clean: - rm -f *.o a.out core + rm -f *.o a.out core # Error handling routines for level 2 & 3 errhand = cblas_globals.o cblas_xerbla.o xerbla.o # Object files of all routines -alev = $(alev1) $(alev2) $(alev3) $(errhand) +alev = $(alev1) $(alev2) $(alev3) $(errhand) # # # CBLAS routines # # Level 1 # -# +# # # All object files for single real precision @@ -31,7 +31,7 @@ slev1 = cblas_srotg.o cblas_srotmg.o cblas_srot.o cblas_srotm.o \ cblas_sswap.o cblas_sscal.o cblas_scopy.o cblas_saxpy.o \ cblas_sdot.o cblas_sdsdot.o cblas_snrm2.o cblas_sasum.o \ cblas_isamax.o sdotsub.o sdsdotsub.o snrm2sub.o sasumsub.o \ - isamaxsub.o + isamaxsub.o # # All object files for double real precision # @@ -46,7 +46,7 @@ dlev1 = cblas_drotg.o cblas_drotmg.o cblas_drot.o cblas_drotm.o \ # clev1 = cblas_cswap.o cblas_cscal.o cblas_csscal.o cblas_ccopy.o \ cblas_caxpy.o cblas_cdotu_sub.o cblas_cdotc_sub.o \ - cblas_icamax.o cdotcsub.o cdotusub.o icamaxsub.o + cblas_icamax.o cdotcsub.o cdotusub.o icamaxsub.o # # All object files for double complex precision @@ -54,7 +54,7 @@ clev1 = cblas_cswap.o cblas_cscal.o cblas_csscal.o cblas_ccopy.o \ zlev1 = cblas_zswap.o cblas_zscal.o cblas_zdscal.o cblas_zcopy.o \ cblas_zaxpy.o cblas_zdotu_sub.o cblas_zdotc_sub.o cblas_dznrm2.o \ cblas_dzasum.o cblas_izamax.o zdotcsub.o zdotusub.o \ - dzasumsub.o dznrm2sub.o izamaxsub.o + dzasumsub.o dznrm2sub.o izamaxsub.o # # Common files for single / complex precision @@ -77,7 +77,7 @@ slib1: $(slev1) $(sclev1) $(RANLIB) $(CBLASLIB) # Double real precision -dlib1: $(dlev1) +dlib1: $(dlev1) $(ARCH) $(ARCHFLAGS) $(CBLASLIB) $(dlev1) $(RANLIB) $(CBLASLIB) @@ -102,7 +102,7 @@ all1: $(alev1) # # Level 2 # -# +# # # All object files for single real precision @@ -110,15 +110,15 @@ all1: $(alev1) slev2 = cblas_sgemv.o cblas_sgbmv.o cblas_sger.o cblas_ssbmv.o cblas_sspmv.o \ cblas_sspr.o cblas_sspr2.o cblas_ssymv.o cblas_ssyr.o cblas_ssyr2.o \ cblas_stbmv.o cblas_stbsv.o cblas_stpmv.o cblas_stpsv.o cblas_strmv.o \ - cblas_strsv.o - + cblas_strsv.o + # # All object files for double real precision # dlev2 = cblas_dgemv.o cblas_dgbmv.o cblas_dger.o cblas_dsbmv.o cblas_dspmv.o \ cblas_dspr.o cblas_dspr2.o cblas_dsymv.o cblas_dsyr.o cblas_dsyr2.o \ cblas_dtbmv.o cblas_dtbsv.o cblas_dtpmv.o cblas_dtpsv.o cblas_dtrmv.o \ - cblas_dtrsv.o + cblas_dtrsv.o # # All object files for single complex precision @@ -126,7 +126,7 @@ dlev2 = cblas_dgemv.o cblas_dgbmv.o cblas_dger.o cblas_dsbmv.o cblas_dspmv.o \ clev2 = cblas_cgemv.o cblas_cgbmv.o cblas_chemv.o cblas_chbmv.o cblas_chpmv.o \ cblas_ctrmv.o cblas_ctbmv.o cblas_ctpmv.o cblas_ctrsv.o cblas_ctbsv.o \ cblas_ctpsv.o cblas_cgeru.o cblas_cgerc.o cblas_cher.o cblas_cher2.o \ - cblas_chpr.o cblas_chpr2.o + cblas_chpr.o cblas_chpr2.o # # All object files for double complex precision @@ -134,7 +134,7 @@ clev2 = cblas_cgemv.o cblas_cgbmv.o cblas_chemv.o cblas_chbmv.o cblas_chpmv.o \ zlev2 = cblas_zgemv.o cblas_zgbmv.o cblas_zhemv.o cblas_zhbmv.o cblas_zhpmv.o \ cblas_ztrmv.o cblas_ztbmv.o cblas_ztpmv.o cblas_ztrsv.o cblas_ztbsv.o \ cblas_ztpsv.o cblas_zgeru.o cblas_zgerc.o cblas_zher.o cblas_zher2.o \ - cblas_zhpr.o cblas_zhpr2.o + cblas_zhpr.o cblas_zhpr2.o # # All object files # @@ -174,19 +174,19 @@ all2: $(alev2) $(errhand) # # Level 3 # -# +# # # All object files for single real precision # slev3 = cblas_sgemm.o cblas_ssymm.o cblas_ssyrk.o cblas_ssyr2k.o cblas_strmm.o\ cblas_strsm.o - + # # All object files for double real precision # dlev3 = cblas_dgemm.o cblas_dsymm.o cblas_dsyrk.o cblas_dsyr2k.o cblas_dtrmm.o\ - cblas_dtrsm.o + cblas_dtrsm.o # # All object files for single complex precision @@ -231,12 +231,12 @@ zlib3: $(zlev3) $(errhand) # All precisions all3: $(alev3) $(errhand) - $(ARCH) $(ARCHFLAGS) $(CBLASLIB) $(alev3) + $(ARCH) $(ARCHFLAGS) $(CBLASLIB) $(alev3) $(RANLIB) $(CBLASLIB) # All levels and precisions -cblaslib: $(alev) - $(ARCH) $(ARCHFLAGS) $(CBLASLIB) $(alev) +cblaslib: $(alev) + $(ARCH) $(ARCHFLAGS) $(CBLASLIB) $(alev) $(RANLIB) $(CBLASLIB) FRC: @@ -244,6 +244,6 @@ FRC: .c.o: $(CC) -c $(CFLAGS) -I ../include -o $@ $< - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/CBLAS/src/cblas_caxpy.c b/CBLAS/src/cblas_caxpy.c index 7579aa707a..73302faf24 100644 --- a/CBLAS/src/cblas_caxpy.c +++ b/CBLAS/src/cblas_caxpy.c @@ -13,10 +13,10 @@ void cblas_caxpy( const int N, const void *alpha, const void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY); -} +} diff --git a/CBLAS/src/cblas_ccopy.c b/CBLAS/src/cblas_ccopy.c index b7bc428473..d8d2367017 100644 --- a/CBLAS/src/cblas_ccopy.c +++ b/CBLAS/src/cblas_ccopy.c @@ -13,7 +13,7 @@ void cblas_ccopy( const int N, const void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_cdotc_sub.c b/CBLAS/src/cblas_cdotc_sub.c index 97ac8decf7..fca11cd05d 100644 --- a/CBLAS/src/cblas_cdotc_sub.c +++ b/CBLAS/src/cblas_cdotc_sub.c @@ -14,7 +14,7 @@ void cblas_cdotc_sub( const int N, const void *X, const int incX, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_cdotu_sub.c b/CBLAS/src/cblas_cdotu_sub.c index 6d73d4b5ee..b92e08e549 100644 --- a/CBLAS/src/cblas_cdotu_sub.c +++ b/CBLAS/src/cblas_cdotu_sub.c @@ -14,7 +14,7 @@ void cblas_cdotu_sub( const int N, const void *X, const int incX, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_cgbmv.c b/CBLAS/src/cblas_cgbmv.c index 1ad497a7bf..6d0fa4f83b 100644 --- a/CBLAS/src/cblas_cgbmv.c +++ b/CBLAS/src/cblas_cgbmv.c @@ -1,7 +1,7 @@ /* * cblas_cgbmv.c * The program is a C interface of cgbmv - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -49,7 +49,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha, + F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -112,7 +112,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, tincY = -incY; y++; - + if (N > 0) { i = tincY << 1; @@ -127,9 +127,9 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, } else x = (float *) X; - + } - else + else { cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -140,10 +140,10 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, F77_TA = C2F_CHAR(&TA); #endif if (TransA == CblasConjTrans) - F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA, + F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA, A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY); else - F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha, + F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha, A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY); if (TransA == CblasConjTrans) { diff --git a/CBLAS/src/cblas_cgemm.c b/CBLAS/src/cblas_cgemm.c index d97d033099..a1fad4a027 100644 --- a/CBLAS/src/cblas_cgemm.c +++ b/CBLAS/src/cblas_cgemm.c @@ -15,12 +15,12 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char TA, TB; + char TA, TB; #ifdef F77_CHAR F77_CHAR F77_TA, F77_TB; #else - #define F77_TA &TA - #define F77_TB &TB + #define F77_TA &TA + #define F77_TB &TB #endif #ifdef F77_INT @@ -45,7 +45,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TA='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TB='T'; else if ( TransB == CblasConjTrans ) TB='C'; else if ( TransB == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -77,7 +77,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TB='T'; else if ( TransA == CblasConjTrans ) TB='C'; else if ( TransA == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -87,7 +87,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TA='T'; else if ( TransB == CblasConjTrans ) TA='C'; else if ( TransB == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -101,7 +101,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_cgemv.c b/CBLAS/src/cblas_cgemv.c index 5eb70ddab8..57c9241e89 100644 --- a/CBLAS/src/cblas_cgemv.c +++ b/CBLAS/src/cblas_cgemv.c @@ -1,7 +1,7 @@ /* * cblas_cgemv.c * The program is a C interface of cgemv - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -48,7 +48,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,13 +58,13 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, + F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) { RowMajorStrg = 1; - + if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) @@ -83,11 +83,11 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, i = incX << 1 ; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do @@ -103,9 +103,9 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, F77_incX = 1; if(incY > 0) - tincY = incY; + tincY = incY; else - tincY = -incY; + tincY = -incY; y++; @@ -117,14 +117,14 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, do { *y = -(*y); y += i; - } while(y != st); + } while(y != st); y -= n; } stx = x; } else stx = (const float *)X; } - else + else { cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_cgerc.c b/CBLAS/src/cblas_cgerc.c index 1c8d77758e..6d718be92c 100644 --- a/CBLAS/src/cblas_cgerc.c +++ b/CBLAS/src/cblas_cgerc.c @@ -1,7 +1,7 @@ /* * cblas_cgerc.c * The program is a C interface to cgerc. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, #define F77_N N #define F77_incX incX #define F77_incY incy - #define F77_lda lda + #define F77_lda lda #endif int n, i, tincy, incy=incY; @@ -33,9 +33,9 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, CBLAS_CallFromC = 1; if (layout == CblasColMajor) { - F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, + F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (N > 0) @@ -48,11 +48,11 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, i = incY << 1; tincy = 2; st= y+n; - } else { + } else { i = incY *(-2); tincy = -2; - st = y-2; - y +=(n-2); + st = y-2; + y +=(n-2); } do { @@ -72,7 +72,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, } else y = (float *) Y; - F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A, + F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A, &F77_lda); if(Y!=y) free(y); diff --git a/CBLAS/src/cblas_cgeru.c b/CBLAS/src/cblas_cgeru.c index b2a534fc02..bb0671b6ca 100644 --- a/CBLAS/src/cblas_cgeru.c +++ b/CBLAS/src/cblas_cgeru.c @@ -1,7 +1,7 @@ /* * cblas_cgeru.c * The program is a C interface to cgeru. - * + * * Keita Teranishi 5/20/98 * */ @@ -35,7 +35,7 @@ void cblas_cgeru(const CBLAS_LAYOUT layout, const int M, const int N, else if (layout == CblasRowMajor) { RowMajorStrg = 1; - F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, + F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_cgeru","Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_chbmv.c b/CBLAS/src/cblas_chbmv.c index e5058f1edb..e2ac98d079 100644 --- a/CBLAS/src/cblas_chbmv.c +++ b/CBLAS/src/cblas_chbmv.c @@ -1,7 +1,7 @@ /* * cblas_chbmv.c * The program is a C interface to chbmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -44,7 +44,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, + F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -69,7 +69,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -114,11 +114,11 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, } while(y != st); y -= n; } else - x = (float *) X; + x = (float *) X; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -128,10 +128,10 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA, + F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA, A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_chbmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_chemm.c b/CBLAS/src/cblas_chemm.c index 91fbcbe478..7d500dfcc0 100644 --- a/CBLAS/src/cblas_chemm.c +++ b/CBLAS/src/cblas_chemm.c @@ -15,12 +15,12 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,7 +43,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -66,14 +66,14 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_SD = C2F_CHAR(&SD); #endif - F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda, + F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -83,7 +83,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,7 +98,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_chemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_chemv.c b/CBLAS/src/cblas_chemv.c index 878be7af7b..ad6a6d05a7 100644 --- a/CBLAS/src/cblas_chemv.c +++ b/CBLAS/src/cblas_chemv.c @@ -1,7 +1,7 @@ /* * cblas_chemv.c * The program is a C interface to chemv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -44,7 +44,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, + F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -69,7 +69,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -116,10 +116,10 @@ void cblas_chemv(const CBLAS_LAYOUT layout, } else x = (float *) X; - + if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -129,10 +129,10 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX, + F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_chemv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_cher.c b/CBLAS/src/cblas_cher.c index 245fe5b112..c783073bc5 100644 --- a/CBLAS/src/cblas_cher.c +++ b/CBLAS/src/cblas_cher.c @@ -1,7 +1,7 @@ /* * cblas_cher.c * The program is a C interface to cher. - * + * * Keita Teranishi 5/20/98 * */ @@ -33,13 +33,13 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -76,11 +76,11 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, i = incX << 1 ; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do { @@ -100,16 +100,16 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else x = (float *) X; F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda); - } else + } else { cblas_xerbla(1, "cblas_cher","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; } - if(X!=x) + if(X!=x) free(x); - + CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_cher2.c b/CBLAS/src/cblas_cher2.c index bdded3e158..4bab665b82 100644 --- a/CBLAS/src/cblas_cher2.c +++ b/CBLAS/src/cblas_cher2.c @@ -1,7 +1,7 @@ /* * cblas_cher2.c * The program is a C interface to cher2. - * + * * Keita Teranishi 3/23/98 * */ @@ -29,19 +29,19 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incY incy #endif int n, i, j, tincx, tincy, incx=incX, incy=incY; - float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, + float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, *yy=(float *)Y, *tx, *ty, *stx, *sty; extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif - F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX, + F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); } else if (layout == CblasRowMajor) @@ -60,7 +60,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -74,29 +74,29 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { n = N << 1; x = malloc(n*sizeof(float)); - y = malloc(n*sizeof(float)); + y = malloc(n*sizeof(float)); tx = x; ty = y; if( incX > 0 ) { i = incX << 1 ; tincx = 2; stx= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - stx = x-2; - x +=(n-2); + stx = x-2; + x +=(n-2); } - + if( incY > 0 ) { j = incY << 1; tincy = 2; sty= y+n; - } else { + } else { j = incY *(-2); tincy = -2; - sty = y-2; - y +=(n-2); + sty = y-2; + y +=(n-2); } do @@ -127,14 +127,14 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, incx = 1; incy = 1; #endif - } else + } else { x = (float *) X; y = (float *) Y; } - F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, + F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, A, &F77_lda); - } else + } else { cblas_xerbla(1, "cblas_cher2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_cher2k.c b/CBLAS/src/cblas_cher2k.c index 2fc770097a..cae8c76104 100644 --- a/CBLAS/src/cblas_cher2k.c +++ b/CBLAS/src/cblas_cher2k.c @@ -15,12 +15,12 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *B, const int ldb, const float beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -36,7 +36,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; - float ALPHA[2]; + float ALPHA[2]; const float *alp=(float *)alpha; CBLAS_CallFromC = 1; @@ -47,7 +47,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -75,10 +75,10 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else if (layout == CblasRowMajor) { RowMajorStrg = 1; - + if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -88,7 +88,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='C'; - else + else { cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -103,7 +103,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, ALPHA[0]= *alp; ALPHA[1]= -alp[1]; F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_cherk.c b/CBLAS/src/cblas_cherk.c index 5157d7bb24..16a94db4c2 100644 --- a/CBLAS/src/cblas_cherk.c +++ b/CBLAS/src/cblas_cherk.c @@ -14,12 +14,12 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const float alpha, const void *A, const int lda, const float beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -41,7 +41,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -72,7 +72,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -82,7 +82,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='C'; - else + else { cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -97,7 +97,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_cherk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_chpmv.c b/CBLAS/src/cblas_chpmv.c index 3b587e3a53..8ec1cec96d 100644 --- a/CBLAS/src/cblas_chpmv.c +++ b/CBLAS/src/cblas_chpmv.c @@ -1,7 +1,7 @@ /* * cblas_chpmv.c * The program is a C interface of chpmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; @@ -37,12 +37,12 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, extern int RowMajorStrg; RowMajorStrg = 0; - CBLAS_CallFromC = 1; + CBLAS_CallFromC = 1; if (layout == CblasColMajor) - { + { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_chpmv(F77_UL, &F77_N, alpha, AP, X, + F77_chpmv(F77_UL, &F77_N, alpha, AP, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -67,7 +67,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1; @@ -96,7 +96,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -117,7 +117,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; @@ -128,17 +128,17 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, F77_UL = C2F_CHAR(&UL); #endif - F77_chpmv(F77_UL, &F77_N, ALPHA, + F77_chpmv(F77_UL, &F77_N, ALPHA, AP, x, &F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_chpmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; } - if ( layout == CblasRowMajor ) + if ( layout == CblasRowMajor ) { RowMajorStrg = 1; if(X!=x) diff --git a/CBLAS/src/cblas_chpr.c b/CBLAS/src/cblas_chpr.c index 1797a8fd0a..82a108d1c0 100644 --- a/CBLAS/src/cblas_chpr.c +++ b/CBLAS/src/cblas_chpr.c @@ -1,7 +1,7 @@ /* * cblas_chpr.c * The program is a C interface to chpr. - * + * * Keita Teranishi 3/23/98 * */ @@ -32,13 +32,13 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -75,11 +75,11 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, i = incX << 1; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do { @@ -100,7 +100,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_chpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A); - } else + } else { cblas_xerbla(1, "cblas_chpr","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_chpr2.c b/CBLAS/src/cblas_chpr2.c index c73168c74b..5277f878cd 100644 --- a/CBLAS/src/cblas_chpr2.c +++ b/CBLAS/src/cblas_chpr2.c @@ -1,7 +1,7 @@ /* * cblas_chpr2.c * The program is a C interface to chpr2. - * + * * Keita Teranishi 5/20/98 * */ @@ -10,7 +10,7 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const int N,const void *alpha, const void *X, + const int N,const void *alpha, const void *X, const int incX,const void *Y, const int incY, void *Ap) { @@ -35,13 +35,13 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -86,7 +86,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, stx = x-2; x +=(n-2); } - + if( incY > 0 ) { j = incY << 1; tincy = 2; @@ -97,7 +97,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, sty = y-2; y +=(n-2); } - + do { *x = *xx; @@ -114,10 +114,10 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, yy += j; } while (y != sty); - + x=tx; y=ty; - + #ifdef F77_INT F77_incX = 1; F77_incY = 1; @@ -126,13 +126,13 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, incy = 1; #endif - } else + } else { x = (float *) X; y = (void *) Y; } F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap); - } else + } else { cblas_xerbla(1, "cblas_chpr2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_cscal.c b/CBLAS/src/cblas_cscal.c index 780d3124e5..904881f1d3 100644 --- a/CBLAS/src/cblas_cscal.c +++ b/CBLAS/src/cblas_cscal.c @@ -8,12 +8,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cscal( const int N, const void *alpha, void *X, +void cblas_cscal( const int N, const void *alpha, void *X, const int incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_csscal.c b/CBLAS/src/cblas_csscal.c index 39983fe071..117ed40517 100644 --- a/CBLAS/src/cblas_csscal.c +++ b/CBLAS/src/cblas_csscal.c @@ -13,7 +13,7 @@ void cblas_csscal( const int N, const float alpha, void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_cswap.c b/CBLAS/src/cblas_cswap.c index 1272820727..738d35cf19 100644 --- a/CBLAS/src/cblas_cswap.c +++ b/CBLAS/src/cblas_cswap.c @@ -13,7 +13,7 @@ void cblas_cswap( const int N, void *X, const int incX, void *Y, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_csymm.c b/CBLAS/src/cblas_csymm.c index 888b3253eb..d60ebb8461 100644 --- a/CBLAS/src/cblas_csymm.c +++ b/CBLAS/src/cblas_csymm.c @@ -15,12 +15,12 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,7 +43,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -83,7 +83,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,9 +98,9 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_csymm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_csyr2k.c b/CBLAS/src/cblas_csyr2k.c index f99caab616..4bbd417a82 100644 --- a/CBLAS/src/cblas_csyr2k.c +++ b/CBLAS/src/cblas_csyr2k.c @@ -15,12 +15,12 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -44,7 +44,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -86,7 +86,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -100,7 +100,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_csyrk.c b/CBLAS/src/cblas_csyrk.c index 94809cec00..26b745bdac 100644 --- a/CBLAS/src/cblas_csyrk.c +++ b/CBLAS/src/cblas_csyrk.c @@ -14,12 +14,12 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *alpha, const void *A, const int lda, const void *beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -42,7 +42,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -84,7 +84,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ctbmv.c b/CBLAS/src/cblas_ctbmv.c index f584bf6acb..949e074331 100644 --- a/CBLAS/src/cblas_ctbmv.c +++ b/CBLAS/src/cblas_ctbmv.c @@ -1,7 +1,7 @@ /* * cblas_ctbmv.c * The program is a C interface to ctbmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0, *x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -112,7 +112,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ctbsv.c b/CBLAS/src/cblas_ctbsv.c index 97778f4c27..12696e112a 100644 --- a/CBLAS/src/cblas_ctbsv.c +++ b/CBLAS/src/cblas_ctbsv.c @@ -1,7 +1,7 @@ /* * cblas_ctbsv.c * The program is a C interface to ctbsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -99,9 +99,9 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -116,7 +116,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -126,7 +126,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ctpmv.c b/CBLAS/src/cblas_ctpmv.c index 6f12c96a38..3f73172b03 100644 --- a/CBLAS/src/cblas_ctpmv.c +++ b/CBLAS/src/cblas_ctpmv.c @@ -1,7 +1,7 @@ /* * cblas_ctpmv.c * The program is a C interface to ctpmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -27,7 +27,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -38,7 +38,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -108,7 +108,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -118,7 +118,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ctpsv.c b/CBLAS/src/cblas_ctpsv.c index 808827e9ac..4791e20f9c 100644 --- a/CBLAS/src/cblas_ctpsv.c +++ b/CBLAS/src/cblas_ctpsv.c @@ -1,7 +1,7 @@ /* * cblas_ctpsv.c * The program is a C interface to ctpsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -19,7 +19,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -27,7 +27,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0, *x=(float*)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -38,7 +38,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -95,9 +95,9 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -112,7 +112,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ctrmm.c b/CBLAS/src/cblas_ctrmm.c index 0407a68239..7a7ab36242 100644 --- a/CBLAS/src/cblas_ctrmm.c +++ b/CBLAS/src/cblas_ctrmm.c @@ -15,12 +15,12 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *alpha, const void *A, const int lda, void *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -43,7 +43,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight ) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper ) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -63,7 +63,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans ) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else cblas_xerbla(5, "cblas_ctrmm", + else cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); #ifdef F77_CHAR @@ -89,7 +89,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight ) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper ) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -110,7 +110,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans ) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -120,7 +120,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -136,7 +136,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ctrmv.c b/CBLAS/src/cblas_ctrmv.c index cc87f754e8..447f7081cc 100644 --- a/CBLAS/src/cblas_ctrmv.c +++ b/CBLAS/src/cblas_ctrmv.c @@ -1,7 +1,7 @@ /* * cblas_ctrmv.c * The program is a C interface to ctrmv. - * + * * Keita Teranishi 3/23/98 * */ @@ -21,7 +21,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -111,7 +111,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -121,7 +121,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ctrsm.c b/CBLAS/src/cblas_ctrsm.c index 51218832c5..a95b28d68a 100644 --- a/CBLAS/src/cblas_ctrsm.c +++ b/CBLAS/src/cblas_ctrsm.c @@ -44,7 +44,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -65,7 +65,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -75,7 +75,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -98,7 +98,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -108,7 +108,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -119,7 +119,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -129,7 +129,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -147,7 +147,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ctrsv.c b/CBLAS/src/cblas_ctrsv.c index fb3a8fc2da..cd10f778a7 100644 --- a/CBLAS/src/cblas_ctrsv.c +++ b/CBLAS/src/cblas_ctrsv.c @@ -1,7 +1,7 @@ /* * cblas_ctrsv.c * The program is a C interface to ctrsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -29,7 +29,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -40,7 +40,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -50,7 +50,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -79,7 +79,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,10 +98,10 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); x++; - st=x+n; + st=x+n; i = tincX << 1; do { @@ -112,7 +112,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dasum.c b/CBLAS/src/cblas_dasum.c index 1a3667f2d7..dbd224a91f 100644 --- a/CBLAS/src/cblas_dasum.c +++ b/CBLAS/src/cblas_dasum.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dasum( const int N, const double *X, const int incX) +double cblas_dasum( const int N, const double *X, const int incX) { double asum; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_daxpy.c b/CBLAS/src/cblas_daxpy.c index 3678137fb7..fdbf982f87 100644 --- a/CBLAS/src/cblas_daxpy.c +++ b/CBLAS/src/cblas_daxpy.c @@ -13,10 +13,10 @@ void cblas_daxpy( const int N, const double alpha, const double *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_daxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY); -} +} diff --git a/CBLAS/src/cblas_dcopy.c b/CBLAS/src/cblas_dcopy.c index 422a55e517..b3bb82b6e2 100644 --- a/CBLAS/src/cblas_dcopy.c +++ b/CBLAS/src/cblas_dcopy.c @@ -13,7 +13,7 @@ void cblas_dcopy( const int N, const double *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_ddot.c b/CBLAS/src/cblas_ddot.c index d773434031..650bc76e74 100644 --- a/CBLAS/src/cblas_ddot.c +++ b/CBLAS/src/cblas_ddot.c @@ -15,11 +15,11 @@ double cblas_ddot( const int N, const double *X, double dot; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_ddot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot); return dot; -} +} diff --git a/CBLAS/src/cblas_dgbmv.c b/CBLAS/src/cblas_dgbmv.c index 1cc305415c..11119025b0 100644 --- a/CBLAS/src/cblas_dgbmv.c +++ b/CBLAS/src/cblas_dgbmv.c @@ -19,7 +19,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -43,7 +43,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha, + F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -62,7 +62,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -72,7 +72,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, + F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_dgemm.c b/CBLAS/src/cblas_dgemm.c index e37f4092db..5f525dde7b 100644 --- a/CBLAS/src/cblas_dgemm.c +++ b/CBLAS/src/cblas_dgemm.c @@ -15,12 +15,12 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc) { - char TA, TB; + char TA, TB; #ifdef F77_CHAR F77_CHAR F77_TA, F77_TB; #else - #define F77_TA &TA - #define F77_TB &TB + #define F77_TA &TA + #define F77_TB &TB #endif #ifdef F77_INT @@ -45,7 +45,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TA='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TB='T'; else if ( TransB == CblasConjTrans ) TB='C'; else if ( TransB == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -77,7 +77,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TB='T'; else if ( TransA == CblasConjTrans ) TB='C'; else if ( TransA == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -87,7 +87,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TA='T'; else if ( TransB == CblasConjTrans ) TA='C'; else if ( TransB == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -101,7 +101,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_dgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dgemv.c b/CBLAS/src/cblas_dgemv.c index 65968aceb9..a3f060aeb3 100644 --- a/CBLAS/src/cblas_dgemv.c +++ b/CBLAS/src/cblas_dgemv.c @@ -18,7 +18,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -39,7 +39,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_dgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, + F77_dgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -58,7 +58,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dger.c b/CBLAS/src/cblas_dger.c index 3b89f67f7a..d536537749 100644 --- a/CBLAS/src/cblas_dger.c +++ b/CBLAS/src/cblas_dger.c @@ -30,13 +30,13 @@ void cblas_dger(const CBLAS_LAYOUT layout, const int M, const int N, CBLAS_CallFromC = 1; if (layout == CblasColMajor) { - F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, + F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); } else if (layout == CblasRowMajor) { RowMajorStrg = 1; - F77_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A, + F77_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } diff --git a/CBLAS/src/cblas_dnrm2.c b/CBLAS/src/cblas_dnrm2.c index fe46ad4849..99f8368d24 100644 --- a/CBLAS/src/cblas_dnrm2.c +++ b/CBLAS/src/cblas_dnrm2.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dnrm2( const int N, const double *X, const int incX) +double cblas_dnrm2( const int N, const double *X, const int incX) { double nrm2; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_drot.c b/CBLAS/src/cblas_drot.c index 51dc4ad5ef..ec1887ab05 100644 --- a/CBLAS/src/cblas_drot.c +++ b/CBLAS/src/cblas_drot.c @@ -14,9 +14,9 @@ void cblas_drot(const int N, double *X, const int incX, #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; #else - #define F77_N N - #define F77_incX incX - #define F77_incY incY + #define F77_N N + #define F77_incX incX + #define F77_incY incY #endif F77_drot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s); return; diff --git a/CBLAS/src/cblas_drotg.c b/CBLAS/src/cblas_drotg.c index 0cbbd8bc0b..a433f4844f 100644 --- a/CBLAS/src/cblas_drotg.c +++ b/CBLAS/src/cblas_drotg.c @@ -10,5 +10,5 @@ #include "cblas_f77.h" void cblas_drotg( double *a, double *b, double *c, double *s) { - F77_drotg(a,b,c,s); + F77_drotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_drotm.c b/CBLAS/src/cblas_drotm.c index ebe20ad627..26ee53332d 100644 --- a/CBLAS/src/cblas_drotm.c +++ b/CBLAS/src/cblas_drotm.c @@ -1,6 +1,6 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotm( const int N, double *X, const int incX, double *Y, +void cblas_drotm( const int N, double *X, const int incX, double *Y, const int incY, const double *P) { #ifdef F77_INT @@ -11,4 +11,4 @@ void cblas_drotm( const int N, double *X, const int incX, double *Y, #define F77_incY incY #endif F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P); -} +} diff --git a/CBLAS/src/cblas_drotmg.c b/CBLAS/src/cblas_drotmg.c index 13a2208e5f..ad33ba4fd2 100644 --- a/CBLAS/src/cblas_drotmg.c +++ b/CBLAS/src/cblas_drotmg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotmg( double *d1, double *d2, double *b1, +void cblas_drotmg( double *d1, double *d2, double *b1, const double b2, double *p) { F77_drotmg(d1,d2,b1,&b2,p); diff --git a/CBLAS/src/cblas_dsbmv.c b/CBLAS/src/cblas_dsbmv.c index 78f114226c..84c7c1a547 100644 --- a/CBLAS/src/cblas_dsbmv.c +++ b/CBLAS/src/cblas_dsbmv.c @@ -19,7 +19,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -39,7 +39,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X, + F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -57,7 +57,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -67,7 +67,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, + F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_dscal.c b/CBLAS/src/cblas_dscal.c index bd04de77d6..cef902af25 100644 --- a/CBLAS/src/cblas_dscal.c +++ b/CBLAS/src/cblas_dscal.c @@ -8,12 +8,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dscal( const int N, const double alpha, double *X, +void cblas_dscal( const int N, const double alpha, double *X, const int incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_dsdot.c b/CBLAS/src/cblas_dsdot.c index 52cd877a20..ef776e4bec 100644 --- a/CBLAS/src/cblas_dsdot.c +++ b/CBLAS/src/cblas_dsdot.c @@ -15,11 +15,11 @@ double cblas_dsdot( const int N, const float *X, double dot; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_dsdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot); return dot; -} +} diff --git a/CBLAS/src/cblas_dspmv.c b/CBLAS/src/cblas_dspmv.c index 7512866413..e0e9a3209e 100644 --- a/CBLAS/src/cblas_dspmv.c +++ b/CBLAS/src/cblas_dspmv.c @@ -6,7 +6,7 @@ * 4/6/1998 * */ - + #include "cblas.h" #include "cblas_f77.h" @@ -20,7 +20,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; @@ -38,7 +38,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dspmv(F77_UL, &F77_N, &alpha, AP, X, + F77_dspmv(F77_UL, &F77_N, &alpha, AP, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -56,7 +56,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -66,7 +66,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dspmv(F77_UL, &F77_N, &alpha, + F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_dspr.c b/CBLAS/src/cblas_dspr.c index fa1c4fbb29..cb286a86a8 100644 --- a/CBLAS/src/cblas_dspr.c +++ b/CBLAS/src/cblas_dspr.c @@ -34,7 +34,7 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -47,12 +47,12 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -61,8 +61,8 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); + #endif + F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); } else cblas_xerbla(1, "cblas_dspr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dspr2.c b/CBLAS/src/cblas_dspr2.c index 36eeaf97f8..c4560642dc 100644 --- a/CBLAS/src/cblas_dspr2.c +++ b/CBLAS/src/cblas_dspr2.c @@ -34,7 +34,7 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -47,12 +47,12 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -61,8 +61,8 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); + #endif + F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); } else cblas_xerbla(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dswap.c b/CBLAS/src/cblas_dswap.c index 9ae5bb93c0..bf78fcf9b5 100644 --- a/CBLAS/src/cblas_dswap.c +++ b/CBLAS/src/cblas_dswap.c @@ -13,7 +13,7 @@ void cblas_dswap( const int N, double *X, const int incX, double *Y, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_dsymm.c b/CBLAS/src/cblas_dsymm.c index 03f65a8930..457a95fc0f 100644 --- a/CBLAS/src/cblas_dsymm.c +++ b/CBLAS/src/cblas_dsymm.c @@ -15,12 +15,12 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const double *B, const int ldb, const double beta, double *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,7 +43,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -83,7 +83,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,9 +98,9 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_dsymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } - else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout); + } + else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_dsymv.c b/CBLAS/src/cblas_dsymv.c index 3bda0a178a..e31c774988 100644 --- a/CBLAS/src/cblas_dsymv.c +++ b/CBLAS/src/cblas_dsymv.c @@ -19,7 +19,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -38,7 +38,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dsymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X, + F77_dsymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -56,7 +56,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -66,7 +66,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_dsymv(F77_UL, &F77_N, &alpha, + F77_dsymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_dsyr.c b/CBLAS/src/cblas_dsyr.c index aa1e43c48b..bc4a1e836b 100644 --- a/CBLAS/src/cblas_dsyr.c +++ b/CBLAS/src/cblas_dsyr.c @@ -35,7 +35,7 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -48,12 +48,12 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -62,10 +62,10 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); + #endif + F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_dsyr2.c b/CBLAS/src/cblas_dsyr2.c index 601e66984e..4607c7a430 100644 --- a/CBLAS/src/cblas_dsyr2.c +++ b/CBLAS/src/cblas_dsyr2.c @@ -38,7 +38,7 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -49,15 +49,15 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif - F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, + F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -66,9 +66,9 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, - &F77_lda); + #endif + F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, + &F77_lda); } else cblas_xerbla(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dsyr2k.c b/CBLAS/src/cblas_dsyr2k.c index bf214deb7d..9e92120174 100644 --- a/CBLAS/src/cblas_dsyr2k.c +++ b/CBLAS/src/cblas_dsyr2k.c @@ -15,12 +15,12 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const double *B, const int ldb, const double beta, double *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -44,7 +44,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -86,7 +86,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -99,9 +99,9 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_TR = C2F_CHAR(&TR); #endif - F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, + F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dsyrk.c b/CBLAS/src/cblas_dsyrk.c index 2d2dfe6acb..d98b4705d8 100644 --- a/CBLAS/src/cblas_dsyrk.c +++ b/CBLAS/src/cblas_dsyrk.c @@ -14,12 +14,12 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const double alpha, const double *A, const int lda, const double beta, double *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -42,7 +42,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -84,7 +84,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_dsyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dtbmv.c b/CBLAS/src/cblas_dtbmv.c index 08caef4729..6438651ad4 100644 --- a/CBLAS/src/cblas_dtbmv.c +++ b/CBLAS/src/cblas_dtbmv.c @@ -20,7 +20,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dtbsv.c b/CBLAS/src/cblas_dtbsv.c index 275889c834..eac77055b5 100644 --- a/CBLAS/src/cblas_dtbsv.c +++ b/CBLAS/src/cblas_dtbsv.c @@ -20,7 +20,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dtpmv.c b/CBLAS/src/cblas_dtpmv.c index d18f7f35d0..6946d9846f 100644 --- a/CBLAS/src/cblas_dtpmv.c +++ b/CBLAS/src/cblas_dtpmv.c @@ -19,7 +19,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -36,7 +36,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -46,7 +46,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -85,7 +85,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -95,7 +95,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dtpsv.c b/CBLAS/src/cblas_dtpsv.c index ef30807e9a..b29476767a 100644 --- a/CBLAS/src/cblas_dtpsv.c +++ b/CBLAS/src/cblas_dtpsv.c @@ -19,7 +19,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -36,7 +36,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -46,7 +46,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -85,7 +85,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -95,7 +95,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dtrmm.c b/CBLAS/src/cblas_dtrmm.c index 76bba298bc..6ee79e42d2 100644 --- a/CBLAS/src/cblas_dtrmm.c +++ b/CBLAS/src/cblas_dtrmm.c @@ -15,12 +15,12 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const double alpha, const double *A, const int lda, double *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -43,7 +43,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -63,7 +63,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -94,7 +94,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -104,7 +104,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -115,7 +115,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -125,7 +125,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -140,7 +140,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_DI = C2F_CHAR(&DI); #endif F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dtrmv.c b/CBLAS/src/cblas_dtrmv.c index 1a6dc5901a..18c492142d 100644 --- a/CBLAS/src/cblas_dtrmv.c +++ b/CBLAS/src/cblas_dtrmv.c @@ -6,7 +6,7 @@ * 4/6/1998 * */ - + #include "cblas.h" #include "cblas_f77.h" void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, @@ -23,7 +23,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -41,7 +41,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -91,7 +91,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -101,7 +101,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dtrsm.c b/CBLAS/src/cblas_dtrsm.c index 21f94476be..47396020dd 100644 --- a/CBLAS/src/cblas_dtrsm.c +++ b/CBLAS/src/cblas_dtrsm.c @@ -16,12 +16,12 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, double *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -44,7 +44,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if ( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if ( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower) UL='L'; - else + else { cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -64,7 +64,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if ( TransA == CblasTrans ) TA='T'; else if ( TransA == CblasConjTrans) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if ( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit) DI='N'; - else + else { cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -91,13 +91,13 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha, A, &F77_lda, B, &F77_ldb); - } + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if ( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -107,7 +107,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if ( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower) UL='U'; - else + else { cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -118,7 +118,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if ( TransA == CblasTrans ) TA='T'; else if ( TransA == CblasConjTrans) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -128,7 +128,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if ( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit) DI='N'; - else + else { cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -143,9 +143,9 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_DI = C2F_CHAR(&DI); #endif - F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, + F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_dtrsv.c b/CBLAS/src/cblas_dtrsv.c index 21c791fd43..c0a51c10be 100644 --- a/CBLAS/src/cblas_dtrsv.c +++ b/CBLAS/src/cblas_dtrsv.c @@ -21,7 +21,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_dzasum.c b/CBLAS/src/cblas_dzasum.c index b32f573e5f..a120e00fef 100644 --- a/CBLAS/src/cblas_dzasum.c +++ b/CBLAS/src/cblas_dzasum.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dzasum( const int N, const void *X, const int incX) +double cblas_dzasum( const int N, const void *X, const int incX) { double asum; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_dznrm2.c b/CBLAS/src/cblas_dznrm2.c index dfa2bfc837..e44db340d6 100644 --- a/CBLAS/src/cblas_dznrm2.c +++ b/CBLAS/src/cblas_dznrm2.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dznrm2( const int N, const void *X, const int incX) +double cblas_dznrm2( const int N, const void *X, const int incX) { double nrm2; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_icamax.c b/CBLAS/src/cblas_icamax.c index 52f1db619e..0fe5625d94 100644 --- a/CBLAS/src/cblas_icamax.c +++ b/CBLAS/src/cblas_icamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_icamax( const int N, const void *X, const int incX) CBLAS_INDEX iamax; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_idamax.c b/CBLAS/src/cblas_idamax.c index 07008ef465..e0c4cd883c 100644 --- a/CBLAS/src/cblas_idamax.c +++ b/CBLAS/src/cblas_idamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_idamax( const int N, const double *X, const int incX) CBLAS_INDEX iamax; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_isamax.c b/CBLAS/src/cblas_isamax.c index 507eb9235a..e2f3fd86ca 100644 --- a/CBLAS/src/cblas_isamax.c +++ b/CBLAS/src/cblas_isamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_isamax( const int N, const float *X, const int incX) CBLAS_INDEX iamax; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_izamax.c b/CBLAS/src/cblas_izamax.c index 3623749826..4370d942a4 100644 --- a/CBLAS/src/cblas_izamax.c +++ b/CBLAS/src/cblas_izamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_izamax( const int N, const void *X, const int incX) CBLAS_INDEX iamax; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_sasum.c b/CBLAS/src/cblas_sasum.c index 7d4c32cf9e..042939af48 100644 --- a/CBLAS/src/cblas_sasum.c +++ b/CBLAS/src/cblas_sasum.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sasum( const int N, const float *X, const int incX) +float cblas_sasum( const int N, const float *X, const int incX) { float asum; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_saxpy.c b/CBLAS/src/cblas_saxpy.c index 2eee8e06e4..baf17a5475 100644 --- a/CBLAS/src/cblas_saxpy.c +++ b/CBLAS/src/cblas_saxpy.c @@ -14,10 +14,10 @@ void cblas_saxpy( const int N, const float alpha, const float *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_saxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY); -} +} diff --git a/CBLAS/src/cblas_scasum.c b/CBLAS/src/cblas_scasum.c index e1fa53090a..1f5b7d4035 100644 --- a/CBLAS/src/cblas_scasum.c +++ b/CBLAS/src/cblas_scasum.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scasum( const int N, const void *X, const int incX) +float cblas_scasum( const int N, const void *X, const int incX) { float asum; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_scnrm2.c b/CBLAS/src/cblas_scnrm2.c index fa48454ed5..c05b338cdb 100644 --- a/CBLAS/src/cblas_scnrm2.c +++ b/CBLAS/src/cblas_scnrm2.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scnrm2( const int N, const void *X, const int incX) +float cblas_scnrm2( const int N, const void *X, const int incX) { float nrm2; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_scopy.c b/CBLAS/src/cblas_scopy.c index 7796959f33..1424391f6d 100644 --- a/CBLAS/src/cblas_scopy.c +++ b/CBLAS/src/cblas_scopy.c @@ -13,7 +13,7 @@ void cblas_scopy( const int N, const float *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_sdot.c b/CBLAS/src/cblas_sdot.c index baf859272b..218914af84 100644 --- a/CBLAS/src/cblas_sdot.c +++ b/CBLAS/src/cblas_sdot.c @@ -15,11 +15,11 @@ float cblas_sdot( const int N, const float *X, float dot; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_sdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot); return dot; -} +} diff --git a/CBLAS/src/cblas_sdsdot.c b/CBLAS/src/cblas_sdsdot.c index b824849b99..65741aff4d 100644 --- a/CBLAS/src/cblas_sdsdot.c +++ b/CBLAS/src/cblas_sdsdot.c @@ -15,11 +15,11 @@ float cblas_sdsdot( const int N, const float alpha, const float *X, float dot; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_sdsdot_sub( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, &dot); return dot; -} +} diff --git a/CBLAS/src/cblas_sgbmv.c b/CBLAS/src/cblas_sgbmv.c index 30f9311fae..0557c10b4b 100644 --- a/CBLAS/src/cblas_sgbmv.c +++ b/CBLAS/src/cblas_sgbmv.c @@ -20,7 +20,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -44,7 +44,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_sgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha, + F77_sgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -63,7 +63,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, + F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha, A ,&F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_sgemm.c b/CBLAS/src/cblas_sgemm.c index c7f7673c47..c4a49a2db2 100644 --- a/CBLAS/src/cblas_sgemm.c +++ b/CBLAS/src/cblas_sgemm.c @@ -15,12 +15,12 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const int lda, const float *B, const int ldb, const float beta, float *C, const int ldc) { - char TA, TB; + char TA, TB; #ifdef F77_CHAR F77_CHAR F77_TA, F77_TB; #else - #define F77_TA &TA - #define F77_TB &TB + #define F77_TA &TA + #define F77_TB &TB #endif #ifdef F77_INT @@ -34,7 +34,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, #define F77_ldb ldb #define F77_ldc ldc #endif - + extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; @@ -44,9 +44,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TA='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { - cblas_xerbla(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,9 +56,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TB='T'; else if ( TransB == CblasConjTrans ) TB='C'; else if ( TransB == CblasNoTrans ) TB='N'; - else + else { - cblas_xerbla(3, "cblas_sgemm", + cblas_xerbla(3, "cblas_sgemm", "Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -77,9 +77,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TB='T'; else if ( TransA == CblasConjTrans ) TB='C'; else if ( TransA == CblasNoTrans ) TB='N'; - else + else { - cblas_xerbla(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -88,9 +88,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TA='T'; else if ( TransB == CblasConjTrans ) TA='C'; else if ( TransB == CblasNoTrans ) TA='N'; - else + else { - cblas_xerbla(2, "cblas_sgemm", + cblas_xerbla(2, "cblas_sgemm", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -102,7 +102,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, #endif F77_sgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc); - } else + } else cblas_xerbla(1, "cblas_sgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_sgemv.c b/CBLAS/src/cblas_sgemv.c index 64a7c1e91f..b2c2969b72 100644 --- a/CBLAS/src/cblas_sgemv.c +++ b/CBLAS/src/cblas_sgemv.c @@ -4,7 +4,7 @@ * This program is a C interface to sgemv. * Written by Keita Teranishi * 4/6/1998 - * + * */ #include "cblas.h" #include "cblas_f77.h" @@ -18,7 +18,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -40,7 +40,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_sgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, + F77_sgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -58,7 +58,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_sger.c b/CBLAS/src/cblas_sger.c index 40f09f9227..4726c861d6 100644 --- a/CBLAS/src/cblas_sger.c +++ b/CBLAS/src/cblas_sger.c @@ -36,7 +36,7 @@ void cblas_sger(const CBLAS_LAYOUT layout, const int M, const int N, else if (layout == CblasRowMajor) { RowMajorStrg = 1; - F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A, + F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_sger", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_snrm2.c b/CBLAS/src/cblas_snrm2.c index 18161b4fa7..6b015a0ce6 100644 --- a/CBLAS/src/cblas_snrm2.c +++ b/CBLAS/src/cblas_snrm2.c @@ -9,12 +9,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_snrm2( const int N, const float *X, const int incX) +float cblas_snrm2( const int N, const float *X, const int incX) { float nrm2; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_srot.c b/CBLAS/src/cblas_srot.c index cbd1c8c90a..6619abd943 100644 --- a/CBLAS/src/cblas_srot.c +++ b/CBLAS/src/cblas_srot.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srot( const int N, float *X, const int incX, float *Y, +void cblas_srot( const int N, float *X, const int incX, float *Y, const int incY, const float c, const float s) { #ifdef F77_INT @@ -19,4 +19,4 @@ void cblas_srot( const int N, float *X, const int incX, float *Y, #define F77_incY incY #endif F77_srot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s); -} +} diff --git a/CBLAS/src/cblas_srotg.c b/CBLAS/src/cblas_srotg.c index f6460048d0..4584a29c9a 100644 --- a/CBLAS/src/cblas_srotg.c +++ b/CBLAS/src/cblas_srotg.c @@ -10,5 +10,5 @@ #include "cblas_f77.h" void cblas_srotg( float *a, float *b, float *c, float *s) { - F77_srotg(a,b,c,s); + F77_srotg(a,b,c,s); } diff --git a/CBLAS/src/cblas_srotm.c b/CBLAS/src/cblas_srotm.c index 4967464544..52fae4d9af 100644 --- a/CBLAS/src/cblas_srotm.c +++ b/CBLAS/src/cblas_srotm.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotm( const int N, float *X, const int incX, float *Y, +void cblas_srotm( const int N, float *X, const int incX, float *Y, const int incY, const float *P) { #ifdef F77_INT @@ -19,4 +19,4 @@ void cblas_srotm( const int N, float *X, const int incX, float *Y, #define F77_incY incY #endif F77_srotm( &F77_N, X, &F77_incX, Y, &F77_incY, P); -} +} diff --git a/CBLAS/src/cblas_srotmg.c b/CBLAS/src/cblas_srotmg.c index 04f978b405..1d84054a02 100644 --- a/CBLAS/src/cblas_srotmg.c +++ b/CBLAS/src/cblas_srotmg.c @@ -8,7 +8,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotmg( float *d1, float *d2, float *b1, +void cblas_srotmg( float *d1, float *d2, float *b1, const float b2, float *p) { F77_srotmg(d1,d2,b1,&b2,p); diff --git a/CBLAS/src/cblas_ssbmv.c b/CBLAS/src/cblas_ssbmv.c index 055d94e954..9a035cd920 100644 --- a/CBLAS/src/cblas_ssbmv.c +++ b/CBLAS/src/cblas_ssbmv.c @@ -17,7 +17,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT @@ -36,10 +36,10 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, CBLAS_CallFromC = 1; if (layout == CblasColMajor) { - + if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_sscal.c b/CBLAS/src/cblas_sscal.c index 1f09abe7a4..6c047766d8 100644 --- a/CBLAS/src/cblas_sscal.c +++ b/CBLAS/src/cblas_sscal.c @@ -8,12 +8,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sscal( const int N, const float alpha, float *X, +void cblas_sscal( const int N, const float alpha, float *X, const int incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_sspmv.c b/CBLAS/src/cblas_sspmv.c index 93ef069796..3fddd38a42 100644 --- a/CBLAS/src/cblas_sspmv.c +++ b/CBLAS/src/cblas_sspmv.c @@ -18,7 +18,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; @@ -36,7 +36,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -46,7 +46,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_sspmv(F77_UL, &F77_N, &alpha, AP, X, + F77_sspmv(F77_UL, &F77_N, &alpha, AP, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -54,7 +54,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -64,7 +64,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_sspmv(F77_UL, &F77_N, &alpha, + F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_sspr.c b/CBLAS/src/cblas_sspr.c index 0464dcd6b5..00ac6f99a1 100644 --- a/CBLAS/src/cblas_sspr.c +++ b/CBLAS/src/cblas_sspr.c @@ -36,7 +36,7 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -49,12 +49,12 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -63,8 +63,8 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); + #endif + F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap); } else cblas_xerbla(1, "cblas_sspr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_sspr2.c b/CBLAS/src/cblas_sspr2.c index 0bf5cc612c..1d9be4f5f5 100644 --- a/CBLAS/src/cblas_sspr2.c +++ b/CBLAS/src/cblas_sspr2.c @@ -36,7 +36,7 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -49,12 +49,12 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -63,8 +63,8 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); + #endif + F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A); } else cblas_xerbla(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_sswap.c b/CBLAS/src/cblas_sswap.c index b74d8469c3..3759a0f5ca 100644 --- a/CBLAS/src/cblas_sswap.c +++ b/CBLAS/src/cblas_sswap.c @@ -13,7 +13,7 @@ void cblas_sswap( const int N, float *X, const int incX, float *Y, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_ssymm.c b/CBLAS/src/cblas_ssymm.c index 1b0bd966be..d194320984 100644 --- a/CBLAS/src/cblas_ssymm.c +++ b/CBLAS/src/cblas_ssymm.c @@ -15,12 +15,12 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const float *B, const int ldb, const float beta, float *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,9 +43,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { - cblas_xerbla(2, "cblas_ssymm", + cblas_xerbla(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -54,9 +54,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { - cblas_xerbla(3, "cblas_ssymm", + cblas_xerbla(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -74,9 +74,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { - cblas_xerbla(2, "cblas_ssymm", + cblas_xerbla(2, "cblas_ssymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -85,9 +85,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { - cblas_xerbla(3, "cblas_ssymm", + cblas_xerbla(3, "cblas_ssymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -105,4 +105,4 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_ssymv.c b/CBLAS/src/cblas_ssymv.c index 84b9eecbdf..c0dc682d87 100644 --- a/CBLAS/src/cblas_ssymv.c +++ b/CBLAS/src/cblas_ssymv.c @@ -19,7 +19,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -38,7 +38,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_ssymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X, + F77_ssymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -56,7 +56,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -66,7 +66,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_ssymv(F77_UL, &F77_N, &alpha, + F77_ssymv(F77_UL, &F77_N, &alpha, A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY); } else cblas_xerbla(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_ssyr.c b/CBLAS/src/cblas_ssyr.c index d197fdcdfe..cc66f85c8f 100644 --- a/CBLAS/src/cblas_ssyr.c +++ b/CBLAS/src/cblas_ssyr.c @@ -34,7 +34,7 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -47,12 +47,12 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -61,10 +61,10 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); + #endif + F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_ssyr2.c b/CBLAS/src/cblas_ssyr2.c index a0fc86b030..0d314eb8d1 100644 --- a/CBLAS/src/cblas_ssyr2.c +++ b/CBLAS/src/cblas_ssyr2.c @@ -38,7 +38,7 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -49,15 +49,15 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif - F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, + F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (Uplo == CblasLower) UL = 'U'; else if (Uplo == CblasUpper) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -66,9 +66,9 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); - #endif - F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, - &F77_lda); + #endif + F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A, + &F77_lda); } else cblas_xerbla(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ssyr2k.c b/CBLAS/src/cblas_ssyr2k.c index d4371103df..e5e9575314 100644 --- a/CBLAS/src/cblas_ssyr2k.c +++ b/CBLAS/src/cblas_ssyr2k.c @@ -15,12 +15,12 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const float *B, const int ldb, const float beta, float *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -44,9 +44,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { - cblas_xerbla(2, "cblas_ssyr2k", + cblas_xerbla(2, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -56,9 +56,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { - cblas_xerbla(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -77,9 +77,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { - cblas_xerbla(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -88,9 +88,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { - cblas_xerbla(3, "cblas_ssyr2k", + cblas_xerbla(3, "cblas_ssyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ssyrk.c b/CBLAS/src/cblas_ssyrk.c index 02960da80f..81f9799ccf 100644 --- a/CBLAS/src/cblas_ssyrk.c +++ b/CBLAS/src/cblas_ssyrk.c @@ -14,12 +14,12 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const float alpha, const float *A, const int lda, const float beta, float *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -42,9 +42,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { - cblas_xerbla(2, "cblas_ssyrk", + cblas_xerbla(2, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -54,9 +54,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { - cblas_xerbla(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -75,9 +75,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { - cblas_xerbla(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; RowMajorStrg = 0; @@ -86,9 +86,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { - cblas_xerbla(3, "cblas_ssyrk", + cblas_xerbla(3, "cblas_ssyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_stbmv.c b/CBLAS/src/cblas_stbmv.c index 80c18a2687..bdaaf515d5 100644 --- a/CBLAS/src/cblas_stbmv.c +++ b/CBLAS/src/cblas_stbmv.c @@ -1,5 +1,5 @@ /* - * cblas_stbmv.c + * cblas_stbmv.c * This program is a C interface to stbmv. * Written by Keita Teranishi * 3/3/1998 @@ -20,7 +20,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_stbsv.c b/CBLAS/src/cblas_stbsv.c index 5585022138..6317188c2e 100644 --- a/CBLAS/src/cblas_stbsv.c +++ b/CBLAS/src/cblas_stbsv.c @@ -20,7 +20,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_stpmv.c b/CBLAS/src/cblas_stpmv.c index b8dfe896bd..90a0ab7dbd 100644 --- a/CBLAS/src/cblas_stpmv.c +++ b/CBLAS/src/cblas_stpmv.c @@ -20,7 +20,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -37,7 +37,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -47,7 +47,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -75,7 +75,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -86,7 +86,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -96,7 +96,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_stpsv.c b/CBLAS/src/cblas_stpsv.c index 2073a2c746..21b5be6775 100644 --- a/CBLAS/src/cblas_stpsv.c +++ b/CBLAS/src/cblas_stpsv.c @@ -19,7 +19,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -36,7 +36,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -46,7 +46,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -85,7 +85,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -95,7 +95,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_strmm.c b/CBLAS/src/cblas_strmm.c index 6ed4a1282d..e42acfcc8d 100644 --- a/CBLAS/src/cblas_strmm.c +++ b/CBLAS/src/cblas_strmm.c @@ -15,12 +15,12 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const float alpha, const float *A, const int lda, float *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -43,7 +43,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -63,7 +63,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -94,7 +94,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -104,7 +104,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -115,7 +115,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -125,7 +125,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -140,7 +140,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_strmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_strmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_strmv.c b/CBLAS/src/cblas_strmv.c index 652659dbbf..90e3cd6f8f 100644 --- a/CBLAS/src/cblas_strmv.c +++ b/CBLAS/src/cblas_strmv.c @@ -22,7 +22,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -40,7 +40,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -50,7 +50,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -79,7 +79,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -90,7 +90,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -100,7 +100,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_strsm.c b/CBLAS/src/cblas_strsm.c index 1f03a58d93..8276a97280 100644 --- a/CBLAS/src/cblas_strsm.c +++ b/CBLAS/src/cblas_strsm.c @@ -16,12 +16,12 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, float *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -44,7 +44,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -63,7 +63,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -72,7 +72,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -92,7 +92,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -101,7 +101,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -111,7 +111,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -120,7 +120,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -135,7 +135,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_strsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_strsv.c b/CBLAS/src/cblas_strsv.c index 6a2768b77c..dcf606dd65 100644 --- a/CBLAS/src/cblas_strsv.c +++ b/CBLAS/src/cblas_strsv.c @@ -21,7 +21,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -49,7 +49,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -78,7 +78,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -89,7 +89,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) TA = 'N'; - else + else { cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_xerbla.c b/CBLAS/src/cblas_xerbla.c index 3a2bfe6e3b..00ca9ccfe5 100644 --- a/CBLAS/src/cblas_xerbla.c +++ b/CBLAS/src/cblas_xerbla.c @@ -62,7 +62,7 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...) fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout); vfprintf(stderr, form, argptr); va_end(argptr); - if (info && !info) + if (info && !info) F77_xerbla(empty, &info); /* Force link of our F77 error handler */ exit(-1); } diff --git a/CBLAS/src/cblas_zaxpy.c b/CBLAS/src/cblas_zaxpy.c index f63c4c39bc..a874ad7169 100644 --- a/CBLAS/src/cblas_zaxpy.c +++ b/CBLAS/src/cblas_zaxpy.c @@ -13,10 +13,10 @@ void cblas_zaxpy( const int N, const void *alpha, const void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_zaxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY); -} +} diff --git a/CBLAS/src/cblas_zcopy.c b/CBLAS/src/cblas_zcopy.c index a16be28e7e..78ee45131f 100644 --- a/CBLAS/src/cblas_zcopy.c +++ b/CBLAS/src/cblas_zcopy.c @@ -13,7 +13,7 @@ void cblas_zcopy( const int N, const void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_zdotc_sub.c b/CBLAS/src/cblas_zdotc_sub.c index 76beaeed4f..d88a5d0327 100644 --- a/CBLAS/src/cblas_zdotc_sub.c +++ b/CBLAS/src/cblas_zdotc_sub.c @@ -14,7 +14,7 @@ void cblas_zdotc_sub( const int N, const void *X, const int incX, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_zdotu_sub.c b/CBLAS/src/cblas_zdotu_sub.c index 48a14bf3d4..1d05c08261 100644 --- a/CBLAS/src/cblas_zdotu_sub.c +++ b/CBLAS/src/cblas_zdotu_sub.c @@ -14,7 +14,7 @@ void cblas_zdotu_sub( const int N, const void *X, const int incX, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_zdscal.c b/CBLAS/src/cblas_zdscal.c index 788365befa..bd65c48a12 100644 --- a/CBLAS/src/cblas_zdscal.c +++ b/CBLAS/src/cblas_zdscal.c @@ -13,7 +13,7 @@ void cblas_zdscal( const int N, const double alpha, void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_zgbmv.c b/CBLAS/src/cblas_zgbmv.c index f4dd485c1f..757ea226e5 100644 --- a/CBLAS/src/cblas_zgbmv.c +++ b/CBLAS/src/cblas_zgbmv.c @@ -1,7 +1,7 @@ /* * cblas_zgbmv.c * The program is a C interface of zgbmv - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -49,7 +49,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha, + F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -112,7 +112,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, tincY = -incY; y++; - + if (N > 0) { i = tincY << 1; @@ -127,9 +127,9 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, } else x = (double *) X; - + } - else + else { cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -140,10 +140,10 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, F77_TA = C2F_CHAR(&TA); #endif if (TransA == CblasConjTrans) - F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA, + F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA, A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY); else - F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha, + F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha, A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY); if (TransA == CblasConjTrans) { diff --git a/CBLAS/src/cblas_zgemm.c b/CBLAS/src/cblas_zgemm.c index 7d4c310777..7d2dcd446d 100644 --- a/CBLAS/src/cblas_zgemm.c +++ b/CBLAS/src/cblas_zgemm.c @@ -15,12 +15,12 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char TA, TB; + char TA, TB; #ifdef F77_CHAR F77_CHAR F77_TA, F77_TB; #else - #define F77_TA &TA - #define F77_TB &TB + #define F77_TA &TA + #define F77_TB &TB #endif #ifdef F77_INT @@ -45,7 +45,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TA='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TB='T'; else if ( TransB == CblasConjTrans ) TB='C'; else if ( TransB == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -77,7 +77,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransA == CblasTrans) TB='T'; else if ( TransA == CblasConjTrans ) TB='C'; else if ( TransA == CblasNoTrans ) TB='N'; - else + else { cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -87,7 +87,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, if(TransB == CblasTrans) TA='T'; else if ( TransB == CblasConjTrans ) TA='C'; else if ( TransB == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB); CBLAS_CallFromC = 0; @@ -101,7 +101,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, F77_zgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B, &F77_ldb, A, &F77_lda, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_zgemv.c b/CBLAS/src/cblas_zgemv.c index e727380b04..3516b27eff 100644 --- a/CBLAS/src/cblas_zgemv.c +++ b/CBLAS/src/cblas_zgemv.c @@ -1,7 +1,7 @@ /* * cblas_zgemv.c * The program is a C interface of zgemv - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_TA; #else - #define F77_TA &TA + #define F77_TA &TA #endif #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -47,7 +47,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -57,13 +57,13 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_TA = C2F_CHAR(&TA); #endif - F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, + F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) { RowMajorStrg = 1; - + if (TransA == CblasNoTrans) TA = 'T'; else if (TransA == CblasTrans) TA = 'N'; else if (TransA == CblasConjTrans) @@ -82,11 +82,11 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, i = incX << 1 ; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do @@ -106,9 +106,9 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #endif if(incY > 0) - tincY = incY; + tincY = incY; else - tincY = -incY; + tincY = -incY; y++; @@ -120,13 +120,13 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, do { *y = -(*y); y += i; - } while(y != st); + } while(y != st); y -= n; } } else x = (double *) X; } - else + else { cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zgerc.c b/CBLAS/src/cblas_zgerc.c index 7a4b4b024d..1a59db91fe 100644 --- a/CBLAS/src/cblas_zgerc.c +++ b/CBLAS/src/cblas_zgerc.c @@ -1,7 +1,7 @@ /* * cblas_zgerc.c * The program is a C interface to zgerc. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, #define F77_N N #define F77_incX incX #define F77_incY incy - #define F77_lda lda + #define F77_lda lda #endif int n, i, tincy, incy=incY; @@ -33,9 +33,9 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, CBLAS_CallFromC = 1; if (layout == CblasColMajor) { - F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, + F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); - } else if (layout == CblasRowMajor) + } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if (N > 0) @@ -48,11 +48,11 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, i = incY << 1; tincy = 2; st= y+n; - } else { + } else { i = incY *(-2); tincy = -2; - st = y-2; - y +=(n-2); + st = y-2; + y +=(n-2); } do { @@ -72,7 +72,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, } else y = (double *) Y; - F77_zgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A, + F77_zgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A, &F77_lda); if(Y!=y) free(y); diff --git a/CBLAS/src/cblas_zgeru.c b/CBLAS/src/cblas_zgeru.c index 217acc0a3a..4f37ee99b4 100644 --- a/CBLAS/src/cblas_zgeru.c +++ b/CBLAS/src/cblas_zgeru.c @@ -1,7 +1,7 @@ /* * cblas_zgeru.c * The program is a C interface to zgeru. - * + * * Keita Teranishi 5/20/98 * */ @@ -34,7 +34,7 @@ void cblas_zgeru(const CBLAS_LAYOUT layout, const int M, const int N, else if (layout == CblasRowMajor) { RowMajorStrg = 1; - F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, + F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout); diff --git a/CBLAS/src/cblas_zhbmv.c b/CBLAS/src/cblas_zhbmv.c index 31c978016b..ed97b7ba15 100644 --- a/CBLAS/src/cblas_zhbmv.c +++ b/CBLAS/src/cblas_zhbmv.c @@ -1,7 +1,7 @@ /* * cblas_zhbmv.c * The program is a C interface to zhbmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -44,7 +44,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, + F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -69,7 +69,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -114,11 +114,11 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, } while(y != st); y -= n; } else - x = (double *) X; + x = (double *) X; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -128,10 +128,10 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_zhbmv(F77_UL, &F77_N, &F77_K, ALPHA, + F77_zhbmv(F77_UL, &F77_N, &F77_K, ALPHA, A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zhemm.c b/CBLAS/src/cblas_zhemm.c index 43ed0ff8c6..fc53036b99 100644 --- a/CBLAS/src/cblas_zhemm.c +++ b/CBLAS/src/cblas_zhemm.c @@ -15,12 +15,12 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,7 +43,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -66,14 +66,14 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_SD = C2F_CHAR(&SD); #endif - F77_zhemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda, + F77_zhemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); } else if (layout == CblasRowMajor) { RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -83,7 +83,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,9 +98,9 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_zhemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_zhemv.c b/CBLAS/src/cblas_zhemv.c index 436049e0e4..83c15b19f7 100644 --- a/CBLAS/src/cblas_zhemv.c +++ b/CBLAS/src/cblas_zhemv.c @@ -1,7 +1,7 @@ /* * cblas_zhemv.c * The program is a C interface to zhemv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -44,7 +44,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, + F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -69,7 +69,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -116,10 +116,10 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, } else x = (double *) X; - + if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -129,10 +129,10 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX, + F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_zhemv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zher.c b/CBLAS/src/cblas_zher.c index 9ca09b09ca..068d722538 100644 --- a/CBLAS/src/cblas_zher.c +++ b/CBLAS/src/cblas_zher.c @@ -1,7 +1,7 @@ /* * cblas_zher.c * The program is a C interface to zher. - * + * * Keita Teranishi 5/20/98 * */ @@ -33,13 +33,13 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -76,11 +76,11 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, i = incX << 1 ; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do { @@ -101,9 +101,9 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, else x = (double *) X; F77_zher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda); } else cblas_xerbla(1, "cblas_zher", "Illegal layout setting, %d\n", layout); - if(X!=x) + if(X!=x) free(x); - + CBLAS_CallFromC = 0; RowMajorStrg = 0; return; diff --git a/CBLAS/src/cblas_zher2.c b/CBLAS/src/cblas_zher2.c index d575e9b2c3..debfaf7b31 100644 --- a/CBLAS/src/cblas_zher2.c +++ b/CBLAS/src/cblas_zher2.c @@ -1,7 +1,7 @@ /* * cblas_zher2.c * The program is a C interface to zher2. - * + * * Keita Teranishi 3/23/98 * */ @@ -29,19 +29,19 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incY incy #endif int n, i, j, tincx, tincy, incx=incX, incy=incY; - double *x=(double *)X, *xx=(double *)X, *y=(double *)Y, + double *x=(double *)X, *xx=(double *)X, *y=(double *)Y, *yy=(double *)Y, *tx, *ty, *stx, *sty; extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_UL = C2F_CHAR(&UL); #endif - F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX, + F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A, &F77_lda); } else if (layout == CblasRowMajor) @@ -60,7 +60,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -74,29 +74,29 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { n = N << 1; x = malloc(n*sizeof(double)); - y = malloc(n*sizeof(double)); + y = malloc(n*sizeof(double)); tx = x; ty = y; if( incX > 0 ) { i = incX << 1 ; tincx = 2; stx= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - stx = x-2; - x +=(n-2); + stx = x-2; + x +=(n-2); } - + if( incY > 0 ) { j = incY << 1; tincy = 2; sty= y+n; - } else { + } else { j = incY *(-2); tincy = -2; - sty = y-2; - y +=(n-2); + sty = y-2; + y +=(n-2); } do @@ -127,15 +127,15 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, incx = 1; incy = 1; #endif - } else + } else { x = (double *) X; y = (double *) Y; } - F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, + F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, A, &F77_lda); - } - else + } + else { cblas_xerbla(1, "cblas_zher2", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zher2k.c b/CBLAS/src/cblas_zher2k.c index 482f868691..ccbd6b086b 100644 --- a/CBLAS/src/cblas_zher2k.c +++ b/CBLAS/src/cblas_zher2k.c @@ -15,12 +15,12 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *B, const int ldb, const double beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -36,7 +36,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; - double ALPHA[2]; + double ALPHA[2]; const double *alp=(double *)alpha; CBLAS_CallFromC = 1; @@ -47,7 +47,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -58,7 +58,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -75,10 +75,10 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } else if (layout == CblasRowMajor) { RowMajorStrg = 1; - + if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -88,7 +88,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='C'; - else + else { cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zherk.c b/CBLAS/src/cblas_zherk.c index 5a4171f211..b0bfa81d34 100644 --- a/CBLAS/src/cblas_zherk.c +++ b/CBLAS/src/cblas_zherk.c @@ -14,12 +14,12 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const double alpha, const void *A, const int lda, const double beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -41,7 +41,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -72,7 +72,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -82,7 +82,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='C'; - else + else { cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -97,7 +97,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zherk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_zhpmv.c b/CBLAS/src/cblas_zhpmv.c index b113ea09e9..35019d575c 100644 --- a/CBLAS/src/cblas_zhpmv.c +++ b/CBLAS/src/cblas_zhpmv.c @@ -1,7 +1,7 @@ /* * cblas_zhpmv.c * The program is a C interface of zhpmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; @@ -37,12 +37,12 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, extern int RowMajorStrg; RowMajorStrg = 0; - CBLAS_CallFromC = 1; + CBLAS_CallFromC = 1; if (layout == CblasColMajor) - { + { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #ifdef F77_CHAR F77_UL = C2F_CHAR(&UL); #endif - F77_zhpmv(F77_UL, &F77_N, alpha, AP, X, + F77_zhpmv(F77_UL, &F77_N, alpha, AP, X, &F77_incX, beta, Y, &F77_incY); } else if (layout == CblasRowMajor) @@ -67,7 +67,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1; @@ -96,7 +96,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -117,7 +117,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo ); CBLAS_CallFromC = 0; @@ -128,17 +128,17 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, F77_UL = C2F_CHAR(&UL); #endif - F77_zhpmv(F77_UL, &F77_N, ALPHA, + F77_zhpmv(F77_UL, &F77_N, ALPHA, AP, x, &F77_incX, BETA, Y, &F77_incY); } - else + else { cblas_xerbla(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; } - if ( layout == CblasRowMajor ) + if ( layout == CblasRowMajor ) { RowMajorStrg = 1; if(X!=x) diff --git a/CBLAS/src/cblas_zhpr.c b/CBLAS/src/cblas_zhpr.c index 4037b7bff5..9b00781c5e 100644 --- a/CBLAS/src/cblas_zhpr.c +++ b/CBLAS/src/cblas_zhpr.c @@ -1,7 +1,7 @@ /* * cblas_zhpr.c * The program is a C interface to zhpr. - * + * * Keita Teranishi 3/23/98 * */ @@ -32,13 +32,13 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -56,7 +56,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -75,11 +75,11 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, i = incX << 1; tincx = 2; st= x+n; - } else { + } else { i = incX *(-2); tincx = -2; - st = x-2; - x +=(n-2); + st = x-2; + x +=(n-2); } do { @@ -100,7 +100,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zhpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A); - } else + } else { cblas_xerbla(1, "cblas_zhpr","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zhpr2.c b/CBLAS/src/cblas_zhpr2.c index a4349d3eaa..b7c6ca51ee 100644 --- a/CBLAS/src/cblas_zhpr2.c +++ b/CBLAS/src/cblas_zhpr2.c @@ -1,7 +1,7 @@ /* * cblas_zhpr2.c * The program is a C interface to zhpr2. - * + * * Keita Teranishi 5/20/98 * */ @@ -10,7 +10,7 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const int N,const void *alpha, const void *X, + const int N,const void *alpha, const void *X, const int incX,const void *Y, const int incY, void *Ap) { @@ -35,13 +35,13 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; - + CBLAS_CallFromC = 1; if (layout == CblasColMajor) { if (Uplo == CblasLower) UL = 'L'; else if (Uplo == CblasUpper) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo ); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -73,14 +73,14 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { n = N << 1; x = malloc(n*sizeof(double)); - y = malloc(n*sizeof(double)); + y = malloc(n*sizeof(double)); stx = x + n; sty = y + n; if( incX > 0 ) i = incX << 1; else i = incX *(-2); - + if( incY > 0 ) j = incY << 1; else @@ -108,32 +108,32 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_incX = 1; else F77_incX = -1; - + if(incY > 0 ) F77_incY = 1; else F77_incY = -1; - + #else if(incX > 0 ) incx = 1; else incx = -1; - + if(incY > 0 ) incy = 1; else incy = -1; #endif - } else + } else { x = (double *) X; y = (void *) Y; } F77_zhpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap); - } - else + } + else { cblas_xerbla(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_zscal.c b/CBLAS/src/cblas_zscal.c index 37b319f38f..622e9ba160 100644 --- a/CBLAS/src/cblas_zscal.c +++ b/CBLAS/src/cblas_zscal.c @@ -8,12 +8,12 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zscal( const int N, const void *alpha, void *X, +void cblas_zscal( const int N, const void *alpha, void *X, const int incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_zswap.c b/CBLAS/src/cblas_zswap.c index dfde2cbd01..4895acf48b 100644 --- a/CBLAS/src/cblas_zswap.c +++ b/CBLAS/src/cblas_zswap.c @@ -13,7 +13,7 @@ void cblas_zswap( const int N, void *X, const int incX, void *Y, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; -#else +#else #define F77_N N #define F77_incX incX #define F77_incY incY diff --git a/CBLAS/src/cblas_zsymm.c b/CBLAS/src/cblas_zsymm.c index fcedd04813..16904966f3 100644 --- a/CBLAS/src/cblas_zsymm.c +++ b/CBLAS/src/cblas_zsymm.c @@ -15,12 +15,12 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char SD, UL; + char SD, UL; #ifdef F77_CHAR F77_CHAR F77_SD, F77_UL; #else - #define F77_SD &SD - #define F77_UL &UL + #define F77_SD &SD + #define F77_UL &UL #endif #ifdef F77_INT @@ -43,7 +43,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -83,7 +83,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,9 +98,9 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_zsymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_zsyr2k.c b/CBLAS/src/cblas_zsyr2k.c index b118188408..20bb25b5da 100644 --- a/CBLAS/src/cblas_zsyr2k.c +++ b/CBLAS/src/cblas_zsyr2k.c @@ -15,12 +15,12 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *B, const int ldb, const void *beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -44,7 +44,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -55,7 +55,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -86,7 +86,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -100,7 +100,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #endif F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_zsyrk.c b/CBLAS/src/cblas_zsyrk.c index d247f8dfaf..55e350d846 100644 --- a/CBLAS/src/cblas_zsyrk.c +++ b/CBLAS/src/cblas_zsyrk.c @@ -14,12 +14,12 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const void *alpha, const void *A, const int lda, const void *beta, void *C, const int ldc) { - char UL, TR; + char UL, TR; #ifdef F77_CHAR F77_CHAR F77_TR, F77_UL; #else - #define F77_TR &TR - #define F77_UL &UL + #define F77_TR &TR + #define F77_UL &UL #endif #ifdef F77_INT @@ -42,7 +42,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -53,7 +53,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='T'; else if ( Trans == CblasConjTrans ) TR='C'; else if ( Trans == CblasNoTrans ) TR='N'; - else + else { cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -74,7 +74,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -84,7 +84,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if( Trans == CblasTrans) TR ='N'; else if ( Trans == CblasConjTrans ) TR='N'; else if ( Trans == CblasNoTrans ) TR='T'; - else + else { cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans); CBLAS_CallFromC = 0; @@ -99,7 +99,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, F77_zsyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, beta, C, &F77_ldc); - } + } else cblas_xerbla(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ztbmv.c b/CBLAS/src/cblas_ztbmv.c index 84928ae2d2..58db9839fb 100644 --- a/CBLAS/src/cblas_ztbmv.c +++ b/CBLAS/src/cblas_ztbmv.c @@ -1,7 +1,7 @@ /* * cblas_ztbmv.c * The program is a C interface to ztbmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0, *x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -112,7 +112,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ztbsv.c b/CBLAS/src/cblas_ztbsv.c index 455cb454ce..2f18cdde3b 100644 --- a/CBLAS/src/cblas_ztbsv.c +++ b/CBLAS/src/cblas_ztbsv.c @@ -1,7 +1,7 @@ /* * cblas_ztbsv.c * The program is a C interface to ztbsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -99,9 +99,9 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -116,7 +116,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -126,7 +126,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ztpmv.c b/CBLAS/src/cblas_ztpmv.c index db099d7cc4..e11ac69242 100644 --- a/CBLAS/src/cblas_ztpmv.c +++ b/CBLAS/src/cblas_ztpmv.c @@ -1,7 +1,7 @@ /* * cblas_ztpmv.c * The program is a C interface to ztpmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -27,7 +27,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -38,7 +38,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -108,7 +108,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -118,7 +118,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ztpsv.c b/CBLAS/src/cblas_ztpsv.c index a2df95c85f..7c16668dc6 100644 --- a/CBLAS/src/cblas_ztpsv.c +++ b/CBLAS/src/cblas_ztpsv.c @@ -1,7 +1,7 @@ /* * cblas_ztpsv.c * The program is a C interface to ztpsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -19,7 +19,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; @@ -27,7 +27,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0, *x=(double*)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -38,7 +38,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -48,7 +48,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -57,7 +57,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -76,7 +76,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -95,9 +95,9 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -112,7 +112,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ztrmm.c b/CBLAS/src/cblas_ztrmm.c index 4fd86552e8..573d6b7f5a 100644 --- a/CBLAS/src/cblas_ztrmm.c +++ b/CBLAS/src/cblas_ztrmm.c @@ -15,12 +15,12 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const void *alpha, const void *A, const int lda, void *B, const int ldb) { - char UL, TA, SD, DI; + char UL, TA, SD, DI; #ifdef F77_CHAR F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI; #else - #define F77_TA &TA - #define F77_UL &UL + #define F77_TA &TA + #define F77_UL &UL #define F77_SD &SD #define F77_DI &DI #endif @@ -43,7 +43,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { if( Side == CblasRight ) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -52,7 +52,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } if( Uplo == CblasUpper ) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -63,7 +63,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans ) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -73,7 +73,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -94,7 +94,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, RowMajorStrg = 1; if( Side == CblasRight ) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -104,7 +104,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper ) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -115,7 +115,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans ) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -125,7 +125,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -141,7 +141,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #endif F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ztrmv.c b/CBLAS/src/cblas_ztrmv.c index 57fd235722..462e6d8786 100644 --- a/CBLAS/src/cblas_ztrmv.c +++ b/CBLAS/src/cblas_ztrmv.c @@ -1,7 +1,7 @@ /* * cblas_ztrmv.c * The program is a C interface to ztrmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -21,7 +21,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -41,7 +41,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -51,7 +51,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -60,7 +60,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -80,7 +80,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -112,7 +112,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/cblas_ztrsm.c b/CBLAS/src/cblas_ztrsm.c index 85ad879672..89ceb067bb 100644 --- a/CBLAS/src/cblas_ztrsm.c +++ b/CBLAS/src/cblas_ztrsm.c @@ -44,7 +44,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Side == CblasRight) SD='R'; else if ( Side == CblasLeft ) SD='L'; - else + else { cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -54,7 +54,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='U'; else if ( Uplo == CblasLower ) UL='L'; - else + else { cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -65,7 +65,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -75,7 +75,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -98,7 +98,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Side == CblasRight) SD='L'; else if ( Side == CblasLeft ) SD='R'; - else + else { cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side); CBLAS_CallFromC = 0; @@ -108,7 +108,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Uplo == CblasUpper) UL='L'; else if ( Uplo == CblasLower ) UL='U'; - else + else { cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -119,7 +119,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( TransA == CblasTrans) TA ='T'; else if ( TransA == CblasConjTrans ) TA='C'; else if ( TransA == CblasNoTrans ) TA='N'; - else + else { cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -129,7 +129,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, if( Diag == CblasUnit ) DI='U'; else if ( Diag == CblasNonUnit ) DI='N'; - else + else { cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -147,7 +147,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, F77_ztrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb); - } + } else cblas_xerbla(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout); CBLAS_CallFromC = 0; RowMajorStrg = 0; diff --git a/CBLAS/src/cblas_ztrsv.c b/CBLAS/src/cblas_ztrsv.c index e685208cb0..e7d47e812d 100644 --- a/CBLAS/src/cblas_ztrsv.c +++ b/CBLAS/src/cblas_ztrsv.c @@ -1,7 +1,7 @@ /* * cblas_ztrsv.c * The program is a C interface to ztrsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #else #define F77_TA &TA #define F77_UL &UL - #define F77_DI &DI + #define F77_DI &DI #endif #ifdef F77_INT F77_INT F77_N=N, F77_lda=lda, F77_incX=incX; @@ -29,7 +29,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - int n, i=0, tincX; + int n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; @@ -40,7 +40,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { if (Uplo == CblasUpper) UL = 'U'; else if (Uplo == CblasLower) UL = 'L'; - else + else { cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -50,7 +50,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (TransA == CblasNoTrans) TA = 'N'; else if (TransA == CblasTrans) TA = 'T'; else if (TransA == CblasConjTrans) TA = 'C'; - else + else { cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -59,7 +59,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; @@ -79,7 +79,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, RowMajorStrg = 1; if (Uplo == CblasUpper) UL = 'L'; else if (Uplo == CblasLower) UL = 'U'; - else + else { cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo); CBLAS_CallFromC = 0; @@ -98,10 +98,10 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); x++; - st=x+n; + st=x+n; i = tincX << 1; do { @@ -112,7 +112,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, if (Diag == CblasUnit) DI = 'U'; else if (Diag == CblasNonUnit) DI = 'N'; - else + else { cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag); CBLAS_CallFromC = 0; diff --git a/CBLAS/src/dsdotsub.f b/CBLAS/src/dsdotsub.f index e7e872c9eb..ef53b881a2 100644 --- a/CBLAS/src/dsdotsub.f +++ b/CBLAS/src/dsdotsub.f @@ -12,4 +12,4 @@ subroutine dsdotsub(n,x,incx,y,incy,dot) c dot=dsdot(n,x,incx,y,incy) return - end + end diff --git a/CBLAS/src/sdotsub.f b/CBLAS/src/sdotsub.f index e1af3c97b1..33fa89a9f1 100644 --- a/CBLAS/src/sdotsub.f +++ b/CBLAS/src/sdotsub.f @@ -12,4 +12,4 @@ subroutine sdotsub(n,x,incx,y,incy,dot) c dot=sdot(n,x,incx,y,incy) return - end + end diff --git a/CBLAS/testing/CMakeLists.txt b/CBLAS/testing/CMakeLists.txt index 28c55353f0..beaa2cd0c7 100644 --- a/CBLAS/testing/CMakeLists.txt +++ b/CBLAS/testing/CMakeLists.txt @@ -12,13 +12,13 @@ macro(add_cblas_test output input target) add_test(NAME CBLAS-${testName} COMMAND "${CMAKE_COMMAND}" -DTEST=$ -DINPUT=${TEST_INPUT} - -DOUTPUT=${TEST_OUTPUT} + -DOUTPUT=${TEST_OUTPUT} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") else() - add_test(NAME CBLAS-${testName} COMMAND "${CMAKE_COMMAND}" + add_test(NAME CBLAS-${testName} COMMAND "${CMAKE_COMMAND}" -DTEST=$ - -DOUTPUT=${TEST_OUTPUT} + -DOUTPUT=${TEST_OUTPUT} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() @@ -53,15 +53,15 @@ if(BUILD_SINGLE) add_executable(xscblat1 c_sblat1.f ${STESTL1O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xscblat2 c_sblat2.f ${STESTL2O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xscblat3 c_sblat3.f ${STESTL3O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) - + target_link_libraries(xscblat1 cblas ${BLAS_LIBRARIES}) target_link_libraries(xscblat2 cblas ${BLAS_LIBRARIES}) target_link_libraries(xscblat3 cblas ${BLAS_LIBRARIES}) - + add_cblas_test(stest1.out "" xscblat1) add_cblas_test(stest2.out sin2 xscblat2) add_cblas_test(stest3.out sin3 xscblat3) - + endif() if(BUILD_DOUBLE) @@ -69,11 +69,11 @@ if(BUILD_DOUBLE) add_executable(xdcblat1 c_dblat1.f ${DTESTL1O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xdcblat2 c_dblat2.f ${DTESTL2O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xdcblat3 c_dblat3.f ${DTESTL3O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) - + target_link_libraries(xdcblat1 cblas ${BLAS_LIBRARIES}) target_link_libraries(xdcblat2 cblas ${BLAS_LIBRARIES}) target_link_libraries(xdcblat3 cblas ${BLAS_LIBRARIES}) - + add_cblas_test(dtest1.out "" xdcblat1) add_cblas_test(dtest2.out din2 xdcblat2) add_cblas_test(dtest3.out din3 xdcblat3) @@ -85,11 +85,11 @@ if(BUILD_COMPLEX) add_executable(xccblat1 c_cblat1.f ${CTESTL1O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xccblat2 c_cblat2.f ${CTESTL2O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xccblat3 c_cblat3.f ${CTESTL3O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) - + target_link_libraries(xccblat1 cblas ${BLAS_LIBRARIES}) target_link_libraries(xccblat2 cblas ${BLAS_LIBRARIES}) target_link_libraries(xccblat3 cblas ${BLAS_LIBRARIES}) - + add_cblas_test(ctest1.out "" xccblat1) add_cblas_test(ctest2.out cin2 xccblat2) add_cblas_test(ctest3.out cin3 xccblat3) @@ -101,11 +101,11 @@ if(BUILD_COMPLEX16) add_executable(xzcblat1 c_zblat1.f ${ZTESTL1O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xzcblat2 c_zblat2.f ${ZTESTL2O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) add_executable(xzcblat3 c_zblat3.f ${ZTESTL3O} ${LAPACK_BINARY_DIR}/include/cblas_test.h) - + target_link_libraries(xzcblat1 cblas ${BLAS_LIBRARIES}) target_link_libraries(xzcblat2 cblas ${BLAS_LIBRARIES}) target_link_libraries(xzcblat3 cblas ${BLAS_LIBRARIES}) - + add_cblas_test(ztest1.out "" xzcblat1) add_cblas_test(ztest2.out zin2 xzcblat2) add_cblas_test(ztest3.out zin3 xzcblat3) diff --git a/CBLAS/testing/Makefile b/CBLAS/testing/Makefile index b4213e4108..4a4ced3eea 100644 --- a/CBLAS/testing/Makefile +++ b/CBLAS/testing/Makefile @@ -1,11 +1,11 @@ # -# The Makefile compiles c wrappers and testers for CBLAS. +# The Makefile compiles c wrappers and testers for CBLAS. # include ../../make.inc # Archive files necessary to compile -LIB = $(CBLASLIB) $(BLASLIB) +LIB = $(CBLASLIB) $(BLASLIB) # Object files for single real precision stestl1o = c_sblas1.o @@ -29,23 +29,23 @@ ctestl2o = c_cblas2.o c_c2chke.o auxiliary.o c_xerbla.o ctestl3o = c_cblas3.o c_c3chke.o auxiliary.o c_xerbla.o # Object files for double complex precision -ztestl1o = c_zblas1.o +ztestl1o = c_zblas1.o ztestl2o = c_zblas2.o c_z2chke.o auxiliary.o c_xerbla.o ztestl3o = c_zblas3.o c_z3chke.o auxiliary.o c_xerbla.o -all: all1 all2 all3 -all1: stest1 dtest1 ctest1 ztest1 +all: all1 all2 all3 +all1: stest1 dtest1 ctest1 ztest1 all2: stest2 dtest2 ctest2 ztest2 all3: stest3 dtest3 ctest3 ztest3 clean: rm -f core *.o *.out x* cleanobj: - rm -f core *.o a.out + rm -f core *.o a.out cleanexe: - rm -f x* + rm -f x* stest1: xscblat1 dtest1: xdcblat1 @@ -80,7 +80,7 @@ xdcblat2: $(dtestl2o) c_dblat2.o $(LOADER) $(LOADOPTS) -o xdcblat2 c_dblat2.o $(dtestl2o) $(LIB) xdcblat3: $(dtestl3o) c_dblat3.o $(LOADER) $(LOADOPTS) -o xdcblat3 c_dblat3.o $(dtestl3o) $(LIB) - + # Single complex xccblat1: $(ctestl1o) c_cblat1.o $(LOADER) $(LOADOPTS) -o xccblat1 c_cblat1.o $(ctestl1o) $(LIB) @@ -89,14 +89,14 @@ xccblat2: $(ctestl2o) c_cblat2.o xccblat3: $(ctestl3o) c_cblat3.o $(LOADER) $(LOADOPTS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) -# Double complex +# Double complex xzcblat1: $(ztestl1o) c_zblat1.o $(LOADER) $(LOADOPTS) -o xzcblat1 c_zblat1.o $(ztestl1o) $(LIB) xzcblat2: $(ztestl2o) c_zblat2.o $(LOADER) $(LOADOPTS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) xzcblat3: $(ztestl3o) c_zblat3.o $(LOADER) $(LOADOPTS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) - + # RUN TESTS run: @@ -123,12 +123,12 @@ run: @echo "--> TESTING CBLAS 3 - COMPLEX PRECISION <--" @./xccblat3 < cin3 > ctest3.out @echo "--> TESTING CBLAS 3 - DOUBLE COMPLEX PRECISION <--" - @./xzcblat3 < zin3 > ztest3.out - + @./xzcblat3 < zin3 > ztest3.out + .SUFFIXES: .o .f .c .c.o: $(CC) -c $(CFLAGS) -I ../include -o $@ $< - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index 18422831a4..28b771980b 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { void F77_c2chke(char *rout) { char *sf = ( rout ) ; - float A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + float A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -48,588 +48,588 @@ void F77_c2chke(char *rout) { if (strncmp( sf,"cblas_cgemv",11)==0) { cblas_rout = "cblas_cgemv"; cblas_info = 1; - cblas_cgemv(INVALID, CblasNoTrans, 0, 0, + cblas_cgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, INVALID, 0, 0, + cblas_cgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, INVALID, 0, 0, + cblas_cgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgbmv",11)==0) { cblas_rout = "cblas_cgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chemv",11)==0) { cblas_rout = "cblas_chemv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chemv(INVALID, CblasUpper, 0, + cblas_chemv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, INVALID, 0, + cblas_chemv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, INVALID, + cblas_chemv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 2, + cblas_chemv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + cblas_chemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + cblas_chemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, INVALID, 0, + cblas_chemv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, INVALID, + cblas_chemv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 2, + cblas_chemv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + cblas_chemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + cblas_chemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chbmv",11)==0) { cblas_rout = "cblas_chbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chbmv(INVALID, CblasUpper, 0, 0, + cblas_chbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, INVALID, 0, 0, + cblas_chbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, INVALID, 0, 0, + cblas_chbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chpmv",11)==0) { cblas_rout = "cblas_chpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chpmv(INVALID, CblasUpper, 0, + cblas_chpmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, INVALID, 0, + cblas_chpmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, INVALID, + cblas_chpmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + cblas_chpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + cblas_chpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, INVALID, 0, + cblas_chpmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + cblas_chpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + cblas_chpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrmv",11)==0) { cblas_rout = "cblas_ctrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbmv",11)==0) { cblas_rout = "cblas_ctbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpmv",11)==0) { cblas_rout = "cblas_ctpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrsv",11)==0) { cblas_rout = "cblas_ctrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbsv",11)==0) { cblas_rout = "cblas_ctbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpsv",11)==0) { cblas_rout = "cblas_ctpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgeru",10)==0) { @@ -818,7 +818,7 @@ void F77_c2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c index 67622435a9..1be0c3fd10 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -30,7 +30,7 @@ void F77_c3chke(char * rout) { B[4] = {0.0,0.0,0.0,0.0}, C[4] = {0.0,0.0,0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -49,15 +49,15 @@ void F77_c3chke(char * rout) { cblas_rout = "cblas_cgemm" ; cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; @@ -272,7 +272,7 @@ void F77_c3chke(char * rout) { cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } else if (strncmp( sf,"cblas_chemm" ,11)==0) { cblas_rout = "cblas_chemm" ; @@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) { cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/CBLAS/testing/c_cblas1.c b/CBLAS/testing/c_cblas1.c index 31b9d47b2e..81a5b843b5 100644 --- a/CBLAS/testing/c_cblas1.c +++ b/CBLAS/testing/c_cblas1.c @@ -15,21 +15,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X, return; } -void F77_ccopy(const int *N, void *X, const int *incX, +void F77_ccopy(const int *N, void *X, const int *incX, void *Y, const int *incY) { cblas_ccopy(*N, X, *incX, Y, *incY); return; } -void F77_cdotc(const int *N, void *X, const int *incX, +void F77_cdotc(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotc) { cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); return; } -void F77_cdotu(const int *N, void *X, const int *incX, +void F77_cdotu(const int *N, void *X, const int *incX, void *Y, const int *incY,void *dotu) { cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); diff --git a/CBLAS/testing/c_cblas2.c b/CBLAS/testing/c_cblas2.c index 6ba0276994..bb7e644854 100644 --- a/CBLAS/testing/c_cblas2.c +++ b/CBLAS/testing/c_cblas2.c @@ -8,9 +8,9 @@ #include "cblas.h" #include "cblas_test.h" -void F77_cgemv(int *layout, char *transp, int *m, int *n, +void F77_cgemv(int *layout, char *transp, int *m, int *n, const void *alpha, - CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, + CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, const void *beta, void *y, int *incy) { CBLAS_TEST_COMPLEX *A; @@ -38,9 +38,9 @@ void F77_cgemv(int *layout, char *transp, int *m, int *n, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } -void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, - CBLAS_TEST_COMPLEX *x, int *incx, +void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) { CBLAS_TEST_COMPLEX *A; @@ -85,8 +85,8 @@ void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, *incx, beta, y, *incy ); } -void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, +void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda){ CBLAS_TEST_COMPLEX *A; @@ -114,8 +114,8 @@ void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } -void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, +void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda) { CBLAS_TEST_COMPLEX *A; int i,j,LDA; @@ -165,7 +165,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, free(A); } else if (*layout == TEST_COL_MJR) - cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, + cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, @@ -173,7 +173,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, } void F77_chbmv(int *layout, char *uplow, int *n, int *k, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, + cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else { LDA = *k+2; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, + CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){ CBLAS_TEST_COMPLEX *A, *AP; @@ -247,7 +247,7 @@ void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, get_uplo_type(uplow,&uplo); if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, + cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, beta, y, *incy); else { LDA = *n; @@ -344,7 +344,7 @@ void F77_ctbmv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, + cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -371,7 +371,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, + cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -408,7 +408,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_chpr2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, + cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, *incy, ap ); else { LDA = *n; @@ -752,7 +752,7 @@ void F77_cher(int *layout, char *uplow, int *n, float *alpha, LDA = *n+1; A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX )); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; @@ -786,7 +786,7 @@ void F77_cher2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, LDA = *n+1; A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; diff --git a/CBLAS/testing/c_cblas3.c b/CBLAS/testing/c_cblas3.c index 5e4b8b384a..e0e41230f4 100644 --- a/CBLAS/testing/c_cblas3.c +++ b/CBLAS/testing/c_cblas3.c @@ -11,9 +11,9 @@ #define TEST_ROW_MJR 1 #define UNDEFINED -1 -void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n, +void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n, int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, - CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, + CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { CBLAS_TEST_COMPLEX *A, *B, *C; @@ -133,7 +133,7 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -145,10 +145,10 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*layout == TEST_COL_MJR) - cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n, @@ -189,7 +189,7 @@ void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n, for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) C[i*LDC+j]=c[j*(*ldc)+i]; - cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) @@ -199,15 +199,15 @@ void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*layout == TEST_COL_MJR) - cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k, - float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -244,7 +244,7 @@ void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, + cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -255,15 +255,15 @@ void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); else - cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); } void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -300,7 +300,7 @@ void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, + cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -311,10 +311,10 @@ void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); else - cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); } void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k, @@ -363,7 +363,7 @@ void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -375,10 +375,10 @@ void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); else - cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); } void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k, @@ -427,7 +427,7 @@ void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -439,14 +439,14 @@ void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, + int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_COMPLEX *A, *B; @@ -486,7 +486,7 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -497,15 +497,15 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*layout == TEST_COL_MJR) - cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, + int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_COMPLEX *A, *B; @@ -545,7 +545,7 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -556,9 +556,9 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*layout == TEST_COL_MJR) - cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } diff --git a/CBLAS/testing/c_cblat2.f b/CBLAS/testing/c_cblat2.f index 545ba4b9fc..d934ebb49d 100644 --- a/CBLAS/testing/c_cblat2.f +++ b/CBLAS/testing/c_cblat2.f @@ -348,13 +348,13 @@ PROGRAM CBLAT2 160 IF (CORDER) THEN CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 0 ) END IF IF (RORDER) THEN CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 1 ) END IF GO TO 200 @@ -581,7 +581,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' @@ -684,7 +684,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * See what data changed inside subroutines. * -* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN +* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN ISAME( 1 ) = TRANS.EQ.TRANSS ISAME( 2 ) = MS.EQ.M ISAME( 3 ) = NS.EQ.N @@ -925,7 +925,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, UPLO = ICH( IC: IC ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1284,7 +1284,7 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, UPLO = ICHU( ICU: ICU ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1294,7 +1294,7 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF * diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 62a43643eb..94144b8750 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -424,7 +424,7 @@ PROGRAM CBLAT3 END SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests CGEMM. @@ -600,7 +600,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, IF( REWI ) $ REWIND NTRA CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N, - $ K, ALPHA, AA, LDA, BB, LDB, + $ K, ALPHA, AA, LDA, BB, LDB, $ BETA, CC, LDC ) * * Check if error-exit was taken incorrectly. @@ -688,7 +688,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * 120 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, + CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) * 130 CONTINUE @@ -724,24 +724,24 @@ SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, CHARACTER*1 TRANSA, TRANSB CHARACTER*12 SNAME CHARACTER*14 CRC, CTA,CTB - + IF (TRANSA.EQ.'N')THEN CTA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CTA = ' CblasTrans' - ELSE + ELSE CTA = 'CblasConjTrans' END IF IF (TRANSB.EQ.'N')THEN CTB = ' CblasNoTrans' ELSE IF (TRANSB.EQ.'T')THEN CTB = ' CblasTrans' - ELSE + ELSE CTB = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB @@ -754,7 +754,7 @@ SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, * SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests CHEMM and CSYMM. @@ -910,9 +910,9 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * Call the subroutine. * IF( TRACE ) - $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, - $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, - $ BETA, LDC) + $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, + $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, + $ BETA, LDC) IF( REWI ) $ REWIND NTRA IF( CONJ )THEN @@ -1015,7 +1015,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, 110 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, - $ LDB, BETA, LDC) + $ LDB, BETA, LDC) * 120 CONTINUE RETURN @@ -1050,20 +1050,20 @@ SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, CHARACTER*1 SIDE, UPLO CHARACTER*12 SNAME CHARACTER*14 CRC, CS,CU - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1402,22 +1402,22 @@ SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*12 SNAME CHARACTER*14 CRC, CS, CU, CA, CD - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (DIAG.EQ.'N')THEN @@ -1427,7 +1427,7 @@ SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1788,22 +1788,22 @@ SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -1822,29 +1822,29 @@ SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) - 9994 FORMAT( 10X, 2( I3, ',' ), + 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END * @@ -2041,7 +2041,7 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, IF( REWI ) $ REWIND NTRA CALL CCSYR2K( IORDER, UPLO, TRANS, N, K, - $ ALPHA, AA, LDA, BB, LDB, BETA, + $ ALPHA, AA, LDA, BB, LDB, BETA, $ CC, LDC ) END IF * @@ -2241,22 +2241,22 @@ SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -2276,22 +2276,22 @@ SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c index 46a242fc15..d989811d28 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -26,9 +26,9 @@ void chkxer(void) { void F77_d2chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -46,588 +46,588 @@ void F77_d2chke(char *rout) { if (strncmp( sf,"cblas_dgemv",11)==0) { cblas_rout = "cblas_dgemv"; cblas_info = 1; - cblas_dgemv(INVALID, CblasNoTrans, 0, 0, + cblas_dgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, INVALID, 0, 0, + cblas_dgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, INVALID, 0, 0, + cblas_dgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dgbmv",11)==0) { cblas_rout = "cblas_dgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsymv",11)==0) { cblas_rout = "cblas_dsymv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsymv(INVALID, CblasUpper, 0, + cblas_dsymv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, INVALID, 0, + cblas_dsymv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, INVALID, + cblas_dsymv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 2, + cblas_dsymv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + cblas_dsymv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + cblas_dsymv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, INVALID, 0, + cblas_dsymv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, + cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 2, + cblas_dsymv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + cblas_dsymv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + cblas_dsymv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsbmv",11)==0) { cblas_rout = "cblas_dsbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsbmv(INVALID, CblasUpper, 0, 0, + cblas_dsbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, INVALID, 0, 0, + cblas_dsbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, + cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dspmv",11)==0) { cblas_rout = "cblas_dspmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dspmv(INVALID, CblasUpper, 0, + cblas_dspmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, INVALID, 0, + cblas_dspmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, INVALID, + cblas_dspmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + cblas_dspmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + cblas_dspmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, INVALID, 0, + cblas_dspmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + cblas_dspmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + cblas_dspmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrmv",11)==0) { cblas_rout = "cblas_dtrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbmv",11)==0) { cblas_rout = "cblas_dtbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpmv",11)==0) { cblas_rout = "cblas_dtpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrsv",11)==0) { cblas_rout = "cblas_dtrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbsv",11)==0) { cblas_rout = "cblas_dtbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpsv",11)==0) { cblas_rout = "cblas_dtpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dger",10)==0) { @@ -781,7 +781,7 @@ void F77_d2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c index fae38d485f..e41901e79c 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -26,9 +26,9 @@ void chkxer(void) { void F77_d3chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - B[2] = {0.0,0.0}, - C[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + B[2] = {0.0,0.0}, + C[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -39,7 +39,7 @@ void F77_d3chke(char *rout) { cblas_xerbla(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info); } - + cblas_ok = TRUE ; cblas_lerr = PASSED ; @@ -47,15 +47,15 @@ void F77_d3chke(char *rout) { cblas_rout = "cblas_dgemm" ; cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c index 616c498954..deb7851257 100644 --- a/CBLAS/testing/c_dblas1.c +++ b/CBLAS/testing/c_dblas1.c @@ -20,7 +20,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X, return; } -void F77_dcopy(const int *N, double *X, const int *incX, +void F77_dcopy(const int *N, double *X, const int *incX, double *Y, const int *incY) { cblas_dcopy(*N, X, *incX, Y, *incY); diff --git a/CBLAS/testing/c_dblas2.c b/CBLAS/testing/c_dblas2.c index eeaf88e6b0..835ba19f34 100644 --- a/CBLAS/testing/c_dblas2.c +++ b/CBLAS/testing/c_dblas2.c @@ -8,8 +8,8 @@ #include "cblas.h" #include "cblas_test.h" -void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha, - double *a, int *lda, double *x, int *incx, double *beta, +void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha, + double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy ) { double *A; @@ -23,7 +23,7 @@ void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha, for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dgemv( CblasRowMajor, trans, + cblas_dgemv( CblasRowMajor, trans, *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } @@ -68,9 +68,9 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn, CBLAS_UPLO uplo; CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*layout == TEST_ROW_MJR) { LDA = *n+1; @@ -88,7 +88,7 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn, } } -void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn, +void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn, int *n, double *a, int *lda, double *x, int *incx ) { double *A; int i,j,LDA; @@ -112,7 +112,7 @@ void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn, else cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); } -void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a, +void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) { double *A; @@ -136,7 +136,7 @@ void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a, *beta, y, *incy ); } -void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x, +void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x, int *incx, double *a, int *lda) { double *A; int i,j,LDA; @@ -160,7 +160,7 @@ void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x, cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); } -void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x, +void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda) { double *A; int i,j,LDA; @@ -185,7 +185,7 @@ void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x, } void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, - double *alpha, double *a, int *lda, double *x, int *incx, + double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy ) { double *A; @@ -213,7 +213,7 @@ void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, for( j=jcol; j<(*n+*kl); j++ ) A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } - cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, + cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } @@ -230,9 +230,9 @@ void F77_dtbmv(int *layout, char *uplow, char *transp, char *diagn, CBLAS_UPLO uplo; CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*layout == TEST_ROW_MJR) { LDA = *k+1; @@ -276,9 +276,9 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn, CBLAS_UPLO uplo; CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*layout == TEST_ROW_MJR) { LDA = *k+1; @@ -315,7 +315,7 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn, } void F77_dsbmv(int *layout, char *uplow, int *n, int *k, double *alpha, - double *a, int *lda, double *x, int *incx, double *beta, + double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) { double *A; int i,j,irow,jcol,LDA; @@ -387,13 +387,13 @@ void F77_dspmv(int *layout, char *uplow, int *n, double *alpha, double *ap, for( j=0; j= 9; i--) if (rout[i] == ' ') rout[i] = '\0'; - + /* We increment *info by 1 since the CBLAS interface adds one more * argument to all level 2 and 3 routines. */ diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c index 09aaa68a0a..d51c7c2674 100644 --- a/CBLAS/testing/c_z2chke.c +++ b/CBLAS/testing/c_z2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { void F77_z2chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -48,588 +48,588 @@ void F77_z2chke(char *rout) { if (strncmp( sf,"cblas_zgemv",11)==0) { cblas_rout = "cblas_zgemv"; cblas_info = 1; - cblas_zgemv(INVALID, CblasNoTrans, 0, 0, + cblas_zgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, INVALID, 0, 0, + cblas_zgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, INVALID, 0, 0, + cblas_zgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zgbmv",11)==0) { cblas_rout = "cblas_zgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhemv",11)==0) { cblas_rout = "cblas_zhemv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhemv(INVALID, CblasUpper, 0, + cblas_zhemv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, INVALID, 0, + cblas_zhemv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, INVALID, + cblas_zhemv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 2, + cblas_zhemv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 0, + cblas_zhemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 0, + cblas_zhemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, INVALID, 0, + cblas_zhemv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, + cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 2, + cblas_zhemv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 0, + cblas_zhemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 0, + cblas_zhemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhbmv",11)==0) { cblas_rout = "cblas_zhbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhbmv(INVALID, CblasUpper, 0, 0, + cblas_zhbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, INVALID, 0, 0, + cblas_zhbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, + cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhpmv",11)==0) { cblas_rout = "cblas_zhpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhpmv(INVALID, CblasUpper, 0, + cblas_zhpmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, INVALID, 0, + cblas_zhpmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, + cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, 0, + cblas_zhpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, 0, + cblas_zhpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, INVALID, 0, + cblas_zhpmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, 0, + cblas_zhpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, 0, + cblas_zhpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztrmv",11)==0) { cblas_rout = "cblas_ztrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztbmv",11)==0) { cblas_rout = "cblas_ztbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztpmv",11)==0) { cblas_rout = "cblas_ztpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztrsv",11)==0) { cblas_rout = "cblas_ztrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztbsv",11)==0) { cblas_rout = "cblas_ztbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztpsv",11)==0) { cblas_rout = "cblas_ztpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zgeru",10)==0) { @@ -818,7 +818,7 @@ void F77_z2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c index 0bb1bfb620..10078a103b 100644 --- a/CBLAS/testing/c_z3chke.c +++ b/CBLAS/testing/c_z3chke.c @@ -30,7 +30,7 @@ void F77_z3chke(char * rout) { B[4] = {0.0,0.0,0.0,0.0}, C[4] = {0.0,0.0,0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -49,15 +49,15 @@ void F77_z3chke(char * rout) { cblas_rout = "cblas_zgemm" ; cblas_info = 1; - cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; @@ -272,7 +272,7 @@ void F77_z3chke(char * rout) { cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } else if (strncmp( sf,"cblas_zhemm" ,11)==0) { cblas_rout = "cblas_zhemm" ; @@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) { cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/CBLAS/testing/c_zblas1.c b/CBLAS/testing/c_zblas1.c index d2215a89e5..2b21d8f187 100644 --- a/CBLAS/testing/c_zblas1.c +++ b/CBLAS/testing/c_zblas1.c @@ -15,21 +15,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X, return; } -void F77_zcopy(const int *N, void *X, const int *incX, +void F77_zcopy(const int *N, void *X, const int *incX, void *Y, const int *incY) { cblas_zcopy(*N, X, *incX, Y, *incY); return; } -void F77_zdotc(const int *N, const void *X, const int *incX, +void F77_zdotc(const int *N, const void *X, const int *incX, const void *Y, const int *incY,void *dotc) { cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); return; } -void F77_zdotu(const int *N, void *X, const int *incX, +void F77_zdotu(const int *N, void *X, const int *incX, void *Y, const int *incY,void *dotu) { cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); diff --git a/CBLAS/testing/c_zblas2.c b/CBLAS/testing/c_zblas2.c index d4b4608156..b6fbdd628d 100644 --- a/CBLAS/testing/c_zblas2.c +++ b/CBLAS/testing/c_zblas2.c @@ -8,9 +8,9 @@ #include "cblas.h" #include "cblas_test.h" -void F77_zgemv(int *layout, char *transp, int *m, int *n, +void F77_zgemv(int *layout, char *transp, int *m, int *n, const void *alpha, - CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, + CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, const void *beta, void *y, int *incy) { CBLAS_TEST_ZOMPLEX *A; @@ -38,9 +38,9 @@ void F77_zgemv(int *layout, char *transp, int *m, int *n, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } -void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, - CBLAS_TEST_ZOMPLEX *x, int *incx, +void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) { CBLAS_TEST_ZOMPLEX *A; @@ -85,8 +85,8 @@ void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, *incx, beta, y, *incy ); } -void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, +void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, CBLAS_TEST_ZOMPLEX *a, int *lda){ CBLAS_TEST_ZOMPLEX *A; @@ -114,8 +114,8 @@ void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } -void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, +void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, CBLAS_TEST_ZOMPLEX *a, int *lda) { CBLAS_TEST_ZOMPLEX *A; int i,j,LDA; @@ -165,7 +165,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, free(A); } else if (*layout == TEST_COL_MJR) - cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, + cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, @@ -173,7 +173,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, } void F77_zhbmv(int *layout, char *uplow, int *n, int *k, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, + cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else { LDA = *k+2; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, + CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){ CBLAS_TEST_ZOMPLEX *A, *AP; @@ -247,7 +247,7 @@ void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, get_uplo_type(uplow,&uplo); if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, + cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, beta, y, *incy); else { LDA = *n; @@ -344,7 +344,7 @@ void F77_ztbmv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, + cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -371,7 +371,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, + cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -408,7 +408,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_zhpr2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, + cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, *incy, ap ); else { LDA = *n; @@ -752,7 +752,7 @@ void F77_zher(int *layout, char *uplow, int *n, double *alpha, LDA = *n+1; A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX )); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; @@ -786,7 +786,7 @@ void F77_zher2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, LDA = *n+1; A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; diff --git a/CBLAS/testing/c_zblas3.c b/CBLAS/testing/c_zblas3.c index de4cb56dd3..65a821359c 100644 --- a/CBLAS/testing/c_zblas3.c +++ b/CBLAS/testing/c_zblas3.c @@ -11,9 +11,9 @@ #define TEST_ROW_MJR 1 #define UNDEFINED -1 -void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n, +void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n, int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, - CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, + CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { CBLAS_TEST_ZOMPLEX *A, *B, *C; @@ -133,7 +133,7 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -145,10 +145,10 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n, @@ -189,7 +189,7 @@ void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n, for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) C[i*LDC+j]=c[j*(*ldc)+i]; - cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) @@ -199,15 +199,15 @@ void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k, - double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -244,7 +244,7 @@ void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, + cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -255,15 +255,15 @@ void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); else - cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); } void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -300,7 +300,7 @@ void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, + cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -311,10 +311,10 @@ void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); else - cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); } void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k, @@ -363,7 +363,7 @@ void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -375,10 +375,10 @@ void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); else - cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); } void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, @@ -427,7 +427,7 @@ void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -439,14 +439,14 @@ void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, free(C); } else if (*layout == TEST_COL_MJR) - cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, + int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_ZOMPLEX *A, *B; @@ -486,7 +486,7 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -497,15 +497,15 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*layout == TEST_COL_MJR) - cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, + int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_ZOMPLEX *A, *B; @@ -545,7 +545,7 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -556,9 +556,9 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*layout == TEST_COL_MJR) - cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } diff --git a/CBLAS/testing/c_zblat2.f b/CBLAS/testing/c_zblat2.f index 12bf0e77a8..4392602302 100644 --- a/CBLAS/testing/c_zblat2.f +++ b/CBLAS/testing/c_zblat2.f @@ -69,7 +69,7 @@ PROGRAM ZBLAT2 INTEGER NSUBS PARAMETER ( NSUBS = 17 ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO, RHALF, RONE PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) @@ -348,13 +348,13 @@ PROGRAM ZBLAT2 160 IF (CORDER) THEN CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 0 ) END IF IF (RORDER) THEN CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 1 ) END IF GO TO 200 @@ -474,7 +474,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * .. Parameters .. COMPLEX*16 ZERO, HALF - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ) ) DOUBLE PRECISION RZERO PARAMETER ( RZERO = 0.0D0 ) @@ -582,7 +582,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' @@ -685,7 +685,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * See what data changed inside subroutines. * -* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN +* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN ISAME( 1 ) = TRANS.EQ.TRANSS ISAME( 2 ) = MS.EQ.M ISAME( 3 ) = NS.EQ.N @@ -927,7 +927,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, UPLO = ICH( IC: IC ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1287,7 +1287,7 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, UPLO = ICHU( ICU: ICU ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1297,7 +1297,7 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF * @@ -1569,7 +1569,7 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -1847,7 +1847,7 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -2141,7 +2141,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -2762,7 +2762,7 @@ SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, * * .. Parameters .. COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) COMPLEX*16 ROGUE PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) ) diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index 4b278a1627..21e743d171 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -51,7 +51,7 @@ PROGRAM ZBLAT3 INTEGER NSUBS PARAMETER ( NSUBS = 9 ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO, RHALF, RONE PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) @@ -425,7 +425,7 @@ PROGRAM ZBLAT3 END SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests ZGEMM. @@ -601,7 +601,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, IF( REWI ) $ REWIND NTRA CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N, - $ K, ALPHA, AA, LDA, BB, LDB, + $ K, ALPHA, AA, LDA, BB, LDB, $ BETA, CC, LDC ) * * Check if error-exit was taken incorrectly. @@ -689,7 +689,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * 120 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, + CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) * 130 CONTINUE @@ -725,24 +725,24 @@ SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, CHARACTER*1 TRANSA, TRANSB CHARACTER*12 SNAME CHARACTER*14 CRC, CTA,CTB - + IF (TRANSA.EQ.'N')THEN CTA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CTA = ' CblasTrans' - ELSE + ELSE CTA = 'CblasConjTrans' END IF IF (TRANSB.EQ.'N')THEN CTB = ' CblasNoTrans' ELSE IF (TRANSB.EQ.'T')THEN CTB = ' CblasTrans' - ELSE + ELSE CTB = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB @@ -755,7 +755,7 @@ SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, * SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests ZHEMM and ZSYMM. @@ -911,9 +911,9 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * Call the subroutine. * IF( TRACE ) - $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, - $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, - $ BETA, LDC) + $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, + $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, + $ BETA, LDC) IF( REWI ) $ REWIND NTRA IF( CONJ )THEN @@ -1016,7 +1016,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, 110 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, - $ LDB, BETA, LDC) + $ LDB, BETA, LDC) * 120 CONTINUE RETURN @@ -1051,20 +1051,20 @@ SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, CHARACTER*1 SIDE, UPLO CHARACTER*12 SNAME CHARACTER*14 CRC, CS,CU - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1403,22 +1403,22 @@ SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*12 SNAME CHARACTER*14 CRC, CS, CU, CA, CD - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (DIAG.EQ.'N')THEN @@ -1428,7 +1428,7 @@ SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1789,22 +1789,22 @@ SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -1823,29 +1823,29 @@ SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) - 9994 FORMAT( 10X, 2( I3, ',' ), + 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END * @@ -2042,7 +2042,7 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, IF( REWI ) $ REWIND NTRA CALL CZSYR2K( IORDER, UPLO, TRANS, N, K, - $ ALPHA, AA, LDA, BB, LDB, BETA, + $ ALPHA, AA, LDA, BB, LDB, BETA, $ CC, LDC ) END IF * @@ -2242,22 +2242,22 @@ SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -2277,22 +2277,22 @@ SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA diff --git a/CMAKE/CheckFortranTypeSizes.cmake b/CMAKE/CheckFortranTypeSizes.cmake index 9cc12ce172..585ca26e72 100644 --- a/CMAKE/CheckFortranTypeSizes.cmake +++ b/CMAKE/CheckFortranTypeSizes.cmake @@ -3,12 +3,12 @@ # # After execution, the following variables are set. If they are un set then # size detection was not possible -# +# # SIZEOF_INTEGER - Number of bytes used to store the default INTEGER type # SIZEOF_REAL - Number of bytes used to store the default REAL type # SIZEOF_LOGICAL - Number of bytes used to store the default LOGICAL type # SIZEOF_CHARACTER - Number of bytes used to store the default CHARACTER type -# +# #============================================================================= # Author: Chuck Atkins # Copyright 2011 @@ -19,7 +19,7 @@ macro( _CHECK_FORTRAN_TYPE_SIZE _TYPE_NAME _TEST_SIZES ) foreach( __TEST_SIZE ${_TEST_SIZES} ) set( __TEST_FILE ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/testFortran${_TYPE_NAME}Size${__TEST_SIZE}.f90 ) - file( WRITE ${__TEST_FILE} + file( WRITE ${__TEST_FILE} " PROGRAM check_size ${_TYPE_NAME}*${__TEST_SIZE}, TARGET :: a diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index 77026a6631..acc51629e9 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -1,10 +1,10 @@ # This module checks against various known compilers and thier respective # flags to determine any specific flags needing to be set. -# +# # 1. If FPE traps are enabled either abort or disable them # 2. Specify fixed form if needed # 3. Ensure that Release builds use O2 instead of O3 -# +# #============================================================================= # Author: Chuck Atkins # Copyright 2011 @@ -16,7 +16,7 @@ set( FPE_EXIT FALSE ) # GNU Fortran if( CMAKE_Fortran_COMPILER_ID STREQUAL "GNU" ) - if( "${CMAKE_Fortran_FLAGS}" MATCHES "-ffpe-trap=[izoupd]") + if( "${CMAKE_Fortran_FLAGS}" MATCHES "-ffpe-trap=[izoupd]") set( FPE_EXIT TRUE ) endif() @@ -55,12 +55,12 @@ elseif( CMAKE_Fortran_COMPILER_ID STREQUAL "HP" ) if( "${CMAKE_Fortran_FLAGS}" MATCHES "\\+fp_exception" ) set( FPE_EXIT TRUE ) endif() - + if( NOT ("${CMAKE_Fortran_FLAGS}" MATCHES "\\+fltconst_strict") ) message( STATUS "Enabling strict float conversion with +fltconst_strict" ) set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} +fltconst_strict" CACHE STRING "Flags for Fortran compiler." FORCE ) - endif() + endif() # Most versions of cmake don't have good default options for the HP compiler set( CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} -g" @@ -76,7 +76,7 @@ endif() if( "${CMAKE_Fortran_FLAGS_RELEASE}" MATCHES "O[3-9]" ) message( STATUS "Reducing RELEASE optimization level to O2" ) - string( REGEX REPLACE "O[3-9]" "O2" CMAKE_Fortran_FLAGS_RELEASE + string( REGEX REPLACE "O[3-9]" "O2" CMAKE_Fortran_FLAGS_RELEASE "${CMAKE_Fortran_FLAGS_RELEASE}" ) set( CMAKE_Fortran_FLAGS_RELEASE "${CMAKE_Fortran_FLAGS_RELEASE}" CACHE STRING "Flags used by the compiler during release builds" FORCE ) diff --git a/CMAKE/FortranMangling.cmake b/CMAKE/FortranMangling.cmake index 98b8443ef4..2d9c6266c0 100644 --- a/CMAKE/FortranMangling.cmake +++ b/CMAKE/FortranMangling.cmake @@ -8,7 +8,7 @@ # NoChange # f77IsF2C # UpCase -# +# macro(FORTRAN_MANGLING CDEFS) MESSAGE(STATUS "=========") GET_FILENAME_COMPONENT(F77_NAME ${CMAKE_Fortran_COMPILER} NAME) @@ -39,7 +39,7 @@ MESSAGE(STATUS "=========") MESSAGE(STATUS "Testing FORTRAN_MANGLING") - + MESSAGE(STATUS "Compiling Finface.f...") execute_process ( COMMAND ${CMAKE_Fortran_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Fintface.f @@ -92,7 +92,7 @@ MESSAGE(STATUS "Running ./xintface...") RESULT_VARIABLE xintface_RES OUTPUT_VARIABLE xintface_OUT ERROR_VARIABLE xintface_ERR) - + if (xintface_RES EQUAL 0) STRING(REPLACE "\n" "" xintface_OUT "${xintface_OUT}") @@ -100,6 +100,6 @@ MESSAGE(STATUS "Running ./xintface...") SET(CDEFS ${xintface_OUT}) else() MESSAGE(FATAL_ERROR "FORTRAN_MANGLING:ERROR ${xintface_ERR}") - endif() - + endif() + endmacro(FORTRAN_MANGLING) diff --git a/CMAKE/tmp.kXjd1oSjcp b/CMAKE/tmp.kXjd1oSjcp new file mode 100644 index 0000000000..e69de29bb2 diff --git a/CMakeLists.txt b/CMakeLists.txt index 657875feed..5055c9c4f3 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -51,9 +51,9 @@ if ( CMAKE_Fortran_COMPILER_ID STREQUAL "Compaq" ) if (CMAKE_GENERATOR STREQUAL "NMake Makefiles") get_filename_component(CMAKE_Fortran_COMPILER_CMDNAM ${CMAKE_Fortran_COMPILER} NAME_WE) message(STATUS "Using Compaq Fortran compiler with command name ${CMAKE_Fortran_COMPILER_CMDNAM}") - set( cmd ${CMAKE_Fortran_COMPILER_CMDNAM} ) + set( cmd ${CMAKE_Fortran_COMPILER_CMDNAM} ) string( TOLOWER "${cmd}" cmdlc ) - if ( cmdlc STREQUAL "df" ) + if ( cmdlc STREQUAL "df" ) message(STATUS "Assume the Compaq Visual Fortran Compiler is being used") set(CMAKE_Fortran_USE_RESPONSE_FILE_FOR_OBJECTS 1) set(CMAKE_Fortran_USE_RESPONSE_FILE_FOR_INCLUDES 1) @@ -62,7 +62,7 @@ if ( CMAKE_Fortran_COMPILER_ID STREQUAL "Compaq" ) #introducing compiler command options if (${BUILD_SHARED_LIBS}) message(FATAL_ERROR "Making of shared libraries with CVF has not been tested.") - endif() + endif() set(str "NMake version 9 or later should be used. NMake version 6.0 which is\n") set(str "${str} included with the CVF distribution fails to build Lapack because\n") set(str "${str} the number of source files exceeds the limit for NMake v6.0\n") @@ -70,7 +70,7 @@ if ( CMAKE_Fortran_COMPILER_ID STREQUAL "Compaq" ) set(CMAKE_Fortran_LINK_EXECUTABLE "LINK /out: ") endif() endif() - endif() + endif() endif() # Get Python @@ -175,14 +175,14 @@ if(NOT BLAS_FOUND) add_subdirectory(BLAS) set( BLAS_LIBRARIES blas ) else() - set( CMAKE_EXE_LINKER_FLAGS - "${CMAKE_EXE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_EXE_LINKER_FLAGS + "${CMAKE_EXE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for executables" FORCE) - set( CMAKE_MODULE_LINKER_FLAGS - "${CMAKE_MODULE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_MODULE_LINKER_FLAGS + "${CMAKE_MODULE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for modules" FORCE) - set( CMAKE_SHARED_LINKER_FLAGS - "${CMAKE_SHARED_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_SHARED_LINKER_FLAGS + "${CMAKE_SHARED_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for shared libs" FORCE) endif( NOT BLAS_FOUND ) @@ -202,7 +202,7 @@ option(USE_XBLAS "Build extended precision (needs XBLAS)" OFF) if (USE_XBLAS) find_library(XBLAS_LIBRARY NAMES xblas) endif(USE_XBLAS) - + option(USE_OPTIMIZED_LAPACK "Whether or not to use an optimized LAPACK library instead of included netlib LAPACK" OFF) # -------------------------------------------------- @@ -239,14 +239,14 @@ if(NOT LATESTLAPACK_FOUND) option(BUILD_COMPLEX16 "Build LAPACK Double Complex Precision" ON) add_subdirectory(SRC) else() - set( CMAKE_EXE_LINKER_FLAGS - "${CMAKE_EXE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_EXE_LINKER_FLAGS + "${CMAKE_EXE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for executables" FORCE) - set( CMAKE_MODULE_LINKER_FLAGS - "${CMAKE_MODULE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_MODULE_LINKER_FLAGS + "${CMAKE_MODULE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for modules" FORCE) - set( CMAKE_SHARED_LINKER_FLAGS - "${CMAKE_SHARED_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_SHARED_LINKER_FLAGS + "${CMAKE_SHARED_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for shared libs" FORCE) endif( NOT LATESTLAPACK_FOUND ) @@ -277,7 +277,7 @@ if(LAPACKE) endif(LAPACKE) # -------------------------------------------------- -# CPACK Packaging +# CPACK Packaging SET(CPACK_PACKAGE_NAME "LAPACK") SET(CPACK_PACKAGE_VENDOR "University of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd") diff --git a/CTestCustom.cmake.in b/CTestCustom.cmake.in index bbdeadb71c..c10cd32fc9 100644 --- a/CTestCustom.cmake.in +++ b/CTestCustom.cmake.in @@ -1,5 +1,5 @@ # -# For further details regarding this file, +# For further details regarding this file, # see http://www.vtk.org/Wiki/CMake_Testing_With_CTest#Customizing_CTest # @@ -11,7 +11,7 @@ SET(CTEST_CUSTOM_MAXIMUM_NUMBER_OF_WARNINGS 500) # Files to explicitly exclude from code coverage SET(CTEST_CUSTOM_COVERAGE_EXCLUDE ${CTEST_CUSTOM_COVERAGE_EXCLUDE} - + # Exclude the internal BLAS libraries "/BLAS/" @@ -23,22 +23,22 @@ SET(CTEST_CUSTOM_COVERAGE_EXCLUDE SET(CTEST_CUSTOM_WARNING_EXCEPTION ${CTEST_CUSTOM_WARNING_EXCEPTION} - # Common warning when linking ATLAS built with GNU Fortran 4.1 and building + # Common warning when linking ATLAS built with GNU Fortran 4.1 and building # with GNU Fortran 4.4. It can be safely ignored. "libgfortran.*may conflict with libgfortran" # Harmless warning often seen on IRIX "WARNING 84 : .*libm.* is not used for resolving any symbol" - # Warnings caused by sun compilers when building code to only run on your + # Warnings caused by sun compilers when building code to only run on your # native platform "xarch=native on this architecture implies -xarch=.*which generates code that does not run" - + # Harmless warnings from the Intel compiler on Windows "ipo: warning #11010: file format not recognized for .*\\.exe\\.embed\\.manifest\\.res" "LINK : warning LNK4224: /INCREMENTAL:YES is no longer supported; ignored" - # Warnings caused by string truncation in the test code. The truncation is + # Warnings caused by string truncation in the test code. The truncation is # intentional "Character string truncated to length 1 on assignment" ) diff --git a/DOCS/Doxyfile b/DOCS/Doxyfile index 1dedbe7aa8..d63e35288e 100644 --- a/DOCS/Doxyfile +++ b/DOCS/Doxyfile @@ -1045,7 +1045,7 @@ CLANG_ASSISTED_PARSING = NO # specified with INPUT and INCLUDE_PATH. # This tag requires that the tag CLANG_ASSISTED_PARSING is set to YES. -CLANG_OPTIONS = +CLANG_OPTIONS = #--------------------------------------------------------------------------- # Configuration options related to the alphabetical class index diff --git a/DOCS/Doxyfile_man b/DOCS/Doxyfile_man index 255adf1603..da642c4b3b 100644 --- a/DOCS/Doxyfile_man +++ b/DOCS/Doxyfile_man @@ -1045,7 +1045,7 @@ CLANG_ASSISTED_PARSING = NO # specified with INPUT and INCLUDE_PATH. # This tag requires that the tag CLANG_ASSISTED_PARSING is set to YES. -CLANG_OPTIONS = +CLANG_OPTIONS = #--------------------------------------------------------------------------- # Configuration options related to the alphabetical class index diff --git a/DOCS/lawn81.tex b/DOCS/lawn81.tex index 16efef7680..73a4437756 100644 --- a/DOCS/lawn81.tex +++ b/DOCS/lawn81.tex @@ -43,7 +43,7 @@ %Separate instructions are provided for the Unix and non-Unix %versions of the test package. %Further details are also given on the design of the test and timing -%programs. +%programs. \newpage \tableofcontents @@ -55,7 +55,7 @@ \section{Introduction} LAPACK is a linear algebra library for high-performance computers. -The library includes Fortran subroutines for +The library includes Fortran subroutines for the analysis and solution of systems of simultaneous linear algebraic equations, linear least-squares problems, and matrix eigenvalue problems. @@ -63,21 +63,21 @@ \section{Introduction} a standard set of Basic Linear Algebra Subprograms (the BLAS), which can be optimized for each computing environment. By confining most of the computational work to the BLAS, -the subroutines should be +the subroutines should be transportable and efficient across a wide range of computers. This working note describes how to install, test, and time this release of LAPACK on a Unix System. -The instructions for installing, testing, and timing -\footnote{timing are only provided in LAPACK 3.0 and before} +The instructions for installing, testing, and timing +\footnote{timing are only provided in LAPACK 3.0 and before} are designed for a person whose responsibility is the maintenance of a mathematical software library. -We assume the installer has experience in compiling and running +We assume the installer has experience in compiling and running Fortran programs and in creating object libraries. The installation process involves untarring the file, creating a set of -libraries, and compiling and running the test and timing programs -\footnotemark[\value{footnote}]. +libraries, and compiling and running the test and timing programs +\footnotemark[\value{footnote}]. %This guide combines the instructions for the Unix and non-Unix %versions of the LAPACK test package (the non-Unix version is in Appendix @@ -97,13 +97,13 @@ \section{Introduction} % Sections~\ref{moretesting} %and ~\ref{moretiming} give %details of the test and timing programs and their input files. -%Appendices ~\ref{appendixa} and ~\ref{appendixb} briefly describe +%Appendices ~\ref{appendixa} and ~\ref{appendixb} briefly describe %the LAPACK routines and auxiliary routines provided -%in this release. -%Appendix ~\ref{appendixc} lists the operation counts we have computed +%in this release. +%Appendix ~\ref{appendixc} lists the operation counts we have computed %for the BLAS and for some of the LAPACK routines. -Appendix ~\ref{appendixd}, entitled ``Caveats'', is a compendium of the known -problems from our own experiences, with suggestions on how to +Appendix ~\ref{appendixd}, entitled ``Caveats'', is a compendium of the known +problems from our own experiences, with suggestions on how to overcome them. \textbf{It is strongly advised that the user read Appendix @@ -122,9 +122,9 @@ \section{Revisions Since the First Public Release} June 30, 1992, was version 1.0a; the second update, October 31, 1992, was version 1.0b; the third update, March 31, 1993, was version 1.1; version 2.0 on September 30, 1994, coincided with the release of the -Second Edition of the LAPACK Users' Guide; +Second Edition of the LAPACK Users' Guide; version 3.0 on June 30, 1999 coincided with the release of the Third Edition of -the LAPACK Users' Guide; +the LAPACK Users' Guide; version 3.1 was released on November, 2006; version 3.1.1 was released on November, 2007; and version 3.2.0 was released on November, 2008. @@ -141,7 +141,7 @@ \section{Revisions Since the First Public Release} %available on netlib is always the most up-to-date. % %On-line manpages (troff files) for LAPACK driver and computational -%routines, as well as most of the BLAS routines, are available via +%routines, as well as most of the BLAS routines, are available via %the \texttt{lapack} index on netlib. \section{File Format}\label{fileformat} @@ -151,7 +151,7 @@ \section{File Format}\label{fileformat} which contains the Fortran source for LAPACK, the Basic Linear Algebra Subprograms (the Level 1, 2, and 3 BLAS) needed by LAPACK, the testing programs, -and the timing programs\footnotemark[\value{footnote}]. +and the timing programs\footnotemark[\value{footnote}]. Users who wish to have a non-Unix installation should refer to LAPACK Working Note 41, although the overview in section~\ref{overview} applies to both the Unix and non-Unix @@ -189,13 +189,13 @@ \section{File Format}\label{fileformat} \caption{Unix organization of LAPACK 3.0} \vspace{11pt} \end{figure} -Libraries are created in the LAPACK directory and +Libraries are created in the LAPACK directory and executable files are created in one of the directories BLAS, TESTING, -or TIMING\footnotemark[\value{footnote}]. Input files for the test and +or TIMING\footnotemark[\value{footnote}]. Input files for the test and timing\footnotemark[\value{footnote}] programs are also found in these three directories so that testing may be carried out in the directories LAPACK/BLAS, LAPACK/TESTING, and LAPACK/TIMING \footnotemark[\value{footnote}]. -A top-level makefile in the LAPACK directory is provided to perform the +A top-level makefile in the LAPACK directory is provided to perform the entire installation procedure. \section{Overview of Tape Contents}\label{overview} @@ -209,7 +209,7 @@ \section{Overview of Tape Contents}\label{overview} Some routines use features of Fortran 90. For convenience, we often refer to routines by their single precision names; the leading `S' can be replaced by a `D' for double precision, -a `C' for complex, or a `Z' for complex*16. +a `C' for complex, or a `Z' for complex*16. For LAPACK use and testing you must decide which version(s) of the package you intend to install at your site (for example, REAL and COMPLEX on a Cray computer or DOUBLE PRECISION and @@ -231,14 +231,14 @@ \subsection{LAPACK Routines} perform a distinct computational task, such as computing the $LU$ decomposition of an $m$-by-$n$ matrix or finding the eigenvalues and eigenvectors of a symmetric tridiagonal matrix using -the $QR$ algorithm. +the $QR$ algorithm. The LAPACK routines are listed in LAPACK Working Note 41~\cite{WN41} and the LAPACK Users' Guide~\cite{LUG}. %The LAPACK routines are listed in Appendix ~\ref{appendixa}; see also LAPACK %Working Note \#5 \cite{WN5}. \item \textbf{auxiliary} routines are all the other subroutines called -by the driver routines and computational routines. +by the driver routines and computational routines. %Among them are subroutines to perform subtasks of block algorithms, %in particular, the unblocked versions of the block algorithms; %extensions to the BLAS, such as matrix-vector operations involving @@ -260,12 +260,12 @@ \subsection{LAPACK Routines} \subsection{Level 1, 2, and 3 BLAS} The BLAS are a set of Basic Linear Algebra Subprograms that perform -vector-vector, matrix-vector, and matrix-matrix operations. +vector-vector, matrix-vector, and matrix-matrix operations. LAPACK is designed around the Level 1, 2, and 3 BLAS, and nearly all of the parallelism in the LAPACK routines is contained in the BLAS. Therefore, the key to getting good performance from LAPACK lies in having an -efficient version of the BLAS optimized for your particular machine. +efficient version of the BLAS optimized for your particular machine. Optimized BLAS libraries are available on a variety of architectures, refer to the BLAS FAQ on netlib for further information. \begin{quote} @@ -290,7 +290,7 @@ \subsection{Level 1, 2, and 3 BLAS} employ the standard tricks for optimizing Fortran code. The formal definitions of the Level 1, 2, and 3 BLAS -are in \cite{BLAS1}, \cite{BLAS2}, and \cite{BLAS3}. +are in \cite{BLAS1}, \cite{BLAS2}, and \cite{BLAS3}. The BLAS Quick Reference card is available on netlib. \subsection{Mixed- and Extended-Precision BLAS: XBLAS} @@ -320,7 +320,7 @@ \subsection{LAPACK Test Routines} \subsection{LAPACK Timing Routines (for LAPACK 3.0 and before) } This release also contains two distinct timing programs for the -LAPACK routines in each data type. +LAPACK routines in each data type. The linear equation timing program gathers performance data in megaflops on the factor, solve, and inverse routines for solving linear systems, the routines to generate or apply an orthogonal matrix @@ -341,12 +341,12 @@ \subsection{LAPACK Timing Routines (for LAPACK 3.0 and before) } \section{Installing LAPACK on a Unix System}\label{installation} Installing, testing, and timing\footnotemark[\value{footnote}] the Unix version of LAPACK -involves the following steps: +involves the following steps: \begin{enumerate} \item Gunzip and tar the file. \item Copy and edit the file \texttt{LAPACK/make.inc.example to LAPACK/make.inc}. - + \item Edit the file \texttt{LAPACK/Makefile} and type \texttt{make}. %\item Test and Install the Machine-Dependent Routines \\ @@ -402,7 +402,7 @@ \section{Installing LAPACK on a Unix System}\label{installation} %\item \texttt{make blas\_timing} %\end{list} \end{enumerate} - + \subsection{Untar the File} If you received a tar file of LAPACK via the World Wide @@ -424,7 +424,7 @@ \subsection{Copy and edit the file \texttt{LAPACK/make.inc.example to LAPACK/mak run, you must define all machine-specific parameters for the architecture to which you are installing LAPACK. All machine-specific parameters are contained in the file \texttt{LAPACK/make.inc}. -An example of \texttt{LAPACK/make.inc} for a LINUX machine with GNU compilers is given +An example of \texttt{LAPACK/make.inc} for a LINUX machine with GNU compilers is given in \texttt{LAPACK/make.inc.example}, copy that file to LAPACK/make.inc by entering the following command: \begin{list}{} @@ -452,14 +452,14 @@ \subsection{Copy and edit the file \texttt{LAPACK/make.inc.example to LAPACK/mak \begin{verbatim} #The Default : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME TIMER = EXT_ETIME -# For RS6K : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME_ +# For RS6K : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME_ # TIMER = EXT_ETIME_ # For gfortran compiler: SECOND and DSECND will use the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) # SECOND and DSECND will use a call to the INTERNAL FUNCTION CPU_TIME # TIMER = INT_CPU_TIME -# If neither of this works...you can use the NONE value... +# If neither of this works...you can use the NONE value... # In that case, SECOND and DSECND will always return 0 # TIMER = NONE \end{verbatim} @@ -497,7 +497,7 @@ \subsection{Edit the file \texttt{LAPACK/Makefile}}\label{toplevelmakefile} installation process as the user desires. Ideally, this is the ONLY makefile the user must modify. However, modification of lower-level makefiles may be necessary if a specific routine needs to be compiled -with a different level of optimization. +with a different level of optimization. First, edit the definitions of \texttt{blaslib}, \texttt{lapacklib}, \texttt{tmglib}, \texttt{lapack\_testing}, and \texttt{timing}\footnotemark[\value{footnote}] in the file \texttt{LAPACK/Makefile} @@ -529,7 +529,7 @@ \subsection{Edit the file \texttt{LAPACK/Makefile}}\label{toplevelmakefile} %timing: % ( cd TIMING; $(MAKE) -f Makefile.sgi ) %\end{verbatim} - + Next, if you will be using a locally available BLAS library, you will need to remove \texttt{blaslib} from the \texttt{lib} definition. And finally, if you do not wish to build all of the libraries individually and @@ -595,7 +595,7 @@ \subsection{Test and Install the Machine-Dependent Routines.} type \texttt{make lapack\_install}. The test programs are called \texttt{testlsame, testslamch, testdlamch, testsecond, testdsecnd} and \texttt{testieee}. -If you do not wish to run all tests, you will need to modify the +If you do not wish to run all tests, you will need to modify the \texttt{lapack\_install} definition in the \texttt{LAPACK/Makefile} to only include the tests you wish to run. Otherwise, all tests will be performed. The expected results of each test program are described below. @@ -604,18 +604,18 @@ \subsubsection{Installing LSAME} LSAME is a logical function with two character parameters, A and B. It returns .TRUE. if A and B are the same regardless of case, or .FALSE. -if they are different. +if they are different. For example, the expression -\begin{list}{}{} +\begin{list}{}{} \item \texttt{LSAME( UPLO, 'U' )} \end{list} -\noindent +\noindent is equivalent to -\begin{list}{}{} +\begin{list}{}{} \item \texttt{( UPLO.EQ.'U' ).OR.( UPLO.EQ.'u' )} -\end{list} - +\end{list} + The test program in \texttt{lsametst.f} tests all combinations of the same character in upper and lower case for A and B, and two cases where A and B are different characters. @@ -628,7 +628,7 @@ \subsubsection{Installing LSAME} Tests completed \end{verbatim} The file \texttt{lsame.f} is automatically copied to -\texttt{LAPACK/BLAS/SRC/} and \texttt{LAPACK/SRC/}. +\texttt{LAPACK/BLAS/SRC/} and \texttt{LAPACK/SRC/}. The function LSAME is needed by both the BLAS and LAPACK, so it is safer to have it in both libraries as long as this does not cause trouble in the link phase when both libraries are used. @@ -636,10 +636,10 @@ \subsubsection{Installing LSAME} \subsubsection{Installing SLAMCH and DLAMCH} SLAMCH and DLAMCH are real functions with a single character parameter -that indicates the machine parameter to be returned. The test +that indicates the machine parameter to be returned. The test program in \texttt{slamchtst.f} simply prints out the different values computed by SLAMCH, -so you need to know something about what the values should be. +so you need to know something about what the values should be. For example, the output of the test program executable \texttt{testslamch} for SLAMCH on a Sun SPARCstation is \begin{verbatim} @@ -699,7 +699,7 @@ \subsubsection{Installing SLAMCH and DLAMCH} it is recomputed as $(1/(\mathrm{overflow})) * ( 1 + \varepsilon )$, where $\varepsilon$ is the machine precision. -BE AWARE that the initial call to SLAMCH or DLAMCH is expensive. +BE AWARE that the initial call to SLAMCH or DLAMCH is expensive. We suggest that installers run it once, save the results, and hard-code the constants in the version they put in their library. @@ -708,9 +708,9 @@ \subsubsection{Installing SECOND and DSECND}\label{second} Both the timing routines\footnotemark[\value{footnote}] and the test routines call SECOND (DSECND), a real function with no arguments that returns the time in seconds from some fixed starting time. -Our version of this routine -returns only ``user time'', and not ``user time $+$ system time''. -The following version of SECOND in \texttt{second\_EXT\_ETIME.f, second\_INT\_ETIME.f} calls +Our version of this routine +returns only ``user time'', and not ``user time $+$ system time''. +The following version of SECOND in \texttt{second\_EXT\_ETIME.f, second\_INT\_ETIME.f} calls ETIME, a Fortran library routine available on some computer systems. If ETIME is not available or a better local timing function exists, you will have to provide the correct interface to SECOND and DSECND @@ -720,18 +720,18 @@ \subsubsection{Installing SECOND and DSECND}\label{second} The version that will be used depends on the value of the TIMER variable in the make.inc \begin{itemize} -\item If ETIME is available as an external function, set the value of the TIMER variable in your +\item If ETIME is available as an external function, set the value of the TIMER variable in your make.inc to \texttt{EXT\_ETIME}:\texttt{second\_EXT\_ETIME.f} and \texttt{dsecnd\_EXT\_ETIME.f} will be used. Usually on HPPA architectures, the compiler and loader flag \texttt{+U77} should be included to access the function \texttt{ETIME}. -\item If ETIME\_ is available as an external function, set the value of the TIMER variable in your make.inc +\item If ETIME\_ is available as an external function, set the value of the TIMER variable in your make.inc to \texttt{EXT\_ETIME\_}:\texttt{second\_EXT\_ETIME\_.f} and \texttt{dsecnd\_EXT\_ETIME\_.f} will be used. It is the case on some IBM architectures such as IBM RS/6000s. \item If ETIME is available as an internal function, set the value of the TIMER variable in your make.inc -to \texttt{INT\_ETIME}:\texttt{second\_INT\_ETIME.f} and \texttt{dsecnd\_INT\_ETIME.f} will be used. +to \texttt{INT\_ETIME}:\texttt{second\_INT\_ETIME.f} and \texttt{dsecnd\_INT\_ETIME.f} will be used. This is the case with gfortan. \item If CPU\_TIME is available as an internal function, set the value of the TIMER variable in your make.inc @@ -743,19 +743,19 @@ \subsubsection{Installing SECOND and DSECND}\label{second} \end{itemize} The test program in \texttt{secondtst.f} -performs a million operations using 5000 iterations of +performs a million operations using 5000 iterations of the SAXPY operation $y := y + \alpha x$ on a vector of length 100. The total time and megaflops for this test is reported, then the operation is repeated including a call to SECOND on each of the 5000 iterations to determine the overhead due to calling SECOND. The test program executable is called \texttt{testsecond} (or \texttt{testdsecnd}). There is no single right answer, but the times -in seconds should be positive and the megaflop ratios should be +in seconds should be positive and the megaflop ratios should be appropriate for your machine. \subsubsection{Testing IEEE arithmetic and ILAENV}\label{testieee} -%\textbf{If you are installing LAPACK on a non-IEEE machine, you MUST +%\textbf{If you are installing LAPACK on a non-IEEE machine, you MUST %modify ILAENV! Otherwise, ILAENV will crash . By default, ILAENV %assumes an IEEE machine, and does a test for IEEE-754 compliance.} @@ -767,7 +767,7 @@ \subsubsection{Testing IEEE arithmetic and ILAENV}\label{testieee} are installing LAPACK on a non-IEEE machine, you MUST modify ILAENV, as this test inside ILAENV will crash!} -If \texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is +If \texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is issued, then \texttt{ILAENV=1} is returned to signal IEEE-754 compliance, and \texttt{ILAENV=0} if the architecture is non-IEEE-754 compliant. @@ -791,10 +791,10 @@ \subsubsection{Testing IEEE arithmetic and ILAENV}\label{testieee} The test program in \texttt{LAPACK/INSTALL/tstiee.f} checks an installation architecture -to see if infinity arithmetic and NaN arithmetic are IEEE-754 compliant. +to see if infinity arithmetic and NaN arithmetic are IEEE-754 compliant. A warning message to the user is printed if non-compliance is detected. This same test is performed inside the function ILAENV. If -\texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is +\texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is issued, then \texttt{ILAENV=1} is returned to signal IEEE-754 compliance, and \texttt{ILAENV=0} if the architecture is non-IEEE-754 compliant. @@ -805,12 +805,12 @@ \subsubsection{Testing IEEE arithmetic and ILAENV}\label{testieee} his library. As aforementioned, there are also specialized testing and timing\footnotemark[\value{footnote}] versions of ILAENV that will also need to be modified. -\subsection{Create the BLAS Library} +\subsection{Create the BLAS Library} Ideally, a highly optimized version of the BLAS library already -exists on your machine. +exists on your machine. In this case you can go directly to Section~\ref{testblas} to -make the BLAS test programs. +make the BLAS test programs. \begin{itemize} \item[a)] @@ -819,13 +819,13 @@ \subsection{Create the BLAS Library} in Section~\ref{toplevelmakefile}. If you already have some of the BLAS, you will need to edit the file -\texttt{LAPACK/BLAS/SRC/Makefile} to comment out the lines -defining the BLAS you have. +\texttt{LAPACK/BLAS/SRC/Makefile} to comment out the lines +defining the BLAS you have. \item[b)] Type \texttt{make blaslib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} \noindent @@ -835,7 +835,7 @@ \subsection{Create the BLAS Library} \subsection{Run the BLAS Test Programs}\label{testblas} -Test programs for the Level 1, 2, and 3 BLAS are in the directory +Test programs for the Level 1, 2, and 3 BLAS are in the directory \texttt{LAPACK/BLAS/TESTING}. To compile and run the Level 1, 2, and 3 BLAS test programs, @@ -856,14 +856,14 @@ \subsection{Run the BLAS Test Programs}\label{testblas} For example, on a machine with vector registers, at least one value of $N$ greater than the length of the vector registers should be used; otherwise, important parts of the compiled code may not be -exercised by the tests. +exercised by the tests. If the tests were not successful, either because the program did not finish or the test ratios did not pass the threshold, you will -probably have to find and correct the problem before continuing. +probably have to find and correct the problem before continuing. If you have been testing a system-specific BLAS library, try using the Fortran BLAS for the routines that did not pass the tests. -For more details on the BLAS test programs, +For more details on the BLAS test programs, see \cite{BLAS2-test} and \cite{BLAS3-test}. \subsection{Create the LAPACK Library} @@ -877,7 +877,7 @@ \subsection{Create the LAPACK Library} \item[b)] Type \texttt{make lapacklib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} @@ -897,13 +897,13 @@ \subsection{Create the Test Matrix Generator Library} \item[b)] Type \texttt{make tmglib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} \noindent The test matrix generator library is created in \texttt{LAPACK/tmglib\_PLAT.a}, -where \texttt{PLAT} is the user-defined architecture suffix specified in the +where \texttt{PLAT} is the user-defined architecture suffix specified in the file \texttt{LAPACK/make.inc}. \subsection{Run the LAPACK Test Programs} @@ -917,13 +917,13 @@ \subsection{Run the LAPACK Test Programs} The input files reside in \texttt{LAPACK/TESTING}. For more information on the test programs and how to modify the input files, please refer to LAPACK Working Note 41~\cite{WN41}. -% see Section~\ref{moretesting}. +% see Section~\ref{moretesting}. If you do not wish to run each of the tests individually, you can go to \texttt{LAPACK}, edit the definition \texttt{lapack\_testing} in the file \texttt{Makefile} to specify the data types desired, and type \texttt{make lapack\_testing}. This will -compile and run the tests as described in sections~\ref{testlin} +compile and run the tests as described in sections~\ref{testlin} and ~\ref{testeig}. %If you are installing LAPACK on a Silicon Graphics machine, you must @@ -932,7 +932,7 @@ \subsection{Run the LAPACK Test Programs} %testing: % ( cd TESTING; $(MAKE) -f Makefile.sgi ) %\end{verbatim} - + \subsubsection{Testing the Linear Equations Routines}\label{testlin} \begin{itemize} @@ -1071,7 +1071,7 @@ \subsection{Run the LAPACK Timing Programs (For LAPACK 3.0 and before)} \texttt{Makefile} to specify the data types desired, and type \texttt{make lapack\_timing}. This will compile and run the timings for the linear equation routines and the eigensystem -routines (see Sections~\ref{timelin} and ~\ref{timeeig}). +routines (see Sections~\ref{timelin} and ~\ref{timeeig}). %If you are installing LAPACK on a Silicon Graphics machine, you must %modify the definition of \texttt{timing} to be @@ -1082,7 +1082,7 @@ \subsection{Run the LAPACK Timing Programs (For LAPACK 3.0 and before)} If you encounter failures in any phase of the timing process, please feel free to contact the authors as directed in Section~\ref{sendresults}. -Tell us the +Tell us the type of machine on which the tests were run, the version of the operating system, the compiler and compiler options that were used, and details of the BLAS library or libraries that you used. You should @@ -1112,7 +1112,7 @@ \subsubsection{Timing the Linear Equations Routines}\label{timelin} \begin{sloppypar} To make a library of the instrumented LAPACK routines, first go to \texttt{LAPACK/TIMING/LIN/LINSRC} and type \texttt{make} followed -by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. +by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The library of instrumented code is created in \texttt{LAPACK/TIMING/LIN/linsrc\_PLAT.a}, where \texttt{PLAT} is the user-defined architecture suffix specified in the @@ -1137,11 +1137,11 @@ \subsubsection{Timing the Linear Equations Routines}\label{timelin} The computational requirements can be cut in half by using only one value of LDA. If it is necessary to also reduce the matrix sizes or the values of -the blocksize, corresponding changes should be made to the +the blocksize, corresponding changes should be made to the BLAS input files (see Section~\ref{timeblas}). \item[d)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1164,10 +1164,10 @@ \subsubsection{Timing the BLAS}\label{timeblas} The linear equation timing program is also used to time the BLAS. Three input files are provided in each data type for timing the Level -2 and 3 BLAS. +2 and 3 BLAS. These input files time the BLAS using the matrix shapes encountered in the LAPACK routines, and we will use the results to analyze the -performance of the LAPACK routines. +performance of the LAPACK routines. For the REAL version, the small data files are \texttt{sblasa\_small.in}, \texttt{sblasb\_small.in}, and \texttt{sblasc\_small.in} and the large data files are @@ -1176,10 +1176,10 @@ \subsubsection{Timing the BLAS}\label{timeblas} parameters in the Level 3 BLAS, M, N, and K, and in most applications one of these parameters is small (on the order of the blocksize) while the other two are large (on the order of the -matrix size). +matrix size). In \texttt{sblasa\_small.in}, M and N are large but K is small, while in \texttt{sblasb\_small.in} the small parameter is M, and -in \texttt{sblasc\_small.in} the small parameter is N. +in \texttt{sblasc\_small.in} the small parameter is N. The Level 2 BLAS are timed only in the first data set, where K is also used as the bandwidth for the banded routines. @@ -1190,7 +1190,7 @@ \subsubsection{Timing the BLAS}\label{timeblas} make any necessary modifications to the input files. You may need to set the minimum time a subroutine will be timed to a positive value. -If you modified the values of N or NB +If you modified the values of N or NB in Section~\ref{timelin}, set M, N, and K accordingly. The large parameters among M, N, and K should be the same as the matrix sizes used in timing the linear @@ -1201,7 +1201,7 @@ \subsubsection{Timing the BLAS}\label{timeblas} value of LDA. \item[b)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1226,8 +1226,8 @@ \subsubsection{Timing the Eigensystem Routines}\label{timeeig} and the input files are in \texttt{LAPACK/TIMING}. Four input files are provided in each data type for timing the eigensystem routines, -one for the generalized nonsymmetric eigenvalue problem, -one for the nonsymmetric eigenvalue problem, +one for the generalized nonsymmetric eigenvalue problem, +one for the nonsymmetric eigenvalue problem, one for the symmetric and generalized symmetric eigenvalue problem, and one for the singular value decomposition. For the REAL version, the small data sets are called \texttt{sgeptim\_small.in}, @@ -1249,7 +1249,7 @@ \subsubsection{Timing the Eigensystem Routines}\label{timeeig} \begin{sloppypar} To make a library of the instrumented LAPACK routines, first go to \texttt{LAPACK/TIMING/EIG/EIGSRC} and type \texttt{make} followed -by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. +by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The library of instrumented code is created in \texttt{LAPACK/TIMING/EIG/eigsrc\_PLAT.a}, where \texttt{PLAT} is the user-defined architecture suffix specified in the @@ -1257,7 +1257,7 @@ \subsubsection{Timing the Eigensystem Routines}\label{timeeig} \end{sloppypar} \item[b)] -To make the eigensystem timing programs, +To make the eigensystem timing programs, go to \texttt{LAPACK/TIMING/EIG} and type \texttt{make} followed by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The executable files are called @@ -1281,7 +1281,7 @@ \subsubsection{Timing the Eigensystem Routines}\label{timeeig} % See Section~\ref{moretiming} for further details. \item[d)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1305,13 +1305,13 @@ \subsubsection{Timing the Eigensystem Routines}\label{timeeig} \subsection{Send the Results to Tennessee}\label{sendresults} Congratulations! You have now finished installing, testing, and -timing LAPACK. If you encountered failures in any phase of the +timing LAPACK. If you encountered failures in any phase of the testing or timing process, please consult our \texttt{release\_notes} file on netlib. \begin{quote} \url{http://www.netlib.org/lapack/release\_notes} \end{quote} -This file contains machine-dependent installation clues which hopefully will +This file contains machine-dependent installation clues which hopefully will alleviate your difficulties or at least let you know that other users have had similar difficulties on that machine. If there is not an entry for your machine or the suggestions do not fix your problem, please feel @@ -1319,7 +1319,7 @@ \subsection{Send the Results to Tennessee}\label{sendresults} \begin{list}{}{} \item \href{mailto:lapack@cs.utk.edu}{\texttt{lapack@cs.utk.edu}}. \end{list} -Tell us the +Tell us the type of machine on which the tests were run, the version of the operating system, the compiler and compiler options that were used, and details of the BLAS library or libraries that you used. You should @@ -1328,7 +1328,7 @@ \subsection{Send the Results to Tennessee}\label{sendresults} We would like to keep our \texttt{release\_notes} file as up-to-date as possible. Therefore, if you do not see an entry for your machine, please contact us with your testing results. - + Comments and suggestions are also welcome. We encourage you to make the LAPACK library available to your @@ -1337,16 +1337,16 @@ \subsection{Send the Results to Tennessee}\label{sendresults} %with any previous test release. \subsection{Get support}\label{getsupport} -First, take a look at the complete installation manual in the LAPACK Working Note 41~\cite{WN41}. +First, take a look at the complete installation manual in the LAPACK Working Note 41~\cite{WN41}. if you still cannot solve your problem, you have 2 ways to go: \begin{itemize} \item -either send a post in the LAPACK forum +either send a post in the LAPACK forum \begin{quote} \url{http://icl.cs.utk.edu/lapack-forum} \end{quote} \item -or send an email to the LAPACK mailing list: +or send an email to the LAPACK mailing list: \begin{list}{}{} \item \href{mailto:lapack@cs.utk.edu}{\texttt{lapack@cs.utk.edu}}. \end{list} @@ -1493,7 +1493,7 @@ \section{Compiling testing/timing drivers} has two options: increase your stack size, or force all local variables to be allocated statically. -On HPPA architectures, the +On HPPA architectures, the compiler and loader flag \texttt{-K} should be used when compiling these testing and timing main programs to avoid such a stack overflow. I.e., set \texttt{DRVOPTS = -K} in the \texttt{LAPACK/make.inc} file. @@ -1619,19 +1619,19 @@ \section{Timing programs} \bibitem{LUG} E. Anderson, Z. Bai, C. Bischof, J. Demmel, J. Dongarra, J. Du Croz, A. Greenbaum, S. Hammarling, A. McKenney, -S. Ostrouchov, and D. Sorensen, +S. Ostrouchov, and D. Sorensen, \textit{LAPACK Users' Guide}, Second Edition, {SIAM}, Philadelphia, PA, 1995. \bibitem{WN16} E. Anderson and J. Dongarra, -\textit{LAPACK Working Note 16: +\textit{LAPACK Working Note 16: Results from the Initial Release of LAPACK}, University of Tennessee, CS-89-89, November 1989. \bibitem{WN41} E. Anderson, J. Dongarra, and S. Ostrouchov, -\textit{LAPACK Working Note 41: +\textit{LAPACK Working Note 41: Installation Guide for LAPACK}, University of Tennessee, CS-92-151, February 1992 (revised June 1999). @@ -1644,7 +1644,7 @@ \section{Timing programs} \bibitem{WN13} Z. Bai, J. Demmel, and A. McKenney, \textit{LAPACK Working Note \#13: On the Conditioning of the Nonsymmetric -Eigenvalue Problem: Theory and Software}, +Eigenvalue Problem: Theory and Software}, University of Tennessee, CS-89-86, October 1989. \bibitem{XBLAS} @@ -1653,7 +1653,7 @@ \section{Timing programs} and D. J. Yoo, \textit{Design, implementation and testing of extended and mixed precision BLAS}, \textit{ACM Trans. Math. Soft.}, 28, 2:152--205, June 2002. - + \bibitem{BLAS3} J. Dongarra, J. Du Croz, I. Duff, and S. Hammarling, ``A Set of Level 3 Basic Linear Algebra Subprograms,'' diff --git a/INSTALL/LAPACK_version.f b/INSTALL/LAPACK_version.f index 81d1f08caa..d3b81223cf 100644 --- a/INSTALL/LAPACK_version.f +++ b/INSTALL/LAPACK_version.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,10 +13,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/Makefile b/INSTALL/Makefile index 7f7ecc0a8f..91057de488 100644 --- a/INSTALL/Makefile +++ b/INSTALL/Makefile @@ -1,7 +1,7 @@ include ../make.inc -.SUFFIXES : .o .f -all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion +.SUFFIXES : .o .f +all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion testlsame: lsame.o lsametst.o $(LOADER) $(LOADOPTS) -o testlsame lsame.o lsametst.o @@ -28,7 +28,7 @@ testversion: ilaver.o LAPACK_version.o clean: rm -f *.o -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ slamch.o: slamch.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ diff --git a/INSTALL/dlamch.f b/INSTALL/dlamch.f index 22a1621881..912c0339a0 100644 --- a/INSTALL/dlamch.f +++ b/INSTALL/dlamch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/INSTALL/dlamchf77.f b/INSTALL/dlamchf77.f index 1e1772c669..01bcef2e24 100644 --- a/INSTALL/dlamchf77.f +++ b/INSTALL/dlamchf77.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/INSTALL/dlamchtst.f b/INSTALL/dlamchtst.f index e8cd557da7..f416437c1f 100644 --- a/INSTALL/dlamchtst.f +++ b/INSTALL/dlamchtst.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DLAMCHTST -* +* * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/dsecnd_EXT_ETIME.f b/INSTALL/dsecnd_EXT_ETIME.f index f5c0902489..c8baf9cf0a 100644 --- a/INSTALL/dsecnd_EXT_ETIME.f +++ b/INSTALL/dsecnd_EXT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/dsecnd_EXT_ETIME_.f b/INSTALL/dsecnd_EXT_ETIME_.f index d473e41f6e..22cd073ec1 100644 --- a/INSTALL/dsecnd_EXT_ETIME_.f +++ b/INSTALL/dsecnd_EXT_ETIME_.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/dsecnd_INT_CPU_TIME.f b/INSTALL/dsecnd_INT_CPU_TIME.f index 7a049271b2..5dc4556ca5 100644 --- a/INSTALL/dsecnd_INT_CPU_TIME.f +++ b/INSTALL/dsecnd_INT_CPU_TIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -43,15 +43,15 @@ DOUBLE PRECISION FUNCTION DSECND( ) * ===================================================================== * * .. Local Scalars .. -* +* REAL T -* +* * .. Intrinsic Functions .. -* +* INTRINSIC CPU_TIME -* +* * .. Executable Statements .. * -* +* CALL CPU_TIME( T ) DSECND = T RETURN diff --git a/INSTALL/dsecnd_INT_ETIME.f b/INSTALL/dsecnd_INT_ETIME.f index a183a92fa5..698da78463 100644 --- a/INSTALL/dsecnd_INT_ETIME.f +++ b/INSTALL/dsecnd_INT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/dsecnd_NONE.f b/INSTALL/dsecnd_NONE.f index 61a8dff134..4ce09b91d7 100644 --- a/INSTALL/dsecnd_NONE.f +++ b/INSTALL/dsecnd_NONE.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/dsecndtst.f b/INSTALL/dsecndtst.f index 9da745c8b3..9f76368615 100644 --- a/INSTALL/dsecndtst.f +++ b/INSTALL/dsecndtst.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DSECNDTST -* +* * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/ilaver.f b/INSTALL/ilaver.f index b32ea19724..535d20f9a3 100644 --- a/INSTALL/ilaver.f +++ b/INSTALL/ilaver.f @@ -2,8 +2,8 @@ ** * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH -* +* * *> \par Purpose: * ============= @@ -36,10 +36,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/INSTALL/lsame.f b/INSTALL/lsame.f index 315304c3d5..19cdac6281 100644 --- a/INSTALL/lsame.f +++ b/INSTALL/lsame.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CA, CB * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/lsametst.f b/INSTALL/lsametst.f index 525eb160ae..fa53578891 100644 --- a/INSTALL/lsametst.f +++ b/INSTALL/lsametst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,10 +13,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/make.inc.ALPHA b/INSTALL/make.inc.ALPHA index 33353d2d0e..b5815876e5 100644 --- a/INSTALL/make.inc.ALPHA +++ b/INSTALL/make.inc.ALPHA @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.HPPA b/INSTALL/make.inc.HPPA index 062e1a56b1..869a7ec7e9 100644 --- a/INSTALL/make.inc.HPPA +++ b/INSTALL/make.inc.HPPA @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.IRIX64 b/INSTALL/make.inc.IRIX64 index c8b34e4ed4..68482060ba 100644 --- a/INSTALL/make.inc.IRIX64 +++ b/INSTALL/make.inc.IRIX64 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -68,7 +68,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.O2K b/INSTALL/make.inc.O2K index 55b7de2456..ceeccef78d 100644 --- a/INSTALL/make.inc.O2K +++ b/INSTALL/make.inc.O2K @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -68,7 +68,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.SGI5 b/INSTALL/make.inc.SGI5 index dccfae3339..de55f15212 100644 --- a/INSTALL/make.inc.SGI5 +++ b/INSTALL/make.inc.SGI5 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.SUN4 b/INSTALL/make.inc.SUN4 index dd5cfd41e2..d9c68c4c78 100644 --- a/INSTALL/make.inc.SUN4 +++ b/INSTALL/make.inc.SUN4 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.SUN4SOL2 b/INSTALL/make.inc.SUN4SOL2 index eb71a386d4..d3c78437ea 100644 --- a/INSTALL/make.inc.SUN4SOL2 +++ b/INSTALL/make.inc.SUN4SOL2 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -69,7 +69,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.XLF b/INSTALL/make.inc.XLF index 5824e8f155..d7fa4b73bd 100644 --- a/INSTALL/make.inc.XLF +++ b/INSTALL/make.inc.XLF @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = xlf @@ -66,7 +66,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.gfortran b/INSTALL/make.inc.gfortran index 43986435cf..ccd0994f96 100644 --- a/INSTALL/make.inc.gfortran +++ b/INSTALL/make.inc.gfortran @@ -5,18 +5,18 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # # Note: During a regular execution, LAPACK might create NaN and Inf -# and handle these quantities appropriately. As a consequence, one +# and handle these quantities appropriately. As a consequence, one # should not compile LAPACK with flags such as -ffpe-trap=overflow. # -FORTRAN = gfortran +FORTRAN = gfortran OPTS = -O2 -frecursive DRVOPTS = $(OPTS) NOOPT = -O0 -frecursive @@ -69,7 +69,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.gfortran_debug b/INSTALL/make.inc.gfortran_debug index 294758f097..f87b949c45 100644 --- a/INSTALL/make.inc.gfortran_debug +++ b/INSTALL/make.inc.gfortran_debug @@ -5,7 +5,7 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is @@ -13,7 +13,7 @@ SHELL = /bin/sh # and desired load options for your machine. # # Note: During a regular execution, LAPACK might create NaN and Inf -# and handle these quantities appropriately. As a consequence, one +# and handle these quantities appropriately. As a consequence, one # should not compile LAPACK with flags such as -ffpe-trap=overflow. # FORTRAN = gfortran -fimplicit-none -g -frecursive @@ -32,7 +32,7 @@ LOADOPTS = # For gfortran compiler: SECOND and DSECND will use a call to the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) -# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME +# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME TIMER = INT_CPU_TIME # If neither of this works...you can use the NONE value... In that case, SECOND and DSECND will always return 0 # TIMER = NONE @@ -69,7 +69,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.ifort b/INSTALL/make.inc.ifort index 504ab1c389..4dd4f361fb 100644 --- a/INSTALL/make.inc.ifort +++ b/INSTALL/make.inc.ifort @@ -5,7 +5,7 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is @@ -17,7 +17,7 @@ OPTS = -O3 -fp-model strict DRVOPTS = $(OPTS) NOOPT = -O0 -fp-model strict LOADER = ifort -LOADOPTS = +LOADOPTS = # # Timer for the SECOND and DSECND routines # @@ -28,7 +28,7 @@ TIMER = EXT_ETIME # For gfortran compiler: SECOND and DSECND will use a call to the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) -# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME +# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME # TIMER = INT_CPU_TIME # If neither of this works...you can use the NONE value... In that case, SECOND and DSECND will always return 0 # TIMER = NONE @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.pgf95 b/INSTALL/make.inc.pgf95 index aaddfa5bd7..595b64c873 100644 --- a/INSTALL/make.inc.pgf95 +++ b/INSTALL/make.inc.pgf95 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = pgf95 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/make.inc.pghpf b/INSTALL/make.inc.pghpf index 782c16d76e..8639530a50 100644 --- a/INSTALL/make.inc.pghpf +++ b/INSTALL/make.inc.pghpf @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = pghpf @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/INSTALL/second_EXT_ETIME.f b/INSTALL/second_EXT_ETIME.f index f47969fd0d..98e192cebc 100644 --- a/INSTALL/second_EXT_ETIME.f +++ b/INSTALL/second_EXT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/second_EXT_ETIME_.f b/INSTALL/second_EXT_ETIME_.f index 0c45459bb9..e91488fa0c 100644 --- a/INSTALL/second_EXT_ETIME_.f +++ b/INSTALL/second_EXT_ETIME_.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/second_INT_CPU_TIME.f b/INSTALL/second_INT_CPU_TIME.f index 1aa0d6eee4..892f26440e 100644 --- a/INSTALL/second_INT_CPU_TIME.f +++ b/INSTALL/second_INT_CPU_TIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -43,15 +43,15 @@ REAL FUNCTION SECOND( ) * ===================================================================== * * .. Local Scalars .. -* +* REAL T -* +* * .. Intrinsic Functions .. -* +* INTRINSIC CPU_TIME -* +* * .. Executable Statements .. * -* +* CALL CPU_TIME( T ) SECOND = T RETURN diff --git a/INSTALL/second_INT_ETIME.f b/INSTALL/second_INT_ETIME.f index 57b7cb8da8..8b27b5344e 100644 --- a/INSTALL/second_INT_ETIME.f +++ b/INSTALL/second_INT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/second_NONE.f b/INSTALL/second_NONE.f index d3e6d3319b..e6ab724737 100644 --- a/INSTALL/second_NONE.f +++ b/INSTALL/second_NONE.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/secondtst.f b/INSTALL/secondtst.f index 4f56b4262b..16006bcbc4 100644 --- a/INSTALL/secondtst.f +++ b/INSTALL/secondtst.f @@ -2,17 +2,17 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/slamch.f b/INSTALL/slamch.f index 4bffad0eb6..b3913701a4 100644 --- a/INSTALL/slamch.f +++ b/INSTALL/slamch.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CMACH * .. -* +* * *> \par Purpose: * ============= @@ -55,10 +55,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/slamchf77.f b/INSTALL/slamchf77.f index 6c419e13bb..551fb15cfc 100644 --- a/INSTALL/slamchf77.f +++ b/INSTALL/slamchf77.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CMACH * .. -* +* * *> \par Purpose: * ============= @@ -55,10 +55,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/INSTALL/slamchtst.f b/INSTALL/slamchtst.f index 71133e71fc..5adf3d7497 100644 --- a/INSTALL/slamchtst.f +++ b/INSTALL/slamchtst.f @@ -2,17 +2,17 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/INSTALL/tstiee.f b/INSTALL/tstiee.f index b6e85de3c4..a9028f3a5d 100644 --- a/INSTALL/tstiee.f +++ b/INSTALL/tstiee.f @@ -2,16 +2,16 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -569,7 +569,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, ILAENV = 2 RETURN * - 600 CONTINUE + 600 CONTINUE * * ISPEC = 6: crossover point for SVD (used by xGELSS and xGESVD) * @@ -605,7 +605,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * ILAENV = 1 IF (ILAENV .EQ. 1) THEN - ILAENV = IEEECK( 0, 0.0, 1.0 ) + ILAENV = IEEECK( 0, 0.0, 1.0 ) ENDIF RETURN * @@ -615,14 +615,14 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * ILAENV = 1 IF (ILAENV .EQ. 1) THEN - ILAENV = IEEECK( 1, 0.0, 1.0 ) + ILAENV = IEEECK( 1, 0.0, 1.0 ) ENDIF RETURN * * End of ILAENV * END - INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) + INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * * -- LAPACK auxiliary routine (version 3.4.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -636,7 +636,7 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * Purpose * ======= * -* IEEECK is called from the ILAENV to verify that Inifinity and +* IEEECK is called from the ILAENV to verify that Inifinity and * possibly NaN arithmetic is safe (i.e. will not trap). * * Arguments: @@ -650,12 +650,12 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * * ZERO (input) REAL * Must contain the value 0.0 -* This is passed to prevent the compiler from optimizing +* This is passed to prevent the compiler from optimizing * away this code. * * ONE (input) REAL * Must contain the value 1.0 -* This is passed to prevent the compiler from optimizing +* This is passed to prevent the compiler from optimizing * away this code. * * RETURN VALUE: INTEGER @@ -686,8 +686,8 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) IEEECK = 0 RETURN ENDIF - - NEGINF = ONE / NEGZRO + + NEGINF = ONE / NEGZRO IF ( NEGINF .GE. ZERO ) THEN IEEECK = 0 RETURN @@ -698,20 +698,20 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) IEEECK = 0 RETURN ENDIF - + POSINF = ONE / NEWZRO IF ( POSINF .LE. ONE ) THEN IEEECK = 0 RETURN ENDIF - NEGINF = NEGINF * POSINF + NEGINF = NEGINF * POSINF IF ( NEGINF .GE. ZERO ) THEN IEEECK = 0 RETURN ENDIF - POSINF = POSINF * POSINF + POSINF = POSINF * POSINF IF ( POSINF .LE. ONE ) THEN IEEECK = 0 RETURN @@ -727,11 +727,11 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) NAN1 = POSINF + NEGINF NAN2 = POSINF / NEGINF - + NAN3 = POSINF / POSINF - + NAN4 = POSINF * ZERO - + NAN5 = NEGINF * NEGZRO NAN6 = NAN5 * 0.0 diff --git a/LAPACKE/Makefile b/LAPACKE/Makefile index 2eedab2368..8d2828809a 100644 --- a/LAPACKE/Makefile +++ b/LAPACKE/Makefile @@ -42,7 +42,7 @@ # include ../make.inc -all: lapacke +all: lapacke lapacke: cd include && cp lapacke_mangling_with_flags.h.in lapacke_mangling.h @@ -51,7 +51,7 @@ lapacke: lapacke_example: cd example && $(MAKE) - + clean: cleanlib cleanlib: diff --git a/LAPACKE/README b/LAPACKE/README index 343de50d11..205ce6c3a0 100644 --- a/LAPACKE/README +++ b/LAPACKE/README @@ -6,25 +6,25 @@ Introduction ------------------------------------------------------------------------------- This library is a part of reference implementation for the C interface to -LAPACK project according to the specifications described at the forum for +LAPACK project according to the specifications described at the forum for the Intel(R) Math Kernel Library (Intel(R) MKL): http://software.intel.com/en-us/forums/showthread.php?t=61234 This implementation provides a native C interface to LAPACK routines available -at www.netlib.org/lapack to facilitate usage of LAPACK functionality +at www.netlib.org/lapack to facilitate usage of LAPACK functionality for C programmers. This implementation introduces: -- row-major and column-major matrix layout controlled by the first function +- row-major and column-major matrix layout controlled by the first function parameter; -- an implementation with working arrays (middle-level interface) as well as +- an implementation with working arrays (middle-level interface) as well as without working arrays (high-level interface); - input scalars passed by value; - error code as a return value instead of the INFO parameter. -This implementation supports both the ILP64 and LP64 programming models, +This implementation supports both the ILP64 and LP64 programming models, and different complex type styles: structure, C99. -This implementation includes interfaces for the LAPACK-3.2.1 Driver and +This implementation includes interfaces for the LAPACK-3.2.1 Driver and Computational routines only. ------------------------------------------------------------------------------- @@ -42,12 +42,12 @@ Installation ------------------------------------------------------------------------------- The reference code for the C interface to LAPACK is built similarly to the -Basic Linear Algebra Subprograms (BLAS) and LAPACK. The build system produces +Basic Linear Algebra Subprograms (BLAS) and LAPACK. The build system produces a static binary lapacke.a. You need to provide a make.inc file in the top directory that defines the compiler, compiler flags, names for binaries to be created/linked to. You may -choose the appropriate LP64/ILP64 model, convenient complex type style, +choose the appropriate LP64/ILP64 model, convenient complex type style, LAPACKE name pattern, and/or redefine system malloc/free in make.inc. Several examples of make.inc are provided. @@ -75,7 +75,7 @@ typedef struct { double real, imag; } _lapack_complex_double; #define lapack_complex_float _lapack_complex_float #define lapack_complex_double _lapack_complex_double -3) C++ complex types (set by enabling in the configuration file): +3) C++ complex types (set by enabling in the configuration file): -DHAVE_LAPACK_CONFIG_H -DLAPACK_COMPLEX_CPP #define lapack_complex_float std::complex @@ -87,9 +87,9 @@ You have to compile the interface with C++ compiler with C++ types. -DLAPACK_COMPLEX_CUSTOM To use custom complex types, you need to: -- Define lapack_complex_float/lapack_complex_double types on your own. +- Define lapack_complex_float/lapack_complex_double types on your own. - Optionally define lapack_make_complex_float/lapack_make_complex_double_real - functions if you want to build the testing suite supplied. Use these + functions if you want to build the testing suite supplied. Use these functions for the testing system. Their purpose is to make a complex value of a real part re, imaginary part im. The prototypes are as follows: @@ -99,7 +99,7 @@ To use custom complex types, you need to: ------------------------------------------------------------------------------- Choosing ILP64 Data Model ------------------------------------------------------------------------------- -To choose ILP64 data model (set by enabling in the configuration file), use the +To choose ILP64 data model (set by enabling in the configuration file), use the following options: -DHAVE_LAPACK_CONFIG_H -DLAPACK_ILP64 @@ -108,7 +108,7 @@ following options: Using Predicate Functions ------------------------------------------------------------------------------- -The functions +The functions lapacke_?gees/lapacke_?gees_work lapacke_?geesx/lapacke_?geesx_work @@ -139,8 +139,8 @@ The row-major matrices are transposed on entry to and on exit from the LAPACK routine, if needed. Top-level interfaces additionally allocate/deallocate working space on entry to and on exit from the LAPACK routine. -Because of possible additional transpositions, a routine called with -this interface may require more memory space and run slower than the +Because of possible additional transpositions, a routine called with +this interface may require more memory space and run slower than the corresponding LAPACK routine. ------------------------------------------------------------------------------- @@ -185,7 +185,7 @@ numbers differentiate features within each processor family, not across different processor families. See http://www.intel.com/products/processor_number for details. -This document contains information on products in the design phase of +This document contains information on products in the design phase of development. BunnyPeople, Celeron, Celeron Inside, Centrino, Centrino Atom, diff --git a/LAPACKE/cmake/tmp.dnyp4S2eiM b/LAPACKE/cmake/tmp.dnyp4S2eiM new file mode 100644 index 0000000000..e69de29bb2 diff --git a/LAPACKE/example/Makefile b/LAPACKE/example/Makefile index 52c46707f4..c142a33cb9 100644 --- a/LAPACKE/example/Makefile +++ b/LAPACKE/example/Makefile @@ -3,9 +3,9 @@ include ../../make.inc all: xexample_DGESV_rowmajor \ xexample_DGESV_colmajor \ xexample_DGELS_rowmajor \ - xexample_DGELS_colmajor + xexample_DGELS_colmajor -LIBRAIRIES= ../../$(LAPACKELIB) ../../$(LAPACKLIB) $(BLASLIB) +LIBRAIRIES= ../../$(LAPACKELIB) ../../$(LAPACKLIB) $(BLASLIB) # Double Precision Examples xexample_DGESV_rowmajor: example_DGESV_rowmajor.o lapacke_example_aux.o $(LIBRAIRIES) diff --git a/LAPACKE/example/example_DGELS_colmajor.c b/LAPACKE/example/example_DGELS_colmajor.c index 5fa04bb417..c44c1a5a30 100644 --- a/LAPACKE/example/example_DGELS_colmajor.c +++ b/LAPACKE/example/example_DGELS_colmajor.c @@ -1,16 +1,16 @@ /* LAPACKE Example : Calling DGELS using col-major layout ===================================================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - In this example, we wish solve the least squares problem min_x || B - Ax || + + In this example, we wish solve the least squares problem min_x || B - Ax || for two right-hand sides using the LAPACK routine DGELS. For input we will use the 5-by-3 matrix @@ -28,11 +28,11 @@ ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, which is stored in col-major layout, and let LAPACKE handle the work space - array allocation. The LAPACK base name for this function is gels, and we + array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. lda=5 and ldb=5. The output for each right hand side is stored in b as - consecutive vectors of length 3. The correct answer for this problem is + consecutive vectors of length 3. The correct answer for this problem is the 3-by-2 matrix ( 2 1 ) @@ -82,7 +82,7 @@ int main (int argc, const char * argv[]) /* Print Right Rand Side */ print_matrix_colmajor( "Right Hand Side b", n, nrhs, *b, ldb ); printf( "\n" ); - + /* Executable statements */ printf( "LAPACKE_dgels (col-major, high-level) Example Program Results\n" ); /* Solve least squares problem*/ diff --git a/LAPACKE/example/example_DGELS_rowmajor.c b/LAPACKE/example/example_DGELS_rowmajor.c index a5d02e2e64..150402628d 100644 --- a/LAPACKE/example/example_DGELS_rowmajor.c +++ b/LAPACKE/example/example_DGELS_rowmajor.c @@ -1,16 +1,16 @@ /* LAPACKE Example : Calling DGELS using row-major layout ===================================================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - In this example, we wish solve the least squares problem min_x || B - Ax || + + In this example, we wish solve the least squares problem min_x || B - Ax || for two right-hand sides using the LAPACK routine DGELS. For input we will use the 5-by-3 matrix @@ -28,11 +28,11 @@ ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, which is stored in row-major layout, and let LAPACKE handle the work space - array allocation. The LAPACK base name for this function is gels, and we + array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. thus lda=3 and ldb=2. The output for each right hand side is stored in b as - consecutive vectors of length 3. The correct answer for this problem is + consecutive vectors of length 3. The correct answer for this problem is the 3-by-2 matrix ( 2 1 ) @@ -83,7 +83,7 @@ int main (int argc, const char * argv[]) /* Print Right Rand Side */ print_matrix_rowmajor( "Right Hand Side b", n, nrhs, *b, ldb ); printf( "\n" ); - + /* Executable statements */ printf( "LAPACKE_dgels (row-major, high-level) Example Program Results\n" ); /* Solve least squares problem*/ diff --git a/LAPACKE/example/example_DGESV_colmajor.c b/LAPACKE/example/example_DGESV_colmajor.c index cc3cd8b343..938bbfe36a 100644 --- a/LAPACKE/example/example_DGESV_colmajor.c +++ b/LAPACKE/example/example_DGESV_colmajor.c @@ -1,23 +1,23 @@ /* LAPACKE_dgesv Example ===================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - The routine solves for X the system of linear equations A*X = B, - where A is an n-by-n matrix, the columns of matrix B are individual - right-hand sides, and the columns of X are the corresponding + + The routine solves for X the system of linear equations A*X = B, + where A is an n-by-n matrix, the columns of matrix B are individual + right-hand sides, and the columns of X are the corresponding solutions. - The LU decomposition with partial pivoting and row interchanges is - used to factor A as A = P*L*U, where P is a permutation matrix, L - is unit lower triangular, and U is upper triangular. The factored + The LU decomposition with partial pivoting and row interchanges is + used to factor A as A = P*L*U, where P is a permutation matrix, L + is unit lower triangular, and U is upper triangular. The factored form of A is then used to solve the system of equations A*X = B. LAPACKE Interface @@ -47,22 +47,22 @@ int main(int argc, char **argv) { /* Local arrays */ double *A, *b; lapack_int *ipiv; - + /* Default Value */ n = 5; nrhs = 1; /* Arguments */ for( i = 1; i < argc; i++ ) { - if( strcmp( argv[i], "-n" ) == 0 ) { + if( strcmp( argv[i], "-n" ) == 0 ) { n = atoi(argv[i+1]); i++; } - if( strcmp( argv[i], "-nrhs" ) == 0 ) { + if( strcmp( argv[i], "-nrhs" ) == 0 ) { nrhs = atoi(argv[i+1]); i++; - } + } } - + /* Initialization */ lda=n, ldb=n; A = (double *)malloc(n*n*sizeof(double)) ; @@ -75,7 +75,7 @@ int main(int argc, char **argv) { for( i = 0; i < n; i++ ) { for( j = 0; j < n; j++ ) A[i+j*lda] = ((double) rand()) / ((double) RAND_MAX) - 0.5; } - + for(i=0;i 0 ) { printf( "The diagonal element of the triangular factor of A,\n" ); diff --git a/LAPACKE/example/example_DGESV_rowmajor.c b/LAPACKE/example/example_DGESV_rowmajor.c index c37983829a..ad990fc17e 100644 --- a/LAPACKE/example/example_DGESV_rowmajor.c +++ b/LAPACKE/example/example_DGESV_rowmajor.c @@ -1,23 +1,23 @@ /* LAPACKE_dgesv Example ===================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - The routine solves for X the system of linear equations A*X = B, - where A is an n-by-n matrix, the columns of matrix B are individual - right-hand sides, and the columns of X are the corresponding + + The routine solves for X the system of linear equations A*X = B, + where A is an n-by-n matrix, the columns of matrix B are individual + right-hand sides, and the columns of X are the corresponding solutions. - The LU decomposition with partial pivoting and row interchanges is - used to factor A as A = P*L*U, where P is a permutation matrix, L - is unit lower triangular, and U is upper triangular. The factored + The LU decomposition with partial pivoting and row interchanges is + used to factor A as A = P*L*U, where P is a permutation matrix, L + is unit lower triangular, and U is upper triangular. The factored form of A is then used to solve the system of equations A*X = B. LAPACKE Interface @@ -46,22 +46,22 @@ int main(int argc, char **argv) { /* Local arrays */ double *A, *b; lapack_int *ipiv; - + /* Default Value */ n = 5; nrhs = 1; /* Arguments */ for( i = 1; i < argc; i++ ) { - if( strcmp( argv[i], "-n" ) == 0 ) { + if( strcmp( argv[i], "-n" ) == 0 ) { n = atoi(argv[i+1]); i++; } - if( strcmp( argv[i], "-nrhs" ) == 0 ) { + if( strcmp( argv[i], "-nrhs" ) == 0 ) { nrhs = atoi(argv[i+1]); i++; - } + } } - + /* Initialization */ lda=n, ldb=nrhs; A = (double *)malloc(n*n*sizeof(double)) ; diff --git a/LAPACKE/example/example_user.c b/LAPACKE/example/example_user.c index c481fa7058..a33c7de613 100644 --- a/LAPACKE/example/example_user.c +++ b/LAPACKE/example/example_user.c @@ -1,17 +1,17 @@ #include #include #include "lapacke.h" - + /* Auxiliary routines prototypes */ extern void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda ); extern void print_int_vector( char* desc, lapack_int n, lapack_int* a ); - + /* Parameters */ #define N 5 #define NRHS 3 #define LDA N #define LDB NRHS - + /* Main program */ int main() { /* Locals */ @@ -32,14 +32,14 @@ int main() { -7.57, 1.75, -8.61, -3.03, 2.86, 8.99 }; - + double aNorm; double rcond; char ONE_NORM = '1'; lapack_int NROWS = n; lapack_int NCOLS = n; lapack_int LEADING_DIMENSION_A = n; - + /* Print Entry Matrix */ print_matrix( "Entry Matrix A", n, n, a, lda ); /* Print Right Rand Side */ @@ -69,13 +69,13 @@ int main() { printf( "Unrecognized value of INFO = %d\n", info ); exit( 1 ); } - + /* Print solution */ printf("LAPACKE_dlange / One-norm of A = %lf\n", aNorm); printf("LAPACKE_dgecon / RCOND of A = %f\n", rcond); exit( 0 ); } /* End of LAPACKE_dgesv Example */ - + /* Auxiliary routine: printing a matrix */ void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda ) { lapack_int i, j; @@ -85,7 +85,7 @@ void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int printf( "\n" ); } } - + /* Auxiliary routine: printing a vector of integers */ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { lapack_int j; @@ -93,5 +93,5 @@ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { for( j = 0; j < n; j++ ) printf( " %6i", a[j] ); printf( "\n" ); } - - + + diff --git a/LAPACKE/example/lapacke_example_aux.c b/LAPACKE/example/lapacke_example_aux.c index dfd60eb1d9..9b72eb6209 100644 --- a/LAPACKE/example/lapacke_example_aux.c +++ b/LAPACKE/example/lapacke_example_aux.c @@ -5,7 +5,7 @@ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) { lapack_int i, j; printf( "\n %s\n", desc ); - + for( i = 0; i < m; i++ ) { for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i*ldm+j] ); printf( "\n" ); @@ -17,7 +17,7 @@ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, void print_matrix_colmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) { lapack_int i, j; printf( "\n %s\n", desc ); - + for( i = 0; i < m; i++ ) { for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i+j*ldm] ); printf( "\n" ); diff --git a/LAPACKE/include/lapacke.h b/LAPACKE/include/lapacke.h index 7034f8d5fb..27f1dcb506 100644 --- a/LAPACKE/include/lapacke.h +++ b/LAPACKE/include/lapacke.h @@ -2499,20 +2499,20 @@ lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int n, lapack_complex_double* x ); lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, float* a, lapack_int lda ); lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, double* a, lapack_int lda ); lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda ); lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda ); lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m, @@ -5763,21 +5763,21 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* u, lapack_int ldu, - float* vt, lapack_int ldvt, + float* vt, lapack_int ldvt, float* work, lapack_int lwork, lapack_int* iwork ); lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, lapack_int m, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, + double* vt, lapack_int ldvt, double* work, lapack_int lwork, lapack_int* iwork ); lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* vt, lapack_int ldvt, + lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork ); lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, @@ -5785,10 +5785,10 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* vt, lapack_int ldvt, - lapack_complex_double* work, lapack_int lwork, + lapack_complex_double* vt, lapack_int ldvt, + lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int* iwork ); - + lapack_int LAPACKE_sgesvj_work( int matrix_layout, char joba, char jobu, char jobv, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, lapack_int mv, @@ -7695,22 +7695,22 @@ lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed, lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, float* a, lapack_int lda ); lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, double* a, lapack_int lda ); lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda ); lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda ); - + lapack_int LAPACKE_slaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, float alpha, float beta, float* a, lapack_int lda ); @@ -10598,9 +10598,9 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x21, lapack_int ldx21, float* theta, lapack_complex_float* u1, - lapack_int ldu1, lapack_complex_float* u2, + lapack_int ldu1, lapack_complex_float* u2, lapack_int ldu2, lapack_complex_float* v1t, - lapack_int ldv1t, lapack_complex_float* work, + lapack_int ldv1t, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork ); lapack_int LAPACKE_dbbcsd( int matrix_layout, char jobu1, char jobu2, @@ -10943,9 +10943,9 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x21, lapack_int ldx21, double* theta, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, + lapack_int ldu1, lapack_complex_double* u2, lapack_int ldu2, lapack_complex_double* v1t, - lapack_int ldv1t, lapack_complex_double* work, + lapack_int ldv1t, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int lrwork, lapack_int* iwork ); @@ -11287,7 +11287,7 @@ lapack_int LAPACKE_zsysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); - + lapack_int LAPACKE_ssytrf_rook( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); lapack_int LAPACKE_dsytrf_rook( int matrix_layout, char uplo, lapack_int n, double* a, @@ -11359,7 +11359,7 @@ lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); - + lapack_int LAPACKE_ssytrf_rook_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv, float* work, lapack_int lwork ); @@ -16141,7 +16141,7 @@ void LAPACK_zgesvdx( char* jobu, char* jobvt, char* range, lapack_int* m, lapack lapack_complex_double* u, lapack_int* ldu, lapack_complex_double* vt, lapack_int* ldvt, lapack_complex_double* work, lapack_int* lwork, - double* rwork, lapack_int *iwork, lapack_int *info ); + double* rwork, lapack_int *iwork, lapack_int *info ); void LAPACK_sgesdd( char* jobz, lapack_int* m, lapack_int* n, float* a, lapack_int* lda, float* s, float* u, lapack_int* ldu, float* vt, lapack_int* ldvt, float* work, lapack_int* lwork, @@ -16175,13 +16175,13 @@ void LAPACK_sgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt, void LAPACK_cgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt, char* jobp, lapack_int* m, lapack_int* n, lapack_complex_float* a, lapack_int* lda, float* sva, lapack_complex_float* u, lapack_int* ldu, - lapack_complex_float* v, lapack_int* ldv, lapack_complex_float* cwork, + lapack_complex_float* v, lapack_int* ldv, lapack_complex_float* cwork, lapack_int* lwork, float* work, lapack_int* lrwork, lapack_int* iwork, lapack_int *info ); void LAPACK_zgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt, char* jobp, lapack_int* m, lapack_int* n, lapack_complex_double* a, lapack_int* lda, double* sva, lapack_complex_double* u, lapack_int* ldu, - lapack_complex_double* v, lapack_int* ldv, lapack_complex_double* cwork, + lapack_complex_double* v, lapack_int* ldv, lapack_complex_double* cwork, lapack_int* lwork, double* work, lapack_int* lrwork, lapack_int* iwork, lapack_int *info ); void LAPACK_dgesvj( char* joba, char* jobu, char* jobv, lapack_int* m, @@ -16194,12 +16194,12 @@ void LAPACK_sgesvj( char* joba, char* jobu, char* jobv, lapack_int* m, lapack_int* lwork, lapack_int *info ); void LAPACK_cgesvj( char* joba, char* jobu, char* jobv, lapack_int* m, lapack_int* n, lapack_complex_float* a, lapack_int* lda, float* sva, - lapack_int* mv, lapack_complex_float* v, lapack_int* ldv, - lapack_complex_float* cwork, lapack_int* lwork, float* rwork, + lapack_int* mv, lapack_complex_float* v, lapack_int* ldv, + lapack_complex_float* cwork, lapack_int* lwork, float* rwork, lapack_int* lrwork, lapack_int *info ); void LAPACK_zgesvj( char* joba, char* jobu, char* jobv, lapack_int* m, lapack_int* n, lapack_complex_double* a, lapack_int* lda, double* sva, - lapack_int* mv, lapack_complex_double* v, lapack_int* ldv, + lapack_int* mv, lapack_complex_double* v, lapack_int* ldv, lapack_complex_double* cwork, lapack_int* lwork, double* rwork, lapack_int* lrwork, lapack_int *info ); void LAPACK_sggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m, @@ -16983,16 +16983,16 @@ void LAPACK_zlagge( lapack_int* m, lapack_int* n, lapack_int* kl, lapack_int* lda, lapack_int* iseed, lapack_complex_double* work, lapack_int *info ); void LAPACK_slascl( char* type, lapack_int* kl, lapack_int* ku, float* cfrom, - float* cto, lapack_int* m, lapack_int* n, float* a, + float* cto, lapack_int* m, lapack_int* n, float* a, lapack_int* lda, lapack_int *info ); void LAPACK_dlascl( char* type, lapack_int* kl, lapack_int* ku, double* cfrom, - double* cto, lapack_int* m, lapack_int* n, double* a, + double* cto, lapack_int* m, lapack_int* n, double* a, lapack_int* lda, lapack_int *info ); void LAPACK_clascl( char* type, lapack_int* kl, lapack_int* ku, float* cfrom, - float* cto, lapack_int* m, lapack_int* n, lapack_complex_float* a, + float* cto, lapack_int* m, lapack_int* n, lapack_complex_float* a, lapack_int* lda, lapack_int *info ); void LAPACK_zlascl( char* type, lapack_int* kl, lapack_int* ku, double* cfrom, - double* cto, lapack_int* m, lapack_int* n, lapack_complex_double* a, + double* cto, lapack_int* m, lapack_int* n, lapack_complex_double* a, lapack_int* lda, lapack_int *info ); void LAPACK_slaset( char* uplo, lapack_int* m, lapack_int* n, float* alpha, float* beta, float* a, lapack_int* lda ); @@ -17177,7 +17177,7 @@ void LAPACK_dorcsd2by1( char* jobu1, char* jobu2, void LAPACK_dsyconv( char* uplo, char* way, lapack_int* n, double* a, lapack_int* lda, const lapack_int* ipiv, double* e , lapack_int *info ); -void LAPACK_dsyswapr( char* uplo, lapack_int* n, double* a, +void LAPACK_dsyswapr( char* uplo, lapack_int* n, double* a, lapack_int* lda, lapack_int* i1, lapack_int* i2 ); void LAPACK_dsytri2( char* uplo, lapack_int* n, double* a, lapack_int* lda, @@ -17231,7 +17231,7 @@ void LAPACK_sorcsd2by1( char* jobu1, char* jobu2, void LAPACK_ssyconv( char* uplo, char* way, lapack_int* n, float* a, lapack_int* lda, const lapack_int* ipiv, float* e , lapack_int *info ); -void LAPACK_ssyswapr( char* uplo, lapack_int* n, float* a, +void LAPACK_ssyswapr( char* uplo, lapack_int* n, float* a, lapack_int* lda, lapack_int* i1, lapack_int* i2 ); void LAPACK_ssytri2( char* uplo, lapack_int* n, float* a, lapack_int* lda, @@ -17277,7 +17277,7 @@ void LAPACK_zsyconv( char* uplo, char* way, lapack_int* n, lapack_complex_double* a, lapack_int* lda, const lapack_int* ipiv, lapack_complex_double* e , lapack_int *info ); -void LAPACK_zsyswapr( char* uplo, lapack_int* n, lapack_complex_double* a, +void LAPACK_zsyswapr( char* uplo, lapack_int* n, lapack_complex_double* a, lapack_int* lda, lapack_int* i1, lapack_int* i2 ); void LAPACK_zsytri2( char* uplo, lapack_int* n, diff --git a/LAPACKE/src/CMakeLists.txt b/LAPACKE/src/CMakeLists.txt index 59da093008..d59ab8a677 100644 --- a/LAPACKE/src/CMakeLists.txt +++ b/LAPACKE/src/CMakeLists.txt @@ -1,6 +1,6 @@ -#AUX_SOURCE_DIRECTORY(${CMAKE_CURRENT_SOURCE_DIR} SRC_OBJ) +#AUX_SOURCE_DIRECTORY(${CMAKE_CURRENT_SOURCE_DIR} SRC_OBJ) -SET (SRC_OBJ +SET (SRC_OBJ lapacke_cbbcsd.c lapacke_cbbcsd_work.c lapacke_cbdsqr.c @@ -2085,7 +2085,7 @@ lapacke_ilaver.c ) if(BUILD_DEPRECATED) - LIST(APPEND SRC_OBJ + LIST(APPEND SRC_OBJ lapacke_cggsvp.c lapacke_cggsvp_work.c lapacke_dggsvp.c @@ -2113,7 +2113,7 @@ if(BUILD_DEPRECATED) message(STATUS "Building LAPACKE deprecated routines") endif() -SET(SRCX_OBJ +SET(SRCX_OBJ lapacke_cgbrfsx.c lapacke_cporfsx.c lapacke_dgerfsx.c lapacke_sgbrfsx.c lapacke_ssyrfsx.c lapacke_zherfsx.c lapacke_cgbrfsx_work.c lapacke_cporfsx_work.c lapacke_dgerfsx_work.c lapacke_sgbrfsx_work.c lapacke_ssyrfsx_work.c lapacke_zherfsx_work.c lapacke_cgerfsx.c lapacke_csyrfsx.c lapacke_dporfsx.c lapacke_sgerfsx.c lapacke_zgbrfsx.c lapacke_zporfsx.c @@ -2128,8 +2128,8 @@ lapacke_chesvxx.c lapacke_dgbsvxx.c lapacke_dsysvxx.c lapacke_ lapacke_chesvxx_work.c lapacke_dgbsvxx_work.c lapacke_dsysvxx_work.c lapacke_sposvxx_work.c lapacke_zgesvxx_work.c lapacke_zsysvxx_work.c ) -# FILE PARTS OF TMGLIB -SET (MATGEN_OBJ +# FILE PARTS OF TMGLIB +SET (MATGEN_OBJ lapacke_clatms.c lapacke_clatms_work.c lapacke_dlatms.c diff --git a/LAPACKE/src/Makefile b/LAPACKE/src/Makefile index 642b875410..fb87fff8d1 100644 --- a/LAPACKE/src/Makefile +++ b/LAPACKE/src/Makefile @@ -2158,7 +2158,7 @@ lapacke_chesvxx.o lapacke_dgbsvxx.o lapacke_dsysvxx.o lapacke_ lapacke_chesvxx_work.o lapacke_dgbsvxx_work.o lapacke_dsysvxx_work.o lapacke_sposvxx_work.o lapacke_zgesvxx_work.o lapacke_zsysvxx_work.o -# FILE PARTS OF TMGLIB +# FILE PARTS OF TMGLIB MATGEN_OBJ = \ lapacke_clatms.o \ lapacke_clatms_work.o \ @@ -2189,7 +2189,7 @@ lapacke_slagsy_work.o \ lapacke_zlagsy.o \ lapacke_zlagsy_work.o -ALLOBJ = $(SRC_OBJ) $(MATGEN_OBJ) +ALLOBJ = $(SRC_OBJ) $(MATGEN_OBJ) ifdef USEXBLAS ALLXOBJ = $(SXLASRC) $(DXLASRC) $(CXLASRC) $(ZXLASRC) diff --git a/LAPACKE/src/lapacke_cgejsv.c b/LAPACKE/src/lapacke_cgejsv.c index 5bfb1553b4..fbf8d11c37 100644 --- a/LAPACKE/src/lapacke_cgejsv.c +++ b/LAPACKE/src/lapacke_cgejsv.c @@ -41,10 +41,10 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, { lapack_int info = 0; lapack_int lwork = ( - // 1.1 + // 1.1 ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 : - + //1.2 ( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n : @@ -53,38 +53,38 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - + + //2.2 ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - //3.1 + + //3.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - //3.2 + + //3.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && !(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - + //4.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 5*n+2*n*n : - + //4.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && - ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n: - 1) ) ) ) ) ) ) ); + ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n: + 1) ) ) ) ) ) ) ); lapack_int lrwork = ( - // 1.1 + // 1.1 ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) : - + //1.2 ( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) : @@ -93,28 +93,28 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - - + + //2.2 ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) : - - //3.1 + + //3.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - - //3.2 + + //3.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && !(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) : - + //4.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - + //4.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && diff --git a/LAPACKE/src/lapacke_cgesvdx_work.c b/LAPACKE/src/lapacke_cgesvdx_work.c index f9b4a966ec..a5955ef465 100644 --- a/LAPACKE/src/lapacke_cgesvdx_work.c +++ b/LAPACKE/src/lapacke_cgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* vt, lapack_int ldvt, + lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork ) { diff --git a/LAPACKE/src/lapacke_cgesvj_work.c b/LAPACKE/src/lapacke_cgesvj_work.c index 914813a9c6..e2bbbfec78 100644 --- a/LAPACKE/src/lapacke_cgesvj_work.c +++ b/LAPACKE/src/lapacke_cgesvj_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, + char jobv, lapack_int m, lapack_int n, + lapack_complex_float* a, lapack_int lda, float* sva, lapack_int mv, lapack_complex_float* v, lapack_int ldv, lapack_complex_float* cwork, lapack_int lwork, diff --git a/LAPACKE/src/lapacke_clarfb_work.c b/LAPACKE/src/lapacke_clarfb_work.c index ad386d0528..1ed2237710 100644 --- a/LAPACKE/src/lapacke_clarfb_work.c +++ b/LAPACKE/src/lapacke_clarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; + lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/LAPACKE/src/lapacke_clascl.c b/LAPACKE/src/lapacke_clascl.c index d393eb5e73..5e3169551a 100644 --- a/LAPACKE/src/lapacke_clascl.c +++ b/LAPACKE/src/lapacke_clascl.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_clascl_work.c b/LAPACKE/src/lapacke_clascl_work.c index 5945c5c1c0..70a75f733f 100644 --- a/LAPACKE/src/lapacke_clascl_work.c +++ b/LAPACKE/src/lapacke_clascl_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_claset.c b/LAPACKE/src/lapacke_claset.c index 5cf883928a..cd6536c09e 100644 --- a/LAPACKE/src/lapacke_claset.c +++ b/LAPACKE/src/lapacke_claset.c @@ -45,8 +45,8 @@ lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* Note: we do not check NaNs in A since the goal of this subroutine is to -* initialized A. It is OK if A has NaNs in input. +* Note: we do not check NaNs in A since the goal of this subroutine is to +* initialized A. It is OK if A has NaNs in input. *****************************************************************************/ #ifndef LAPACK_DISABLE_NAN_CHECK diff --git a/LAPACKE/src/lapacke_ctpqrt.c b/LAPACKE/src/lapacke_ctpqrt.c index e11ce784d9..8dfd856469 100644 --- a/LAPACKE/src/lapacke_ctpqrt.c +++ b/LAPACKE/src/lapacke_ctpqrt.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_float* a, lapack_int lda, + lapack_int l, lapack_int nb, + lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ) { diff --git a/LAPACKE/src/lapacke_ctprfb.c b/LAPACKE/src/lapacke_ctprfb.c index d2e8410606..f66469a2b7 100644 --- a/LAPACKE/src/lapacke_ctprfb.c +++ b/LAPACKE/src/lapacke_ctprfb.c @@ -84,7 +84,7 @@ lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (lapack_complex_float*) LAPACKE_malloc( sizeof(lapack_complex_float) * work_size ); diff --git a/LAPACKE/src/lapacke_cuncsd2by1.c b/LAPACKE/src/lapacke_cuncsd2by1.c index 4b9cf7fe1a..e6749c1bc5 100644 --- a/LAPACKE/src/lapacke_cuncsd2by1.c +++ b/LAPACKE/src/lapacke_cuncsd2by1.c @@ -74,7 +74,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, &work_query, lwork, &rwork_query, lrwork, iwork ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork ); /* Release memory and exit */ diff --git a/LAPACKE/src/lapacke_cuncsd2by1_work.c b/LAPACKE/src/lapacke_cuncsd2by1_work.c index 4ab11b1892..fb0a0f7ee6 100644 --- a/LAPACKE/src/lapacke_cuncsd2by1_work.c +++ b/LAPACKE/src/lapacke_cuncsd2by1_work.c @@ -38,9 +38,9 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x21, lapack_int ldx21, float* theta, lapack_complex_float* u1, - lapack_int ldu1, lapack_complex_float* u2, + lapack_int ldu1, lapack_complex_float* u2, lapack_int ldu2, lapack_complex_float* v1t, - lapack_int ldv1t, lapack_complex_float* work, + lapack_int ldv1t, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork ) { @@ -48,8 +48,8 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p, - &q, x11, &ldx11, x21, &ldx21, - theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, + &q, x11, &ldx11, x21, &ldx21, + theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, work, &lwork, rwork, &lrwork, iwork, &info ); if( info < 0 ) { info = info - 1; diff --git a/LAPACKE/src/lapacke_dbdsvdx_work.c b/LAPACKE/src/lapacke_dbdsvdx_work.c index 29217a827e..a795110f90 100644 --- a/LAPACKE/src/lapacke_dbdsvdx_work.c +++ b/LAPACKE/src/lapacke_dbdsvdx_work.c @@ -37,7 +37,7 @@ lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char r lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, - double* s, double* z, lapack_int ldz, + double* s, double* z, lapack_int ldz, double* work, lapack_int* iwork ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dgesvdx_work.c b/LAPACKE/src/lapacke_dgesvdx_work.c index 893cce0a72..a5a2cb65ed 100644 --- a/LAPACKE/src/lapacke_dgesvdx_work.c +++ b/LAPACKE/src/lapacke_dgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, + double* vt, lapack_int ldvt, double* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dlarfb_work.c b/LAPACKE/src/lapacke_dlarfb_work.c index 3fe4893167..5c833db091 100644 --- a/LAPACKE/src/lapacke_dlarfb_work.c +++ b/LAPACKE/src/lapacke_dlarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - double *v_t = NULL, *t_t = NULL, *c_t = NULL; + double *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/LAPACKE/src/lapacke_dlascl.c b/LAPACKE/src/lapacke_dlascl.c index 9729389f46..b35b9b289b 100644 --- a/LAPACKE/src/lapacke_dlascl.c +++ b/LAPACKE/src/lapacke_dlascl.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, double* a, lapack_int lda ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_dlascl_work.c b/LAPACKE/src/lapacke_dlascl_work.c index 95870dd7d8..a20bf09e6a 100644 --- a/LAPACKE/src/lapacke_dlascl_work.c +++ b/LAPACKE/src/lapacke_dlascl_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, double* a, lapack_int lda ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dlaset.c b/LAPACKE/src/lapacke_dlaset.c index 3a299e9bef..c828485c17 100644 --- a/LAPACKE/src/lapacke_dlaset.c +++ b/LAPACKE/src/lapacke_dlaset.c @@ -44,8 +44,8 @@ lapack_int LAPACKE_dlaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* Note: we do not check NaNs in A since the goal of this subroutine is to -* initialized A. It is OK if A has NaNs in input. +* Note: we do not check NaNs in A since the goal of this subroutine is to +* initialized A. It is OK if A has NaNs in input. *****************************************************************************/ #ifndef LAPACK_DISABLE_NAN_CHECK diff --git a/LAPACKE/src/lapacke_dorcsd2by1.c b/LAPACKE/src/lapacke_dorcsd2by1.c index 7c71cd47bd..9ffed4876f 100644 --- a/LAPACKE/src/lapacke_dorcsd2by1.c +++ b/LAPACKE/src/lapacke_dorcsd2by1.c @@ -69,7 +69,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, &work_query, lwork, iwork ); @@ -84,7 +84,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, work, lwork, iwork ); /* Release memory and exit */ diff --git a/LAPACKE/src/lapacke_dorcsd2by1_work.c b/LAPACKE/src/lapacke_dorcsd2by1_work.c index cea20f4072..5cc39b1b02 100644 --- a/LAPACKE/src/lapacke_dorcsd2by1_work.c +++ b/LAPACKE/src/lapacke_dorcsd2by1_work.c @@ -46,8 +46,8 @@ lapack_int LAPACKE_dorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p, - &q, x11, &ldx11, x21, &ldx21, - theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, + &q, x11, &ldx11, x21, &ldx21, + theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; diff --git a/LAPACKE/src/lapacke_dsyconv.c b/LAPACKE/src/lapacke_dsyconv.c index 39be12ef41..086ab08389 100644 --- a/LAPACKE/src/lapacke_dsyconv.c +++ b/LAPACKE/src/lapacke_dsyconv.c @@ -47,7 +47,7 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - + /* Call middle-level interface */ info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); diff --git a/LAPACKE/src/lapacke_dtprfb.c b/LAPACKE/src/lapacke_dtprfb.c index 9db9465373..7c4ce924d0 100644 --- a/LAPACKE/src/lapacke_dtprfb.c +++ b/LAPACKE/src/lapacke_dtprfb.c @@ -82,10 +82,10 @@ lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (double*) - LAPACKE_malloc( sizeof(double) * work_size ); + LAPACKE_malloc( sizeof(double) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; diff --git a/LAPACKE/src/lapacke_sbdsvdx_work.c b/LAPACKE/src/lapacke_sbdsvdx_work.c index 214c412d5d..f632b3ea98 100644 --- a/LAPACKE/src/lapacke_sbdsvdx_work.c +++ b/LAPACKE/src/lapacke_sbdsvdx_work.c @@ -37,7 +37,7 @@ lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char r lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, - float* s, float* z, lapack_int ldz, + float* s, float* z, lapack_int ldz, float* work, lapack_int* iwork ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_sgesvdx_work.c b/LAPACKE/src/lapacke_sgesvdx_work.c index 7bcf3b5076..f7973f016b 100644 --- a/LAPACKE/src/lapacke_sgesvdx_work.c +++ b/LAPACKE/src/lapacke_sgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* u, lapack_int ldu, - float* vt, lapack_int ldvt, + float* vt, lapack_int ldvt, float* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; @@ -94,7 +94,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char info = LAPACK_TRANSPOSE_MEMORY_ERROR; goto exit_level_0; } - if( LAPACKE_lsame( jobu, 'v' ) ) { + if( LAPACKE_lsame( jobu, 'v' ) ) { u_t = (float*) LAPACKE_malloc( sizeof(float) * ldu_t * MAX(1,ncols_u) ); if( u_t == NULL ) { @@ -102,7 +102,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char goto exit_level_1; } } - if( LAPACKE_lsame( jobvt, 'v' ) ) { + if( LAPACKE_lsame( jobvt, 'v' ) ) { vt_t = (float*) LAPACKE_malloc( sizeof(float) * ldvt_t * MAX(1,n) ); if( vt_t == NULL ) { @@ -125,12 +125,12 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_u, ncols_u, u_t, ldu_t, u, ldu ); } - if( LAPACKE_lsame( jobvt, 'v' ) ) { + if( LAPACKE_lsame( jobvt, 'v' ) ) { LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_vt, n, vt_t, ldvt_t, vt, ldvt ); } /* Release memory and exit */ - if( LAPACKE_lsame( jobvt, 'v' ) ) { + if( LAPACKE_lsame( jobvt, 'v' ) ) { LAPACKE_free( vt_t ); } exit_level_2: diff --git a/LAPACKE/src/lapacke_slarfb_work.c b/LAPACKE/src/lapacke_slarfb_work.c index 12b4c7b69a..a537c39466 100644 --- a/LAPACKE/src/lapacke_slarfb_work.c +++ b/LAPACKE/src/lapacke_slarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - float *v_t = NULL, *t_t = NULL, *c_t = NULL; + float *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_slarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/LAPACKE/src/lapacke_slascl_work.c b/LAPACKE/src/lapacke_slascl_work.c index e39db388d1..dac2a03f21 100644 --- a/LAPACKE/src/lapacke_slascl_work.c +++ b/LAPACKE/src/lapacke_slascl_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, float* a, + lapack_int ku, float cfrom, float cto, + lapack_int m, lapack_int n, float* a, lapack_int lda ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_slaset.c b/LAPACKE/src/lapacke_slaset.c index 02af8724b4..2627d81330 100644 --- a/LAPACKE/src/lapacke_slaset.c +++ b/LAPACKE/src/lapacke_slaset.c @@ -44,8 +44,8 @@ lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* Note: we do not check NaNs in A since the goal of this subroutine is to -* initialized A. It is OK if A has NaNs in input. +* Note: we do not check NaNs in A since the goal of this subroutine is to +* initialized A. It is OK if A has NaNs in input. *****************************************************************************/ #ifndef LAPACK_DISABLE_NAN_CHECK diff --git a/LAPACKE/src/lapacke_sorcsd2by1.c b/LAPACKE/src/lapacke_sorcsd2by1.c index b924897db5..9c958af60c 100644 --- a/LAPACKE/src/lapacke_sorcsd2by1.c +++ b/LAPACKE/src/lapacke_sorcsd2by1.c @@ -69,7 +69,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, &work_query, lwork, iwork ); @@ -84,7 +84,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, work, lwork, iwork ); /* Release memory and exit */ diff --git a/LAPACKE/src/lapacke_sorcsd2by1_work.c b/LAPACKE/src/lapacke_sorcsd2by1_work.c index 5990a1e3c4..d361594c13 100644 --- a/LAPACKE/src/lapacke_sorcsd2by1_work.c +++ b/LAPACKE/src/lapacke_sorcsd2by1_work.c @@ -46,8 +46,8 @@ lapack_int LAPACKE_sorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p, - &q, x11, &ldx11, x21, &ldx21, - theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, + &q, x11, &ldx11, x21, &ldx21, + theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; diff --git a/LAPACKE/src/lapacke_ssyconv.c b/LAPACKE/src/lapacke_ssyconv.c index 044a3dac41..f70196695a 100644 --- a/LAPACKE/src/lapacke_ssyconv.c +++ b/LAPACKE/src/lapacke_ssyconv.c @@ -47,7 +47,7 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - + /* Call middle-level interface */ info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); diff --git a/LAPACKE/src/lapacke_stprfb.c b/LAPACKE/src/lapacke_stprfb.c index e9321854d9..13d0cc7e72 100644 --- a/LAPACKE/src/lapacke_stprfb.c +++ b/LAPACKE/src/lapacke_stprfb.c @@ -82,7 +82,7 @@ lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (float*) LAPACKE_malloc( sizeof(float) * work_size ); diff --git a/LAPACKE/src/lapacke_zgejsv.c b/LAPACKE/src/lapacke_zgejsv.c index 18761eaac2..6eababe56a 100644 --- a/LAPACKE/src/lapacke_zgejsv.c +++ b/LAPACKE/src/lapacke_zgejsv.c @@ -41,10 +41,10 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, { lapack_int info = 0; lapack_int lwork = ( - // 1.1 + // 1.1 ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 : - + //1.2 ( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n : @@ -53,38 +53,38 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && (!( LAPACKE_lsame( jobu, 'u') || LAPACKE_lsame( jobu, 'f' ) )&& ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - + + //2.2 ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - //3.1 + + //3.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - - //3.2 + + //3.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && !(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n : - + //4.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 5*n+2*n*n : - + //4.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && - ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n: - 1) ) ) ) ) ) ) ) ); + ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n: + 1) ) ) ) ) ) ) ) ); lapack_int lrwork = ( - // 1.1 + // 1.1 ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) : - + //1.2 ( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) : @@ -93,28 +93,28 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && (!( LAPACKE_lsame( jobu, 'u') || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - - + + //2.2 ( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && !( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && !( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) : - - //3.1 + + //3.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - - //3.2 + + //3.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) && !(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) && !(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) : - + //4.1 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) : - + //4.2 ( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) && ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) && diff --git a/LAPACKE/src/lapacke_zgesvdx_work.c b/LAPACKE/src/lapacke_zgesvdx_work.c index 2496694342..3070687a78 100644 --- a/LAPACKE/src/lapacke_zgesvdx_work.c +++ b/LAPACKE/src/lapacke_zgesvdx_work.c @@ -38,8 +38,8 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* vt, lapack_int ldvt, - lapack_complex_double* work, lapack_int lwork, + lapack_complex_double* vt, lapack_int ldvt, + lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int* iwork ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_zgesvj_work.c b/LAPACKE/src/lapacke_zgesvj_work.c index d48a5f5eb2..37e6c1ee6f 100644 --- a/LAPACKE/src/lapacke_zgesvj_work.c +++ b/LAPACKE/src/lapacke_zgesvj_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, + char jobv, lapack_int m, lapack_int n, + lapack_complex_double* a, lapack_int lda, double* sva, lapack_int mv, lapack_complex_double* v, lapack_int ldv, lapack_complex_double* cwork, lapack_int lwork, diff --git a/LAPACKE/src/lapacke_zlarfb_work.c b/LAPACKE/src/lapacke_zlarfb_work.c index 9580f593e1..8e92e17b30 100644 --- a/LAPACKE/src/lapacke_zlarfb_work.c +++ b/LAPACKE/src/lapacke_zlarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; + lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/LAPACKE/src/lapacke_zlascl.c b/LAPACKE/src/lapacke_zlascl.c index a0d382f142..de4b9c2196 100644 --- a/LAPACKE/src/lapacke_zlascl.c +++ b/LAPACKE/src/lapacke_zlascl.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_zlascl_work.c b/LAPACKE/src/lapacke_zlascl_work.c index 44775d93e3..7adfbc9e55 100644 --- a/LAPACKE/src/lapacke_zlascl_work.c +++ b/LAPACKE/src/lapacke_zlascl_work.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, + lapack_int ku, double cfrom, double cto, + lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_zlaset.c b/LAPACKE/src/lapacke_zlaset.c index 7de38f00e4..669ebc0a38 100644 --- a/LAPACKE/src/lapacke_zlaset.c +++ b/LAPACKE/src/lapacke_zlaset.c @@ -45,8 +45,8 @@ lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* Note: we do not check NaNs in A since the goal of this subroutine is to -* initialized A. It is OK if A has NaNs in input. +* Note: we do not check NaNs in A since the goal of this subroutine is to +* initialized A. It is OK if A has NaNs in input. *****************************************************************************/ diff --git a/LAPACKE/src/lapacke_ztprfb.c b/LAPACKE/src/lapacke_ztprfb.c index 944ca25e5f..b6894e8fae 100644 --- a/LAPACKE/src/lapacke_ztprfb.c +++ b/LAPACKE/src/lapacke_ztprfb.c @@ -84,11 +84,11 @@ lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } - + } + /* Allocate memory for working array(s) */ work = (lapack_complex_double*) - LAPACKE_malloc( sizeof(lapack_complex_double) * work_size ); + LAPACKE_malloc( sizeof(lapack_complex_double) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; diff --git a/LAPACKE/src/lapacke_zuncsd2by1.c b/LAPACKE/src/lapacke_zuncsd2by1.c index 65e6bd5ced..f5dbd55bef 100644 --- a/LAPACKE/src/lapacke_zuncsd2by1.c +++ b/LAPACKE/src/lapacke_zuncsd2by1.c @@ -74,7 +74,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, &work_query, lwork, &rwork_query, lrwork, iwork ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, + info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, x11, ldx11, x21, ldx21, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork ); /* Release memory and exit */ diff --git a/LAPACKE/src/lapacke_zuncsd2by1_work.c b/LAPACKE/src/lapacke_zuncsd2by1_work.c index 9f0ad5fa40..6d3296100f 100644 --- a/LAPACKE/src/lapacke_zuncsd2by1_work.c +++ b/LAPACKE/src/lapacke_zuncsd2by1_work.c @@ -38,9 +38,9 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x21, lapack_int ldx21, double* theta, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, + lapack_int ldu1, lapack_complex_double* u2, lapack_int ldu2, lapack_complex_double* v1t, - lapack_int ldv1t, lapack_complex_double* work, + lapack_int ldv1t, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int lrwork, lapack_int* iwork ) { @@ -48,8 +48,8 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p, - &q, x11, &ldx11, x21, &ldx21, - theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, + &q, x11, &ldx11, x21, &ldx21, + theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, work, &lwork, rwork, &lrwork, iwork, &info ); if( info < 0 ) { info = info - 1; diff --git a/LAPACKE/utils/CMakeLists.txt b/LAPACKE/utils/CMakeLists.txt index f7d294fbb9..66be48bcc3 100644 --- a/LAPACKE/utils/CMakeLists.txt +++ b/LAPACKE/utils/CMakeLists.txt @@ -1,4 +1,4 @@ -set (UTILS_OBJ +set (UTILS_OBJ lapacke_c_nancheck.c lapacke_ctr_trans.c lapacke_make_complex_float.c lapacke_zgb_nancheck.c lapacke_cgb_nancheck.c lapacke_d_nancheck.c lapacke_s_nancheck.c lapacke_zgb_trans.c lapacke_cgb_trans.c lapacke_dgb_nancheck.c lapacke_sgb_nancheck.c lapacke_zge_nancheck.c diff --git a/Makefile b/Makefile index 022334f3fa..86d3ce7d9c 100644 --- a/Makefile +++ b/Makefile @@ -6,7 +6,7 @@ include make.inc -all: lapack_install lib blas_testing lapack_testing +all: lapack_install lib blas_testing lapack_testing lib: lapacklib tmglib #lib: blaslib variants lapacklib tmglib @@ -58,13 +58,13 @@ variants_testing: lib variants mv stest.out stest_lurec.out ; mv dtest.out dtest_lurec.out ; mv ctest.out ctest_lurec.out ; mv ztest.out ztest_lurec.out ) ( cd TESTING ; rm -f xlintst* ; $(MAKE) VARLIB='SRC/VARIANTS/LIB/qrll.a' ; \ mv stest.out stest_qrll.out ; mv dtest.out dtest_qrll.out ; mv ctest.out ctest_qrll.out ; mv ztest.out ztest_qrll.out ) - + blas_testing: ( cd BLAS/TESTING; $(MAKE) -f Makeblat1 ) ( cd BLAS; ./xblat1s > sblat1.out ; \ ./xblat1d > dblat1.out ; \ ./xblat1c > cblat1.out ; \ - ./xblat1z > zblat1.out ) + ./xblat1z > zblat1.out ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat2 ) ( cd BLAS; ./xblat2s < sblat2.in ; \ ./xblat2d < dblat2.in ; \ @@ -74,7 +74,7 @@ blas_testing: ( cd BLAS; ./xblat3s < sblat3.in ; \ ./xblat3d < dblat3.in ; \ ./xblat3c < cblat3.in ; \ - ./xblat3z < zblat3.in ) + ./xblat3z < zblat3.in ) cblas_testing: blaslib ( cd CBLAS ; $(MAKE) cblas_testing) @@ -85,7 +85,7 @@ cblas_testing: blaslib html: @echo "LAPACK HTML PAGES GENRATION with Doxygen" doxygen DOCS/Doxyfile - @echo "==================" + @echo "==================" @echo "LAPACK HTML PAGES GENRATED in DOCS/explore-html" @echo "Usage: open DOCS/explore-html/index.html" @echo "Online version available at http://www.netlib.org/lapack/explore-html/" @@ -110,7 +110,7 @@ cleanlib: ( cd LAPACKE; $(MAKE) clean ) -cleanblas_testing: +cleanblas_testing: ( cd BLAS/TESTING; $(MAKE) -f Makeblat1 clean ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat2 clean ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat3 clean ) @@ -124,6 +124,6 @@ cleantesting: ( cd TESTING/EIG; $(MAKE) clean ) ( cd TESTING; rm -f xlin* xeig* ) -cleanall: cleanlib cleanblas_testing cleancblas_testing cleantesting +cleanall: cleanlib cleanblas_testing cleancblas_testing cleantesting rm -f *.a TESTING/*.out INSTALL/test* BLAS/*.out diff --git a/README b/README index 809fd70f88..31d78366d2 100644 --- a/README +++ b/README @@ -51,36 +51,36 @@ LAPACK INSTALLATION: - LAPACK includes also the CMAKE build. You will need to have CMAKE installed on your machine (CMAKE is available at http://www.cmake.org/). CMAKE will allow an easy installation on a Windows Machine - - Specific information to run LAPACK under Windows are available at + - Specific information to run LAPACK under Windows are available at http://icl.cs.utk.edu/lapack-for-windows/lapack/ - + For further information on LAPACK please read our FAQ at http://www.netlib.org/lapack/#_faq A User forum is also available to help you with the LAPACK library at http://icl.cs.utk.edu/lapack-forum/ ================ - - + + ================ LAPACK User Support - + LAPACK has been thoroughly tested, on many different types of computers. The LAPACK project supports the package in the sense that reports of errors or poor performance will gain immediate -attention from the developers. Such reports, descriptions +attention from the developers. Such reports, descriptions of interesting applications, and other comments should be sent by electronic mail to lapack@cs.utk.edu. A list of known problems, bugs, and compiler errors for LAPACK is maintained on netlib. http://www.netlib.org/lapack/release_notes.html - + A User forum is also available to help you with the LAPACK library at http://icl.cs.utk.edu/lapack-forum/ -You can also contact directly the LAPACK team at lapack@cs.utk.edu +You can also contact directly the LAPACK team at lapack@cs.utk.edu ================ - - + + ================ LAPACK TESTING The complete package, including test code in four @@ -155,7 +155,7 @@ LAPACK WORKING NOTES A number of technical reports were written during the development of LAPACK and published as LAPACK Working Notes, initially by Argonne -National Laboratory and later by the University of Tennessee. Many of +National Laboratory and later by the University of Tennessee. Many of these reports later appeared as journal articles. Most of these working notes are available in pdf and postscript form from netlib. http://www.netlib.org/lapack/lawns/ diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 4857f47474..bb5fc44d6c 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -46,106 +46,106 @@ # ####################################################################### -set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f +set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f ../INSTALL/ilaver.f ../INSTALL/lsame.f xerbla.f xerbla_array.f ../INSTALL/slamch.f) set(ALLXAUX ) -set(SCLAUX - sbdsdc.f - sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f - slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f - slaed7.f slaed8.f slaed9.f slaeda.f slaev2.f slagtf.f - slagts.f slamrg.f slanst.f - slapy2.f slapy3.f slarnv.f - slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f - slarrk.f slarrr.f slaneg.f - slartg.f slaruv.f slas2.f slascl.f - slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f - slasd7.f slasd8.f slasda.f slasdq.f slasdt.f - slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f - slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f - ssteqr.f ssterf.f slaisnan.f sisnan.f - slartgp.f slartgs.f +set(SCLAUX + sbdsdc.f + sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f + slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f + slaed7.f slaed8.f slaed9.f slaeda.f slaev2.f slagtf.f + slagts.f slamrg.f slanst.f + slapy2.f slapy3.f slarnv.f + slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f + slarrk.f slarrr.f slaneg.f + slartg.f slaruv.f slas2.f slascl.f + slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f + slasd7.f slasd8.f slasda.f slasdq.f slasdt.f + slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f + slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f + ssteqr.f ssterf.f slaisnan.f sisnan.f + slartgp.f slartgs.f ${SECOND_SRC}) -set(DZLAUX - dbdsdc.f - dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f - dlaed0.f dlaed1.f dlaed2.f dlaed3.f dlaed4.f dlaed5.f dlaed6.f - dlaed7.f dlaed8.f dlaed9.f dlaeda.f dlaev2.f dlagtf.f - dlagts.f dlamrg.f dlanst.f - dlapy2.f dlapy3.f dlarnv.f - dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f - dlarrk.f dlarrr.f dlaneg.f - dlartg.f dlaruv.f dlas2.f dlascl.f - dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f - dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f - dlaset.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f - dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f - dsteqr.f dsterf.f dlaisnan.f disnan.f +set(DZLAUX + dbdsdc.f + dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f + dlaed0.f dlaed1.f dlaed2.f dlaed3.f dlaed4.f dlaed5.f dlaed6.f + dlaed7.f dlaed8.f dlaed9.f dlaeda.f dlaev2.f dlagtf.f + dlagts.f dlamrg.f dlanst.f + dlapy2.f dlapy3.f dlarnv.f + dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f + dlarrk.f dlarrr.f dlaneg.f + dlartg.f dlaruv.f dlas2.f dlascl.f + dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f + dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f + dlaset.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f + dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f + dsteqr.f dsterf.f dlaisnan.f disnan.f dlartgp.f dlartgs.f ../INSTALL/dlamch.f ${DSECOND_SRC}) -set(SLASRC - sbdsvdx.f sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f - sgbsvx.f sgbtf2.f sgbtrf.f sgbtrs.f sgebak.f sgebal.f sgebd2.f - sgebrd.f sgecon.f sgeequ.f sgees.f sgeesx.f sgeev.f sgeevx.f - sgehd2.f sgehrd.f sgelq2.f sgelqf.f - sgels.f sgelsd.f sgelss.f sgelsy.f sgeql2.f sgeqlf.f - sgeqp3.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f - sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvdx.f sgesvx.f sgetc2.f sgetf2.f - sgetrf.f sgetrf2.f sgetri.f +set(SLASRC + sbdsvdx.f sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f + sgbsvx.f sgbtf2.f sgbtrf.f sgbtrs.f sgebak.f sgebal.f sgebd2.f + sgebrd.f sgecon.f sgeequ.f sgees.f sgeesx.f sgeev.f sgeevx.f + sgehd2.f sgehrd.f sgelq2.f sgelqf.f + sgels.f sgelsd.f sgelss.f sgelsy.f sgeql2.f sgeqlf.f + sgeqp3.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f + sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvdx.f sgesvx.f sgetc2.f sgetf2.f + sgetrf.f sgetrf2.f sgetri.f sgetrs.f sggbak.f sggbal.f sgges.f sgges3.f sggesx.f sggev.f sggev3.f sggevx.f - sggglm.f sgghrd.f sgghd3.f sgglse.f sggqrf.f - sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f - sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f - shsein.f shseqr.f slabrd.f slacon.f slacn2.f - slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f - slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f - slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f - slansy.f slantb.f slantp.f slantr.f slanv2.f - slapll.f slapmt.f - slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f - slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f - slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f - slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f - slarrv.f slartv.f - slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f - slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f - slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f - sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f - sorgrq.f sorgtr.f sorm2l.f sorm2r.f sorm22.f - sormbr.f sormhr.f sorml2.f sormlq.f sormql.f sormqr.f sormr2.f - sormr3.f sormrq.f sormrz.f sormtr.f spbcon.f spbequ.f spbrfs.f - spbstf.f spbsv.f spbsvx.f - spbtf2.f spbtrf.f spbtrs.f spocon.f spoequ.f sporfs.f sposv.f - sposvx.f spotf2.f spotrf.f spotrf2.f spotri.f spotrs.f spstrf.f spstf2.f - sppcon.f sppequ.f - spprfs.f sppsv.f sppsvx.f spptrf.f spptri.f spptrs.f sptcon.f - spteqr.f sptrfs.f sptsv.f sptsvx.f spttrs.f sptts2.f srscl.f - ssbev.f ssbevd.f ssbevx.f ssbgst.f ssbgv.f ssbgvd.f ssbgvx.f - ssbtrd.f sspcon.f sspev.f sspevd.f sspevx.f sspgst.f - sspgv.f sspgvd.f sspgvx.f ssprfs.f sspsv.f sspsvx.f ssptrd.f - ssptrf.f ssptri.f ssptrs.f sstegr.f sstein.f sstev.f sstevd.f sstevr.f - sstevx.f ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f - ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f + sggglm.f sgghrd.f sgghd3.f sgglse.f sggqrf.f + sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f + sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f + shsein.f shseqr.f slabrd.f slacon.f slacn2.f + slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f + slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f + slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f + slansy.f slantb.f slantp.f slantr.f slanv2.f + slapll.f slapmt.f + slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f + slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f + slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f + slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f + slarrv.f slartv.f + slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f + slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f + slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f + sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f + sorgrq.f sorgtr.f sorm2l.f sorm2r.f sorm22.f + sormbr.f sormhr.f sorml2.f sormlq.f sormql.f sormqr.f sormr2.f + sormr3.f sormrq.f sormrz.f sormtr.f spbcon.f spbequ.f spbrfs.f + spbstf.f spbsv.f spbsvx.f + spbtf2.f spbtrf.f spbtrs.f spocon.f spoequ.f sporfs.f sposv.f + sposvx.f spotf2.f spotrf.f spotrf2.f spotri.f spotrs.f spstrf.f spstf2.f + sppcon.f sppequ.f + spprfs.f sppsv.f sppsvx.f spptrf.f spptri.f spptrs.f sptcon.f + spteqr.f sptrfs.f sptsv.f sptsvx.f spttrs.f sptts2.f srscl.f + ssbev.f ssbevd.f ssbevx.f ssbgst.f ssbgv.f ssbgvd.f ssbgvx.f + ssbtrd.f sspcon.f sspev.f sspevd.f sspevx.f sspgst.f + sspgv.f sspgvd.f sspgvx.f ssprfs.f sspsv.f sspsvx.f ssptrd.f + ssptrf.f ssptri.f ssptrs.f sstegr.f sstein.f sstev.f sstevd.f sstevr.f + sstevx.f ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f + ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f ssytd2.f ssytf2.f ssytrd.f ssytrf.f ssytri.f ssytri2.f ssytri2x.f - ssyswapr.f ssytrs.f ssytrs2.f ssyconv.f + ssyswapr.f ssytrs.f ssytrs2.f ssyconv.f ssytf2_rook.f ssytrf_rook.f ssytrs_rook.f ssytri_rook.f ssycon_rook.f ssysv_rook.f - stbcon.f - stbrfs.f stbtrs.f stgevc.f stgex2.f stgexc.f stgsen.f - stgsja.f stgsna.f stgsy2.f stgsyl.f stpcon.f stprfs.f stptri.f - stptrs.f - strcon.f strevc.f strevc3.f strexc.f strrfs.f strsen.f strsna.f strsyl.f - strti2.f strtri.f strtrs.f stzrzf.f sstemr.f - slansf.f spftrf.f spftri.f spftrs.f ssfrk.f stfsm.f stftri.f stfttp.f - stfttr.f stpttf.f stpttr.f strttf.f strttp.f - sgejsv.f sgesvj.f sgsvj0.f sgsvj1.f + stbcon.f + stbrfs.f stbtrs.f stgevc.f stgex2.f stgexc.f stgsen.f + stgsja.f stgsna.f stgsy2.f stgsyl.f stpcon.f stprfs.f stptri.f + stptrs.f + strcon.f strevc.f strevc3.f strexc.f strrfs.f strsen.f strsna.f strsyl.f + strti2.f strtri.f strtrs.f stzrzf.f sstemr.f + slansf.f spftrf.f spftri.f spftrs.f ssfrk.f stfsm.f stftri.f stfttp.f + stfttr.f stpttf.f stpttr.f strttf.f strttp.f + sgejsv.f sgesvj.f sgsvj0.f sgsvj1.f sgeequb.f ssyequb.f spoequb.f sgbequb.f sbbcsd.f slapmr.f sorbdb.f sorbdb1.f sorbdb2.f sorbdb3.f sorbdb4.f sorbdb5.f sorbdb6.f sorcsd.f sorcsd2by1.f @@ -153,260 +153,260 @@ set(SLASRC stpqrt.f stpqrt2.f stpmqrt.f stprfb.f ) -set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) +set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) -set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f - sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f - sla_syrfsx_extended.f sla_syamv.f sla_syrcond.f sla_syrpvgrw.f - sposvxx.f sporfsx.f sla_porfsx_extended.f sla_porcond.f - sla_porpvgrw.f sgbsvxx.f sgbrfsx.f sla_gbrfsx_extended.f - sla_gbamv.f sla_gbrcond.f sla_gbrpvgrw.f sla_lin_berr.f slarscl2.f +set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f + sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f + sla_syrfsx_extended.f sla_syamv.f sla_syrcond.f sla_syrpvgrw.f + sposvxx.f sporfsx.f sla_porfsx_extended.f sla_porcond.f + sla_porpvgrw.f sgbsvxx.f sgbrfsx.f sla_gbrfsx_extended.f + sla_gbamv.f sla_gbrcond.f sla_gbrpvgrw.f sla_lin_berr.f slarscl2.f slascl2.f sla_wwaddw.f) -set(CLASRC - cbdsqr.f cgbbrd.f cgbcon.f cgbequ.f cgbrfs.f cgbsv.f cgbsvx.f - cgbtf2.f cgbtrf.f cgbtrs.f cgebak.f cgebal.f cgebd2.f cgebrd.f - cgecon.f cgeequ.f cgees.f cgeesx.f cgeev.f cgeevx.f - cgehd2.f cgehrd.f cgelq2.f cgelqf.f - cgels.f cgelsd.f cgelss.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f - cgeqr2.f cgeqr2p.f cgeqrf.f cgeqrfp.f cgerfs.f cgerq2.f cgerqf.f +set(CLASRC + cbdsqr.f cgbbrd.f cgbcon.f cgbequ.f cgbrfs.f cgbsv.f cgbsvx.f + cgbtf2.f cgbtrf.f cgbtrs.f cgebak.f cgebal.f cgebd2.f cgebrd.f + cgecon.f cgeequ.f cgees.f cgeesx.f cgeev.f cgeevx.f + cgehd2.f cgehrd.f cgelq2.f cgelqf.f + cgels.f cgelsd.f cgelss.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f + cgeqr2.f cgeqr2p.f cgeqrf.f cgeqrfp.f cgerfs.f cgerq2.f cgerqf.f cgesc2.f cgesdd.f cgesv.f cgesvd.f cgesvdx.f cgesvj.f cgejsv.f cgsvj0.f cgsvj1.f cgesvx.f cgetc2.f cgetf2.f cgetrf.f cgetrf2.f - cgetri.f cgetrs.f + cgetri.f cgetrs.f cggbak.f cggbal.f cgges.f cgges3.f cggesx.f cggev.f cggev3.f cggevx.f - cggglm.f cgghrd.f cgghd3.f cgglse.f cggqrf.f cggrqf.f - cggsvd3.f cggsvp3.f - cgtcon.f cgtrfs.f cgtsv.f cgtsvx.f cgttrf.f cgttrs.f cgtts2.f chbev.f - chbevd.f chbevx.f chbgst.f chbgv.f chbgvd.f chbgvx.f chbtrd.f - checon.f cheev.f cheevd.f cheevr.f cheevx.f chegs2.f chegst.f - chegv.f chegvd.f chegvx.f cherfs.f chesv.f chesvx.f chetd2.f - chetf2.f chetrd.f + cggglm.f cgghrd.f cgghd3.f cgglse.f cggqrf.f cggrqf.f + cggsvd3.f cggsvp3.f + cgtcon.f cgtrfs.f cgtsv.f cgtsvx.f cgttrf.f cgttrs.f cgtts2.f chbev.f + chbevd.f chbevx.f chbgst.f chbgv.f chbgvd.f chbgvx.f chbtrd.f + checon.f cheev.f cheevd.f cheevr.f cheevx.f chegs2.f chegst.f + chegv.f chegvd.f chegvx.f cherfs.f chesv.f chesvx.f chetd2.f + chetf2.f chetrd.f chetrf.f chetri.f chetri2.f chetri2x.f cheswapr.f - chetrs.f chetrs2.f + chetrs.f chetrs2.f chetf2_rook.f chetrf_rook.f chetri_rook.f chetrs_rook.f checon_rook.f chesv_rook.f - chgeqz.f chpcon.f chpev.f chpevd.f - chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f - chpsvx.f - chptrd.f chptrf.f chptri.f chptrs.f chsein.f chseqr.f clabrd.f - clacgv.f clacon.f clacn2.f clacp2.f clacpy.f clacrm.f clacrt.f cladiv.f - claed0.f claed7.f claed8.f - claein.f claesy.f claev2.f clags2.f clagtm.f - clahef.f clahef_rook.f clahqr.f - clahr2.f claic1.f clals0.f clalsa.f clalsd.f clangb.f clange.f clangt.f - clanhb.f clanhe.f - clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f - clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f - claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f - claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f - claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f - clarf.f clarfb.f clarfg.f clarfgp.f clarft.f - clarfx.f clargv.f clarnv.f clarrv.f clartg.f clartv.f - clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f - claswp.f clasyf.f clasyf_rook.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f - clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f - cpbsvx.f cpbtf2.f cpbtrf.f cpbtrs.f cpocon.f cpoequ.f cporfs.f - cposv.f cposvx.f cpotf2.f cpotrf.f cpotrf2.f cpotri.f cpotrs.f cpstrf.f cpstf2.f - cppcon.f cppequ.f cpprfs.f cppsv.f cppsvx.f cpptrf.f cpptri.f cpptrs.f - cptcon.f cpteqr.f cptrfs.f cptsv.f cptsvx.f cpttrf.f cpttrs.f cptts2.f - crot.f cspcon.f cspmv.f cspr.f csprfs.f cspsv.f - cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f - cstegr.f cstein.f csteqr.f csycon.f csymv.f - csyr.f csyrfs.f csysv.f csysvx.f csytf2.f csytrf.f csytri.f + chgeqz.f chpcon.f chpev.f chpevd.f + chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f + chpsvx.f + chptrd.f chptrf.f chptri.f chptrs.f chsein.f chseqr.f clabrd.f + clacgv.f clacon.f clacn2.f clacp2.f clacpy.f clacrm.f clacrt.f cladiv.f + claed0.f claed7.f claed8.f + claein.f claesy.f claev2.f clags2.f clagtm.f + clahef.f clahef_rook.f clahqr.f + clahr2.f claic1.f clals0.f clalsa.f clalsd.f clangb.f clange.f clangt.f + clanhb.f clanhe.f + clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f + clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f + claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f + claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f + claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f + clarf.f clarfb.f clarfg.f clarfgp.f clarft.f + clarfx.f clargv.f clarnv.f clarrv.f clartg.f clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f + claswp.f clasyf.f clasyf_rook.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f + clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f + cpbsvx.f cpbtf2.f cpbtrf.f cpbtrs.f cpocon.f cpoequ.f cporfs.f + cposv.f cposvx.f cpotf2.f cpotrf.f cpotrf2.f cpotri.f cpotrs.f cpstrf.f cpstf2.f + cppcon.f cppequ.f cpprfs.f cppsv.f cppsvx.f cpptrf.f cpptri.f cpptrs.f + cptcon.f cpteqr.f cptrfs.f cptsv.f cptsvx.f cpttrf.f cpttrs.f cptts2.f + crot.f cspcon.f cspmv.f cspr.f csprfs.f cspsv.f + cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f + cstegr.f cstein.f csteqr.f csycon.f csymv.f + csyr.f csyrfs.f csysv.f csysvx.f csytf2.f csytrf.f csytri.f csytri2.f csytri2x.f csyswapr.f - csytrs.f csytrs2.f csyconv.f + csytrs.f csytrs2.f csyconv.f csytf2_rook.f csytrf_rook.f csytrs_rook.f csytri_rook.f csycon_rook.f csysv_rook.f - ctbcon.f ctbrfs.f ctbtrs.f ctgevc.f ctgex2.f - ctgexc.f ctgsen.f ctgsja.f ctgsna.f ctgsy2.f ctgsyl.f ctpcon.f - ctprfs.f ctptri.f - ctptrs.f ctrcon.f ctrevc.f ctrevc3.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f - ctrsyl.f ctrti2.f ctrtri.f ctrtrs.f ctzrzf.f cung2l.f cung2r.f - cungbr.f cunghr.f cungl2.f cunglq.f cungql.f cungqr.f cungr2.f + ctbcon.f ctbrfs.f ctbtrs.f ctgevc.f ctgex2.f + ctgexc.f ctgsen.f ctgsja.f ctgsna.f ctgsy2.f ctgsyl.f ctpcon.f + ctprfs.f ctptri.f + ctptrs.f ctrcon.f ctrevc.f ctrevc3.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f + ctrsyl.f ctrti2.f ctrtri.f ctrtrs.f ctzrzf.f cung2l.f cung2r.f + cungbr.f cunghr.f cungl2.f cunglq.f cungql.f cungqr.f cungr2.f cungrq.f cungtr.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f cunm22.f - cunmlq.f cunmql.f cunmqr.f cunmr2.f cunmr3.f cunmrq.f cunmrz.f - cunmtr.f cupgtr.f cupmtr.f icmax1.f scsum1.f cstemr.f - chfrk.f ctfttp.f clanhf.f cpftrf.f cpftri.f cpftrs.f ctfsm.f ctftri.f - ctfttr.f ctpttf.f ctpttr.f ctrttf.f ctrttp.f + cunmlq.f cunmql.f cunmqr.f cunmr2.f cunmr3.f cunmrq.f cunmrz.f + cunmtr.f cupgtr.f cupmtr.f icmax1.f scsum1.f cstemr.f + chfrk.f ctfttp.f clanhf.f cpftrf.f cpftri.f cpftrs.f ctfsm.f ctftri.f + ctfttr.f ctpttf.f ctpttr.f ctrttf.f ctrttp.f cgeequb.f cgbequb.f csyequb.f cpoequb.f cheequb.f cbbcsd.f clapmr.f cunbdb.f cunbdb1.f cunbdb2.f cunbdb3.f cunbdb4.f cunbdb5.f cunbdb6.f cuncsd.f cuncsd2by1.f cgeqrt.f cgeqrt2.f cgeqrt3.f cgemqrt.f ctpqrt.f ctpqrt2.f ctpmqrt.f ctprfb.f) -set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f - cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f - csysvxx.f csyrfsx.f cla_syrfsx_extended.f cla_syamv.f - cla_syrcond_c.f cla_syrcond_x.f cla_syrpvgrw.f - cposvxx.f cporfsx.f cla_porfsx_extended.f - cla_porcond_c.f cla_porcond_x.f cla_porpvgrw.f - cgbsvxx.f cgbrfsx.f cla_gbrfsx_extended.f cla_gbamv.f - cla_gbrcond_c.f cla_gbrcond_x.f cla_gbrpvgrw.f - chesvxx.f cherfsx.f cla_herfsx_extended.f cla_heamv.f - cla_hercond_c.f cla_hercond_x.f cla_herpvgrw.f +set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f + cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f + csysvxx.f csyrfsx.f cla_syrfsx_extended.f cla_syamv.f + cla_syrcond_c.f cla_syrcond_x.f cla_syrpvgrw.f + cposvxx.f cporfsx.f cla_porfsx_extended.f + cla_porcond_c.f cla_porcond_x.f cla_porpvgrw.f + cgbsvxx.f cgbrfsx.f cla_gbrfsx_extended.f cla_gbamv.f + cla_gbrcond_c.f cla_gbrcond_x.f cla_gbrpvgrw.f + chesvxx.f cherfsx.f cla_herfsx_extended.f cla_heamv.f + cla_hercond_c.f cla_hercond_x.f cla_herpvgrw.f cla_lin_berr.f clarscl2.f clascl2.f cla_wwaddw.f) -set(ZCLASRC cpotrs.f cgetrs.f cpotrf.f cgetrf.f) +set(ZCLASRC cpotrs.f cgetrs.f cpotrf.f cgetrf.f) -set(DLASRC - dbdsvdx.f dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f - dgbsvx.f dgbtf2.f dgbtrf.f dgbtrs.f dgebak.f dgebal.f dgebd2.f - dgebrd.f dgecon.f dgeequ.f dgees.f dgeesx.f dgeev.f dgeevx.f - dgehd2.f dgehrd.f dgelq2.f dgelqf.f - dgels.f dgelsd.f dgelss.f dgelsy.f dgeql2.f dgeqlf.f - dgeqp3.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f - dgesc2.f dgesdd.f dgesv.f dgesvd.f dgesvdx.f dgesvx.f dgetc2.f dgetf2.f - dgetrf.f dgetrf2.f dgetri.f +set(DLASRC + dbdsvdx.f dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f + dgbsvx.f dgbtf2.f dgbtrf.f dgbtrs.f dgebak.f dgebal.f dgebd2.f + dgebrd.f dgecon.f dgeequ.f dgees.f dgeesx.f dgeev.f dgeevx.f + dgehd2.f dgehrd.f dgelq2.f dgelqf.f + dgels.f dgelsd.f dgelss.f dgelsy.f dgeql2.f dgeqlf.f + dgeqp3.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f + dgesc2.f dgesdd.f dgesv.f dgesvd.f dgesvdx.f dgesvx.f dgetc2.f dgetf2.f + dgetrf.f dgetrf2.f dgetri.f dgetrs.f dggbak.f dggbal.f dgges.f dgges3.f dggesx.f dggev.f dggev3.f dggevx.f - dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f - dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f - dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f - dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f - dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f - dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f - dlangb.f dlange.f dlangt.f dlanhs.f dlansb.f dlansp.f - dlansy.f dlantb.f dlantp.f dlantr.f dlanv2.f - dlapll.f dlapmt.f - dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f - dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f - dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f - dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f - dlarrv.f dlartv.f - dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f - dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlauu2.f - dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f - dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f - dorgrq.f dorgtr.f dorm2l.f dorm2r.f dorm22.f - dormbr.f dormhr.f dorml2.f dormlq.f dormql.f dormqr.f dormr2.f - dormr3.f dormrq.f dormrz.f dormtr.f dpbcon.f dpbequ.f dpbrfs.f - dpbstf.f dpbsv.f dpbsvx.f - dpbtf2.f dpbtrf.f dpbtrs.f dpocon.f dpoequ.f dporfs.f dposv.f - dposvx.f dpotf2.f dpotrf.f dpotrf2.f dpotri.f dpotrs.f dpstrf.f dpstf2.f - dppcon.f dppequ.f - dpprfs.f dppsv.f dppsvx.f dpptrf.f dpptri.f dpptrs.f dptcon.f - dpteqr.f dptrfs.f dptsv.f dptsvx.f dpttrs.f dptts2.f drscl.f - dsbev.f dsbevd.f dsbevx.f dsbgst.f dsbgv.f dsbgvd.f dsbgvx.f - dsbtrd.f dspcon.f dspev.f dspevd.f dspevx.f dspgst.f - dspgv.f dspgvd.f dspgvx.f dsprfs.f dspsv.f dspsvx.f dsptrd.f - dsptrf.f dsptri.f dsptrs.f dstegr.f dstein.f dstev.f dstevd.f dstevr.f - dstevx.f dsycon.f dsyev.f dsyevd.f dsyevr.f - dsyevx.f dsygs2.f dsygst.f dsygv.f dsygvd.f dsygvx.f dsyrfs.f - dsysv.f dsysvx.f - dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f + dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f + dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f + dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f + dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f + dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f + dlangb.f dlange.f dlangt.f dlanhs.f dlansb.f dlansp.f + dlansy.f dlantb.f dlantp.f dlantr.f dlanv2.f + dlapll.f dlapmt.f + dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f + dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f + dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f + dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f + dlarrv.f dlartv.f + dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f + dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlauu2.f + dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f + dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f + dorgrq.f dorgtr.f dorm2l.f dorm2r.f dorm22.f + dormbr.f dormhr.f dorml2.f dormlq.f dormql.f dormqr.f dormr2.f + dormr3.f dormrq.f dormrz.f dormtr.f dpbcon.f dpbequ.f dpbrfs.f + dpbstf.f dpbsv.f dpbsvx.f + dpbtf2.f dpbtrf.f dpbtrs.f dpocon.f dpoequ.f dporfs.f dposv.f + dposvx.f dpotf2.f dpotrf.f dpotrf2.f dpotri.f dpotrs.f dpstrf.f dpstf2.f + dppcon.f dppequ.f + dpprfs.f dppsv.f dppsvx.f dpptrf.f dpptri.f dpptrs.f dptcon.f + dpteqr.f dptrfs.f dptsv.f dptsvx.f dpttrs.f dptts2.f drscl.f + dsbev.f dsbevd.f dsbevx.f dsbgst.f dsbgv.f dsbgvd.f dsbgvx.f + dsbtrd.f dspcon.f dspev.f dspevd.f dspevx.f dspgst.f + dspgv.f dspgvd.f dspgvx.f dsprfs.f dspsv.f dspsvx.f dsptrd.f + dsptrf.f dsptri.f dsptrs.f dstegr.f dstein.f dstev.f dstevd.f dstevr.f + dstevx.f dsycon.f dsyev.f dsyevd.f dsyevr.f + dsyevx.f dsygs2.f dsygst.f dsygv.f dsygvd.f dsygvx.f dsyrfs.f + dsysv.f dsysvx.f + dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f dsytri2.f dsytri2x.f dsyswapr.f dsyconv.f dsytf2_rook.f dsytrf_rook.f dsytrs_rook.f dsytri_rook.f dsycon_rook.f dsysv_rook.f - dtbcon.f - dtbrfs.f dtbtrs.f dtgevc.f dtgex2.f dtgexc.f dtgsen.f - dtgsja.f dtgsna.f dtgsy2.f dtgsyl.f dtpcon.f dtprfs.f dtptri.f - dtptrs.f - dtrcon.f dtrevc.f dtrevc3.f dtrexc.f dtrrfs.f dtrsen.f dtrsna.f dtrsyl.f - dtrti2.f dtrtri.f dtrtrs.f dtzrzf.f dstemr.f - dsgesv.f dsposv.f dlag2s.f slag2d.f dlat2s.f - dlansf.f dpftrf.f dpftri.f dpftrs.f dsfrk.f dtfsm.f dtftri.f dtfttp.f - dtfttr.f dtpttf.f dtpttr.f dtrttf.f dtrttp.f - dgejsv.f dgesvj.f dgsvj0.f dgsvj1.f + dtbcon.f + dtbrfs.f dtbtrs.f dtgevc.f dtgex2.f dtgexc.f dtgsen.f + dtgsja.f dtgsna.f dtgsy2.f dtgsyl.f dtpcon.f dtprfs.f dtptri.f + dtptrs.f + dtrcon.f dtrevc.f dtrevc3.f dtrexc.f dtrrfs.f dtrsen.f dtrsna.f dtrsyl.f + dtrti2.f dtrtri.f dtrtrs.f dtzrzf.f dstemr.f + dsgesv.f dsposv.f dlag2s.f slag2d.f dlat2s.f + dlansf.f dpftrf.f dpftri.f dpftrs.f dsfrk.f dtfsm.f dtftri.f dtfttp.f + dtfttr.f dtpttf.f dtpttr.f dtrttf.f dtrttp.f + dgejsv.f dgesvj.f dgsvj0.f dgsvj1.f dgeequb.f dsyequb.f dpoequb.f dgbequb.f dbbcsd.f dlapmr.f dorbdb.f dorbdb1.f dorbdb2.f dorbdb3.f dorbdb4.f dorbdb5.f dorbdb6.f dorcsd.f dorcsd2by1.f dgeqrt.f dgeqrt2.f dgeqrt3.f dgemqrt.f dtpqrt.f dtpqrt2.f dtpmqrt.f dtprfb.f ) -set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f - dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f - dla_syrfsx_extended.f dla_syamv.f dla_syrcond.f dla_syrpvgrw.f - dposvxx.f dporfsx.f dla_porfsx_extended.f dla_porcond.f - dla_porpvgrw.f dgbsvxx.f dgbrfsx.f dla_gbrfsx_extended.f - dla_gbamv.f dla_gbrcond.f dla_gbrpvgrw.f dla_lin_berr.f dlarscl2.f +set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f + dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f + dla_syrfsx_extended.f dla_syamv.f dla_syrcond.f dla_syrpvgrw.f + dposvxx.f dporfsx.f dla_porfsx_extended.f dla_porcond.f + dla_porpvgrw.f dgbsvxx.f dgbrfsx.f dla_gbrfsx_extended.f + dla_gbamv.f dla_gbrcond.f dla_gbrpvgrw.f dla_lin_berr.f dlarscl2.f dlascl2.f dla_wwaddw.f) -set(ZLASRC - zbdsqr.f zgbbrd.f zgbcon.f zgbequ.f zgbrfs.f zgbsv.f zgbsvx.f - zgbtf2.f zgbtrf.f zgbtrs.f zgebak.f zgebal.f zgebd2.f zgebrd.f - zgecon.f zgeequ.f zgees.f zgeesx.f zgeev.f zgeevx.f - zgehd2.f zgehrd.f zgelq2.f zgelqf.f - zgels.f zgelsd.f zgelss.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f - zgeqr2.f zgeqr2p.f zgeqrf.f zgeqrfp.f zgerfs.f zgerq2.f zgerqf.f +set(ZLASRC + zbdsqr.f zgbbrd.f zgbcon.f zgbequ.f zgbrfs.f zgbsv.f zgbsvx.f + zgbtf2.f zgbtrf.f zgbtrs.f zgebak.f zgebal.f zgebd2.f zgebrd.f + zgecon.f zgeequ.f zgees.f zgeesx.f zgeev.f zgeevx.f + zgehd2.f zgehrd.f zgelq2.f zgelqf.f + zgels.f zgelsd.f zgelss.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f + zgeqr2.f zgeqr2p.f zgeqrf.f zgeqrfp.f zgerfs.f zgerq2.f zgerqf.f zgesc2.f zgesdd.f zgesv.f zgesvd.f zgesvdx.f zgesvx.f zgesvj.f zgejsv.f zgsvj0.f zgsvj1.f zgetc2.f zgetf2.f zgetrf.f zgetrf2.f - zgetri.f zgetrs.f + zgetri.f zgetrs.f zggbak.f zggbal.f zgges.f zgges3.f zggesx.f zggev.f zggev3.f zggevx.f - zggglm.f zgghrd.f zgghd3.f zgglse.f zggqrf.f zggrqf.f - zggsvd3.f zggsvp3.f - zgtcon.f zgtrfs.f zgtsv.f zgtsvx.f zgttrf.f zgttrs.f zgtts2.f zhbev.f - zhbevd.f zhbevx.f zhbgst.f zhbgv.f zhbgvd.f zhbgvx.f zhbtrd.f - zhecon.f zheev.f zheevd.f zheevr.f zheevx.f zhegs2.f zhegst.f - zhegv.f zhegvd.f zhegvx.f zherfs.f zhesv.f zhesvx.f zhetd2.f - zhetf2.f zhetrd.f + zggglm.f zgghrd.f zgghd3.f zgglse.f zggqrf.f zggrqf.f + zggsvd3.f zggsvp3.f + zgtcon.f zgtrfs.f zgtsv.f zgtsvx.f zgttrf.f zgttrs.f zgtts2.f zhbev.f + zhbevd.f zhbevx.f zhbgst.f zhbgv.f zhbgvd.f zhbgvx.f zhbtrd.f + zhecon.f zheev.f zheevd.f zheevr.f zheevx.f zhegs2.f zhegst.f + zhegv.f zhegvd.f zhegvx.f zherfs.f zhesv.f zhesvx.f zhetd2.f + zhetf2.f zhetrd.f zhetrf.f zhetri.f zhetri2.f zhetri2x.f zheswapr.f zhetrs.f zhetrs2.f zhetf2_rook.f zhetrf_rook.f zhetri_rook.f zhetrs_rook.f zhecon_rook.f zhesv_rook.f - zhgeqz.f zhpcon.f zhpev.f zhpevd.f - zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f - zhpsvx.f - zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f - zlacgv.f zlacon.f zlacn2.f zlacp2.f zlacpy.f zlacrm.f zlacrt.f zladiv.f - zlaed0.f zlaed7.f zlaed8.f - zlaein.f zlaesy.f zlaev2.f zlags2.f zlagtm.f - zlahef.f zlahef_rook.f zlahqr.f - zlahr2.f zlaic1.f zlals0.f zlalsa.f zlalsd.f zlangb.f zlange.f - zlangt.f zlanhb.f - zlanhe.f - zlanhp.f zlanhs.f zlanht.f zlansb.f zlansp.f zlansy.f zlantb.f - zlantp.f zlantr.f zlapll.f zlapmt.f zlaqgb.f zlaqge.f - zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f - zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f - zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f - zlarcm.f zlarf.f zlarfb.f + zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f + zhpsvx.f + zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f + zlacgv.f zlacon.f zlacn2.f zlacp2.f zlacpy.f zlacrm.f zlacrt.f zladiv.f + zlaed0.f zlaed7.f zlaed8.f + zlaein.f zlaesy.f zlaev2.f zlags2.f zlagtm.f + zlahef.f zlahef_rook.f zlahqr.f + zlahr2.f zlaic1.f zlals0.f zlalsa.f zlalsd.f zlangb.f zlange.f + zlangt.f zlanhb.f + zlanhe.f + zlanhp.f zlanhs.f zlanht.f zlansb.f zlansp.f zlansy.f zlantb.f + zlantp.f zlantr.f zlapll.f zlapmt.f zlaqgb.f zlaqge.f + zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f + zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f + zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f + zlarcm.f zlarf.f zlarfb.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f - zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f - zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlauu2.f - zlauum.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f - zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f - zposv.f zposvx.f zpotf2.f zpotrf.f zpotrf2.f zpotri.f zpotrs.f zpstrf.f zpstf2.f - zppcon.f zppequ.f zpprfs.f zppsv.f zppsvx.f zpptrf.f zpptri.f zpptrs.f - zptcon.f zpteqr.f zptrfs.f zptsv.f zptsvx.f zpttrf.f zpttrs.f zptts2.f - zrot.f zspcon.f zspmv.f zspr.f zsprfs.f zspsv.f - zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f - zstegr.f zstein.f zsteqr.f zsycon.f zsymv.f - zsyr.f zsyrfs.f zsysv.f zsysvx.f zsytf2.f zsytrf.f zsytri.f + zlarfx.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f + zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f + zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlauu2.f + zlauum.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f + zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f + zposv.f zposvx.f zpotf2.f zpotrf.f zpotrf2.f zpotri.f zpotrs.f zpstrf.f zpstf2.f + zppcon.f zppequ.f zpprfs.f zppsv.f zppsvx.f zpptrf.f zpptri.f zpptrs.f + zptcon.f zpteqr.f zptrfs.f zptsv.f zptsvx.f zpttrf.f zpttrs.f zptts2.f + zrot.f zspcon.f zspmv.f zspr.f zsprfs.f zspsv.f + zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f + zstegr.f zstein.f zsteqr.f zsycon.f zsymv.f + zsyr.f zsyrfs.f zsysv.f zsysvx.f zsytf2.f zsytrf.f zsytri.f zsytri2.f zsytri2x.f zsyswapr.f zsytrs.f zsytrs2.f zsyconv.f zsytf2_rook.f zsytrf_rook.f zsytrs_rook.f zsytri_rook.f zsycon_rook.f zsysv_rook.f - ztbcon.f ztbrfs.f ztbtrs.f ztgevc.f ztgex2.f - ztgexc.f ztgsen.f ztgsja.f ztgsna.f ztgsy2.f ztgsyl.f ztpcon.f - ztprfs.f ztptri.f - ztptrs.f ztrcon.f ztrevc.f ztrevc3.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f - ztrsyl.f ztrti2.f ztrtri.f ztrtrs.f ztzrzf.f zung2l.f - zung2r.f zungbr.f zunghr.f zungl2.f zunglq.f zungql.f zungqr.f zungr2.f + ztbcon.f ztbrfs.f ztbtrs.f ztgevc.f ztgex2.f + ztgexc.f ztgsen.f ztgsja.f ztgsna.f ztgsy2.f ztgsyl.f ztpcon.f + ztprfs.f ztptri.f + ztptrs.f ztrcon.f ztrevc.f ztrevc3.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f + ztrsyl.f ztrti2.f ztrtri.f ztrtrs.f ztzrzf.f zung2l.f + zung2r.f zungbr.f zunghr.f zungl2.f zunglq.f zungql.f zungqr.f zungr2.f zungrq.f zungtr.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f zunm22.f - zunmlq.f zunmql.f zunmqr.f zunmr2.f zunmr3.f zunmrq.f zunmrz.f - zunmtr.f zupgtr.f - zupmtr.f izmax1.f dzsum1.f zstemr.f - zcgesv.f zcposv.f zlag2c.f clag2z.f zlat2c.f - zhfrk.f ztfttp.f zlanhf.f zpftrf.f zpftri.f zpftrs.f ztfsm.f ztftri.f - ztfttr.f ztpttf.f ztpttr.f ztrttf.f ztrttp.f + zunmlq.f zunmql.f zunmqr.f zunmr2.f zunmr3.f zunmrq.f zunmrz.f + zunmtr.f zupgtr.f + zupmtr.f izmax1.f dzsum1.f zstemr.f + zcgesv.f zcposv.f zlag2c.f clag2z.f zlat2c.f + zhfrk.f ztfttp.f zlanhf.f zpftrf.f zpftri.f zpftrs.f ztfsm.f ztftri.f + ztfttr.f ztpttf.f ztpttr.f ztrttf.f ztrttp.f zgeequb.f zgbequb.f zsyequb.f zpoequb.f zheequb.f zbbcsd.f zlapmr.f zunbdb.f zunbdb1.f zunbdb2.f zunbdb3.f zunbdb4.f zunbdb5.f zunbdb6.f zuncsd.f zuncsd2by1.f zgeqrt.f zgeqrt2.f zgeqrt3.f zgemqrt.f ztpqrt.f ztpqrt2.f ztpmqrt.f ztprfb.f) -set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f - zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f - zla_syrfsx_extended.f zla_syamv.f zla_syrcond_c.f zla_syrcond_x.f - zla_syrpvgrw.f zposvxx.f zporfsx.f zla_porfsx_extended.f - zla_porcond_c.f zla_porcond_x.f zla_porpvgrw.f zgbsvxx.f zgbrfsx.f - zla_gbrfsx_extended.f zla_gbamv.f zla_gbrcond_c.f zla_gbrcond_x.f - zla_gbrpvgrw.f zhesvxx.f zherfsx.f zla_herfsx_extended.f - zla_heamv.f zla_hercond_c.f zla_hercond_x.f zla_herpvgrw.f +set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f + zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f + zla_syrfsx_extended.f zla_syamv.f zla_syrcond_c.f zla_syrcond_x.f + zla_syrpvgrw.f zposvxx.f zporfsx.f zla_porfsx_extended.f + zla_porcond_c.f zla_porcond_x.f zla_porpvgrw.f zgbsvxx.f zgbrfsx.f + zla_gbrfsx_extended.f zla_gbamv.f zla_gbrcond_c.f zla_gbrcond_x.f + zla_gbrpvgrw.f zhesvxx.f zherfsx.f zla_herfsx_extended.f + zla_heamv.f zla_hercond_c.f zla_hercond_x.f zla_herpvgrw.f zla_lin_berr.f zlarscl2.f zlascl2.f zla_wwaddw.f) diff --git a/SRC/DEPRECATED/cgegs.f b/SRC/DEPRECATED/cgegs.f index b005ab49b7..a9b345f371 100644 --- a/SRC/DEPRECATED/cgegs.f +++ b/SRC/DEPRECATED/cgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, * VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -32,7 +32,7 @@ * $ BETA( * ), VSL( LDVSL, * ), VSR( LDVSR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -45,13 +45,13 @@ *> left and or/right Schur vectors of a complex matrix pair (A,B). *> Given two square matrices A and B, the generalized Schur *> factorization has the form -*> +*> *> A = Q*S*Z**H, B = Q*T*Z**H -*> +*> *> where Q and Z are unitary matrices and S and T are upper triangular. *> The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> CGEGV should be used instead. See CGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/cgegv.f b/SRC/DEPRECATED/cgegv.f index 396745d2cf..40ed81473d 100644 --- a/SRC/DEPRECATED/cgegv.f +++ b/SRC/DEPRECATED/cgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> lambda or mu is zero or small, two values alpha and beta are returned *> for each eigenvalue, such that lambda = alpha/beta and *> mu = beta/alpha. -*> +*> *> The vectors x and y in the above equations are right eigenvectors of *> the matrix pair (A,B). Vectors u and v satisfying *> u**H*A = lambda*u**H*B or mu*v**H*A = v**H*B @@ -138,7 +138,7 @@ *> \verbatim *> BETA is COMPLEX array, dimension (N) *> The complex scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = ALPHA(j) and beta = BETA(j) *> represent the j-th eigenvalue of the matrix pair (A,B), in *> one of the forms lambda = alpha/beta or mu = beta/alpha. @@ -237,10 +237,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/cgelsx.f b/SRC/DEPRECATED/cgelsx.f index 39380e6ac4..52b17322d6 100644 --- a/SRC/DEPRECATED/cgelsx.f +++ b/SRC/DEPRECATED/cgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/cgeqpf.f b/SRC/DEPRECATED/cgeqpf.f index a4aaf6df16..c3ffa729ed 100644 --- a/SRC/DEPRECATED/cgeqpf.f +++ b/SRC/DEPRECATED/cgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -28,7 +28,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -286,11 +286,11 @@ SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / RWORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( RWORK( J ) / RWORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN RWORK( J ) = SCNRM2( M-I, A( I+1, J ), 1 ) RWORK( N+J ) = RWORK( J ) diff --git a/SRC/DEPRECATED/cggsvd.f b/SRC/DEPRECATED/cggsvd.f index 080ef0acbe..2795a3b78f 100644 --- a/SRC/DEPRECATED/cggsvd.f +++ b/SRC/DEPRECATED/cggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/cggsvp.f b/SRC/DEPRECATED/cggsvp.f index daf67eb92b..7443eafe1b 100644 --- a/SRC/DEPRECATED/cggsvp.f +++ b/SRC/DEPRECATED/cggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -60,7 +60,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -241,10 +241,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/clahrd.f b/SRC/DEPRECATED/clahrd.f index 2c92a89938..f246f1c52c 100644 --- a/SRC/DEPRECATED/clahrd.f +++ b/SRC/DEPRECATED/clahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/DEPRECATED/clatzm.f b/SRC/DEPRECATED/clatzm.f index 4e0fa79c43..a09b2545d2 100644 --- a/SRC/DEPRECATED/clatzm.f +++ b/SRC/DEPRECATED/clatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/ctzrqf.f b/SRC/DEPRECATED/ctzrqf.f index f8a6f91681..e33ba29662 100644 --- a/SRC/DEPRECATED/ctzrqf.f +++ b/SRC/DEPRECATED/ctzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dgegs.f b/SRC/DEPRECATED/dgegs.f index 95faf08e1b..70bb7370b7 100644 --- a/SRC/DEPRECATED/dgegs.f +++ b/SRC/DEPRECATED/dgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, * ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -31,7 +31,7 @@ * $ B( LDB, * ), BETA( * ), VSL( LDVSL, * ), * $ VSR( LDVSR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dgegv.f b/SRC/DEPRECATED/dgegv.f index c687c413da..0a6e015496 100644 --- a/SRC/DEPRECATED/dgegv.f +++ b/SRC/DEPRECATED/dgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,7 +151,7 @@ *> \verbatim *> BETA is DOUBLE PRECISION array, dimension (N) *> The scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and *> beta = BETA(j) represent the j-th eigenvalue of the matrix *> pair (A,B), in one of the forms lambda = alpha/beta or @@ -260,10 +260,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dgelsx.f b/SRC/DEPRECATED/dgelsx.f index 788cce128c..b31139a012 100644 --- a/SRC/DEPRECATED/dgelsx.f +++ b/SRC/DEPRECATED/dgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dgeqpf.f b/SRC/DEPRECATED/dgeqpf.f index bc5b91c538..a9438508c4 100644 --- a/SRC/DEPRECATED/dgeqpf.f +++ b/SRC/DEPRECATED/dgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -279,11 +279,11 @@ SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / WORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( WORK( J ) / WORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN WORK( J ) = DNRM2( M-I, A( I+1, J ), 1 ) WORK( N+J ) = WORK( J ) diff --git a/SRC/DEPRECATED/dggsvd.f b/SRC/DEPRECATED/dggsvd.f index 6d7ace4416..718e7ee320 100644 --- a/SRC/DEPRECATED/dggsvd.f +++ b/SRC/DEPRECATED/dggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -314,10 +314,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dggsvp.f b/SRC/DEPRECATED/dggsvp.f index 7e195b0b11..afd329ae17 100644 --- a/SRC/DEPRECATED/dggsvp.f +++ b/SRC/DEPRECATED/dggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -59,7 +59,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dlahrd.f b/SRC/DEPRECATED/dlahrd.f index a98b172ca2..1e594cc4de 100644 --- a/SRC/DEPRECATED/dlahrd.f +++ b/SRC/DEPRECATED/dlahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/DEPRECATED/dlatzm.f b/SRC/DEPRECATED/dlatzm.f index 107a8bc0da..88def4dc6b 100644 --- a/SRC/DEPRECATED/dlatzm.f +++ b/SRC/DEPRECATED/dlatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/dtzrqf.f b/SRC/DEPRECATED/dtzrqf.f index 10aec7267b..f931cdaea4 100644 --- a/SRC/DEPRECATED/dtzrqf.f +++ b/SRC/DEPRECATED/dtzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/sgegs.f b/SRC/DEPRECATED/sgegs.f index c4e5bdc943..779c43a250 100644 --- a/SRC/DEPRECATED/sgegs.f +++ b/SRC/DEPRECATED/sgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, * ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -31,7 +31,7 @@ * $ B( LDB, * ), BETA( * ), VSL( LDVSL, * ), * $ VSR( LDVSR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,7 +44,7 @@ *> left and or/right Schur vectors of a real matrix pair (A,B). *> Given two square matrices A and B, the generalized real Schur *> factorization has the form -*> +*> *> A = Q*S*Z**T, B = Q*T*Z**T *> *> where Q and Z are orthogonal matrices, T is upper triangular, and S @@ -52,7 +52,7 @@ *> blocks, the 2-by-2 blocks corresponding to complex conjugate pairs *> of eigenvalues of (A,B). The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> SGEGV should be used instead. See SGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/sgegv.f b/SRC/DEPRECATED/sgegv.f index 0491ca13e3..574bdf203b 100644 --- a/SRC/DEPRECATED/sgegv.f +++ b/SRC/DEPRECATED/sgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,7 +151,7 @@ *> \verbatim *> BETA is REAL array, dimension (N) *> The scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and *> beta = BETA(j) represent the j-th eigenvalue of the matrix *> pair (A,B), in one of the forms lambda = alpha/beta or @@ -260,10 +260,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/sgelsx.f b/SRC/DEPRECATED/sgelsx.f index cbc19a81a0..a388e4bdb1 100644 --- a/SRC/DEPRECATED/sgelsx.f +++ b/SRC/DEPRECATED/sgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,7 +44,7 @@ *> using a complete orthogonal factorization of A. A is an M-by-N *> matrix which may be rank-deficient. *> -*> Several right hand side vectors b and solution vectors x can be +*> Several right hand side vectors b and solution vectors x can be *> handled in a single call; they are stored as the columns of the *> M-by-NRHS right hand side matrix B and the N-by-NRHS solution *> matrix X. @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/sgeqpf.f b/SRC/DEPRECATED/sgeqpf.f index 02950e0805..d6df6ca3b3 100644 --- a/SRC/DEPRECATED/sgeqpf.f +++ b/SRC/DEPRECATED/sgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -279,11 +279,11 @@ SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / WORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( WORK( J ) / WORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN WORK( J ) = SNRM2( M-I, A( I+1, J ), 1 ) WORK( N+J ) = WORK( J ) diff --git a/SRC/DEPRECATED/sggsvd.f b/SRC/DEPRECATED/sggsvd.f index 0bf3880634..04c199b529 100644 --- a/SRC/DEPRECATED/sggsvd.f +++ b/SRC/DEPRECATED/sggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -314,10 +314,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/sggsvp.f b/SRC/DEPRECATED/sggsvp.f index 0bbb30b9c7..b3b7885911 100644 --- a/SRC/DEPRECATED/sggsvp.f +++ b/SRC/DEPRECATED/sggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -59,7 +59,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/slahrd.f b/SRC/DEPRECATED/slahrd.f index e4ba36ec4c..bbbe887e3f 100644 --- a/SRC/DEPRECATED/slahrd.f +++ b/SRC/DEPRECATED/slahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/DEPRECATED/slatzm.f b/SRC/DEPRECATED/slatzm.f index f06bf66842..e3532d8477 100644 --- a/SRC/DEPRECATED/slatzm.f +++ b/SRC/DEPRECATED/slatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/stzrqf.f b/SRC/DEPRECATED/stzrqf.f index f2969fc5a8..8ce10d6c0b 100644 --- a/SRC/DEPRECATED/stzrqf.f +++ b/SRC/DEPRECATED/stzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zgegs.f b/SRC/DEPRECATED/zgegs.f index 9dc9fa711f..14bc9513fb 100644 --- a/SRC/DEPRECATED/zgegs.f +++ b/SRC/DEPRECATED/zgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, * VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -32,7 +32,7 @@ * $ BETA( * ), VSL( LDVSL, * ), VSR( LDVSR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -45,13 +45,13 @@ *> left and or/right Schur vectors of a complex matrix pair (A,B). *> Given two square matrices A and B, the generalized Schur *> factorization has the form -*> +*> *> A = Q*S*Z**H, B = Q*T*Z**H -*> +*> *> where Q and Z are unitary matrices and S and T are upper triangular. *> The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> ZGEGV should be used instead. See ZGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zgegv.f b/SRC/DEPRECATED/zgegv.f index 905ee72cd3..de136ccc00 100644 --- a/SRC/DEPRECATED/zgegv.f +++ b/SRC/DEPRECATED/zgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,7 +138,7 @@ *> \verbatim *> BETA is COMPLEX*16 array, dimension (N) *> The complex scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = ALPHA(j) and beta = BETA(j) *> represent the j-th eigenvalue of the matrix pair (A,B), in *> one of the forms lambda = alpha/beta or mu = beta/alpha. @@ -237,10 +237,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zgelsx.f b/SRC/DEPRECATED/zgelsx.f index f53f0fe11f..0099a265d3 100644 --- a/SRC/DEPRECATED/zgelsx.f +++ b/SRC/DEPRECATED/zgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zgeqpf.f b/SRC/DEPRECATED/zgeqpf.f index 5f1a707075..31dd1e8e16 100644 --- a/SRC/DEPRECATED/zgeqpf.f +++ b/SRC/DEPRECATED/zgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -286,11 +286,11 @@ SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / RWORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( RWORK( J ) / RWORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN RWORK( J ) = DZNRM2( M-I, A( I+1, J ), 1 ) RWORK( N+J ) = RWORK( J ) diff --git a/SRC/DEPRECATED/zggsvd.f b/SRC/DEPRECATED/zggsvd.f index db82910ebf..5cad5ac6ad 100644 --- a/SRC/DEPRECATED/zggsvd.f +++ b/SRC/DEPRECATED/zggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zggsvp.f b/SRC/DEPRECATED/zggsvp.f index aff6c66546..b38659cb20 100644 --- a/SRC/DEPRECATED/zggsvp.f +++ b/SRC/DEPRECATED/zggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -60,7 +60,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -241,10 +241,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/zlahrd.f b/SRC/DEPRECATED/zlahrd.f index 94acc6d440..894255b319 100644 --- a/SRC/DEPRECATED/zlahrd.f +++ b/SRC/DEPRECATED/zlahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX*16 A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/DEPRECATED/zlatzm.f b/SRC/DEPRECATED/zlatzm.f index 8faa883089..93ef6420f2 100644 --- a/SRC/DEPRECATED/zlatzm.f +++ b/SRC/DEPRECATED/zlatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/DEPRECATED/ztzrqf.f b/SRC/DEPRECATED/ztzrqf.f index 6678312fa5..21805e2e54 100644 --- a/SRC/DEPRECATED/ztzrqf.f +++ b/SRC/DEPRECATED/ztzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/Makefile b/SRC/Makefile index d0163dc13e..a30da01ef4 100644 --- a/SRC/Makefile +++ b/SRC/Makefile @@ -26,7 +26,7 @@ include ../make.inc # precision. # ZLASRC -- Double precision complex LAPACK routines # ZXLASRC -- Double precision complex LAPACK routines using extra -# precision. +# precision. # # DEPRECATED -- Deprecated routines in all precisions # @@ -161,7 +161,7 @@ SLASRC = \ sgeqrt.o sgeqrt2.o sgeqrt3.o sgemqrt.o \ stpqrt.o stpqrt2.o stpmqrt.o stprfb.o -DSLASRC = spotrs.o sgetrs.o spotrf.o sgetrf.o +DSLASRC = spotrs.o sgetrs.o spotrf.o sgetrf.o ifdef USEXBLAS SXLASRC = sgesvxx.o sgerfsx.o sla_gerfsx_extended.o sla_geamv.o \ @@ -259,7 +259,7 @@ CXLASRC = cgesvxx.o cgerfsx.o cla_gerfsx_extended.o cla_geamv.o \ cla_lin_berr.o clarscl2.o clascl2.o cla_wwaddw.o endif -ZCLASRC = cpotrs.o cgetrs.o cpotrf.o cgetrf.o +ZCLASRC = cpotrs.o cgetrs.o cpotrf.o cgetrf.o DLASRC = \ dpotrf2.o dgetrf2.o \ @@ -500,7 +500,7 @@ FRC: clean: rm -f *.o DEPRECATED/*.o -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ slaruv.o: slaruv.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ diff --git a/SRC/VARIANTS/Makefile b/SRC/VARIANTS/Makefile index 42446eb559..403a0b2303 100644 --- a/SRC/VARIANTS/Makefile +++ b/SRC/VARIANTS/Makefile @@ -8,7 +8,7 @@ include ../../make.inc # LUCR -- Crout Level 3 BLAS version of LU factorization # LULL -- left-looking Level 3 BLAS version of LU factorization # QRLL -- left-looking Level 3 BLAS version of QR factorization -# LUREC -- an iterative version of Sivan Toledo's recursive LU algorithm[1]. +# LUREC -- an iterative version of Sivan Toledo's recursive LU algorithm[1]. # For square matrices, this iterative versions should # be within a factor of two of the optimum number of memory transfers. # @@ -53,15 +53,15 @@ lull: $(LULL) lurec: $(LUREC) $(ARCH) $(ARCHFLAGS) $(VARIANTSDIR)/lurec.a $(LUREC) $(RANLIB) $(VARIANTSDIR)/lurec.a - + qrll: $(QRLL) $(ARCH) $(ARCHFLAGS) $(VARIANTSDIR)/qrll.a $(QRLL) $(RANLIB) $(VARIANTSDIR)/qrll.a -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ - + clean: rm -f $(CHOLRL) $(CHOLTOP) $(LUCR) $(LULL) $(LUREC) $(QRLL) \ $(VARIANTSDIR)/*.a \ No newline at end of file diff --git a/SRC/VARIANTS/README b/SRC/VARIANTS/README index 64fcdca902..c206215155 100644 --- a/SRC/VARIANTS/README +++ b/SRC/VARIANTS/README @@ -9,7 +9,7 @@ It is composed of 5 sections: - Testing - Linking your program - Support - + Author: Peng DU and Julie LANGOU, May 2008 =============== @@ -23,16 +23,16 @@ This directory contains several variants of LAPACK routines in single/double/com - [sdcz]geqrf with QR Left Looking Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/qr/LL - [sdcz]potrf with Cholesky Right Looking Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/cholesky/RL - [sdcz]potrf with Cholesky Top Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/cholesky/TOP - + References:For a more detailed description please refer to - [1] Toledo, S. 1997. Locality of Reference in LU Decomposition with Partial Pivoting. SIAM J. Matrix Anal. Appl. 18, 4 (Oct. 1997), 1065-1081. http://dx.doi.org/10.1137/S0895479896297744 - [2]LAWN XXX - + ========= = BUILD = ========= - + These variants are compiled by default in the build process but they are not tested by default. The build process creates one new library per variants in the four arithmetics (singel/double/comple/double complex). The libraries are in the SRC/VARIANTS/LIB directory. @@ -44,7 +44,7 @@ Corresponding libraries created in SRC/VARIANTS/LIB: - QR Left Looking : qrll.a - Cholesky Right Looking : cholrl.a - Cholesky Top : choltop.a - + =========== = TESTING = diff --git a/SRC/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 0f45856ac7..0c2d1cc9e5 100644 --- a/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -190,11 +190,11 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * * Updating the trailing submatrix. * - CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', JB, N-J-JB+1, CONE, A( J, J ), $ LDA, A( J, J+JB ), LDA ) - CALL CHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, - $ JB, -ONE, A( J, J+JB ), LDA, + CALL CHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, + $ JB, -ONE, A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -219,12 +219,12 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * * Updating the trailing submatrix. * - CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', N-J-JB+1, JB, CONE, A( J, J ), $ LDA, A( J+JB, J ), LDA ) - CALL CHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL CHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/SRC/VARIANTS/cholesky/RL/dpotrf.f b/SRC/VARIANTS/cholesky/RL/dpotrf.f index ce323b4b5e..ac28dc6a4f 100644 --- a/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -193,7 +193,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) CALL DSYRK( 'Upper', 'Transpose', N-J-JB+1, JB, -ONE, - $ A( J, J+JB ), LDA, + $ A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -222,8 +222,8 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) $ N-J-JB+1, JB, ONE, A( J, J ), LDA, $ A( J+JB, J ), LDA ) - CALL DSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL DSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/SRC/VARIANTS/cholesky/RL/spotrf.f b/SRC/VARIANTS/cholesky/RL/spotrf.f index 21b0b41a46..75c4525d39 100644 --- a/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -193,7 +193,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) CALL SSYRK( 'Upper', 'Transpose', N-J-JB+1, JB, -ONE, - $ A( J, J+JB ), LDA, + $ A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -222,8 +222,8 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) $ N-J-JB+1, JB, ONE, A( J, J ), LDA, $ A( J+JB, J ), LDA ) - CALL SSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL SSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/SRC/VARIANTS/cholesky/RL/zpotrf.f b/SRC/VARIANTS/cholesky/RL/zpotrf.f index 39e72c83bc..276a1ab426 100644 --- a/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -190,11 +190,11 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * * Updating the trailing submatrix. * - CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', JB, N-J-JB+1, CONE, A( J, J ), $ LDA, A( J, J+JB ), LDA ) - CALL ZHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, - $ JB, -ONE, A( J, J+JB ), LDA, + CALL ZHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, + $ JB, -ONE, A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -219,12 +219,12 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * * Updating the trailing submatrix. * - CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', N-J-JB+1, JB, CONE, A( J, J ), $ LDA, A( J+JB, J ), LDA ) - CALL ZHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL ZHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/SRC/VARIANTS/cholesky/TOP/cpotrf.f index e42a78f954..f433ae7ffe 100644 --- a/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -180,11 +180,11 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * * Compute the current block. * - CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', J-1, JB, CONE, A( 1, 1 ), LDA, $ A( 1, J ), LDA ) - CALL CHERK( 'Upper', 'Conjugate Transpose', JB, J-1, + CALL CHERK( 'Upper', 'Conjugate Transpose', JB, J-1, $ -ONE, A( 1, J ), LDA, ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -206,12 +206,12 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * * Compute the current block. * - CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', JB, J-1, CONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL CHERK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL CHERK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/SRC/VARIANTS/cholesky/TOP/dpotrf.f index c91669b562..a6425579ac 100644 --- a/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -184,7 +184,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) $ A( 1, J ), LDA ) CALL DSYRK( 'Upper', 'Transpose', JB, J-1, -ONE, - $ A( 1, J ), LDA, + $ A( 1, J ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -210,10 +210,10 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) $ JB, J-1, ONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL DSYRK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL DSYRK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) - + * * Update and factorize the current diagonal block and test * for non-positive-definiteness. diff --git a/SRC/VARIANTS/cholesky/TOP/spotrf.f b/SRC/VARIANTS/cholesky/TOP/spotrf.f index 4a46f723dc..3617ef6f31 100644 --- a/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -184,7 +184,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) $ A( 1, J ), LDA ) CALL SSYRK( 'Upper', 'Transpose', JB, J-1, -ONE, - $ A( 1, J ), LDA, + $ A( 1, J ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -210,8 +210,8 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) $ JB, J-1, ONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL SSYRK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL SSYRK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/SRC/VARIANTS/cholesky/TOP/zpotrf.f index 9d4f636a38..98f235fd6d 100644 --- a/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -180,11 +180,11 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * * Compute the current block. * - CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', J-1, JB, CONE, A( 1, 1 ), LDA, $ A( 1, J ), LDA ) - CALL ZHERK( 'Upper', 'Conjugate Transpose', JB, J-1, + CALL ZHERK( 'Upper', 'Conjugate Transpose', JB, J-1, $ -ONE, A( 1, J ), LDA, ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -206,12 +206,12 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * * Compute the current block. * - CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', JB, J-1, CONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL ZHERK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL ZHERK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/SRC/VARIANTS/lu/CR/cgetrf.f b/SRC/VARIANTS/lu/CR/cgetrf.f index 665ef82dd5..26eb818b35 100644 --- a/SRC/VARIANTS/lu/CR/cgetrf.f +++ b/SRC/VARIANTS/lu/CR/cgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * * Update current block. * - CALL CGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL CLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL CLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL CLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL CGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL CGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/SRC/VARIANTS/lu/CR/dgetrf.f b/SRC/VARIANTS/lu/CR/dgetrf.f index d6381567b1..13dd21c49c 100644 --- a/SRC/VARIANTS/lu/CR/dgetrf.f +++ b/SRC/VARIANTS/lu/CR/dgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * * Update current block. * - CALL DGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL DLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL DLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL DLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL DGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL DGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/SRC/VARIANTS/lu/CR/sgetrf.f b/SRC/VARIANTS/lu/CR/sgetrf.f index d5aeae468f..06fc0f0626 100644 --- a/SRC/VARIANTS/lu/CR/sgetrf.f +++ b/SRC/VARIANTS/lu/CR/sgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * * Update current block. * - CALL SGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL SLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL SLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL SLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL SGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL SGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/SRC/VARIANTS/lu/CR/zgetrf.f b/SRC/VARIANTS/lu/CR/zgetrf.f index 3178aacfca..3aa6c2ae7b 100644 --- a/SRC/VARIANTS/lu/CR/zgetrf.f +++ b/SRC/VARIANTS/lu/CR/zgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * * Update current block. * - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL ZLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL ZLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL ZLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL ZGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL ZGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/SRC/VARIANTS/lu/LL/cgetrf.f b/SRC/VARIANTS/lu/LL/cgetrf.f index 9787f43bb1..4874dd53a2 100644 --- a/SRC/VARIANTS/lu/LL/cgetrf.f +++ b/SRC/VARIANTS/lu/LL/cgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL CLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL CGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL CLASWP( K-1, A( 1, 1 ), LDA, K, + CALL CLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) JB = MIN( M-K+1, NB ) * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL CGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/SRC/VARIANTS/lu/LL/dgetrf.f b/SRC/VARIANTS/lu/LL/dgetrf.f index 3df00dcbc7..4ec425ecdd 100644 --- a/SRC/VARIANTS/lu/LL/dgetrf.f +++ b/SRC/VARIANTS/lu/LL/dgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -173,21 +173,21 @@ SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL DLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL DGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -211,9 +211,9 @@ SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL DLASWP( K-1, A( 1, 1 ), LDA, K, + CALL DLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -226,17 +226,17 @@ SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) JB = MIN( M-K+1, NB ) * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL DGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/SRC/VARIANTS/lu/LL/sgetrf.f b/SRC/VARIANTS/lu/LL/sgetrf.f index c36d8e78e9..85c1d1cef0 100644 --- a/SRC/VARIANTS/lu/LL/sgetrf.f +++ b/SRC/VARIANTS/lu/LL/sgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL SLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL SGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL SLASWP( K-1, A( 1, 1 ), LDA, K, + CALL SLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) JB = MIN( M-K+1, NB ) * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL SGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/SRC/VARIANTS/lu/LL/zgetrf.f b/SRC/VARIANTS/lu/LL/zgetrf.f index 3b2199bf17..52751fb55a 100644 --- a/SRC/VARIANTS/lu/LL/zgetrf.f +++ b/SRC/VARIANTS/lu/LL/zgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL ZLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL ZLASWP( K-1, A( 1, 1 ), LDA, K, + CALL ZLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) JB = MIN( M-K+1, NB ) * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/SRC/VARIANTS/lu/REC/cgetrf.f b/SRC/VARIANTS/lu/REC/cgetrf.f index a46bad118c..4a3ec3ef3b 100644 --- a/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/SRC/VARIANTS/lu/REC/cgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/SRC/VARIANTS/lu/REC/dgetrf.f b/SRC/VARIANTS/lu/REC/dgetrf.f index 318c166dcd..d124ec8a38 100644 --- a/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/SRC/VARIANTS/lu/REC/dgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/SRC/VARIANTS/lu/REC/sgetrf.f b/SRC/VARIANTS/lu/REC/sgetrf.f index 9df7d5b93d..4441b2ff0b 100644 --- a/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/SRC/VARIANTS/lu/REC/sgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/SRC/VARIANTS/lu/REC/zgetrf.f b/SRC/VARIANTS/lu/REC/zgetrf.f index fe698e1c77..aa508c16f8 100644 --- a/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/SRC/VARIANTS/lu/REC/zgetrf.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/SRC/VARIANTS/qr/LL/cgeqrf.f b/SRC/VARIANTS/qr/LL/cgeqrf.f index 8a79ebea00..6940a025f5 100644 --- a/SRC/VARIANTS/qr/LL/cgeqrf.f +++ b/SRC/VARIANTS/qr/LL/cgeqrf.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'CGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL CGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * H = H(i) H(i+1) . . . H(i+ib-1) * CALL CLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL CGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL CGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL CLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/SRC/VARIANTS/qr/LL/dgeqrf.f b/SRC/VARIANTS/qr/LL/dgeqrf.f index b6fa5aceda..e52d0311be 100644 --- a/SRC/VARIANTS/qr/LL/dgeqrf.f +++ b/SRC/VARIANTS/qr/LL/dgeqrf.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'DGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL DGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * H = H(i) H(i+1) . . . H(i+ib-1) * CALL DLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL DGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL DGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL DLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/SRC/VARIANTS/qr/LL/sceil.f b/SRC/VARIANTS/qr/LL/sceil.f index 397b7df219..3d975dd180 100644 --- a/SRC/VARIANTS/qr/LL/sceil.f +++ b/SRC/VARIANTS/qr/LL/sceil.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCEIL( A ) -* +* * .. Scalar Arguments .. * REAL A * .. -* +* * ===================================================================== -* +* * .. Intrinsic Functions .. * INTRINSIC INT * .. * .. Executable Statements ..* -* +* * IF (A-INT(A).EQ.0) THEN * SCEIL = A * ELSE IF (A.GT.0) THEN @@ -28,9 +28,9 @@ * ELSE * SCEIL = INT(A) * END IF -* +* * RETURN -* +* * END * Purpose * ======= @@ -46,10 +46,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -73,7 +73,7 @@ REAL FUNCTION SCEIL( A ) INTRINSIC INT * .. * .. Executable Statements ..* -* +* IF (A-INT(A).EQ.0) THEN SCEIL = A ELSE IF (A.GT.0) THEN diff --git a/SRC/VARIANTS/qr/LL/sgeqrf.f b/SRC/VARIANTS/qr/LL/sgeqrf.f index 1d22897e77..cb964d8a08 100644 --- a/SRC/VARIANTS/qr/LL/sgeqrf.f +++ b/SRC/VARIANTS/qr/LL/sgeqrf.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'SGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL SGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * H = H(i) H(i+1) . . . H(i+ib-1) * CALL SLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL SGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL SGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL SLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/SRC/VARIANTS/qr/LL/zgeqrf.f b/SRC/VARIANTS/qr/LL/zgeqrf.f index 576d9fa23d..cedf287022 100644 --- a/SRC/VARIANTS/qr/LL/zgeqrf.f +++ b/SRC/VARIANTS/qr/LL/zgeqrf.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'ZGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL ZGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * H = H(i) H(i+1) . . . H(i+ib-1) * CALL ZLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL ZGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL ZGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL ZLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f index a2d1a1339a..0e0d89ead2 100644 --- a/SRC/cbbcsd.f +++ b/SRC/cbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LRWORK, M, P, Q @@ -34,7 +34,7 @@ * COMPLEX U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cbdsqr.f b/SRC/cbdsqr.f index 56bcadcee4..90fb57c6b7 100644 --- a/SRC/cbdsqr.f +++ b/SRC/cbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX C( LDC, * ), U( LDU, * ), VT( LDVT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**H -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**H, for given complex input matrices U and VT. When U and VT are *> the unitary matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by CGEBRD, then -*> +*> *> A = (U*Q) * S * (P**H*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**H*C *> for a given complex input matrix C. *> @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -321,7 +321,7 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, CALL SLASQ1( N, D, E, RWORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/SRC/cgbbrd.f b/SRC/cgbbrd.f index 08af198aa1..d4a2c6c7b0 100644 --- a/SRC/cgbbrd.f +++ b/SRC/cgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), C( LDC, * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbcon.f b/SRC/cgbcon.f index 1cf57e824b..6328e464c0 100644 --- a/SRC/cgbcon.f +++ b/SRC/cgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -31,7 +31,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbequ.f b/SRC/cgbequ.f index c171b567e2..39300bb0ee 100644 --- a/SRC/cgbequ.f +++ b/SRC/cgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbequb.f b/SRC/cgbequb.f index f93413be4e..23c7d432a9 100644 --- a/SRC/cgbequb.f +++ b/SRC/cgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cgbrfs.f b/SRC/cgbrfs.f index 0b447330af..68da5bd2bf 100644 --- a/SRC/cgbrfs.f +++ b/SRC/cgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f index 31caebe61d..bf5d741b52 100644 --- a/SRC/cgbrfsx.f +++ b/SRC/cgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cgbsv.f b/SRC/cgbsv.f index 3adaeb1a03..8280bab19e 100644 --- a/SRC/cgbsv.f +++ b/SRC/cgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbsvx.f b/SRC/cgbsvx.f index e124148369..128c3a30d9 100644 --- a/SRC/cgbsvx.f +++ b/SRC/cgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -356,10 +356,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -390,7 +390,7 @@ SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/SRC/cgbsvxx.f b/SRC/cgbsvxx.f index 654b1810bc..0919f2b325 100644 --- a/SRC/cgbsvxx.f +++ b/SRC/cgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -547,10 +547,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cgbtf2.f b/SRC/cgbtf2.f index e4ea08496e..0418d132bd 100644 --- a/SRC/cgbtf2.f +++ b/SRC/cgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgbtrf.f b/SRC/cgbtrf.f index bd5d95f3a7..0a5e7648a8 100644 --- a/SRC/cgbtrf.f +++ b/SRC/cgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgbtrs.f b/SRC/cgbtrs.f index 878718b834..0b5d4ea959 100644 --- a/SRC/cgbtrs.f +++ b/SRC/cgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgebak.f b/SRC/cgebak.f index 442134273f..7901798417 100644 --- a/SRC/cgebak.f +++ b/SRC/cgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * REAL SCALE( * ) * COMPLEX V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgebal.f b/SRC/cgebal.f index bb2a3c90d7..f0e01c7b26 100644 --- a/SRC/cgebal.f +++ b/SRC/cgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -28,7 +28,7 @@ * REAL SCALE( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgebd2.f b/SRC/cgebd2.f index 42d06e0d13..9b9de7520c 100644 --- a/SRC/cgebd2.f +++ b/SRC/cgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,17 +120,17 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit +*> = 0: successful exit *> < 0: if INFO = -i, the i-th argument had an illegal value. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgebrd.f b/SRC/cgebrd.f index e63c6ea136..c60d0f0795 100644 --- a/SRC/cgebrd.f +++ b/SRC/cgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgecon.f b/SRC/cgecon.f index e5806d10c5..75aaf1e0cc 100644 --- a/SRC/cgecon.f +++ b/SRC/cgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgeequ.f b/SRC/cgeequ.f index 5a15dcc2a8..ff782fd207 100644 --- a/SRC/cgeequ.f +++ b/SRC/cgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgeequb.f b/SRC/cgeequb.f index 205b0c54f4..08f08aeaf4 100644 --- a/SRC/cgeequb.f +++ b/SRC/cgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgees.f b/SRC/cgees.f index cbc3bc7611..3470c3560f 100644 --- a/SRC/cgees.f +++ b/SRC/cgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * LDVS, WORK, LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgeesx.f b/SRC/cgeesx.f index 4d3c459a7b..b41da92a1a 100644 --- a/SRC/cgeesx.f +++ b/SRC/cgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, * BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cgeev.f b/SRC/cgeev.f index 7d19c0228c..16ac5d5ee4 100644 --- a/SRC/cgeev.f +++ b/SRC/cgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cgeevx.f b/SRC/cgeevx.f index 7ad229e72c..54e87af1c4 100644 --- a/SRC/cgeevx.f +++ b/SRC/cgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, * LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, * RCONDV, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cgehd2.f b/SRC/cgehd2.f index 5db9eb3be9..279d72475a 100644 --- a/SRC/cgehd2.f +++ b/SRC/cgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgehrd.f b/SRC/cgehrd.f index b2b3fd3961..73113b7e7a 100644 --- a/SRC/cgehrd.f +++ b/SRC/cgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -186,7 +186,7 @@ SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) PARAMETER ( NBMAX = 64, LDT = NBMAX+1, $ TSIZE = LDT*NBMAX ) COMPLEX ZERO, ONE - PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), + PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), $ ONE = ( 1.0E+0, 0.0E+0 ) ) * .. * .. Local Scalars .. @@ -316,7 +316,7 @@ SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL CGEMM( 'No transpose', 'Conjugate transpose', + CALL CGEMM( 'No transpose', 'Conjugate transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/SRC/cgejsv.f b/SRC/cgejsv.f index 459e1f4232..cff0c27e30 100644 --- a/SRC/cgejsv.f +++ b/SRC/cgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,18 +21,18 @@ * SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), U( LDU, * ), V( LDV, * ), CWORK( LWORK ) -* REAL SVA( N ), RWORK( LRWORK ) +* REAL SVA( N ), RWORK( LRWORK ) * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -97,7 +97,7 @@ *> numerical RANK is declared to be r. The SVD is computed with *> absolute error bounds, but more accurately than with 'A'. *> \endverbatim -*> +*> *> \param[in] JOBU *> \verbatim *> JOBU is CHARACTER*1 @@ -108,7 +108,7 @@ *> of U. *> = 'N': U is not computed. *> \endverbatim -*> +*> *> \param[in] JOBV *> \verbatim *> JOBV is CHARACTER*1 @@ -122,7 +122,7 @@ *> of V. *> = 'N': V is not computed. *> \endverbatim -*> +*> *> \param[in] JOBR *> \verbatim *> JOBR is CHARACTER*1 @@ -143,7 +143,7 @@ *> For computing the singular values in the FULL range [SFMIN,BIG] *> use CGESVJ. *> \endverbatim -*> +*> *> \param[in] JOBT *> \verbatim *> JOBT is CHARACTER*1 @@ -164,7 +164,7 @@ *> The implementer can easily remove this constraint and make the *> code more complicated. See the descriptions of U and V. *> \endverbatim -*> +*> *> \param[in] JOBP *> \verbatim *> JOBP is CHARACTER*1 @@ -269,7 +269,7 @@ *> *> \param[out] CWORK *> \verbatim -*> CWORK is COMPLEX array, dimension at least LWORK. +*> CWORK is COMPLEX array, dimension at least LWORK. *> \endverbatim *> *> \param[in] LWORK @@ -284,15 +284,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= N + (N+1)*NB. Here NB is the optimal *> block size for CGEQP3 and CGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(N+LWORK(CGEQP3),N+LWORK(CGEQRF)). +*> In general, optimal LWORK is computed as +*> LWORK >= max(N+LWORK(CGEQP3),N+LWORK(CGEQRF)). *> 1.2. .. an estimate of the scaled condition number of A is *> required (JOBA='E', or 'G'). In this case, LWORK the minimal *> requirement is LWORK >= N*N + 3*N. -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(N+(N+1)*NB, N*N+3*N). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(N+LWORK(CGEQP3),N+LWORK(CGEQRF), +*> LWORK >= max(N+LWORK(CGEQP3),N+LWORK(CGEQRF), *> N+N*N+LWORK(CPOCON)). *> *> 2. If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -311,12 +311,12 @@ *> where NB is the optimal block size for CGEQP3, CGEQRF, CUNMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(N+LWORK(CGEQP3),N+LWORK(CPOCON), -*> 2*N+LWORK(CGEQRF), N+LWORK(CUNMQR)). -*> -*> 4. If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> 4.1. if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= 5*N+2*N*N. -*> 4.2. if JOBV.EQ.'J' the minimal requirement is +*> 2*N+LWORK(CGEQRF), N+LWORK(CUNMQR)). +*> +*> 4. If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> 4.1. if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= 5*N+2*N*N. +*> 4.2. if JOBV.EQ.'J' the minimal requirement is *> LWORK >= 4*N+N*N. *> In both cases, the allocated CWORK can accommodate blocked runs *> of CGEQP3, CGEQRF, CGELQF, CUNMQR, CUNMLQ. @@ -365,43 +365,43 @@ *> Length of RWORK to confirm proper allocation of workspace. *> LRWORK depends on the job: *> -*> 1. If only singular values are requested i.e. if -*> LSAME(JOBU,'N') .AND. LSAME(JOBV,'N') +*> 1. If only singular values are requested i.e. if +*> LSAME(JOBU,'N') .AND. LSAME(JOBV,'N') *> then: *> 1.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). +*> then LRWORK = max( 7, N + 2 * M ). *> 1.2. Otherwise, LRWORK = max( 7, 2 * N ). *> 2. If singular values with the right singular vectors are requested -*> i.e. if -*> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) .AND. +*> i.e. if +*> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) .AND. *> .NOT.(LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) *> then: *> 2.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 2.2. Otherwise, LRWORK = max( 7, 2 * N ). -*> 3. If singular values with the left singular vectors are requested, i.e. if +*> then LRWORK = max( 7, N + 2 * M ). +*> 2.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> 3. If singular values with the left singular vectors are requested, i.e. if *> (LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) .AND. *> .NOT.(LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) *> then: *> 3.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 3.2. Otherwise, LRWORK = max( 7, 2 * N ). -*> 4. If singular values with both the left and the right singular vectors -*> are requested, i.e. if +*> then LRWORK = max( 7, N + 2 * M ). +*> 3.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> 4. If singular values with both the left and the right singular vectors +*> are requested, i.e. if *> (LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) .AND. *> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) *> then: *> 4.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 4.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> then LRWORK = max( 7, N + 2 * M ). +*> 4.2. Otherwise, LRWORK = max( 7, 2 * N ). *> \endverbatim -*> +*> *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, of dimension: -*> If LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), then +*> If LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), then *> the dimension of IWORK is max( 3, 2 * N + M ). -*> Otherwise, the dimension of IWORK is +*> Otherwise, the dimension of IWORK is *> -> max( 3, 2*N ) for full SVD *> -> max( 3, N ) for singular values only or singular *> values with one set of singular vectors (left or right) @@ -428,10 +428,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -616,14 +616,14 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ .OR. $ (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. 3*N)) $ .OR. - $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. $ (LWORK.LT.5*N+2*N*N)) $ .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. $ LWORK.LT.4*N+N*N)) $ THEN INFO = - 17 ELSE IF ( LRWORK.LT. MAX0(N+2*M,7)) THEN - INFO = -19 + INFO = -19 ELSE * #:) INFO = 0 @@ -767,7 +767,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IWORK(1) = 0 IWORK(2) = 0 END IF - IWORK(3) = 0 + IWORK(3) = 0 IF ( ERREST ) RWORK(3) = ONE IF ( LSVEC .AND. RSVEC ) THEN RWORK(4) = ONE @@ -803,7 +803,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, RWORK(M+N+p) = XSC * SCALEM RWORK(N+p) = XSC * (SCALEM*SQRT(TEMP1)) AATMAX = AMAX1( AATMAX, RWORK(N+p) ) - IF (RWORK(N+p) .NE. ZERO) + IF (RWORK(N+p) .NE. ZERO) $ AATMIN = AMIN1(AATMIN,RWORK(N+p)) 1950 CONTINUE ELSE @@ -864,7 +864,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * In an optimal implementation, this trivial transpose * should be replaced with faster transpose. DO 1115 p = 1, N - 1 - A(p,p) = CONJG(A(p,p)) + A(p,p) = CONJG(A(p,p)) DO 1116 q = p + 1, N CTEMP = CONJG(A(q,p)) A(q,p) = CONJG(A(p,q)) @@ -875,8 +875,8 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, DO 1117 p = 1, N RWORK(M+N+p) = SVA(p) SVA(p) = RWORK(N+p) -* previously computed row 2-norms are now column 2-norms -* of the transposed matrix +* previously computed row 2-norms are now column 2-norms +* of the transposed matrix 1117 CONTINUE TEMP1 = AAPP AAPP = AATMAX @@ -887,7 +887,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, KILL = LSVEC LSVEC = RSVEC RSVEC = KILL - IF ( LSVEC ) N1 = N + IF ( LSVEC ) N1 = N * ROWPIV = .TRUE. END IF @@ -992,7 +992,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * .. all columns are free columns IWORK(p) = 0 1963 CONTINUE - CALL CGEQP3( M, N, A, LDA, IWORK, CWORK, CWORK(N+1), LWORK-N, + CALL CGEQP3( M, N, A, LDA, IWORK, CWORK, CWORK(N+1), LWORK-N, $ RWORK, IERR ) * * The upper triangular matrix R1 from the first QRF is inspected for @@ -1075,7 +1075,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, 3053 CONTINUE CALL CPOCON( 'U', N, V, LDV, ONE, TEMP1, $ CWORK(N+1), RWORK, IERR ) -* +* ELSE IF ( LSVEC ) THEN * .. U is available as workspace CALL CLACPY( 'U', N, N, A, LDA, U, LDU ) @@ -1094,7 +1094,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * .. the columns of R are scaled to have unit Euclidean lengths. CALL CPOCON( 'U', N, CWORK(N+1), N, ONE, TEMP1, $ CWORK(N+N*N+1), RWORK, IERR ) -* +* END IF SCONDA = ONE / SQRT(TEMP1) * SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). @@ -1118,7 +1118,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL CCOPY( N-p, A(p,p+1), LDA, A(p+1,p), 1 ) CALL CLACGV( N-p+1, A(p,p), 1 ) 1946 CONTINUE - IF ( NR .EQ. N ) A(N,N) = CONJG(A(N,N)) + IF ( NR .EQ. N ) A(N,N) = CONJG(A(N,N)) * * The following two DO-loops introduce small relative perturbation * into the strict upper triangle of the lower triangular matrix. @@ -1175,7 +1175,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( (p.GT.q) .AND. (ABS(A(p,q)).LE.TEMP1) ) $ .OR. ( p .LT. q ) ) * $ A(p,q) = TEMP1 * ( A(p,q) / ABS(A(p,q)) ) - $ A(p,q) = CTEMP + $ A(p,q) = CTEMP 1949 CONTINUE 1947 CONTINUE ELSE @@ -1224,7 +1224,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ LWORK-2*N, IERR ) DO 8998 p = 1, NR CALL CCOPY( NR-p+1, V(p,p), LDV, V(p,p), 1 ) - CALL CLACGV( NR-p+1, V(p,p), 1 ) + CALL CLACGV( NR-p+1, V(p,p), 1 ) 8998 CONTINUE CALL CLASET('Upper', NR-1, NR-1, CZERO, CZERO, V(1,2), LDV) * @@ -1269,7 +1269,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * DO 1967 p = 1, NR - 1 CALL CCOPY( NR-p, U(p,p+1), LDU, U(p+1,p), 1 ) - CALL CLACGV( N-p+1, U(p,p), 1 ) + CALL CLACGV( N-p+1, U(p,p), 1 ) 1967 CONTINUE CALL CLASET( 'Upper', NR-1, NR-1, CZERO, CZERO, U(1,2), LDU ) * @@ -1341,7 +1341,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( p .GT. q ) .AND. ( ABS(V(p,q)) .LE. TEMP1 ) $ .OR. ( p .LT. q ) ) * $ V(p,q) = TEMP1 * ( V(p,q) / ABS(V(p,q)) ) - $ V(p,q) = CTEMP + $ V(p,q) = CTEMP IF ( p .LT. q ) V(p,q) = - V(p,q) 2968 CONTINUE 2969 CONTINUE @@ -1385,7 +1385,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ ZERO) IF ( ABS(V(q,p)) .LE. TEMP1 ) * $ V(q,p) = TEMP1 * ( V(q,p) / ABS(V(q,p)) ) - $ V(q,p) = CTEMP + $ V(q,p) = CTEMP 3958 CONTINUE 3959 CONTINUE END IF @@ -1399,7 +1399,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL CCOPY( NR-p, V(p,p+1), LDV, V(p+1,p), 1 ) CALL CLACGV(NR-p+1, V(p,p), 1 ) 1969 CONTINUE - V(NR,NR)=CONJG(V(NR,NR)) + V(NR,NR)=CONJG(V(NR,NR)) * CONDR2 = CONDR1 * @@ -1428,7 +1428,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ ZERO) IF ( ABS(V(q,p)) .LE. TEMP1 ) * $ V(q,p) = TEMP1 * ( V(q,p) / ABS(V(q,p)) ) - $ V(q,p) = CTEMP + $ V(q,p) = CTEMP 3968 CONTINUE 3969 CONTINUE END IF @@ -1442,7 +1442,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CTEMP=CMPLX(XSC*AMIN1(ABS(V(p,p)),ABS(V(q,q))), $ ZERO) * V(p,q) = - TEMP1*( V(q,p) / ABS(V(q,p)) ) - V(p,q) = - CTEMP + V(p,q) = - CTEMP 8971 CONTINUE 8970 CONTINUE ELSE @@ -1458,7 +1458,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL CSSCAL( p, ONE/TEMP1, CWORK(2*N+N*NR+NR+p), NR ) 4950 CONTINUE CALL CPOCON( 'L',NR,CWORK(2*N+N*NR+NR+1),NR,ONE,TEMP1, - $ CWORK(2*N+N*NR+NR+NR*NR+1),RWORK,IERR ) + $ CWORK(2*N+N*NR+NR+NR*NR+1),RWORK,IERR ) CONDR2 = ONE / SQRT(TEMP1) * * @@ -1537,7 +1537,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * the lower triangular L3 from the LQ factorization of * R2=L3*Q3), pre-multiplied with the transposed Q3. CALL CGESVJ( 'L', 'U', 'N', NR, NR, V, LDV, SVA, NR, U, - $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, + $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) @@ -1576,7 +1576,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * Compute the full SVD of L3 using CGESVJ with explicit * accumulation of Jacobi rotations. CALL CGESVJ( 'L', 'U', 'V', NR, NR, V, LDV, SVA, NR, U, - $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, + $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) @@ -1662,7 +1662,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, DO 5971 q = 1, p - 1 * CWORK(N+(q-1)*N+p)=-TEMP1 * ( CWORK(N+(p-1)*N+q) / * $ ABS(CWORK(N+(p-1)*N+q)) ) - CWORK(N+(q-1)*N+p)=-CTEMP + CWORK(N+(q-1)*N+p)=-CTEMP 5971 CONTINUE 5970 CONTINUE ELSE @@ -1670,7 +1670,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, END IF * CALL CGESVJ( 'Upper', 'U', 'N', N, N, CWORK(N+1), N, SVA, - $ N, U, LDU, CWORK(N+N*N+1), LWORK-N-N*N, RWORK, LRWORK, + $ N, U, LDU, CWORK(N+N*N+1), LWORK-N-N*N, RWORK, LRWORK, $ INFO ) * SCALEM = RWORK(1) @@ -1742,7 +1742,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( p .GT. q ) .AND. ( ABS(V(p,q)) .LE. TEMP1 ) $ .OR. ( p .LT. q ) ) * $ V(p,q) = TEMP1 * ( V(p,q) / ABS(V(p,q)) ) - $ V(p,q) = CTEMP + $ V(p,q) = CTEMP IF ( p .LT. q ) V(p,q) = - V(p,q) 5968 CONTINUE 5969 CONTINUE @@ -1766,7 +1766,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CTEMP = CMPLX(XSC * AMIN1(ABS(U(p,p)),ABS(U(q,q))), $ ZERO) * U(p,q) = - TEMP1 * ( U(q,p) / ABS(U(q,p)) ) - U(p,q) = - CTEMP + U(p,q) = - CTEMP 9971 CONTINUE 9970 CONTINUE ELSE @@ -1774,7 +1774,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, END IF CALL CGESVJ( 'L', 'U', 'V', NR, NR, U, LDU, SVA, - $ N, V, LDV, CWORK(2*N+N*NR+1), LWORK-2*N-N*NR, + $ N, V, LDV, CWORK(2*N+N*NR+1), LWORK-2*N-N*NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) diff --git a/SRC/cgelq2.f b/SRC/cgelq2.f index 507b8824f4..c6d6b96496 100644 --- a/SRC/cgelq2.f +++ b/SRC/cgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgelqf.f b/SRC/cgelqf.f index 2b05b79f7a..19a9666461 100644 --- a/SRC/cgelqf.f +++ b/SRC/cgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgels.f b/SRC/cgels.f index 8732953926..05447cb371 100644 --- a/SRC/cgels.f +++ b/SRC/cgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgelsd.f b/SRC/cgelsd.f index 3dc322b90f..0c757a9c9f 100644 --- a/SRC/cgelsd.f +++ b/SRC/cgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgelss.f b/SRC/cgelss.f index 6cb4026a42..c7778cada4 100644 --- a/SRC/cgelss.f +++ b/SRC/cgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -296,7 +296,7 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL CUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_CUNGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNMBR ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNGBR ) @@ -319,7 +319,7 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), -1, INFO ) LWORK_CGEBRD=DUM(1) * Compute space needed for CUNMBR - CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, + CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_CUNMBR=DUM(1) * Compute space needed for CUNGBR @@ -330,7 +330,7 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL CUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_CUNMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_CGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CUNMBR ) @@ -350,7 +350,7 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), -1, INFO ) LWORK_CGEBRD=DUM(1) * Compute space needed for CUNMBR - CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, + CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_CUNMBR=DUM(1) * Compute space needed for CUNGBR diff --git a/SRC/cgelsy.f b/SRC/cgelsy.f index ffcc7d0337..362059720e 100644 --- a/SRC/cgelsy.f +++ b/SRC/cgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -202,7 +202,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/SRC/cgemqrt.f b/SRC/cgemqrt.f index ae6f8c7a6a..2d4bbcc5ed 100644 --- a/SRC/cgemqrt.f +++ b/SRC/cgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H *> -*> generated using the compact WY representation as returned by CGEQRT. +*> generated using the compact WY representation as returned by CGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup complexGEcomputational * * ===================================================================== - SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL CLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL CLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL CLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/SRC/cgeql2.f b/SRC/cgeql2.f index b3cd801958..17f5a2dfd6 100644 --- a/SRC/cgeql2.f +++ b/SRC/cgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgeqlf.f b/SRC/cgeqlf.f index 2e3d30977d..e651ea4ac9 100644 --- a/SRC/cgeqlf.f +++ b/SRC/cgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f index 826a44ad99..758b95fcd2 100644 --- a/SRC/cgeqp3.f +++ b/SRC/cgeqp3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgeqr2.f b/SRC/cgeqr2.f index 67bf2ccf79..d502b4aad3 100644 --- a/SRC/cgeqr2.f +++ b/SRC/cgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgeqr2p.f b/SRC/cgeqr2p.f index b5b7b1c3c2..e29bae0617 100644 --- a/SRC/cgeqr2p.f +++ b/SRC/cgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgeqrf.f b/SRC/cgeqrf.f index be1bb402a8..53411407b5 100644 --- a/SRC/cgeqrf.f +++ b/SRC/cgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgeqrfp.f b/SRC/cgeqrfp.f index 1fa8a6afd1..c173378ddf 100644 --- a/SRC/cgeqrfp.f +++ b/SRC/cgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgeqrt.f b/SRC/cgeqrt.f index a849168202..fd706def51 100644 --- a/SRC/cgeqrt.f +++ b/SRC/cgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> CGEQRT computes a blocked QR factorization of a complex M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -81,7 +81,7 @@ *> as a sequence of upper triangular blocks. See below *> for further details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * Update by applying H**H to A(I:M,I+IB:N) from the left * CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of CGEQRT * END diff --git a/SRC/cgeqrt2.f b/SRC/cgeqrt2.f index df5f51a71c..dda33b1c77 100644 --- a/SRC/cgeqrt2.f +++ b/SRC/cgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CGEQRT2 computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> CGEQRT2 computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) CALL XERBLA( 'CGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) * * W(1:N-I) := A(I:M,I+1:N)**H * A(I:M,I) [W = T(:,N)] * - CALL CGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL CGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)**H * ALPHA = -CONJG(T( I, 1 )) - CALL CGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL CGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) * T(1:I-1,I) := alpha * A(I:M,1:I-1)**H * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL CGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL CGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of CGEQRT2 * diff --git a/SRC/cgeqrt3.f b/SRC/cgeqrt3.f index 9bcb82d71f..699aa58ea0 100644 --- a/SRC/cgeqrt3.f +++ b/SRC/cgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CGEQRT3 recursively computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> CGEQRT3 recursively computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -178,7 +178,7 @@ RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) * Compute Householder transform when N=1 * CALL CLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL CTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, + CALL CTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL CGEMM( 'C', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL CTRMM( 'L', 'U', 'C', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL CTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2**H * - CALL CGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL CGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1**H Y2 T2 @@ -236,13 +236,13 @@ RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL CTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL CGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL CGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL CTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL CTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL CTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL CTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/SRC/cgerfs.f b/SRC/cgerfs.f index 5ee085108f..002b4f85f2 100644 --- a/SRC/cgerfs.f +++ b/SRC/cgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgerfsx.f b/SRC/cgerfsx.f index 698cb229cf..f986261238 100644 --- a/SRC/cgerfsx.f +++ b/SRC/cgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is REAL array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is REAL array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgerq2.f b/SRC/cgerq2.f index 9ec0888afc..65eabdcdd9 100644 --- a/SRC/cgerq2.f +++ b/SRC/cgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgerqf.f b/SRC/cgerqf.f index 375a1a994b..d41b115fc8 100644 --- a/SRC/cgerqf.f +++ b/SRC/cgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgesc2.f b/SRC/cgesc2.f index 129105202d..9c15b5fec9 100644 --- a/SRC/cgesc2.f +++ b/SRC/cgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * REAL SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgesdd.f b/SRC/cgesdd.f index 986619c6c5..d10f5281de 100644 --- a/SRC/cgesdd.f +++ b/SRC/cgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -258,7 +258,7 @@ SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ ISCL, ITAU, ITAUP, ITAUQ, IU, IVT, LDWKVT, $ LDWRKL, LDWRKR, LDWRKU, MAXWRK, MINMN, MINWRK, $ MNTHR1, MNTHR2, NRWORK, NWORK, WRKBL - INTEGER LWORK_CGEBRD_MN, LWORK_CGEBRD_MM, + INTEGER LWORK_CGEBRD_MN, LWORK_CGEBRD_MM, $ LWORK_CGEBRD_NN, LWORK_CGELQF_MN, $ LWORK_CGEQRF_MN, $ LWORK_CUNGBR_P_MN, LWORK_CUNGBR_P_NN, diff --git a/SRC/cgesv.f b/SRC/cgesv.f index bc3118bf73..3c94c0ecc7 100644 --- a/SRC/cgesv.f +++ b/SRC/cgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgesvd.f b/SRC/cgesvd.f index d147dee532..89289bcd76 100644 --- a/SRC/cgesvd.f +++ b/SRC/cgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -201,10 +201,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cgesvdx.f b/SRC/cgesvdx.f index 1e32637c6d..8f90452eb2 100644 --- a/SRC/cgesvdx.f +++ b/SRC/cgesvdx.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, -* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, +* SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, +* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, * $ LWORK, RWORK, IWORK, INFO ) -* +* * * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT, RANGE @@ -31,10 +31,10 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * REAL S( * ), RWORK( * ) -* COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), +* COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,23 +44,23 @@ *> CGESVDX computes the singular value decomposition (SVD) of a complex *> M-by-N matrix A, optionally computing the left and/or right singular *> vectors. The SVD is written -*> +*> *> A = U * SIGMA * transpose(V) -*> +*> *> where SIGMA is an M-by-N matrix which is zero except for its *> min(m,n) diagonal elements, U is an M-by-M unitary matrix, and *> V is an N-by-N unitary matrix. The diagonal elements of SIGMA *> are the singular values of A; they are real and non-negative, and *> are returned in descending order. The first min(m,n) columns of *> U and V are the left and right singular vectors of A. -*> -*> CGESVDX uses an eigenvalue problem for obtaining the SVD, which -*> allows for the computation of a subset of singular values and +*> +*> CGESVDX uses an eigenvalue problem for obtaining the SVD, which +*> allows for the computation of a subset of singular values and *> vectors. See SBDSVDX for details. -*> +*> *> Note that the routine returns V**T, not V. *> \endverbatim -* +* * Arguments: * ========== * @@ -69,7 +69,7 @@ *> JOBU is CHARACTER*1 *> Specifies options for computing all or part of the matrix U: *> = 'V': the first min(m,n) columns of U (the left singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array U; *> = 'N': no columns of U (no left singular vectors) are *> computed. @@ -81,7 +81,7 @@ *> Specifies options for computing all or part of the matrix *> V**T: *> = 'V': the first min(m,n) rows of V**T (the right singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array VT; *> = 'N': no rows of V**T (no right singular vectors) are *> computed. @@ -93,7 +93,7 @@ *> = 'A': all singular values will be found. *> = 'V': all singular values in the half-open interval (VL,VU] *> will be found. -*> = 'I': the IL-th through IU-th singular values will be found. +*> = 'I': the IL-th through IU-th singular values will be found. *> \endverbatim *> *> \param[in] M @@ -158,7 +158,7 @@ *> \param[out] NS *> \verbatim *> NS is INTEGER -*> The total number of singular values found, +*> The total number of singular values found, *> 0 <= NS <= min(M,N). *> If RANGE = 'A', NS = min(M,N); if RANGE = 'I', NS = IU-IL+1. *> \endverbatim @@ -172,10 +172,10 @@ *> \param[out] U *> \verbatim *> U is COMPLEX array, dimension (LDU,UCOL) -*> If JOBU = 'V', U contains columns of U (the left singular -*> vectors, stored columnwise) as specified by RANGE; if +*> If JOBU = 'V', U contains columns of U (the left singular +*> vectors, stored columnwise) as specified by RANGE; if *> JOBU = 'N', U is not referenced. -*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', +*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', *> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim @@ -190,11 +190,11 @@ *> \param[out] VT *> \verbatim *> VT is COMPLEX array, dimension (LDVT,N) -*> If JOBVT = 'V', VT contains the rows of V**T (the right singular -*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', +*> If JOBVT = 'V', VT contains the rows of V**T (the right singular +*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', *> VT is not referenced. -*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', -*> the exact value of NS is not known in advance and an upper +*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', +*> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim *> @@ -215,9 +215,9 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. -*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see +*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see *> comments inside the code): -*> - PATH 1 (M much larger than N) +*> - PATH 1 (M much larger than N) *> - PATH 1t (N much larger than M) *> LWORK >= MAX(1,MIN(M,N)*2+MAX(M,N)) for the other paths. *> For good performance, LWORK should generally be larger. @@ -237,8 +237,8 @@ *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (12*MIN(M,N)) -*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, -*> then IWORK contains the indices of the eigenvectors that failed +*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, +*> then IWORK contains the indices of the eigenvectors that failed *> to converge in SBDSVDX/SSTEVX. *> \endverbatim *> @@ -256,18 +256,18 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup complexGEsing * * ===================================================================== - SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, - $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, + SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, + $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * * -- LAPACK driver routine (version 3.6.1) -- @@ -283,7 +283,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * .. Array Arguments .. INTEGER IWORK( * ) REAL S( * ), RWORK( * ) - COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), + COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), $ WORK( * ) * .. * @@ -300,7 +300,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, CHARACTER JOBZ, RNGTGK LOGICAL ALLS, INDS, LQUERY, VALS, WANTU, WANTVT INTEGER I, ID, IE, IERR, ILQF, ILTGK, IQRF, ISCL, - $ ITAU, ITAUP, ITAUQ, ITEMP, ITEMPR, ITGKZ, + $ ITAU, ITAUP, ITAUQ, ITEMP, ITEMPR, ITGKZ, $ IUTGK, J, K, MAXWRK, MINMN, MINWRK, MNTHR REAL ABSTOL, ANRM, BIGNUM, EPS, SMLNUM * .. @@ -480,7 +480,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, RNGTGK = 'I' ILTGK = IL IUTGK = IU - ELSE + ELSE RNGTGK = 'V' ILTGK = 0 IUTGK = 0 @@ -524,28 +524,28 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAU + N CALL CGEQRF( M, N, A, LDA, WORK( ITAU ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) -* +* * Copy R into WORK and bidiagonalize it: * (Workspace: need N*N+3*N, prefer N*N+N+2*N*NB) -* +* IQRF = ITEMP ITAUQ = ITEMP + N*N ITAUP = ITAUQ + N ITEMP = ITAUP + N - ID = 1 + ID = 1 IE = ID + N ITGKZ = IE + N CALL CLACPY( 'U', N, N, A, LDA, WORK( IQRF ), N ) CALL CLASET( 'L', N-1, N-1, CZERO, CZERO, $ WORK( IQRF+1 ), N ) - CALL CGEBRD( N, N, WORK( IQRF ), N, RWORK( ID ), + CALL CGEBRD( N, N, WORK( IQRF ), N, RWORK( ID ), $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), $ WORK( ITEMP ), LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + N*(N*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*N*N+14*N) -* +* (Workspace: need 2*N*N+14*N) +* CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, RWORK( ID ), $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), @@ -567,18 +567,18 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL CUNMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL CUNMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call CUNMQR to compute Q*(QB*UB). * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL CUNMQR( 'L', 'N', M, NS, N, A, LDA, + CALL CUNMQR( 'L', 'N', M, NS, N, A, LDA, $ WORK( ITAU ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -594,7 +594,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL CUNMBR( 'P', 'R', 'C', NS, N, N, WORK( IQRF ), N, + CALL CUNMBR( 'P', 'R', 'C', NS, N, N, WORK( IQRF ), N, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) END IF @@ -610,21 +610,21 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * ITAUQ = 1 ITAUP = ITAUQ + N - ITEMP = ITAUP + N + ITEMP = ITAUP + N ID = 1 IE = ID + N ITGKZ = IE + N - CALL CGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), + CALL CGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + N*(N*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*N*N+14*N) -* +* (Workspace: need 2*N*N+14*N) +* CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), $ IWORK, INFO) * * If needed, compute left singular vectors. @@ -632,7 +632,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( WANTU ) THEN K = ITGKZ DO I = 1, NS - DO J = 1, N + DO J = 1, N U( J, I ) = CMPLX( RWORK( K ), ZERO ) K = K + 1 END DO @@ -642,12 +642,12 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Call CUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) -* - CALL CUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), +* + CALL CUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -663,11 +663,11 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL CUNMBR( 'P', 'R', 'C', NS, N, N, A, LDA, + CALL CUNMBR( 'P', 'R', 'C', NS, N, N, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) END IF - END IF + END IF ELSE * * A has more columns than rows. If A has sufficiently more @@ -676,7 +676,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( N.GE.MNTHR ) THEN * * Path 1t (N much larger than M): -* A = L * Q = ( QB * B * PB**T ) * Q +* A = L * Q = ( QB * B * PB**T ) * Q * = ( QB * ( UB * S * VB**T ) * PB**T ) * Q * U = QB * UB ; V**T = VB**T * PB**T * Q * @@ -691,7 +691,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Copy L into WORK and bidiagonalize it: * (Workspace in WORK( ITEMP ): need M*M+3*M, prefer M*M+M+2*M*NB) * - ILQF = ITEMP + ILQF = ITEMP ITAUQ = ILQF + M*M ITAUP = ITAUQ + M ITEMP = ITAUP + M @@ -699,19 +699,19 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + M ITGKZ = IE + M CALL CLACPY( 'L', M, M, A, LDA, WORK( ILQF ), M ) - CALL CLASET( 'U', M-1, M-1, CZERO, CZERO, + CALL CLASET( 'U', M-1, M-1, CZERO, CZERO, $ WORK( ILQF+M ), M ) CALL CGEBRD( M, M, WORK( ILQF ), M, RWORK( ID ), - $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), + $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), $ WORK( ITEMP ), LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + M*(M*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * CALL SBDSVDX( 'U', JOBZ, RNGTGK, M, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), $ IWORK, INFO) * * If needed, compute left singular vectors. @@ -729,11 +729,11 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL CUNMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL CUNMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -751,46 +751,46 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute (VB**T)*(PB**T) * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL CUNMBR( 'P', 'R', 'C', NS, M, M, WORK( ILQF ), M, + CALL CUNMBR( 'P', 'R', 'C', NS, M, M, WORK( ILQF ), M, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call CUNMLQ to compute ((VB**T)*(PB**T))*Q. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL CUNMLQ( 'R', 'N', NS, N, M, A, LDA, + CALL CUNMLQ( 'R', 'N', NS, N, M, A, LDA, $ WORK( ITAU ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF ELSE * * Path 2t (N greater than M, but not much larger) * Reduce to bidiagonal form without LQ decomposition * A = QB * B * PB**T = QB * ( UB * S * VB**T ) * PB**T -* U = QB * UB; V**T = VB**T * PB**T +* U = QB * UB; V**T = VB**T * PB**T * * Bidiagonalize A * (Workspace: need 2*M+N, prefer 2*M+(M+N)*NB) -* +* ITAUQ = 1 ITAUP = ITAUQ + M ITEMP = ITAUP + M ID = 1 IE = ID + M ITGKZ = IE + M - CALL CGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), + CALL CGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + M*(M*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) -* - CALL SBDSVDX( 'L', JOBZ, RNGTGK, M, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), +* (Workspace: need 2*M*M+14*M) +* + CALL SBDSVDX( 'L', JOBZ, RNGTGK, M, RWORK( ID ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), $ IWORK, INFO) -* +* * If needed, compute left singular vectors. * IF( WANTU ) THEN @@ -806,11 +806,11 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL CUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL CUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -828,10 +828,10 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call CUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL CUNMBR( 'P', 'R', 'C', NS, N, M, A, LDA, + CALL CUNMBR( 'P', 'R', 'C', NS, N, M, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF END IF END IF * diff --git a/SRC/cgesvj.f b/SRC/cgesvj.f index 28f3eb305b..38b264922e 100644 --- a/SRC/cgesvj.f +++ b/SRC/cgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, LRWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), V( LDV, * ), CWORK( LWORK ) * REAL RWORK( LRWORK ), SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -257,18 +257,18 @@ *> INFO is INTEGER *> = 0 : successful exit. *> < 0 : if INFO = -i, then the i-th argument had an illegal value -*> > 0 : CGESVJ did not converge in the maximal allowed number -*> (NSWEEP=30) of sweeps. The output may still be useful. +*> > 0 : CGESVJ did not converge in the maximal allowed number +*> (NSWEEP=30) of sweeps. The output may still be useful. *> See the description of RWORK. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -289,7 +289,7 @@ *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. *> Some tunning parameters (marked with [TP]) are available for the -*> implementer. +*> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even *> denormalized singular values can be computed with the corresponding @@ -304,8 +304,8 @@ * ================ *> *> [1] P. P. M. De Rijk: A one-sided Jacobi algorithm for computing the -*> singular value decomposition on a vector computer. -*> SIAM J. Sci. Stat. Comp., Vol. 10 (1998), pp. 359-371. +*> singular value decomposition on a vector computer. +*> SIAM J. Sci. Stat. Comp., Vol. 10 (1998), pp. 359-371. *> [2] J. Demmel and K. Veselic: Jacobi method is more accurate than QR. *> [3] Z. Drmac: Implementation of Jacobi rotations for accurate singular *> value computation in floating point arithmetic. @@ -327,7 +327,7 @@ *> drmac@math.hr. Thank you. * * ===================================================================== - SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, + SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * * -- LAPACK computational routine (version 3.6.1) -- @@ -335,7 +335,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * June 2016 * - IMPLICIT NONE + IMPLICIT NONE * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, LRWORK, M, MV, N CHARACTER*1 JOBA, JOBU, JOBV @@ -357,19 +357,19 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * .. * .. Local Scalars .. COMPLEX AAPQ, OMPQ - REAL AAPP, AAPP0, AAPQ1, AAQQ, APOAQ, AQOAP, BIG, - $ BIGTHETA, CS, CTOL, EPSLN, LARGE, MXAAPQ, - $ MXSINJ, ROOTBIG, ROOTEPS, ROOTSFMIN, ROOTTOL, + REAL AAPP, AAPP0, AAPQ1, AAQQ, APOAQ, AQOAP, BIG, + $ BIGTHETA, CS, CTOL, EPSLN, LARGE, MXAAPQ, + $ MXSINJ, ROOTBIG, ROOTEPS, ROOTSFMIN, ROOTTOL, $ SKL, SFMIN, SMALL, SN, T, TEMP1, THETA, THSIGN, TOL INTEGER BLSKIP, EMPTSW, i, ibr, IERR, igl, IJBLSK, ir1, - $ ISWROT, jbc, jgl, KBL, LKAHEAD, MVL, N2, N34, + $ ISWROT, jbc, jgl, KBL, LKAHEAD, MVL, N2, N34, $ N4, NBL, NOTROT, p, PSKIPPED, q, ROWSKIP, SWBAND - LOGICAL APPLV, GOSCALE, LOWER, LSVEC, NOSCALE, ROTOK, + LOGICAL APPLV, GOSCALE, LOWER, LSVEC, NOSCALE, ROTOK, $ RSVEC, UCTOL, UPPER * .. * .. * .. Intrinsic Functions .. - INTRINSIC ABS, AMAX1, AMIN1, CONJG, FLOAT, MIN0, MAX0, + INTRINSIC ABS, AMAX1, AMIN1, CONJG, FLOAT, MIN0, MAX0, $ SIGN, SQRT * .. * .. External Functions .. @@ -427,7 +427,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ELSE IF( LWORK.LT.( M+N ) ) THEN INFO = -13 ELSE IF( LRWORK.LT.MAX0( N, 6 ) ) THEN - INFO = -15 + INFO = -15 ELSE INFO = 0 END IF @@ -632,7 +632,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * SN = SQRT( SFMIN / EPSLN ) TEMP1 = SQRT( BIG / FLOAT( N ) ) - IF( ( AAPP.LE.SN ) .OR. ( AAQQ.GE.TEMP1 ) .OR. + IF( ( AAPP.LE.SN ) .OR. ( AAQQ.GE.TEMP1 ) .OR. $ ( ( SN.LE.AAQQ ) .AND. ( AAPP.LE.TEMP1 ) ) ) THEN TEMP1 = AMIN1( BIG, TEMP1 / AAPP ) * AAQQ = AAQQ*TEMP1 @@ -668,10 +668,10 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * EMPTSW = ( N*( N-1 ) ) / 2 NOTROT = 0 - + DO 1868 q = 1, N CWORK( q ) = CONE - 1868 CONTINUE + 1868 CONTINUE * * * @@ -815,7 +815,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, q = ISAMAX( N-p+1, SVA( p ), 1 ) + p - 1 IF( p.NE.q ) THEN CALL CSWAP( M, A( 1, p ), 1, A( 1, q ), 1 ) - IF( RSVEC )CALL CSWAP( MVL, V( 1, p ), 1, + IF( RSVEC )CALL CSWAP( MVL, V( 1, p ), 1, $ V( 1, q ), 1 ) TEMP1 = SVA( p ) SVA( p ) = SVA( q ) @@ -839,7 +839,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * If properly implemented SCNRM2 is available, the IF-THEN-ELSE-END IF * below should be replaced with "AAPP = SCNRM2( M, A(1,p), 1 )". * - IF( ( SVA( p ).LT.ROOTBIG ) .AND. + IF( ( SVA( p ).LT.ROOTBIG ) .AND. $ ( SVA( p ).GT.ROOTSFMIN ) ) THEN SVA( p ) = SCNRM2( M, A( 1, p ), 1 ) ELSE @@ -867,12 +867,12 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, IF( AAQQ.GE.ONE ) THEN ROTOK = ( SMALL*AAPP ).LE.AAQQ IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL CCOPY( M, A( 1, p ), 1, + CALL CCOPY( M, A( 1, p ), 1, $ CWORK(N+1), 1 ) - CALL CLASCL( 'G', 0, 0, AAPP, ONE, + CALL CLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, CWORK(N+1), LDA, IERR ) AAPQ = CDOTC( M, CWORK(N+1), 1, $ A( 1, q ), 1 ) / AAQQ @@ -880,10 +880,10 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ELSE ROTOK = AAPP.LE.( AAQQ / SMALL ) IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL CCOPY( M, A( 1, q ), 1, + CALL CCOPY( M, A( 1, q ), 1, $ CWORK(N+1), 1 ) CALL CLASCL( 'G', 0, 0, AAQQ, $ ONE, M, 1, @@ -893,8 +893,8 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF END IF * -* AAPQ = AAPQ * CONJG( CWORK(p) ) * CWORK(q) - AAPQ1 = -ABS(AAPQ) +* AAPQ = AAPQ * CONJG( CWORK(p) ) * CWORK(q) + AAPQ1 = -ABS(AAPQ) MXAAPQ = AMAX1( MXAAPQ, -AAPQ1 ) * * TO rotate or NOT to rotate, THAT is the question ... @@ -912,24 +912,24 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ROTOK ) THEN * - OMPQ = AAPQ / ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) AQOAP = AAQQ / AAPP APOAQ = AAPP / AAQQ THETA = -HALF*ABS( AQOAP-APOAQ )/AAPQ1 * IF( ABS( THETA ).GT.BIGTHETA ) THEN -* +* T = HALF / THETA CS = ONE CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*T ) IF ( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*T ) END IF - - SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, + + SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) @@ -940,7 +940,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * .. choose correct signum for THETA and rotate * THSIGN = -SIGN( ONE, AAPQ1 ) - T = ONE / ( THETA+THSIGN* + T = ONE / ( THETA+THSIGN* $ SQRT( ONE+THETA*THETA ) ) CS = SQRT( ONE / ( ONE+T*T ) ) SN = T*CS @@ -948,17 +948,17 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*SN ) IF ( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*SN ) - END IF - END IF - CWORK(p) = -CWORK(q) * OMPQ + END IF + END IF + CWORK(p) = -CWORK(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -1083,7 +1083,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, p ), 1, @@ -1101,7 +1101,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, q ), 1, @@ -1114,7 +1114,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF END IF * -* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) +* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = AMAX1( MXAAPQ, -AAPQ1 ) * @@ -1128,7 +1128,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ROTOK ) THEN * - OMPQ = AAPQ / ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) AQOAP = AAQQ / AAPP APOAQ = AAPP / AAQQ THETA = -HALF*ABS( AQOAP-APOAQ )/ AAPQ1 @@ -1136,11 +1136,11 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, @@ -1161,17 +1161,17 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL CROT( M, A(1,p), 1, A(1,q), 1, - $ CS, CONJG(OMPQ)*SN ) + $ CS, CONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*SN ) END IF END IF - CWORK(p) = -CWORK(q) * OMPQ + CWORK(p) = -CWORK(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -1201,7 +1201,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, CALL CLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL CAXPY( M, -CONJG(AAPQ), + CALL CAXPY( M, -CONJG(AAPQ), $ CWORK(N+1), 1, A( 1, p ), 1 ) CALL CLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, @@ -1374,7 +1374,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF * * Undo scaling, if necessary (and possible). - IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) + IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) $ .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( MAX( N2, 1 ) ) .GT. $ ( SFMIN / SKL ) ) ) ) THEN DO 2400 p = 1, N diff --git a/SRC/cgesvx.f b/SRC/cgesvx.f index 8aafd0aa9a..d6592fa620 100644 --- a/SRC/cgesvx.f +++ b/SRC/cgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -336,10 +336,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cgesvxx.f b/SRC/cgesvxx.f index 58b36e81bb..0d4955efe6 100644 --- a/SRC/cgesvxx.f +++ b/SRC/cgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -527,10 +527,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cgetc2.f b/SRC/cgetc2.f index 021ec6724f..1876dad5be 100644 --- a/SRC/cgetc2.f +++ b/SRC/cgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cgetf2.f b/SRC/cgetf2.f index 0070f157fe..79fbd53559 100644 --- a/SRC/cgetf2.f +++ b/SRC/cgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -167,7 +167,7 @@ SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) * * Compute machine safe minimum * - SFMIN = SLAMCH('S') + SFMIN = SLAMCH('S') * DO 10 J = 1, MIN( M, N ) * diff --git a/SRC/cgetrf.f b/SRC/cgetrf.f index dba75bc23a..df4d0d15a6 100644 --- a/SRC/cgetrf.f +++ b/SRC/cgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgetrf2.f b/SRC/cgetrf2.f index d761806ebc..5f3209b0e8 100644 --- a/SRC/cgetrf2.f +++ b/SRC/cgetrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,11 +35,11 @@ *> *> This is the recursive version of the algorithm. It divides *> the matrix into four submatrices: -*> +*> *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 *> A = [ -----|----- ] with n1 = min(m,n)/2 *> [ A21 | A22 ] n2 = n-n1 -*> +*> *> [ A11 ] *> The subroutine calls itself to factor [ --- ], *> [ A12 ] @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -130,7 +130,7 @@ RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) * * .. Parameters .. COMPLEX ONE, ZERO - PARAMETER ( ONE = ( 1.0E+0, 0.0E+0 ), + PARAMETER ( ONE = ( 1.0E+0, 0.0E+0 ), $ ZERO = ( 0.0E+0, 0.0E+0 ) ) * .. * .. Local Scalars .. @@ -241,12 +241,12 @@ RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) * * Solve A12 * - CALL CTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, + CALL CTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, $ A( 1, N1+1 ), LDA ) * * Update A22 * - CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, + CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, $ A( 1, N1+1 ), LDA, ONE, A( N1+1, N1+1 ), LDA ) * * Factor A22 diff --git a/SRC/cgetri.f b/SRC/cgetri.f index 97bf362582..940eca149b 100644 --- a/SRC/cgetri.f +++ b/SRC/cgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgetrs.f b/SRC/cgetrs.f index cdeec9eadd..fe889c3a5f 100644 --- a/SRC/cgetrs.f +++ b/SRC/cgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cggbak.f b/SRC/cggbak.f index 2992e132f1..2f7eaf07ab 100644 --- a/SRC/cggbak.f +++ b/SRC/cggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * REAL LSCALE( * ), RSCALE( * ) * COMPLEX V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cggbal.f b/SRC/cggbal.f index 7fe1956799..239dbf1fad 100644 --- a/SRC/cggbal.f +++ b/SRC/cggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * REAL LSCALE( * ), RSCALE( * ), WORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cgges.f b/SRC/cgges.f index 655e2b063f..c7a4d3afc7 100644 --- a/SRC/cgges.f +++ b/SRC/cgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cggesx.f b/SRC/cggesx.f index 0238a7237d..d4c7f87bca 100644 --- a/SRC/cggesx.f +++ b/SRC/cggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, * LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cggev.f b/SRC/cggev.f index 18b4f47eac..2e55000d03 100644 --- a/SRC/cggev.f +++ b/SRC/cggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,10 +204,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -334,7 +334,7 @@ SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, LWKMIN = MAX( 1, 2*N ) LWKOPT = MAX( 1, N + N*ILAENV( 1, 'CGEQRF', ' ', N, 1, N, 0 ) ) LWKOPT = MAX( LWKOPT, N + - $ N*ILAENV( 1, 'CUNMQR', ' ', N, 1, N, 0 ) ) + $ N*ILAENV( 1, 'CUNMQR', ' ', N, 1, N, 0 ) ) IF( ILVL ) THEN LWKOPT = MAX( LWKOPT, N + $ N*ILAENV( 1, 'CUNGQR', ' ', N, 1, N, -1 ) ) diff --git a/SRC/cggevx.f b/SRC/cggevx.f index d01cf918e8..0b74d130b2 100644 --- a/SRC/cggevx.f +++ b/SRC/cggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, * LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, * WORK, LWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -37,7 +37,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,7 +271,7 @@ *> numbers of the eigenvectors, stored in consecutive elements *> of the array. If the eigenvalues cannot be reordered to *> compute RCONDV(j), RCONDV(j) is set to 0; this can only occur -*> when the true value would be very small anyway. +*> when the true value would be very small anyway. *> If SENSE = 'N' or 'E', RCONDV is not referenced. *> \endverbatim *> @@ -330,10 +330,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cggglm.f b/SRC/cggglm.f index 2f20100e6b..d1d6984d92 100644 --- a/SRC/cggglm.f +++ b/SRC/cggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -216,7 +216,7 @@ SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/cgghrd.f b/SRC/cgghrd.f index eda9e43d45..2b419666e1 100644 --- a/SRC/cgghrd.f +++ b/SRC/cgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cgglse.f b/SRC/cgglse.f index 222650a375..d2b35f4088 100644 --- a/SRC/cgglse.f +++ b/SRC/cgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -210,7 +210,7 @@ SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/cggqrf.f b/SRC/cggqrf.f index 24f95a2763..9e496a0189 100644 --- a/SRC/cggqrf.f +++ b/SRC/cggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -238,7 +238,7 @@ SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, EXTERNAL CGEQRF, CGERQF, CUNMQR, XERBLA * .. * .. External Functions .. - INTEGER ILAENV + INTEGER ILAENV EXTERNAL ILAENV * .. * .. Intrinsic Functions .. diff --git a/SRC/cggrqf.f b/SRC/cggrqf.f index 3cba411e53..f2272250f8 100644 --- a/SRC/cggrqf.f +++ b/SRC/cggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -237,7 +237,7 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, EXTERNAL CGEQRF, CGERQF, CUNMRQ, XERBLA * .. * .. External Functions .. - INTEGER ILAENV + INTEGER ILAENV EXTERNAL ILAENV * .. * .. Intrinsic Functions .. diff --git a/SRC/cggsvd3.f b/SRC/cggsvd3.f index 5cef7d478e..53b27dcc7e 100644 --- a/SRC/cggsvd3.f +++ b/SRC/cggsvd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/cggsvp3.f b/SRC/cggsvp3.f index feee3644f9..65597e4633 100644 --- a/SRC/cggsvp3.f +++ b/SRC/cggsvp3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -251,10 +251,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/cgsvj0.f b/SRC/cgsvj0.f index 66074bdb16..d51a0789e9 100644 --- a/SRC/cgsvj0.f +++ b/SRC/cgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * REAL EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) * REAL SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -231,7 +231,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * .. * .. Array Arguments .. COMPLEX A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) - REAL SVA( N ) + REAL SVA( N ) * .. * * ===================================================================== @@ -288,7 +288,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -395,7 +395,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, q = ISAMAX( N-p+1, SVA( p ), 1 ) + p - 1 IF( p.NE.q ) THEN CALL CSWAP( M, A( 1, p ), 1, A( 1, q ), 1 ) - IF( RSVEC )CALL CSWAP( MVL, V( 1, p ), 1, + IF( RSVEC )CALL CSWAP( MVL, V( 1, p ), 1, $ V( 1, q ), 1 ) TEMP1 = SVA( p ) SVA( p ) = SVA( q ) @@ -419,7 +419,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * If properly implemented SCNRM2 is available, the IF-THEN-ELSE-END IF * below should be replaced with "AAPP = SCNRM2( M, A(1,p), 1 )". * - IF( ( SVA( p ).LT.ROOTBIG ) .AND. + IF( ( SVA( p ).LT.ROOTBIG ) .AND. $ ( SVA( p ).GT.ROOTSFMIN ) ) THEN SVA( p ) = SCNRM2( M, A( 1, p ), 1 ) ELSE @@ -447,12 +447,12 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, IF( AAQQ.GE.ONE ) THEN ROTOK = ( SMALL*AAPP ).LE.AAQQ IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL CCOPY( M, A( 1, p ), 1, + CALL CCOPY( M, A( 1, p ), 1, $ WORK, 1 ) - CALL CLASCL( 'G', 0, 0, AAPP, ONE, + CALL CLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, WORK, LDA, IERR ) AAPQ = CDOTC( M, WORK, 1, $ A( 1, q ), 1 ) / AAQQ @@ -460,22 +460,22 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ELSE ROTOK = AAPP.LE.( AAQQ / SMALL ) IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL CCOPY( M, A( 1, q ), 1, + CALL CCOPY( M, A( 1, q ), 1, $ WORK, 1 ) CALL CLASCL( 'G', 0, 0, AAQQ, $ ONE, M, 1, $ WORK, LDA, IERR ) - AAPQ = CDOTC( M, A( 1, p ), 1, + AAPQ = CDOTC( M, A( 1, p ), 1, $ WORK, 1 ) / AAPP END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * CONJG( CWORK(p) ) * CWORK(q) - AAPQ1 = -ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * CONJG( CWORK(p) ) * CWORK(q) + AAPQ1 = -ABS(AAPQ) MXAAPQ = AMAX1( MXAAPQ, -AAPQ1 ) * * TO rotate or NOT to rotate, THAT is the question ... @@ -498,18 +498,18 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, THETA = -HALF*ABS( AQOAP-APOAQ )/AAPQ1 * IF( ABS( THETA ).GT.BIGTHETA ) THEN -* +* T = HALF / THETA CS = ONE CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*T ) IF ( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*T ) END IF - - SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, + + SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) @@ -520,7 +520,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * .. choose correct signum for THETA and rotate * THSIGN = -SIGN( ONE, AAPQ1 ) - T = ONE / ( THETA+THSIGN* + T = ONE / ( THETA+THSIGN* $ SQRT( ONE+THETA*THETA ) ) CS = SQRT( ONE / ( ONE+T*T ) ) SN = T*CS @@ -528,17 +528,17 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*SN ) IF ( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*SN ) - END IF - END IF - D(p) = -D(q) * OMPQ + END IF + END IF + D(p) = -D(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -663,7 +663,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, p ), 1, @@ -681,7 +681,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, q ), 1, @@ -694,8 +694,8 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = AMAX1( MXAAPQ, -AAPQ1 ) * @@ -716,11 +716,11 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, @@ -741,13 +741,13 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL CROT( M, A(1,p), 1, A(1,q), 1, - $ CS, CONJG(OMPQ)*SN ) + $ CS, CONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*SN ) END IF END IF @@ -781,7 +781,7 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, CALL CLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL CAXPY( M, -CONJG(AAPQ), + CALL CAXPY( M, -CONJG(AAPQ), $ WORK, 1, A( 1, p ), 1 ) CALL CLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, diff --git a/SRC/cgsvj1.f b/SRC/cgsvj1.f index ca71a4eaef..b62915227f 100644 --- a/SRC/cgsvj1.f +++ b/SRC/cgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * REAL EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -28,9 +28,9 @@ * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) -* REAL SVA( N ) +* REAL SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -248,7 +248,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * .. * .. Array Arguments .. COMPLEX A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) - REAL SVA( N ) + REAL SVA( N ) * .. * * ===================================================================== @@ -280,7 +280,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, EXTERNAL ISAMAX, LSAME, CDOTC, SCNRM2 * .. * .. External Subroutines .. -* .. from BLAS +* .. from BLAS EXTERNAL CCOPY, CROT, CSSCAL, CSWAP * .. from LAPACK EXTERNAL CLASCL, CLASSQ, XERBLA @@ -303,7 +303,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -401,7 +401,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, igl = ( ibr-1 )*KBL + 1 * * DO 2010 jbc = ibr + 1, NBL - DO 2010 jbc = 1, NBLC + DO 2010 jbc = 1, NBLC * jgl = ( jbc-1 )*KBL + N1 + 1 * @@ -432,7 +432,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, p ), 1, @@ -450,7 +450,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( CDOTC( M, A( 1, p ), 1, + AAPQ = ( CDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL CCOPY( M, A( 1, q ), 1, @@ -463,8 +463,8 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * CONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = AMAX1( MXAAPQ, -AAPQ1 ) * @@ -485,11 +485,11 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL CROT( M, A(1,p), 1, A(1,q), 1, $ CS, CONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, @@ -510,13 +510,13 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL CROT( M, A(1,p), 1, A(1,q), 1, - $ CS, CONJG(OMPQ)*SN ) + $ CS, CONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL CROT( MVL, V(1,p), 1, + CALL CROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, CONJG(OMPQ)*SN ) END IF END IF @@ -550,7 +550,7 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, CALL CLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL CAXPY( M, -CONJG(AAPQ), + CALL CAXPY( M, -CONJG(AAPQ), $ WORK, 1, A( 1, p ), 1 ) CALL CLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, diff --git a/SRC/cgtcon.f b/SRC/cgtcon.f index 775277a4e8..1a91cfd94c 100644 --- a/SRC/cgtcon.f +++ b/SRC/cgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgtrfs.f b/SRC/cgtrfs.f index dd95d4060e..2b00de6975 100644 --- a/SRC/cgtrfs.f +++ b/SRC/cgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgtsv.f b/SRC/cgtsv.f index 2f23fd7ee0..0412203bb8 100644 --- a/SRC/cgtsv.f +++ b/SRC/cgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgtsvx.f b/SRC/cgtsvx.f index 9211e39f8f..15df639dda 100644 --- a/SRC/cgtsvx.f +++ b/SRC/cgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -280,10 +280,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgttrf.f b/SRC/cgttrf.f index acec054cdc..be371685a0 100644 --- a/SRC/cgttrf.f +++ b/SRC/cgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgttrs.f b/SRC/cgttrs.f index 0ca3d81ad0..3381a5ad13 100644 --- a/SRC/cgttrs.f +++ b/SRC/cgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cgtts2.f b/SRC/cgtts2.f index 5c29afbdd7..375213d527 100644 --- a/SRC/cgtts2.f +++ b/SRC/cgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/chbev.f b/SRC/chbev.f index f87a320a43..9c8ca992d0 100644 --- a/SRC/chbev.f +++ b/SRC/chbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chbevd.f b/SRC/chbevd.f index fa8f0c8e78..c52ee118da 100644 --- a/SRC/chbevd.f +++ b/SRC/chbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -202,10 +202,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -320,13 +320,13 @@ SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AB( 1, 1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/chbevx.f b/SRC/chbevx.f index 47dd8069eb..1e7298fdfe 100644 --- a/SRC/chbevx.f +++ b/SRC/chbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -33,7 +33,7 @@ * COMPLEX AB( LDAB, * ), Q( LDQ, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/chbgst.f b/SRC/chbgst.f index b6a5de9da0..537588a051 100644 --- a/SRC/chbgst.f +++ b/SRC/chbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chbgv.f b/SRC/chbgv.f index b4e3a87d5c..813fd8bb19 100644 --- a/SRC/chbgv.f +++ b/SRC/chbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/chbgvd.f b/SRC/chbgvd.f index 64dd1f6de8..67ba02b3e3 100644 --- a/SRC/chbgvd.f +++ b/SRC/chbgvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LRWORK, @@ -33,7 +33,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/chbgvx.f b/SRC/chbgvx.f index 43ae794d52..c3f4676cde 100644 --- a/SRC/chbgvx.f +++ b/SRC/chbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -34,7 +34,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -281,10 +281,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/chbtrd.f b/SRC/chbtrd.f index a88d4d1a0f..2fc95438f8 100644 --- a/SRC/chbtrd.f +++ b/SRC/chbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * REAL D( * ), E( * ) * COMPLEX AB( LDAB, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/checon.f b/SRC/checon.f index 499c6740df..0707e8cffb 100644 --- a/SRC/checon.f +++ b/SRC/checon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cheequb.f b/SRC/cheequb.f index b526ad2252..afa368f315 100644 --- a/SRC/cheequb.f +++ b/SRC/cheequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), WORK( * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cheev.f b/SRC/cheev.f index 6e62bbfe92..1b265ee4f0 100644 --- a/SRC/cheev.f +++ b/SRC/cheev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cheevd.f b/SRC/cheevd.f index b3f166062d..134e331c8e 100644 --- a/SRC/cheevd.f +++ b/SRC/cheevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -306,7 +306,7 @@ SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CHEEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF diff --git a/SRC/cheevr.f b/SRC/cheevr.f index 9b8ffb4e3b..adcc9d378b 100644 --- a/SRC/cheevr.f +++ b/SRC/cheevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LRWORK, LWORK, @@ -33,7 +33,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -331,10 +331,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cheevx.f b/SRC/cheevx.f index f41479bd11..5dcac59218 100644 --- a/SRC/cheevx.f +++ b/SRC/cheevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -245,10 +245,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/chegs2.f b/SRC/chegs2.f index 7462a4ad3a..6cafdcb76c 100644 --- a/SRC/chegs2.f +++ b/SRC/chegs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/chegst.f b/SRC/chegst.f index e4791b5595..62d44c7938 100644 --- a/SRC/chegst.f +++ b/SRC/chegst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/chegv.f b/SRC/chegv.f index d7dde7639b..801c650d6d 100644 --- a/SRC/chegv.f +++ b/SRC/chegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/chegvd.f b/SRC/chegvd.f index 9114ebdd47..208e611c67 100644 --- a/SRC/chegvd.f +++ b/SRC/chegvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/chegvx.f b/SRC/chegvx.f index 52fb983d2f..c82b40b3ac 100644 --- a/SRC/chegvx.f +++ b/SRC/chegvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -288,10 +288,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cherfs.f b/SRC/cherfs.f index e1d15c08a1..5bc80794a1 100644 --- a/SRC/cherfs.f +++ b/SRC/cherfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cherfsx.f b/SRC/cherfsx.f index e596b9c347..4c5d79561f 100644 --- a/SRC/cherfsx.f +++ b/SRC/cherfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * REAL S( * ), PARAMS( * ), BERR( * ), RWORK( * ), * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) -* +* * *> \par Purpose: * ============= @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/chesv.f b/SRC/chesv.f index 9d3a4066ed..3b187f5c91 100644 --- a/SRC/chesv.f +++ b/SRC/chesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chesvx.f b/SRC/chesvx.f index fd2703962f..4c7d83596b 100644 --- a/SRC/chesvx.f +++ b/SRC/chesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f index 5b5df0f131..4260075a9b 100644 --- a/SRC/chesvxx.f +++ b/SRC/chesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -494,10 +494,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cheswapr.f b/SRC/cheswapr.f index 03bf14b8c4..8be27a62d3 100644 --- a/SRC/cheswapr.f +++ b/SRC/cheswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,14 +136,14 @@ SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL CSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) * - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) - + TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -169,12 +169,12 @@ SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from 1 to I1-1 +* - swap row I1 and I2 from 1 to I1-1 CALL CSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) TMP=A(I1,I1) @@ -198,6 +198,6 @@ SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) END DO * ENDIF - + END SUBROUTINE CHESWAPR diff --git a/SRC/chetd2.f b/SRC/chetd2.f index bf562e0dda..1bd3865e93 100644 --- a/SRC/chetd2.f +++ b/SRC/chetd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/chetf2.f b/SRC/chetf2.f index 6f7fa32146..f14b623da8 100644 --- a/SRC/chetf2.f +++ b/SRC/chetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/chetrd.f b/SRC/chetrd.f index d95fb4905c..2abc2b69f8 100644 --- a/SRC/chetrd.f +++ b/SRC/chetrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chetrf.f b/SRC/chetrf.f index f92a81e473..777c49ba3f 100644 --- a/SRC/chetrf.f +++ b/SRC/chetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,7 +42,7 @@ *> A = U*D*U**H or A = L*D*L**H *> *> where U (or L) is a product of permutation and unit upper (lower) -*> triangular matrices, and D is Hermitian and block diagonal with +*> triangular matrices, and D is Hermitian and block diagonal with *> 1-by-1 and 2-by-2 diagonal blocks. *> *> This is the blocked version of the algorithm, calling Level 3 BLAS. @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chetri.f b/SRC/chetri.f index 61048b5f89..0230c5deb5 100644 --- a/SRC/chetri.f +++ b/SRC/chetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chetri2.f b/SRC/chetri2.f index 86d291edc3..1ae2b52bfb 100644 --- a/SRC/chetri2.f +++ b/SRC/chetri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/chetri2x.f b/SRC/chetri2x.f index 68163fc4b6..01f03d5f9e 100644 --- a/SRC/chetri2x.f +++ b/SRC/chetri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -215,7 +215,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -231,7 +231,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -248,7 +248,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K+1,INVD) = CONJG (WORK(K,INVD+1) ) K=K+2 END IF @@ -265,7 +265,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -275,7 +275,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -338,7 +338,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**H*invD1*U11->U11 * CALL CTRMM('L','U','C','U',NNB, NNB, @@ -382,7 +382,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -392,9 +392,9 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL CHESWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL CHESWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -408,7 +408,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -425,7 +425,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K-1,INVD+1) = CONJG (WORK(K,INVD+1) ) K=K-2 END IF @@ -442,7 +442,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -509,7 +509,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**H*invD1*L11->L11 * CALL CTRMM('L',UPLO,'C','U',NNB, NNB, @@ -527,7 +527,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL CGEMM('C','N',NNB,NNB,N-NNB-CUT,CONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**H*invD1*L11 + U01**H*invD*U01 * @@ -565,7 +565,7 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/chetrs.f b/SRC/chetrs.f index 27fe18497d..773c6e7650 100644 --- a/SRC/chetrs.f +++ b/SRC/chetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index 7a1cc04ff1..a0fd4274f2 100644 --- a/SRC/chetrs2.f +++ b/SRC/chetrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complexHEcomputational * * ===================================================================== - SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -196,7 +196,7 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**H. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -221,7 +221,7 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -274,7 +274,7 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**H. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -299,7 +299,7 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -322,7 +322,7 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**H \ B) -> B [ L**H \ (D \ (L \P**T * B) ) ] -* +* CALL CTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**H \ (D \ (L \P**T * B) )) ] diff --git a/SRC/chfrk.f b/SRC/chfrk.f index 971e272d19..7f45bec165 100644 --- a/SRC/chfrk.f +++ b/SRC/chfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/chgeqz.f b/SRC/chgeqz.f index 15aaaa44d6..dd6b4be84d 100644 --- a/SRC/chgeqz.f +++ b/SRC/chgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -32,7 +32,7 @@ * $ Q( LDQ, * ), T( LDT, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,18 +44,18 @@ *> using the single-shift QZ method. *> Matrix pairs of this type are produced by the reduction to *> generalized upper Hessenberg form of a complex matrix pair (A,B): -*> +*> *> A = Q1*H*Z1**H, B = Q1*T*Z1**H, -*> +*> *> as computed by CGGHRD. -*> +*> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**H, T = Q*P*Z**H, -*> +*> *> where Q and Z are unitary matrices and S and P are upper triangular. -*> +*> *> Optionally, the unitary matrix Q from the generalized Schur *> factorization may be postmultiplied into an input matrix Q1, and the *> unitary matrix Z may be postmultiplied into an input matrix Z1. @@ -63,9 +63,9 @@ *> the matrix pair (A,B) to generalized Hessenberg form, then the output *> matrices Q1*Q and Z1*Z are the unitary factors from the generalized *> Schur factorization of (A,B): -*> +*> *> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) *> (equivalently, of (A,B)) are computed as a pair of complex values *> (alpha,beta). If beta is nonzero, lambda = alpha / beta is an @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/chla_transtype.f b/SRC/chla_transtype.f index 00ba4f5aec..2f107bf110 100644 --- a/SRC/chla_transtype.f +++ b/SRC/chla_transtype.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHLA_TRANSTYPE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHLA_TRANSTYPE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) -* +* * .. Scalar Arguments .. * INTEGER TRANS * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpcon.f b/SRC/chpcon.f index 99b457e6ff..f697caeaa6 100644 --- a/SRC/chpcon.f +++ b/SRC/chpcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpev.f b/SRC/chpev.f index 742ff98d4c..342cad2af8 100644 --- a/SRC/chpev.f +++ b/SRC/chpev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpevd.f b/SRC/chpevd.f index 45d6f45675..4931e6f77d 100644 --- a/SRC/chpevd.f +++ b/SRC/chpevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -292,7 +292,7 @@ SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CHPEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF @@ -306,7 +306,7 @@ SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, W( 1 ) = AP( 1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/chpevx.f b/SRC/chpevx.f index e6bf245e03..2c618ad432 100644 --- a/SRC/chpevx.f +++ b/SRC/chpevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/chpgst.f b/SRC/chpgst.f index 59e30d2656..11d1ee2ab3 100644 --- a/SRC/chpgst.f +++ b/SRC/chpgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpgv.f b/SRC/chpgv.f index d5b52254ab..6fde4de245 100644 --- a/SRC/chpgv.f +++ b/SRC/chpgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/chpgvd.f b/SRC/chpgvd.f index 8321cf93e5..1b2ef8b9a4 100644 --- a/SRC/chpgvd.f +++ b/SRC/chpgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/chpgvx.f b/SRC/chpgvx.f index cc4b296bcd..7f9d777d7f 100644 --- a/SRC/chpgvx.f +++ b/SRC/chpgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -331,7 +331,7 @@ SUBROUTINE CHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, INFO = -4 ELSE IF( N.LT.0 ) THEN INFO = -5 - ELSE + ELSE IF( VALEIG ) THEN IF( N.GT.0 .AND. VU.LE.VL ) THEN INFO = -9 diff --git a/SRC/chprfs.f b/SRC/chprfs.f index 40ec6aa5cf..3a078d9367 100644 --- a/SRC/chprfs.f +++ b/SRC/chprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpsv.f b/SRC/chpsv.f index 8c06193092..8351889e23 100644 --- a/SRC/chpsv.f +++ b/SRC/chpsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chpsvx.f b/SRC/chpsvx.f index 3c04ea60a0..d0953d53cb 100644 --- a/SRC/chpsvx.f +++ b/SRC/chpsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/chptrd.f b/SRC/chptrd.f index a5811e6e61..36f136a27c 100644 --- a/SRC/chptrd.f +++ b/SRC/chptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX AP( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chptrf.f b/SRC/chptrf.f index 5caa9c9dff..e6fd91dc7f 100644 --- a/SRC/chptrf.f +++ b/SRC/chptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chptri.f b/SRC/chptri.f index b149504f37..a681a744b2 100644 --- a/SRC/chptri.f +++ b/SRC/chptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chptrs.f b/SRC/chptrs.f index 684b229050..4370937be4 100644 --- a/SRC/chptrs.f +++ b/SRC/chptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/chsein.f b/SRC/chsein.f index b4747b53f0..ed9d02d542 100644 --- a/SRC/chsein.f +++ b/SRC/chsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/chseqr.f b/SRC/chseqr.f index 755ca7f7f7..081115136e 100644 --- a/SRC/chseqr.f +++ b/SRC/chseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f index 074ca90a33..c420faf60a 100644 --- a/SRC/cla_gbamv.f +++ b/SRC/cla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -29,7 +29,7 @@ * COMPLEX AB( LDAB, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cla_gbrcond_c.f b/SRC/cla_gbrcond_c.f index 75b80ff7bf..409f1f3645 100644 --- a/SRC/cla_gbrcond_c.f +++ b/SRC/cla_gbrcond_c.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * REAL FUNCTION CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, * LDAFB, IPIV, C, CAPPLY, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gbrcond_x.f b/SRC/cla_gbrcond_x.f index b559e47b02..fd6c5b9a64 100644 --- a/SRC/cla_gbrcond_x.f +++ b/SRC/cla_gbrcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, * LDAFB, IPIV, X, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO @@ -31,7 +31,7 @@ * $ X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gbrfsx_extended.f b/SRC/cla_gbrfsx_extended.f index 45f72bc97a..5316b4b1bd 100644 --- a/SRC/cla_gbrfsx_extended.f +++ b/SRC/cla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gbrpvgrw.f b/SRC/cla_gbrpvgrw.f index 9d28ed8968..4ef279e30d 100644 --- a/SRC/cla_gbrpvgrw.f +++ b/SRC/cla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, * LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index b5b987d2ef..c733971221 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gercond_c.f b/SRC/cla_gercond_c.f index da2369cae7..8ca14a736c 100644 --- a/SRC/cla_gercond_c.f +++ b/SRC/cla_gercond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Aguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -31,14 +31,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERCOND_C computes the infinity norm condition number of *> op(A) * inv(diag(C)) where C is a REAL vector. *> \endverbatim @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gercond_x.f b/SRC/cla_gercond_x.f index 42103f0db5..0e09757cb3 100644 --- a/SRC/cla_gercond_x.f +++ b/SRC/cla_gercond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO @@ -30,14 +30,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERCOND_X computes the infinity norm condition number of *> op(A) * diag(X) where X is a COMPLEX vector. *> \endverbatim @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_gerfsx_extended.f b/SRC/cla_gerfsx_extended.f index 08dc65d8d5..456fbc3854 100644 --- a/SRC/cla_gerfsx_extended.f +++ b/SRC/cla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS @@ -39,14 +39,14 @@ * REAL C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cla_gerpvgrw.f b/SRC/cla_gerpvgrw.f index 6764a39598..9174b53f44 100644 --- a/SRC/cla_gerpvgrw.f +++ b/SRC/cla_gerpvgrw.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_heamv.f b/SRC/cla_heamv.f index 41a4c5b58f..d7799efd88 100644 --- a/SRC/cla_heamv.f +++ b/SRC/cla_heamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_hercond_c.f b/SRC/cla_hercond_c.f index 9883331271..5d234d1277 100644 --- a/SRC/cla_hercond_c.f +++ b/SRC/cla_hercond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C ( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_hercond_x.f b/SRC/cla_hercond_x.f index 3af007d729..59a26ff8d5 100644 --- a/SRC/cla_hercond_x.f +++ b/SRC/cla_hercond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_herfsx_extended.f b/SRC/cla_herfsx_extended.f index ac05329be4..8fa24c445a 100644 --- a/SRC/cla_herfsx_extended.f +++ b/SRC/cla_herfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_herpvgrw.f b/SRC/cla_herpvgrw.f index 9326299c79..f99f005595 100644 --- a/SRC/cla_herpvgrw.f +++ b/SRC/cla_herpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ) * REAL WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_HERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cla_lin_berr.f b/SRC/cla_lin_berr.f index 4ac5abec8f..50edac01fc 100644 --- a/SRC/cla_lin_berr.f +++ b/SRC/cla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * REAL AYB( N, NRHS ), BERR( NRHS ) * COMPLEX RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see cla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is REAL array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cla_porcond_c.f b/SRC/cla_porcond_c.f index 01e07a1488..61bd7cdad9 100644 --- a/SRC/cla_porcond_c.f +++ b/SRC/cla_porcond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cla_porcond_x.f b/SRC/cla_porcond_x.f index efd54432d1..ce291d7c91 100644 --- a/SRC/cla_porcond_x.f +++ b/SRC/cla_porcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_porfsx_extended.f b/SRC/cla_porfsx_extended.f index 4f3a0926ca..ec74603bd0 100644 --- a/SRC/cla_porfsx_extended.f +++ b/SRC/cla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_porpvgrw.f b/SRC/cla_porpvgrw.f index d60cfe622a..c20d9c58ad 100644 --- a/SRC/cla_porpvgrw.f +++ b/SRC/cla_porpvgrw.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -28,14 +28,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ) * REAL WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cla_syamv.f b/SRC/cla_syamv.f index cff3143ff8..6f7de9bd78 100644 --- a/SRC/cla_syamv.f +++ b/SRC/cla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_syrcond_c.f b/SRC/cla_syrcond_c.f index 0ad1cff936..97db726368 100644 --- a/SRC/cla_syrcond_c.f +++ b/SRC/cla_syrcond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_syrcond_x.f b/SRC/cla_syrcond_x.f index a390c52e0e..767dac6989 100644 --- a/SRC/cla_syrcond_x.f +++ b/SRC/cla_syrcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_syrfsx_extended.f b/SRC/cla_syrfsx_extended.f index 1655f7cee7..b07972a596 100644 --- a/SRC/cla_syrfsx_extended.f +++ b/SRC/cla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cla_syrpvgrw.f b/SRC/cla_syrpvgrw.f index bdd541b723..8dbfc9107f 100644 --- a/SRC/cla_syrpvgrw.f +++ b/SRC/cla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * REAL WORK( * ) * INTEGER IPIV( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cla_wwaddw.f b/SRC/cla_wwaddw.f index 77e6842006..930a1ca766 100644 --- a/SRC/cla_wwaddw.f +++ b/SRC/cla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * COMPLEX X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clabrd.f b/SRC/clabrd.f index c0c21c72ab..f447238550 100644 --- a/SRC/clabrd.f +++ b/SRC/clabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacgv.f b/SRC/clacgv.f index 9604283068..0c6108732e 100644 --- a/SRC/clacgv.f +++ b/SRC/clacgv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACGV( N, X, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacn2.f b/SRC/clacn2.f index 6cdf82c122..616e22548d 100644 --- a/SRC/clacn2.f +++ b/SRC/clacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISAVE( 3 ) * COMPLEX V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,7 +70,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to CLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacon.f b/SRC/clacon.f index 5c63d5cc4d..766c640aae 100644 --- a/SRC/clacon.f +++ b/SRC/clacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACON( N, V, X, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX V( N ), X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -69,7 +69,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to CLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacp2.f b/SRC/clacp2.f index 444ba6bd37..ebd65cf98a 100644 --- a/SRC/clacp2.f +++ b/SRC/clacp2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -28,7 +28,7 @@ * REAL A( LDA, * ) * COMPLEX B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacpy.f b/SRC/clacpy.f index 7f1fddc436..962a4f9e28 100644 --- a/SRC/clacpy.f +++ b/SRC/clacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacrm.f b/SRC/clacrm.f index 8204920513..cd1aac28a7 100644 --- a/SRC/clacrm.f +++ b/SRC/clacrm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACRM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACRM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * REAL B( LDB, * ), RWORK( * ) * COMPLEX A( LDA, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clacrt.f b/SRC/clacrt.f index 2e19306a8e..12cd50c2f3 100644 --- a/SRC/clacrt.f +++ b/SRC/clacrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * COMPLEX C, S @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cladiv.f b/SRC/cladiv.f index 0d0ec666fc..034146d778 100644 --- a/SRC/cladiv.f +++ b/SRC/cladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * COMPLEX FUNCTION CLADIV( X, Y ) -* +* * .. Scalar Arguments .. * COMPLEX X, Y * .. -* +* * *> \par Purpose: * ============= @@ -52,10 +52,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claed0.f b/SRC/claed0.f index 6d6ed707ef..63cd436056 100644 --- a/SRC/claed0.f +++ b/SRC/claed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX Q( LDQ, * ), QSTORE( LDQS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claed7.f b/SRC/claed7.f index a42ee68170..ba0854adc9 100644 --- a/SRC/claed7.f +++ b/SRC/claed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, * GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, * $ TLVLS @@ -34,7 +34,7 @@ * REAL D( * ), GIVNUM( 2, * ), QSTORE( * ), RWORK( * ) * COMPLEX Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/claed8.f b/SRC/claed8.f index 3d7c69f925..46ff219844 100644 --- a/SRC/claed8.f +++ b/SRC/claed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, * Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, * GIVCOL, GIVNUM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ * REAL RHO @@ -33,7 +33,7 @@ * $ Z( * ) * COMPLEX Q( LDQ, * ), Q2( LDQ2, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -291,8 +291,8 @@ SUBROUTINE CLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/SRC/claein.f b/SRC/claein.f index ae7d8ee9b3..d4a9e2607a 100644 --- a/SRC/claein.f +++ b/SRC/claein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, * EPS3, SMLNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -31,7 +31,7 @@ * REAL RWORK( * ) * COMPLEX B( LDB, * ), H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claesy.f b/SRC/claesy.f index f155983962..18c59fd98d 100644 --- a/SRC/claesy.f +++ b/SRC/claesy.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAESY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAESY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) -* +* * .. Scalar Arguments .. * COMPLEX A, B, C, CS1, EVSCAL, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claev2.f b/SRC/claev2.f index dfdd965085..ec24f431a3 100644 --- a/SRC/claev2.f +++ b/SRC/claev2.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * REAL CS1, RT1, RT2 * COMPLEX A, B, C, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clag2z.f b/SRC/clag2z.f index c7b4a59e58..863e862a9a 100644 --- a/SRC/clag2z.f +++ b/SRC/clag2z.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAG2Z + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAG2Z + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clags2.f b/SRC/clags2.f index 0feb7e83ab..4ed268d19c 100644 --- a/SRC/clags2.f +++ b/SRC/clags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * REAL A1, A3, B1, B3, CSQ, CSU, CSV * COMPLEX A2, B2, SNQ, SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/clagtm.f b/SRC/clagtm.f index 05af7efbe4..f5aaf36a55 100644 --- a/SRC/clagtm.f +++ b/SRC/clagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clahqr.f b/SRC/clahqr.f index 10131a45d7..fac32d3df5 100644 --- a/SRC/clahqr.f +++ b/SRC/clahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -313,7 +313,7 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * * ITMAX is the total number of QR iterations allowed. * - ITMAX = 30 * MAX( 10, NH ) + ITMAX = 30 * MAX( 10, NH ) * * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works diff --git a/SRC/clahr2.f b/SRC/clahr2.f index 6aea5d7ce9..d185777ee4 100644 --- a/SRC/clahr2.f +++ b/SRC/clahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * .. Parameters .. COMPLEX ZERO, ONE - PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), + PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), $ ONE = ( 1.0E+0, 0.0E+0 ) ) * .. * .. Local Scalars .. @@ -226,10 +226,10 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Update I-th column of A - Y * V**H * - CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, Y(K+1,1), LDY, $ A( K+I-1, 1 ), LDA, ONE, A( K+1, I ), 1 ) - CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) * * Apply I - V * T**H * V**H to this column (call it b) from the * left, using the last column of T as workspace @@ -242,31 +242,31 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * w := V1**H * b1 * CALL CCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL CTRMV( 'Lower', 'Conjugate transpose', 'UNIT', + CALL CTRMV( 'Lower', 'Conjugate transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**H * b2 * - CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**H * w * - CALL CTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', + CALL CTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL CGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL CGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL CTRMV( 'Lower', 'NO TRANSPOSE', + CALL CTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL CAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -284,13 +284,13 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Compute Y(K+1:N,I) * - CALL CGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL CGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL CSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -298,7 +298,7 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute T(1:I,I) * CALL CSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL CTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL CTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -309,15 +309,15 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute Y(1:K,1:NB) * CALL CLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL CTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL CTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL CGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL CGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL CTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL CTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/SRC/claic1.f b/SRC/claic1.f index ac08e4161b..00209e950e 100644 --- a/SRC/claic1.f +++ b/SRC/claic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * REAL SEST, SESTPR @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clals0.f b/SRC/clals0.f index 78f18e9eda..ef8d66df29 100644 --- a/SRC/clals0.f +++ b/SRC/clals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -34,7 +34,7 @@ * $ RWORK( * ), Z( * ) * COMPLEX B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/clalsa.f b/SRC/clalsa.f index 86700c339e..3fd5219ba9 100644 --- a/SRC/clalsa.f +++ b/SRC/clalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -35,7 +35,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), Z( LDU, * ) * COMPLEX B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clalsd.f b/SRC/clalsd.f index bca5ee93fc..29e93682dc 100644 --- a/SRC/clalsd.f +++ b/SRC/clalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -31,7 +31,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clangb.f b/SRC/clangb.f index d3cc426ece..444d125044 100644 --- a/SRC/clangb.f +++ b/SRC/clangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clange.f b/SRC/clange.f index d5efdc814c..689654fe37 100644 --- a/SRC/clange.f +++ b/SRC/clange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clangt.f b/SRC/clangt.f index ff2677d98a..2dd5c8aa13 100644 --- a/SRC/clangt.f +++ b/SRC/clangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/SRC/clanhb.f b/SRC/clanhb.f index 4ee7209b7e..d3b9563301 100644 --- a/SRC/clanhb.f +++ b/SRC/clanhb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -179,7 +179,7 @@ REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, DO 20 J = 1, N DO 10 I = MAX( K+2-J, 1 ), K SUM = ABS( AB( I, J ) ) - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 10 CONTINUE SUM = ABS( REAL( AB( K+1, J ) ) ) IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM diff --git a/SRC/clanhe.f b/SRC/clanhe.f index f1fc16dd1d..00915d2a98 100644 --- a/SRC/clanhe.f +++ b/SRC/clanhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clanhf.f b/SRC/clanhf.f index 3bd7eb146a..44c8280561 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( 0: * ) * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -339,11 +339,11 @@ REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) J = 0 * -> L(0,0) TEMP = ABS( REAL( A( J+J*LDA ) ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP DO I = 1, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO DO J = 1, K - 1 @@ -726,7 +726,7 @@ REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE diff --git a/SRC/clanhp.f b/SRC/clanhp.f index a0a0d0778d..e9612e37c1 100644 --- a/SRC/clanhp.f +++ b/SRC/clanhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clanhs.f b/SRC/clanhs.f index 8701cdbb5a..feaae1ddde 100644 --- a/SRC/clanhs.f +++ b/SRC/clanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clanht.f b/SRC/clanht.f index 28764a7e05..f57a3aa4fc 100644 --- a/SRC/clanht.f +++ b/SRC/clanht.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHT( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -28,7 +28,7 @@ * REAL D( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clansb.f b/SRC/clansb.f index be006e5bb6..f44d6d8b79 100644 --- a/SRC/clansb.f +++ b/SRC/clansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clansp.f b/SRC/clansp.f index c8c87b4785..3d5f4dc4ab 100644 --- a/SRC/clansp.f +++ b/SRC/clansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clansy.f b/SRC/clansy.f index acef655b85..bdbcebfe1f 100644 --- a/SRC/clansy.f +++ b/SRC/clansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/clantb.f b/SRC/clantb.f index cfc447fd7d..d47cc46a4f 100644 --- a/SRC/clantb.f +++ b/SRC/clantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -238,7 +238,7 @@ REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, SUM = SUM + ABS( AB( I, J ) ) 100 CONTINUE END IF - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 110 CONTINUE ELSE DO 140 J = 1, N diff --git a/SRC/clantp.f b/SRC/clantp.f index f1c26dcab3..9e99e1e4a5 100644 --- a/SRC/clantp.f +++ b/SRC/clantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clantr.f b/SRC/clantr.f index b728e1ba8a..8de17db17e 100644 --- a/SRC/clantr.f +++ b/SRC/clantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clapll.f b/SRC/clapll.f index 58df00be51..535e8afcde 100644 --- a/SRC/clapll.f +++ b/SRC/clapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clapmr.f b/SRC/clapmr.f index c4f8ca6eae..1b3a16ab64 100644 --- a/SRC/clapmr.f +++ b/SRC/clapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clapmt.f b/SRC/clapmt.f index fca8606d9d..8ae2e07936 100644 --- a/SRC/clapmt.f +++ b/SRC/clapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqgb.f b/SRC/claqgb.f index 76f5ad765a..fe75936ed2 100644 --- a/SRC/claqgb.f +++ b/SRC/claqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -30,7 +30,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqge.f b/SRC/claqge.f index af73c363b7..0da019091a 100644 --- a/SRC/claqge.f +++ b/SRC/claqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -30,7 +30,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqhb.f b/SRC/claqhb.f index 6703a73373..b6bb59c604 100644 --- a/SRC/claqhb.f +++ b/SRC/claqhb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqhe.f b/SRC/claqhe.f index aac9891a26..ea8acb3a6c 100644 --- a/SRC/claqhe.f +++ b/SRC/claqhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqhp.f b/SRC/claqhp.f index 2f2ca428e3..2f88e0909d 100644 --- a/SRC/claqhp.f +++ b/SRC/claqhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqp2.f b/SRC/claqp2.f index 06b06e07e3..970ee4aad7 100644 --- a/SRC/claqp2.f +++ b/SRC/claqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * REAL VN1( * ), VN2( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,7 +67,7 @@ *> \verbatim *> A is COMPLEX array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is *> the triangular factor obtained; the elements in block *> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/SRC/claqps.f b/SRC/claqps.f index a1b183616f..6dcf3ed16f 100644 --- a/SRC/claqps.f +++ b/SRC/claqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * REAL VN1( * ), VN2( * ) * COMPLEX A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -171,8 +171,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -355,9 +355,9 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = SCNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/SRC/claqr0.f b/SRC/claqr0.f index cf97579c69..a5e7fc7809 100644 --- a/SRC/claqr0.f +++ b/SRC/claqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqr1.f b/SRC/claqr1.f index 129201d1d4..0f710f3338 100644 --- a/SRC/claqr1.f +++ b/SRC/claqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) -* +* * .. Scalar Arguments .. * COMPLEX S1, S2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqr2.f b/SRC/claqr2.f index d7015b5560..a1042898b2 100644 --- a/SRC/claqr2.f +++ b/SRC/claqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqr3.f b/SRC/claqr3.f index f3ee410bad..5ee3138c55 100644 --- a/SRC/claqr3.f +++ b/SRC/claqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/claqr4.f b/SRC/claqr4.f index 80db6a2963..9091c855b4 100644 --- a/SRC/claqr4.f +++ b/SRC/claqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 22e55def5f..e00cd4084b 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, * H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, * WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), S( * ), U( LDU, * ), V( LDV, * ), * $ WH( LDWH, * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/claqsb.f b/SRC/claqsb.f index 09c5eae842..8e55732b04 100644 --- a/SRC/claqsb.f +++ b/SRC/claqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqsp.f b/SRC/claqsp.f index 6b9a3498ad..7940c30078 100644 --- a/SRC/claqsp.f +++ b/SRC/claqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claqsy.f b/SRC/claqsy.f index 6e31e1aa69..316d417a5d 100644 --- a/SRC/claqsy.f +++ b/SRC/claqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clar1v.f b/SRC/clar1v.f index c8583735ad..8782104142 100644 --- a/SRC/clar1v.f +++ b/SRC/clar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * COMPLEX Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clar2v.f b/SRC/clar2v.f index d17158aeb0..7a5fc9cd18 100644 --- a/SRC/clar2v.f +++ b/SRC/clar2v.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarcm.f b/SRC/clarcm.f index 63038ec2da..5ad15a83b5 100644 --- a/SRC/clarcm.f +++ b/SRC/clarcm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARCM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARCM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), RWORK( * ) * COMPLEX B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/clarf.f b/SRC/clarf.f index f075b34690..38269038c1 100644 --- a/SRC/clarf.f +++ b/SRC/clarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarfb.f b/SRC/clarfb.f index 19d7b81ca1..16a480d02b 100644 --- a/SRC/clarfb.f +++ b/SRC/clarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/SRC/clarfg.f b/SRC/clarfg.f index e63f0582ca..e2e7cdd6c7 100644 --- a/SRC/clarfg.f +++ b/SRC/clarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarfgp.f b/SRC/clarfgp.f index bdcf8a78ef..e155453fcf 100644 --- a/SRC/clarfgp.f +++ b/SRC/clarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -222,7 +222,7 @@ SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO (or TWO or whatever makes a nonnegative real number for BETA). * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -249,7 +249,7 @@ SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) BETA = XNORM END IF * - ELSE + ELSE * * This is the general case. * diff --git a/SRC/clarft.f b/SRC/clarft.f index 681897dcaa..d65fbfa957 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -222,13 +222,13 @@ SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**H * V(i:j,i) * CALL CGEMV( 'Conjugate transpose', J-I, I-1, - $ -TAU( I ), V( I+1, 1 ), LDV, + $ -TAU( I ), V( I+1, 1 ), LDV, $ V( I+1, I ), 1, $ ONE, T( 1, I ), 1 ) ELSE @@ -238,14 +238,14 @@ SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H * CALL CGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ), $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, - $ ONE, T( 1, I ), LDT ) + $ ONE, T( 1, I ), LDT ) END IF * * T(1:i-1,i) := T(1:i-1,1:i-1) * T(1:i-1,i) @@ -282,7 +282,7 @@ SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i) @@ -297,14 +297,14 @@ SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H * CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ), $ V( I+1, J ), LDV, V( I, J ), LDV, - $ ONE, T( I+1, I ), LDT ) + $ ONE, T( I+1, I ), LDT ) END IF * * T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i) diff --git a/SRC/clarfx.f b/SRC/clarfx.f index c05823ce5a..7d3b06e059 100644 --- a/SRC/clarfx.f +++ b/SRC/clarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clargv.f b/SRC/clargv.f index 425a30c1eb..d409b4ba55 100644 --- a/SRC/clargv.f +++ b/SRC/clargv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarnv.f b/SRC/clarnv.f index 98ffe29ab2..26d36c8c71 100644 --- a/SRC/clarnv.f +++ b/SRC/clarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarrv.f b/SRC/clarrv.f index 31f374cb8d..9e78220ed2 100644 --- a/SRC/clarrv.f +++ b/SRC/clarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * REAL MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/clarscl2.f b/SRC/clarscl2.f index 77876771f8..90991b9bc8 100644 --- a/SRC/clarscl2.f +++ b/SRC/clarscl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * COMPLEX X( LDX, * ) * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/clartg.f b/SRC/clartg.f index cfff122a19..0003ed1aa2 100644 --- a/SRC/clartg.f +++ b/SRC/clartg.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS * COMPLEX F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/clartv.f b/SRC/clartv.f index 843ed4447c..2f01db24ab 100644 --- a/SRC/clartv.f +++ b/SRC/clartv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarz.f b/SRC/clarz.f index 4ab0477353..7d8340535c 100644 --- a/SRC/clarz.f +++ b/SRC/clarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarzb.f b/SRC/clarzb.f index d6c9ef30b9..9c6c81f98a 100644 --- a/SRC/clarzb.f +++ b/SRC/clarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clarzt.f b/SRC/clarzt.f index 65e8683038..748a8c18d9 100644 --- a/SRC/clarzt.f +++ b/SRC/clarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clascl.f b/SRC/clascl.f index 776d6cd32f..6283b7cb2c 100644 --- a/SRC/clascl.f +++ b/SRC/clascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/clascl2.f b/SRC/clascl2.f index 01fbe6980a..5e272f0205 100644 --- a/SRC/clascl2.f +++ b/SRC/clascl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/claset.f b/SRC/claset.f index e12cda8667..0451d4837d 100644 --- a/SRC/claset.f +++ b/SRC/claset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/clasr.f b/SRC/clasr.f index 7b5daf1d96..a9a51de92f 100644 --- a/SRC/clasr.f +++ b/SRC/clasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * REAL C( * ), S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -49,23 +49,23 @@ *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -74,13 +74,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -89,12 +89,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -103,7 +103,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/classq.f b/SRC/classq.f index 0c0fd20622..fe85a6b5b8 100644 --- a/SRC/classq.f +++ b/SRC/classq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/claswp.f b/SRC/claswp.f index 90a2565bbc..7c347781df 100644 --- a/SRC/claswp.f +++ b/SRC/claswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clatbs.f b/SRC/clatbs.f index 223aa26065..df7c7d7b1d 100644 --- a/SRC/clatbs.f +++ b/SRC/clatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX AB( LDAB, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clatdf.f b/SRC/clatdf.f index ff56cdeb85..c29f1fad1c 100644 --- a/SRC/clatdf.f +++ b/SRC/clatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * REAL RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/clatps.f b/SRC/clatps.f index fbda438d6b..34ffebfc61 100644 --- a/SRC/clatps.f +++ b/SRC/clatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clatrd.f b/SRC/clatrd.f index 9d45668ee1..d5a7495635 100644 --- a/SRC/clatrd.f +++ b/SRC/clatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -28,7 +28,7 @@ * REAL E( * ) * COMPLEX A( LDA, * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clatrs.f b/SRC/clatrs.f index a3f8df3512..5e0d4c9ab1 100644 --- a/SRC/clatrs.f +++ b/SRC/clatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clatrz.f b/SRC/clatrz.f index afdfc9a13f..226f22580f 100644 --- a/SRC/clatrz.f +++ b/SRC/clatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clauu2.f b/SRC/clauu2.f index 0e0830b2db..f8954c67f8 100644 --- a/SRC/clauu2.f +++ b/SRC/clauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/clauum.f b/SRC/clauum.f index 9e12e25d5f..96d73c3b36 100644 --- a/SRC/clauum.f +++ b/SRC/clauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpbcon.f b/SRC/cpbcon.f index 17f2f6c23a..363853088e 100644 --- a/SRC/cpbcon.f +++ b/SRC/cpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbequ.f b/SRC/cpbequ.f index 5724553b1b..2bdee8c2f7 100644 --- a/SRC/cpbequ.f +++ b/SRC/cpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbrfs.f b/SRC/cpbrfs.f index c86a6a467c..600939967a 100644 --- a/SRC/cpbrfs.f +++ b/SRC/cpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbstf.f b/SRC/cpbstf.f index 4ffc862139..f040d4a3a2 100644 --- a/SRC/cpbstf.f +++ b/SRC/cpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbsv.f b/SRC/cpbsv.f index 4ca0238dc2..f4ebaea150 100644 --- a/SRC/cpbsv.f +++ b/SRC/cpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbsvx.f b/SRC/cpbsvx.f index 53f4469719..2d4abba404 100644 --- a/SRC/cpbsvx.f +++ b/SRC/cpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -296,10 +296,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cpbtf2.f b/SRC/cpbtf2.f index 502f6e04db..035a7557d9 100644 --- a/SRC/cpbtf2.f +++ b/SRC/cpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpbtrf.f b/SRC/cpbtrf.f index 729374e651..55e9c82911 100644 --- a/SRC/cpbtrf.f +++ b/SRC/cpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpbtrs.f b/SRC/cpbtrs.f index 67a1fd8652..7b98fd5aa1 100644 --- a/SRC/cpbtrs.f +++ b/SRC/cpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpftrf.f b/SRC/cpftrf.f index ce1803d7a4..a0451d87f8 100644 --- a/SRC/cpftrf.f +++ b/SRC/cpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * COMPLEX A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpftri.f b/SRC/cpftri.f index e6ad0d01c0..a574d398a7 100644 --- a/SRC/cpftri.f +++ b/SRC/cpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpftrs.f b/SRC/cpftrs.f index e0abb2b5bb..7d1b66c542 100644 --- a/SRC/cpftrs.f +++ b/SRC/cpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpocon.f b/SRC/cpocon.f index ad8d65882c..ad706f9784 100644 --- a/SRC/cpocon.f +++ b/SRC/cpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpoequ.f b/SRC/cpoequ.f index cf9101eafe..c5fe176f98 100644 --- a/SRC/cpoequ.f +++ b/SRC/cpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpoequb.f b/SRC/cpoequb.f index d7cb961a10..e0f474200d 100644 --- a/SRC/cpoequb.f +++ b/SRC/cpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cporfs.f b/SRC/cporfs.f index e296cf04c2..24e37cde3f 100644 --- a/SRC/cporfs.f +++ b/SRC/cporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cporfsx.f b/SRC/cporfsx.f index f1d90786e4..3395ab6512 100644 --- a/SRC/cporfsx.f +++ b/SRC/cporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cposv.f b/SRC/cposv.f index 68acf218fc..ed9039500c 100644 --- a/SRC/cposv.f +++ b/SRC/cposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cposvx.f b/SRC/cposvx.f index ee1015905c..636312f2fa 100644 --- a/SRC/cposvx.f +++ b/SRC/cposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cposvxx.f b/SRC/cposvxx.f index 6b985e2355..973060d05e 100644 --- a/SRC/cposvxx.f +++ b/SRC/cposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -481,10 +481,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cpotf2.f b/SRC/cpotf2.f index cbab9f5a51..f4009433c3 100644 --- a/SRC/cpotf2.f +++ b/SRC/cpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpotrf.f b/SRC/cpotrf.f index dcb61f6134..b8b5845792 100644 --- a/SRC/cpotrf.f +++ b/SRC/cpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cpotrf2.f b/SRC/cpotrf2.f index dfd06fa9ed..da53087d56 100644 --- a/SRC/cpotrf2.f +++ b/SRC/cpotrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,7 +41,7 @@ *> *> The subroutine calls itself to factor A11. Update and scale A21 *> or A12, update A22 then calls itself to factor A22. -*> +*> *> \endverbatim * * Arguments: @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -128,7 +128,7 @@ RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) PARAMETER ( CONE = (1.0E+0, 0.0E+0) ) * .. * .. Local Scalars .. - LOGICAL UPPER + LOGICAL UPPER INTEGER N1, N2, IINFO REAL AJJ * .. @@ -193,7 +193,7 @@ RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) IF ( IINFO.NE.0 ) THEN INFO = IINFO RETURN - END IF + END IF * * Compute the Cholesky factorization A = U**H*U * @@ -205,7 +205,7 @@ RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) * * Update and factor A22 -* +* CALL CHERK( UPLO, 'C', N2, N1, -ONE, A( 1, N1+1 ), LDA, $ ONE, A( N1+1, N1+1 ), LDA ) * diff --git a/SRC/cpotri.f b/SRC/cpotri.f index 0101bd5746..300c8c4b5a 100644 --- a/SRC/cpotri.f +++ b/SRC/cpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpotrs.f b/SRC/cpotrs.f index 6d5566e34c..f03926f5c6 100644 --- a/SRC/cpotrs.f +++ b/SRC/cpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,7 +35,7 @@ *> \verbatim *> *> CPOTRS solves a system of linear equations A*X = B with a Hermitian -*> positive definite matrix A using the Cholesky factorization +*> positive definite matrix A using the Cholesky factorization *> A = U**H*U or A = L*L**H computed by CPOTRF. *> \endverbatim * @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cppcon.f b/SRC/cppcon.f index e4c48e9802..ebac5a0dc6 100644 --- a/SRC/cppcon.f +++ b/SRC/cppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,14 +29,14 @@ * REAL RWORK( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CPPCON estimates the reciprocal of the condition number (in the +*> CPPCON estimates the reciprocal of the condition number (in the *> 1-norm) of a complex Hermitian positive definite packed matrix using *> the Cholesky factorization A = U**H*U or A = L*L**H computed by *> CPPTRF. @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cppequ.f b/SRC/cppequ.f index af8444ca64..a98975f50f 100644 --- a/SRC/cppequ.f +++ b/SRC/cppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpprfs.f b/SRC/cpprfs.f index 90af0272a7..53ba22d0a4 100644 --- a/SRC/cpprfs.f +++ b/SRC/cpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cppsv.f b/SRC/cppsv.f index a0b53c7003..fbd2f1175a 100644 --- a/SRC/cppsv.f +++ b/SRC/cppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cppsvx.f b/SRC/cppsvx.f index b653584b91..ace1360335 100644 --- a/SRC/cppsvx.f +++ b/SRC/cppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cpptrf.f b/SRC/cpptrf.f index ea1a4e5db3..d814bc1aff 100644 --- a/SRC/cpptrf.f +++ b/SRC/cpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpptri.f b/SRC/cpptri.f index 706fac69a6..489eb83727 100644 --- a/SRC/cpptri.f +++ b/SRC/cpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpptrs.f b/SRC/cpptrs.f index 94e623c0d8..f2fcb24897 100644 --- a/SRC/cpptrs.f +++ b/SRC/cpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cpstf2.f b/SRC/cpstf2.f index 1c298eab0d..027e466149 100644 --- a/SRC/cpstf2.f +++ b/SRC/cpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * REAL WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -252,7 +252,7 @@ SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) DO 130 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ REAL( CONJG( A( J-1, I ) )* $ A( J-1, I ) ) END IF @@ -324,7 +324,7 @@ SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) DO 160 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ REAL( CONJG( A( I, J-1 ) )* $ A( I, J-1 ) ) END IF diff --git a/SRC/cpstrf.f b/SRC/cpstrf.f index 0b4897ca7e..1575549f15 100644 --- a/SRC/cpstrf.f +++ b/SRC/cpstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * REAL WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cptcon.f b/SRC/cptcon.f index 48897538e6..f7e4530170 100644 --- a/SRC/cptcon.f +++ b/SRC/cptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL ANORM, RCOND @@ -28,7 +28,7 @@ * REAL D( * ), RWORK( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpteqr.f b/SRC/cpteqr.f index c6e6ce6c7a..2858b77abb 100644 --- a/SRC/cpteqr.f +++ b/SRC/cpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cptrfs.f b/SRC/cptrfs.f index a8b5b9839b..d5d7dad16f 100644 --- a/SRC/cptrfs.f +++ b/SRC/cptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cptsv.f b/SRC/cptsv.f index 0c2ca5f9d7..5f86e6df3a 100644 --- a/SRC/cptsv.f +++ b/SRC/cptsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cptsvx.f b/SRC/cptsvx.f index c7107cf50a..0f79615442 100644 --- a/SRC/cptsvx.f +++ b/SRC/cptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpttrf.f b/SRC/cpttrf.f index 3130ce0045..d23684fa79 100644 --- a/SRC/cpttrf.f +++ b/SRC/cpttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cpttrs.f b/SRC/cpttrs.f index 68f650e029..dc0441211e 100644 --- a/SRC/cpttrs.f +++ b/SRC/cpttrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cptts2.f b/SRC/cptts2.f index c545b8fec5..41d405248e 100644 --- a/SRC/cptts2.f +++ b/SRC/cptts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER IUPLO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/crot.f b/SRC/crot.f index 59b2d4ae6d..7ea5a86aed 100644 --- a/SRC/crot.f +++ b/SRC/crot.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CROT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CROT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL C @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cspcon.f b/SRC/cspcon.f index 841040b1bb..32b4666549 100644 --- a/SRC/cspcon.f +++ b/SRC/cspcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cspmv.f b/SRC/cspmv.f index ea74107def..d594a66cbe 100644 --- a/SRC/cspmv.f +++ b/SRC/cspmv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cspr.f b/SRC/cspr.f index eeaa21dfb7..af29557212 100644 --- a/SRC/cspr.f +++ b/SRC/cspr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/csprfs.f b/SRC/csprfs.f index 92b84b112c..2b0ccf5647 100644 --- a/SRC/csprfs.f +++ b/SRC/csprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cspsv.f b/SRC/cspsv.f index 521e90672d..f1d65a80e3 100644 --- a/SRC/cspsv.f +++ b/SRC/cspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cspsvx.f b/SRC/cspsvx.f index d81ad0cfd3..a5709d17ff 100644 --- a/SRC/cspsvx.f +++ b/SRC/cspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csptrf.f b/SRC/csptrf.f index dd7921afb8..d87b327446 100644 --- a/SRC/csptrf.f +++ b/SRC/csptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csptri.f b/SRC/csptri.f index 66a5d1d0d6..4e3317b1a0 100644 --- a/SRC/csptri.f +++ b/SRC/csptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csptrs.f b/SRC/csptrs.f index b1dd48c86e..5149e76339 100644 --- a/SRC/csptrs.f +++ b/SRC/csptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csrscl.f b/SRC/csrscl.f index 13b5cda137..13d5545dd7 100644 --- a/SRC/csrscl.f +++ b/SRC/csrscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cstedc.f b/SRC/cstedc.f index b21623a7a2..d00695beb1 100644 --- a/SRC/cstedc.f +++ b/SRC/cstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -193,10 +193,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cstegr.f b/SRC/cstegr.f index aaecf36dd2..5214143086 100644 --- a/SRC/cstegr.f +++ b/SRC/cstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/cstein.f b/SRC/cstein.f index 2e68302458..f39f50bf93 100644 --- a/SRC/cstein.f +++ b/SRC/cstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cstemr.f b/SRC/cstemr.f index 90f050ad74..605ad1e531 100644 --- a/SRC/cstemr.f +++ b/SRC/cstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/csteqr.f b/SRC/csteqr.f index 2c44111589..8303e7924d 100644 --- a/SRC/csteqr.f +++ b/SRC/csteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csycon.f b/SRC/csycon.f index 4888998b1d..9c23a19538 100644 --- a/SRC/csycon.f +++ b/SRC/csycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csycon_rook.f b/SRC/csycon_rook.f index 217bae176f..211b787c37 100644 --- a/SRC/csycon_rook.f +++ b/SRC/csycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csyconv.f b/SRC/csyconv.f index 654ab188fa..2c5dc78560 100644 --- a/SRC/csyconv.f +++ b/SRC/csyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> CSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -194,7 +194,7 @@ SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -226,7 +226,7 @@ SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/csyequb.f b/SRC/csyequb.f index d640961c47..d92ee47202 100644 --- a/SRC/csyequb.f +++ b/SRC/csyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), WORK( * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csymv.f b/SRC/csymv.f index 6131e80605..c01de10fdc 100644 --- a/SRC/csymv.f +++ b/SRC/csymv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/csyr.f b/SRC/csyr.f index b82b9bd32f..3017aa6eac 100644 --- a/SRC/csyr.f +++ b/SRC/csyr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/csyrfs.f b/SRC/csyrfs.f index 13403d5a81..e7afd4f3f6 100644 --- a/SRC/csyrfs.f +++ b/SRC/csyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f index 1625d4fa17..b85bfef84e 100644 --- a/SRC/csyrfsx.f +++ b/SRC/csyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csysv.f b/SRC/csysv.f index 2634246bc6..17a19482e0 100644 --- a/SRC/csysv.f +++ b/SRC/csysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csysv_rook.f b/SRC/csysv_rook.f index 2e613628ae..0916900789 100644 --- a/SRC/csysv_rook.f +++ b/SRC/csysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,13 +47,13 @@ *> A = L * D * L**T, if UPLO = 'L', *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and D is symmetric and block diagonal with -*> 1-by-1 and 2-by-2 diagonal blocks. +*> 1-by-1 and 2-by-2 diagonal blocks. *> *> CSYTRF_ROOK is called to compute the factorization of a complex *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling CSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> CSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csysvx.f b/SRC/csysvx.f index 0a1c5c7d10..3cb71a618b 100644 --- a/SRC/csysvx.f +++ b/SRC/csysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index 6d57ff879e..a0988ea826 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -494,10 +494,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/csyswapr.f b/SRC/csyswapr.f index 727dd363ef..a813cd42c6 100644 --- a/SRC/csyswapr.f +++ b/SRC/csyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -136,12 +136,12 @@ SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL CSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL CSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/SRC/csytf2.f b/SRC/csytf2.f index b7dc56f604..b4a80a2590 100644 --- a/SRC/csytf2.f +++ b/SRC/csytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/csytrf.f b/SRC/csytrf.f index 86325829cd..960dae7ea3 100644 --- a/SRC/csytrf.f +++ b/SRC/csytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csytrf_rook.f b/SRC/csytrf_rook.f index 139569f9b8..734e1094be 100644 --- a/SRC/csytrf_rook.f +++ b/SRC/csytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -321,7 +321,7 @@ SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/SRC/csytri.f b/SRC/csytri.f index 43de3c63a5..60b151808e 100644 --- a/SRC/csytri.f +++ b/SRC/csytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csytri2.f b/SRC/csytri2.f index 4585dd1379..4296fd63b2 100644 --- a/SRC/csytri2.f +++ b/SRC/csytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/csytri2x.f b/SRC/csytri2x.f index 75b3c31130..6c5741a267 100644 --- a/SRC/csytri2x.f +++ b/SRC/csytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -229,7 +229,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -246,8 +246,8 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -263,7 +263,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -273,7 +273,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -336,7 +336,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL CTRMM('L','U','T','U',NNB, NNB, @@ -380,7 +380,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL CSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL CSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL CTRMM('L',UPLO,'T','U',NNB, NNB, @@ -525,7 +525,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL CGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -563,7 +563,7 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/csytri_rook.f b/SRC/csytri_rook.f index b11b09f7a7..21271ebb3c 100644 --- a/SRC/csytri_rook.f +++ b/SRC/csytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -301,7 +301,7 @@ SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) IF( KP.GT.1 ) $ CALL CSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -392,7 +392,7 @@ SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) $ CDOTU( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/SRC/csytrs.f b/SRC/csytrs.f index de23f4f18b..83808ae1a6 100644 --- a/SRC/csytrs.f +++ b/SRC/csytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/csytrs2.f b/SRC/csytrs2.f index 11d94f3445..ab2ca687d8 100644 --- a/SRC/csytrs2.f +++ b/SRC/csytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,17 +119,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * *> \ingroup complexSYcomputational * * ===================================================================== - SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.6.0) -- @@ -200,7 +200,7 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -225,7 +225,7 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -277,7 +277,7 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -302,7 +302,7 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -324,7 +324,7 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL CTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/SRC/csytrs_rook.f b/SRC/csytrs_rook.f index da4e5275e9..2d3c8d3dc0 100644 --- a/SRC/csytrs_rook.f +++ b/SRC/csytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ctbcon.f b/SRC/ctbcon.f index a54aecd7ba..4f493e9099 100644 --- a/SRC/ctbcon.f +++ b/SRC/ctbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctbrfs.f b/SRC/ctbrfs.f index 44a3dc4185..caf4b10046 100644 --- a/SRC/ctbrfs.f +++ b/SRC/ctbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctbtrs.f b/SRC/ctbtrs.f index 9581431c9c..96cb014501 100644 --- a/SRC/ctbtrs.f +++ b/SRC/ctbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctfsm.f b/SRC/ctfsm.f index 3da0087c7a..eec18d2cf0 100644 --- a/SRC/ctfsm.f +++ b/SRC/ctfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctftri.f b/SRC/ctftri.f index 740c79cd45..7839715fb8 100644 --- a/SRC/ctftri.f +++ b/SRC/ctftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctfttp.f b/SRC/ctfttp.f index da5e810122..3b55e53743 100644 --- a/SRC/ctfttp.f +++ b/SRC/ctfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctfttr.f b/SRC/ctfttr.f index 295c206a16..843b2f3b51 100644 --- a/SRC/ctfttr.f +++ b/SRC/ctfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctgevc.f b/SRC/ctgevc.f index 86b833c8cb..4f5c196164 100644 --- a/SRC/ctgevc.f +++ b/SRC/ctgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -31,8 +31,8 @@ * COMPLEX P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -43,20 +43,20 @@ *> a pair of complex matrices (S,P), where S and P are upper triangular. *> Matrix pairs of this type are produced by the generalized Schur *> factorization of a complex matrix pair (A,B): -*> +*> *> A = Q*S*Z**H, B = Q*P*Z**H -*> +*> *> as computed by CGGHRD + CHGEQZ. -*> +*> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal elements of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f index 51be304291..9dff27071c 100644 --- a/SRC/ctgex2.f +++ b/SRC/ctgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -266,7 +266,7 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/SRC/ctgexc.f b/SRC/ctgexc.f index 08b84fc8cf..8f45e0a529 100644 --- a/SRC/ctgexc.f +++ b/SRC/ctgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f index 3de430bf1d..82e97ef687 100644 --- a/SRC/ctgsen.f +++ b/SRC/ctgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, * WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), Q( LDQ, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -471,7 +471,7 @@ SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, INTEGER ISAVE( 3 ) * .. * .. External Subroutines .. - REAL SLAMCH + REAL SLAMCH EXTERNAL CLACN2, CLACPY, CLASSQ, CSCAL, CTGEXC, CTGSYL, $ SLAMCH, XERBLA * .. @@ -750,7 +750,7 @@ SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, END IF * * If B(K,K) is complex, make it real and positive (normalization -* of the generalized Schur form) and Store the generalized +* of the generalized Schur form) and Store the generalized * eigenvalues of reordered pair (A, B) * DO 60 K = 1, N diff --git a/SRC/ctgsja.f b/SRC/ctgsja.f index 6c04c3a198..99831a280c 100644 --- a/SRC/ctgsja.f +++ b/SRC/ctgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctgsna.f b/SRC/ctgsna.f index 1299948698..470f49c81d 100644 --- a/SRC/ctgsna.f +++ b/SRC/ctgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f index fe1208816e..e645ab41f5 100644 --- a/SRC/ctgsy2.f +++ b/SRC/ctgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ctgsyl.f b/SRC/ctgsyl.f index 49c4fedf68..64a5ec4c6b 100644 --- a/SRC/ctgsyl.f +++ b/SRC/ctgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctpcon.f b/SRC/ctpcon.f index f09fb1680b..8aa1f1d67b 100644 --- a/SRC/ctpcon.f +++ b/SRC/ctpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctpmqrt.f b/SRC/ctpmqrt.f index 08929b226c..94b0202c19 100644 --- a/SRC/ctpmqrt.f +++ b/SRC/ctpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPMQRT applies a complex orthogonal matrix Q obtained from a +*> CTPMQRT applies a complex orthogonal matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**H*C or C*Q or C*Q**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The complex orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-M+L-I+1 END IF - CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-N+L-I+1 END IF - CALL CTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL CTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL CTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, LB = MB-N+L-I+1 END IF CALL CTPRFB( 'R', 'C', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/SRC/ctpqrt.f b/SRC/ctpqrt.f index 4dc173f0b9..2d056bd963 100644 --- a/SRC/ctpqrt.f +++ b/SRC/ctpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPQRT computes a blocked QR factorization of a complex -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> CTPQRT computes a blocked QR factorization of a complex +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, LB = MB-M+L-I+1 END IF * - CALL CTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL CTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of CTPQRT * END diff --git a/SRC/ctpqrt2.f b/SRC/ctpqrt2.f index d5e278599f..58936f1488 100644 --- a/SRC/ctpqrt2.f +++ b/SRC/ctpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> CTPQRT2 computes a QR factorization of a complex "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**H @@ -227,7 +227,7 @@ SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) DO J = 1, N-I T( J, N ) = CONJG(A( I, I+J )) END DO - CALL CGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL CGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)**H * - ALPHA = -CONJG(T( I, 1 )) + ALPHA = -CONJG(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*CONJG(T( J, N )) END DO - CALL CGERC( P, N-I, ALPHA, B( 1, I ), 1, + CALL CGERC( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * * Rectangular part of B2 * - CALL CGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL CGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL CGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL CGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of CTPQRT2 * diff --git a/SRC/ctprfb.f b/SRC/ctprfb.f index fea50f94b2..86be01b645 100644 --- a/SRC/ctprfb.f +++ b/SRC/ctprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPRFB applies a complex "triangular-pentagonal" block reflector H or its -*> conjugate transpose H**H to a complex matrix C, which is composed of two +*> CTPRFB applies a complex "triangular-pentagonal" block reflector H or its +*> conjugate transpose H**H to a complex matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is COMPLEX array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**H*C or C*H or C*H**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -325,7 +325,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -339,34 +339,34 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL CTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -376,7 +376,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL CGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL CTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -386,7 +386,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -405,7 +405,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -413,20 +413,20 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL CTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -446,7 +446,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -460,7 +460,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * @@ -475,10 +475,10 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL CTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -486,16 +486,16 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL CGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -508,7 +508,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -527,7 +527,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -535,20 +535,20 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL CTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -568,7 +568,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -581,7 +581,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -592,12 +592,12 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL CTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL CGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL CGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL CGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -606,7 +606,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -617,7 +617,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL CGEMM( 'C', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL CTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -628,7 +628,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -656,7 +656,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ WORK, LDWORK ) CALL CGEMM( 'N', 'C', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -665,7 +665,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -674,10 +674,10 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL CGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL CTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -687,7 +687,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -700,7 +700,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -736,10 +736,10 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL CGEMM( 'C', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, + CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL CTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -747,7 +747,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -776,7 +776,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL CGEMM( 'N', 'C', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -784,7 +784,7 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -793,9 +793,9 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL CGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL CTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/SRC/ctprfs.f b/SRC/ctprfs.f index 6247489d66..f4f081eece 100644 --- a/SRC/ctprfs.f +++ b/SRC/ctprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -29,7 +29,7 @@ * REAL BERR( * ), FERR( * ), RWORK( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,7 +99,7 @@ *> \param[in] B *> \verbatim *> B is COMPLEX array, dimension (LDB,NRHS) -*> The right hand side matrix B. +*> The right hand side matrix B. *> \endverbatim *> *> \param[in] LDB @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctptri.f b/SRC/ctptri.f index cb940ac6e9..082f8d1c9d 100644 --- a/SRC/ctptri.f +++ b/SRC/ctptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctptrs.f b/SRC/ctptrs.f index e97d0d65f0..43d426752a 100644 --- a/SRC/ctptrs.f +++ b/SRC/ctptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctpttf.f b/SRC/ctpttf.f index 50cd1478eb..e9b28aa3a2 100644 --- a/SRC/ctpttf.f +++ b/SRC/ctpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * COMPLEX AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctpttr.f b/SRC/ctpttr.f index f5dacf4d71..6b20b8566e 100644 --- a/SRC/ctpttr.f +++ b/SRC/ctpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctrcon.f b/SRC/ctrcon.f index 20d25c4177..4d262cc6b3 100644 --- a/SRC/ctrcon.f +++ b/SRC/ctrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrevc.f b/SRC/ctrevc.f index ca51180720..79fd3c63e5 100644 --- a/SRC/ctrevc.f +++ b/SRC/ctrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -31,7 +31,7 @@ * COMPLEX T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,16 +42,16 @@ *> a complex upper triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a complex general matrix: A = Q*T*Q**H, as computed by CHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**H)*T = w*(y**H) -*> +*> *> where y**H denotes the conjugate transpose of the vector y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the unitary factor that reduces a matrix A to @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrevc3.f b/SRC/ctrevc3.f index 00d3b94644..279f147d08 100644 --- a/SRC/ctrevc3.f +++ b/SRC/ctrevc3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTREVC3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTREVC3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== diff --git a/SRC/ctrexc.f b/SRC/ctrexc.f index 7abfd2b463..1dccabe144 100644 --- a/SRC/ctrexc.f +++ b/SRC/ctrexc.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX Q( LDQ, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrrfs.f b/SRC/ctrrfs.f index 110ec4e366..82527462fa 100644 --- a/SRC/ctrrfs.f +++ b/SRC/ctrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrsen.f b/SRC/ctrsen.f index 034176aec6..f8dba7c5a0 100644 --- a/SRC/ctrsen.f +++ b/SRC/ctrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, * SEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LWORK, M, N @@ -30,7 +30,7 @@ * LOGICAL SELECT( * ) * COMPLEX Q( LDQ, * ), T( LDT, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrsna.f b/SRC/ctrsna.f index 53c34ba3a9..fb278fd74a 100644 --- a/SRC/ctrsna.f +++ b/SRC/ctrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * COMPLEX T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrsyl.f b/SRC/ctrsyl.f index 5b584826f9..1d6e1fd9a1 100644 --- a/SRC/ctrsyl.f +++ b/SRC/ctrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrti2.f b/SRC/ctrti2.f index c4203dbab0..e6fe27bba3 100644 --- a/SRC/ctrti2.f +++ b/SRC/ctrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctrtri.f b/SRC/ctrtri.f index 5631ae59c2..22d619c112 100644 --- a/SRC/ctrtri.f +++ b/SRC/ctrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrtrs.f b/SRC/ctrtrs.f index b7b505f817..36143fe6c8 100644 --- a/SRC/ctrtrs.f +++ b/SRC/ctrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f index 95a24ea682..7339de094e 100644 --- a/SRC/ctrttf.f +++ b/SRC/ctrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ctrttp.f b/SRC/ctrttp.f index 323ce03dfc..6d0d72cc10 100644 --- a/SRC/ctrttp.f +++ b/SRC/ctrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ctzrzf.f b/SRC/ctzrzf.f index 041a4c70e3..185564ae2f 100644 --- a/SRC/ctzrzf.f +++ b/SRC/ctzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/SRC/cunbdb.f b/SRC/cunbdb.f index 36c52d18f2..b1f8c1acbf 100644 --- a/SRC/cunbdb.f +++ b/SRC/cunbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -396,7 +396,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -427,7 +427,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, END IF X11(I,I) = ONE IF ( M-P .GT. I ) THEN - CALL CLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, + CALL CLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, $ TAUP2(I) ) ELSE IF ( M-P .EQ. I ) THEN CALL CLARFGP( M-P-I+1, X21(I,I), X21(I,I), 1, @@ -436,7 +436,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, X21(I,I) = ONE * IF ( Q .GT. I ) THEN - CALL CLARF( 'L', P-I+1, Q-I, X11(I,I), 1, + CALL CLARF( 'L', P-I+1, Q-I, X11(I,I), 1, $ CONJG(TAUP1(I)), X11(I,I+1), LDX11, WORK ) CALL CLARF( 'L', M-P-I+1, Q-I, X21(I,I), 1, $ CONJG(TAUP2(I)), X21(I,I+1), LDX21, WORK ) diff --git a/SRC/cunbdb1.f b/SRC/cunbdb1.f index 7d36547da9..283e7aed58 100644 --- a/SRC/cunbdb1.f +++ b/SRC/cunbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -307,7 +307,7 @@ SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, CALL CLARF( 'R', M-P-I, Q-I, X21(I,I+1), LDX21, TAUQ1(I), $ X21(I+1,I+1), LDX21, WORK(ILARF) ) CALL CLACGV( Q-I, X21(I,I+1), LDX21 ) - C = SQRT( SCNRM2( P-I, X11(I+1,I+1), 1 )**2 + C = SQRT( SCNRM2( P-I, X11(I+1,I+1), 1 )**2 $ + SCNRM2( M-P-I, X21(I+1,I+1), 1 )**2 ) PHI(I) = ATAN2( S, C ) CALL CUNBDB5( P-I, M-P-I, Q-I-1, X11(I+1,I+1), 1, diff --git a/SRC/cunbdb2.f b/SRC/cunbdb2.f index 6571befdee..bab81e345c 100644 --- a/SRC/cunbdb2.f +++ b/SRC/cunbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -282,7 +282,7 @@ SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL CSROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, $ S ) diff --git a/SRC/cunbdb3.f b/SRC/cunbdb3.f index 05eab91bec..9dce44de17 100644 --- a/SRC/cunbdb3.f +++ b/SRC/cunbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL CSROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, $ S ) diff --git a/SRC/cunbdb4.f b/SRC/cunbdb4.f index ce3a866055..09474f2f4d 100644 --- a/SRC/cunbdb4.f +++ b/SRC/cunbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * COMPLEX PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/cunbdb5.f b/SRC/cunbdb5.f index d3a7d1535e..afd51e6a89 100644 --- a/SRC/cunbdb5.f +++ b/SRC/cunbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, RETURN * * End of CUNBDB5 -* +* END diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f index 943e522496..bfa4bc83e5 100644 --- a/SRC/cunbdb6.f +++ b/SRC/cunbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -261,7 +261,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -306,7 +306,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, END IF * RETURN -* +* * End of CUNBDB6 * END diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 09c9b305ad..0560456df8 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, RWORK, LRWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -39,7 +39,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -303,10 +303,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -471,7 +471,7 @@ RECURSIVE SUBROUTINE CUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, IB22D = IB21E + MAX( 1, Q - 1 ) IB22E = IB22D + MAX( 1, Q ) IBBCSD = IB22E + MAX( 1, Q - 1 ) - CALL CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, + CALL CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ THETA, THETA, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, THETA, THETA, THETA, THETA, THETA, $ THETA, THETA, THETA, RWORK, -1, CHILDINFO ) @@ -621,7 +621,7 @@ RECURSIVE SUBROUTINE CUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/SRC/cuncsd2by1.f b/SRC/cuncsd2by1.f index 54b774b884..511a14f2ae 100644 --- a/SRC/cuncsd2by1.f +++ b/SRC/cuncsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNCSD2BY1 + dependencies @@ -22,7 +22,7 @@ * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -36,8 +36,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -54,7 +54,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The unitary matrices U1, U2, and V1 are P-by-P, *> (M-P)-by-(M-P), and Q-by-Q, respectively. C and S are R-by-R *> nonnegative diagonal matrices satisfying C^2 + S^2 = I, in which @@ -209,7 +209,7 @@ *> \verbatim *> LRWORK is INTEGER *> The dimension of the array RWORK. -*> +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the RWORK array, returns *> this value as the first entry of the work array, and no error @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -272,7 +272,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -558,16 +558,16 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL CUNGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -612,16 +612,16 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL CUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ RWORK(IPHI), V1T, LDV1T, CDUM, 1, U1, LDU1, U2, $ LDU2, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -667,16 +667,16 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL CUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, RWORK(IPHI), CDUM, 1, V1T, LDV1T, U2, LDU2, $ U1, LDU1, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -736,16 +736,16 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL CUNGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, RWORK(IPHI), U2, LDU2, U1, LDU1, CDUM, 1, $ V1T, LDV1T, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/SRC/cung2l.f b/SRC/cung2l.f index 7a8c235d1a..86048b624e 100644 --- a/SRC/cung2l.f +++ b/SRC/cung2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cung2r.f b/SRC/cung2r.f index 93196c4d3f..a764f32f3a 100644 --- a/SRC/cung2r.f +++ b/SRC/cung2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungbr.f b/SRC/cungbr.f index 8eb62b724d..fb6de56f2c 100644 --- a/SRC/cungbr.f +++ b/SRC/cungbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/cunghr.f b/SRC/cunghr.f index 5eb6b58d31..3d169b9a98 100644 --- a/SRC/cunghr.f +++ b/SRC/cunghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungl2.f b/SRC/cungl2.f index ab52342112..fe396b3d2b 100644 --- a/SRC/cungl2.f +++ b/SRC/cungl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunglq.f b/SRC/cunglq.f index c6a7cdd786..ccc5e89a48 100644 --- a/SRC/cunglq.f +++ b/SRC/cunglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungql.f b/SRC/cungql.f index 2da65467e4..fb3d50ed8d 100644 --- a/SRC/cungql.f +++ b/SRC/cungql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungqr.f b/SRC/cungqr.f index 8e1a3dfde0..1ce6cefbe6 100644 --- a/SRC/cungqr.f +++ b/SRC/cungqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungr2.f b/SRC/cungr2.f index 51e3a29b73..e62af03347 100644 --- a/SRC/cungr2.f +++ b/SRC/cungr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cungrq.f b/SRC/cungrq.f index 6c8005db42..f5ba5a6779 100644 --- a/SRC/cungrq.f +++ b/SRC/cungrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cungtr.f b/SRC/cungtr.f index 45a43df1c6..c0ccfa441a 100644 --- a/SRC/cungtr.f +++ b/SRC/cungtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cunm2l.f b/SRC/cunm2l.f index 09e3e54a62..b710c815ca 100644 --- a/SRC/cunm2l.f +++ b/SRC/cunm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunm2r.f b/SRC/cunm2r.f index 72eee72220..2a051f0ae6 100644 --- a/SRC/cunm2r.f +++ b/SRC/cunm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunmbr.f b/SRC/cunmbr.f index 2f6211528e..839cf8a17f 100644 --- a/SRC/cunmbr.f +++ b/SRC/cunmbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cunmhr.f b/SRC/cunmhr.f index 65e6b1e080..0ceff75a6b 100644 --- a/SRC/cunmhr.f +++ b/SRC/cunmhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cunml2.f b/SRC/cunml2.f index 06b03f6223..9ad84514ab 100644 --- a/SRC/cunml2.f +++ b/SRC/cunml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunmlq.f b/SRC/cunmlq.f index c5a5876292..6e51851bd4 100644 --- a/SRC/cunmlq.f +++ b/SRC/cunmlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -243,9 +243,9 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, END IF * IF( INFO.EQ.0 ) THEN -* +* * Compute the workspace requirements -* +* IF( M.EQ.0 .OR. N.EQ.0 .OR. K.EQ.0 ) THEN LWKOPT = 1 ELSE diff --git a/SRC/cunmql.f b/SRC/cunmql.f index 02f6aa46d3..dd56eba485 100644 --- a/SRC/cunmql.f +++ b/SRC/cunmql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cunmqr.f b/SRC/cunmqr.f index 2334dbc792..cf31490374 100644 --- a/SRC/cunmqr.f +++ b/SRC/cunmqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cunmr2.f b/SRC/cunmr2.f index 1daec6e700..2780ee35b9 100644 --- a/SRC/cunmr2.f +++ b/SRC/cunmr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunmr3.f b/SRC/cunmr3.f index 9ce2582843..d95f7bd1f4 100644 --- a/SRC/cunmr3.f +++ b/SRC/cunmr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/cunmrq.f b/SRC/cunmrq.f index ecde2cd19c..d79abd6090 100644 --- a/SRC/cunmrq.f +++ b/SRC/cunmrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cunmrz.f b/SRC/cunmrz.f index 205f550d31..1ae29dc24f 100644 --- a/SRC/cunmrz.f +++ b/SRC/cunmrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/cunmtr.f b/SRC/cunmtr.f index b6ee941dca..06d6b75243 100644 --- a/SRC/cunmtr.f +++ b/SRC/cunmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cupgtr.f b/SRC/cupgtr.f index fddf562bc4..601b0628c4 100644 --- a/SRC/cupgtr.f +++ b/SRC/cupgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/cupmtr.f b/SRC/cupmtr.f index a55d65a709..0810537a98 100644 --- a/SRC/cupmtr.f +++ b/SRC/cupmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dbbcsd.f b/SRC/dbbcsd.f index 962071cf76..f1764cbbff 100644 --- a/SRC/dbbcsd.f +++ b/SRC/dbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -34,7 +34,7 @@ * DOUBLE PRECISION U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index a5af1b0fa6..04844e31fd 100644 --- a/SRC/dbdsdc.f +++ b/SRC/dbdsdc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBDSDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBDSDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, UPLO * INTEGER INFO, LDU, LDVT, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), Q( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dbdsqr.f b/SRC/dbdsqr.f index 007e99779b..0b8561157d 100644 --- a/SRC/dbdsqr.f +++ b/SRC/dbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**T -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -113,7 +113,7 @@ *> \verbatim *> E is DOUBLE PRECISION array, dimension (N-1) *> On entry, the N-1 offdiagonal elements of the bidiagonal -*> matrix B. +*> matrix B. *> On exit, if INFO = 0, E is destroyed; if INFO > 0, D and E *> will contain the diagonal and superdiagonal elements of a *> bidiagonal matrix orthogonally equivalent to the one given @@ -179,7 +179,7 @@ *> = 1, a split was marked by a positive value in E *> = 2, current block of Z not diagonalized after 30*N *> iterations (in inner while loop) -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> else NCVT = NRU = NCC = 0, *> the algorithm did not converge; D and E contain the @@ -217,10 +217,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -329,7 +329,7 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, CALL DLASQ1( N, D, E, WORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/SRC/dbdsvdx.f b/SRC/dbdsvdx.f index 89a8aab41a..b18b8ed7a9 100644 --- a/SRC/dbdsvdx.f +++ b/SRC/dbdsvdx.f @@ -2,23 +2,23 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBDSVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBDSVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, +* SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * $ NS, S, Z, LDZ, WORK, IWORK, INFO ) * * .. Scalar Arguments .. @@ -28,45 +28,45 @@ * .. * .. Array Arguments .. * INTEGER IWORK( * ) -* DOUBLE PRECISION D( * ), E( * ), S( * ), WORK( * ), +* DOUBLE PRECISION D( * ), E( * ), S( * ), WORK( * ), * Z( LDZ, * ) * .. -* +* *> \par Purpose: * ============= *> *> \verbatim *> *> DBDSVDX computes the singular value decomposition (SVD) of a real -*> N-by-N (upper or lower) bidiagonal matrix B, B = U * S * VT, -*> where S is a diagonal matrix with non-negative diagonal elements -*> (the singular values of B), and U and VT are orthogonal matrices +*> N-by-N (upper or lower) bidiagonal matrix B, B = U * S * VT, +*> where S is a diagonal matrix with non-negative diagonal elements +*> (the singular values of B), and U and VT are orthogonal matrices *> of left and right singular vectors, respectively. *> -*> Given an upper bidiagonal B with diagonal D = [ d_1 d_2 ... d_N ] -*> and superdiagonal E = [ e_1 e_2 ... e_N-1 ], DBDSVDX computes the -*> singular value decompositon of B through the eigenvalues and +*> Given an upper bidiagonal B with diagonal D = [ d_1 d_2 ... d_N ] +*> and superdiagonal E = [ e_1 e_2 ... e_N-1 ], DBDSVDX computes the +*> singular value decompositon of B through the eigenvalues and *> eigenvectors of the N*2-by-N*2 tridiagonal matrix -*> -*> | 0 d_1 | -*> | d_1 0 e_1 | -*> TGK = | e_1 0 d_2 | -*> | d_2 . . | +*> +*> | 0 d_1 | +*> | d_1 0 e_1 | +*> TGK = | e_1 0 d_2 | +*> | d_2 . . | *> | . . . | *> -*> If (s,u,v) is a singular triplet of B with ||u|| = ||v|| = 1, then -*> (+/-s,q), ||q|| = 1, are eigenpairs of TGK, with q = P * ( u' +/-v' ) / -*> sqrt(2) = ( v_1 u_1 v_2 u_2 ... v_n u_n ) / sqrt(2), and -*> P = [ e_{n+1} e_{1} e_{n+2} e_{2} ... ]. +*> If (s,u,v) is a singular triplet of B with ||u|| = ||v|| = 1, then +*> (+/-s,q), ||q|| = 1, are eigenpairs of TGK, with q = P * ( u' +/-v' ) / +*> sqrt(2) = ( v_1 u_1 v_2 u_2 ... v_n u_n ) / sqrt(2), and +*> P = [ e_{n+1} e_{1} e_{n+2} e_{2} ... ]. *> -*> Given a TGK matrix, one can either a) compute -s,-v and change signs -*> so that the singular values (and corresponding vectors) are already in -*> descending order (as in DGESVD/DGESDD) or b) compute s,v and reorder -*> the values (and corresponding vectors). DBDSVDX implements a) by -*> calling DSTEVX (bisection plus inverse iteration, to be replaced -*> with a version of the Multiple Relative Robust Representation -*> algorithm. (See P. Willems and B. Lang, A framework for the MR^3 -*> algorithm: theory and implementation, SIAM J. Sci. Comput., +*> Given a TGK matrix, one can either a) compute -s,-v and change signs +*> so that the singular values (and corresponding vectors) are already in +*> descending order (as in DGESVD/DGESDD) or b) compute s,v and reorder +*> the values (and corresponding vectors). DBDSVDX implements a) by +*> calling DSTEVX (bisection plus inverse iteration, to be replaced +*> with a version of the Multiple Relative Robust Representation +*> algorithm. (See P. Willems and B. Lang, A framework for the MR^3 +*> algorithm: theory and implementation, SIAM J. Sci. Comput., *> 35:740-766, 2013.) *> \endverbatim * @@ -101,13 +101,13 @@ *> N is INTEGER *> The order of the bidiagonal matrix. N >= 0. *> \endverbatim -*> +*> *> \param[in] D *> \verbatim *> D is DOUBLE PRECISION array, dimension (N) *> The n diagonal elements of the bidiagonal matrix B. *> \endverbatim -*> +*> *> \param[in] E *> \verbatim *> E is DOUBLE PRECISION array, dimension (max(1,N-1)) @@ -167,14 +167,14 @@ *> \verbatim *> Z is DOUBLE PRECISION array, dimension (2*N,K) ) *> If JOBZ = 'V', then if INFO = 0 the first NS columns of Z -*> contain the singular vectors of the matrix B corresponding to +*> contain the singular vectors of the matrix B corresponding to *> the selected singular values, with U in rows 1 to N and V *> in rows N+1 to N*2, i.e. -*> Z = [ U ] +*> Z = [ U ] *> [ V ] -*> If JOBZ = 'N', then Z is not referenced. -*> Note: The user must ensure that at least K = NS+1 columns are -*> supplied in the array Z; if RANGE = 'V', the exact value of +*> If JOBZ = 'N', then Z is not referenced. +*> Note: The user must ensure that at least K = NS+1 columns are +*> supplied in the array Z; if RANGE = 'V', the exact value of *> NS is not known in advance and an upper bound must be used. *> \endverbatim *> @@ -194,7 +194,7 @@ *> \verbatim *> IWORK is INTEGER array, dimension (12*N) *> If JOBZ = 'V', then if INFO = 0, the first NS elements of -*> IWORK are zero. If INFO > 0, then IWORK contains the indices +*> IWORK are zero. If INFO > 0, then IWORK contains the indices *> of the eigenvectors that failed to converge in DSTEVX. *> \endverbatim *> @@ -213,24 +213,24 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup doubleOTHEReigen * -* ===================================================================== - SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, +* ===================================================================== + SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * * -- LAPACK driver routine (version 3.6.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * November 2016 -* +* * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO INTEGER IL, INFO, IU, LDZ, N, NS @@ -238,28 +238,28 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * .. * .. Array Arguments .. INTEGER IWORK( * ) - DOUBLE PRECISION D( * ), E( * ), S( * ), WORK( * ), + DOUBLE PRECISION D( * ), E( * ), S( * ), WORK( * ), $ Z( LDZ, * ) * .. * * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH - PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0, TEN = 10.0D0, + DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH + PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0, TEN = 10.0D0, $ HNDRD = 100.0D0, MEIGTH = -0.1250D0 ) DOUBLE PRECISION FUDGE PARAMETER ( FUDGE = 2.0D0 ) * .. -* .. Local Scalars .. +* .. Local Scalars .. CHARACTER RNGVX - LOGICAL ALLSV, INDSV, LOWER, SPLIT, SVEQ0, VALSV, WANTZ - INTEGER I, ICOLZ, IDBEG, IDEND, IDTGK, IDPTR, IEPTR, - $ IETGK, IIFAIL, IIWORK, ILTGK, IROWU, IROWV, - $ IROWZ, ISBEG, ISPLT, ITEMP, IUTGK, J, K, + LOGICAL ALLSV, INDSV, LOWER, SPLIT, SVEQ0, VALSV, WANTZ + INTEGER I, ICOLZ, IDBEG, IDEND, IDTGK, IDPTR, IEPTR, + $ IETGK, IIFAIL, IIWORK, ILTGK, IROWU, IROWV, + $ IROWZ, ISBEG, ISPLT, ITEMP, IUTGK, J, K, $ NTGK, NRU, NRV, NSL DOUBLE PRECISION ABSTOL, EPS, EMIN, MU, NRMU, NRMV, ORTOL, SMAX, - $ SMIN, SQRT2, THRESH, TOL, ULP, + $ SMIN, SQRT2, THRESH, TOL, ULP, $ VLTGK, VUTGK, ZJTJI * .. * .. External Functions .. @@ -274,7 +274,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SIGN, SQRT * .. -* .. Executable Statements .. +* .. Executable Statements .. * * Test the input parameters. * @@ -321,7 +321,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * NS = 0 IF( N.EQ.0 ) RETURN -* +* IF( N.EQ.1 ) THEN IF( ALLSV .OR. INDSV ) THEN NS = 1 @@ -339,17 +339,17 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, RETURN END IF * - ABSTOL = 2*DLAMCH( 'Safe Minimum' ) + ABSTOL = 2*DLAMCH( 'Safe Minimum' ) ULP = DLAMCH( 'Precision' ) EPS = DLAMCH( 'Epsilon' ) SQRT2 = SQRT( 2.0D0 ) ORTOL = SQRT( ULP ) -* +* * Criterion for splitting is taken from DBDSQR when singular -* values are computed to relative accuracy TOL. (See J. Demmel and -* W. Kahan, Accurate singular values of bidiagonal matrices, SIAM +* values are computed to relative accuracy TOL. (See J. Demmel and +* W. Kahan, Accurate singular values of bidiagonal matrices, SIAM * J. Sci. and Stat. Comput., 11:873–912, 1990.) -* +* TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS * * Compute approximate maximum, minimum singular values. @@ -390,19 +390,19 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IIWORK = IIFAIL + N*2 * * Set RNGVX, which corresponds to RANGE for DSTEVX in TGK mode. -* VL,VU or IL,IU are redefined to conform to implementation a) +* VL,VU or IL,IU are redefined to conform to implementation a) * described in the leading comments. * ILTGK = 0 - IUTGK = 0 + IUTGK = 0 VLTGK = ZERO VUTGK = ZERO * IF( ALLSV ) THEN * -* All singular values will be found. We aim at -s (see +* All singular values will be found. We aim at -s (see * leading comments) with RNGVX = 'I'. IL and IU are set -* later (as ILTGK and IUTGK) according to the dimension +* later (as ILTGK and IUTGK) according to the dimension * of the active submatrix. * RNGVX = 'I' @@ -419,7 +419,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL DCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL DCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL DSTEVX( 'N', 'V', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL DSTEVX( 'N', 'V', N*2, WORK( IDTGK ), WORK( IETGK ), $ VLTGK, VUTGK, ILTGK, ILTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -430,20 +430,20 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, END IF ELSE IF( INDSV ) THEN * -* Find the IL-th through the IU-th singular values. We aim -* at -s (see leading comments) and indices are mapped into +* Find the IL-th through the IU-th singular values. We aim +* at -s (see leading comments) and indices are mapped into * values, therefore mimicking DSTEBZ, where * * GL = GL - FUDGE*TNORM*ULP*N - FUDGE*TWO*PIVMIN * GU = GU + FUDGE*TNORM*ULP*N + FUDGE*PIVMIN * ILTGK = IL - IUTGK = IU + IUTGK = IU RNGVX = 'V' WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL DCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL DCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL DSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL DSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), $ VLTGK, VLTGK, ILTGK, ILTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -451,7 +451,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL DCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL DCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL DSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL DSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), $ VUTGK, VUTGK, IUTGK, IUTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -459,12 +459,12 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, VUTGK = MIN( VUTGK, ZERO ) * * If VLTGK=VUTGK, DSTEVX returns an error message, -* so if needed we change VUTGK slightly. +* so if needed we change VUTGK slightly. * IF( VLTGK.EQ.VUTGK ) VLTGK = VLTGK - TOL * IF( WANTZ ) CALL DLASET( 'F', N*2, IU-IL+1, ZERO, ZERO, Z, LDZ) - END IF + END IF * * Initialize variables and pointers for S, Z, and WORK. * @@ -483,7 +483,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IROWU = 2 IROWV = 1 SPLIT = .FALSE. - SVEQ0 = .FALSE. + SVEQ0 = .FALSE. * * Form the tridiagonal TGK matrix. * @@ -494,15 +494,15 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, CALL DCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) * * -* Check for splits in two levels, outer level +* Check for splits in two levels, outer level * in E and inner level in D. * - DO IEPTR = 2, N*2, 2 - IF( WORK( IETGK+IEPTR-1 ).EQ.ZERO ) THEN + DO IEPTR = 2, N*2, 2 + IF( WORK( IETGK+IEPTR-1 ).EQ.ZERO ) THEN * * Split in E (this piece of B is square) or bottom * of the (input bidiagonal) matrix. -* +* ISPLT = IDBEG IDEND = IEPTR - 1 DO IDPTR = IDBEG, IDEND, 2 @@ -519,22 +519,22 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( IDBEG.EQ.IDEND) THEN NRU = 1 NRV = 1 - END IF + END IF ELSE IF( IDPTR.EQ.IDEND ) THEN * * D=0 at the bottom. * SVEQ0 = .TRUE. - NRU = (IDEND-ISPLT)/2 + 1 - NRV = NRU + NRU = (IDEND-ISPLT)/2 + 1 + NRV = NRU IF( ISPLT.NE.IDBEG ) THEN NRU = NRU + 1 - END IF + END IF ELSE IF( ISPLT.EQ.IDBEG ) THEN * * Split: top rectangular submatrix. -* +* NRU = (IDPTR-IDBEG)/2 NRV = NRU + 1 ELSE @@ -542,7 +542,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Split: middle square submatrix. * NRU = (IDPTR-ISPLT)/2 + 1 - NRV = NRU + NRV = NRU END IF END IF ELSE IF( IDPTR.EQ.IDEND ) THEN @@ -560,7 +560,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Split: bottom rectangular submatrix. * NRV = (IDEND-ISPLT)/2 + 1 - NRU = NRV + 1 + NRU = NRV + 1 END IF END IF * @@ -568,32 +568,32 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * IF( NTGK.GT.0 ) THEN * -* Compute eigenvalues/vectors of the active -* submatrix according to RANGE: +* Compute eigenvalues/vectors of the active +* submatrix according to RANGE: * if RANGE='A' (ALLSV) then RNGVX = 'I' * if RANGE='V' (VALSV) then RNGVX = 'V' * if RANGE='I' (INDSV) then RNGVX = 'V' * ILTGK = 1 - IUTGK = NTGK / 2 + IUTGK = NTGK / 2 IF( ALLSV .OR. VUTGK.EQ.ZERO ) THEN - IF( SVEQ0 .OR. - $ SMIN.LT.EPS .OR. + IF( SVEQ0 .OR. + $ SMIN.LT.EPS .OR. $ MOD(NTGK,2).GT.0 ) THEN * Special case: eigenvalue equal to zero or very * small, additional eigenvector is needed. IUTGK = IUTGK + 1 - END IF + END IF END IF * -* Workspace needed by DSTEVX: -* WORK( ITEMP: ): 2*5*NTGK +* Workspace needed by DSTEVX: +* WORK( ITEMP: ): 2*5*NTGK * IWORK( 1: ): 2*6*NTGK * - CALL DSTEVX( JOBZ, RNGVX, NTGK, WORK( IDTGK+ISPLT-1 ), - $ WORK( IETGK+ISPLT-1 ), VLTGK, VUTGK, - $ ILTGK, IUTGK, ABSTOL, NSL, S( ISBEG ), - $ Z( IROWZ,ICOLZ ), LDZ, WORK( ITEMP ), + CALL DSTEVX( JOBZ, RNGVX, NTGK, WORK( IDTGK+ISPLT-1 ), + $ WORK( IETGK+ISPLT-1 ), VLTGK, VUTGK, + $ ILTGK, IUTGK, ABSTOL, NSL, S( ISBEG ), + $ Z( IROWZ,ICOLZ ), LDZ, WORK( ITEMP ), $ IWORK( IIWORK ), IWORK( IIFAIL ), $ INFO ) IF( INFO.NE.0 ) THEN @@ -601,7 +601,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, RETURN END IF EMIN = ABS( MAXVAL( S( ISBEG:ISBEG+NSL-1 ) ) ) -* +* IF( NSL.GT.0 .AND. WANTZ ) THEN * * Normalize u=Z([2,4,...],:) and v=Z([1,3,...],:), @@ -615,22 +615,22 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( NSL.GT.1 .AND. $ VUTGK.EQ.ZERO .AND. $ MOD(NTGK,2).EQ.0 .AND. - $ EMIN.EQ.0 .AND. .NOT.SPLIT ) THEN + $ EMIN.EQ.0 .AND. .NOT.SPLIT ) THEN * * D=0 at the top or bottom of the active submatrix: -* one eigenvalue is equal to zero; concatenate the -* eigenvectors corresponding to the two smallest +* one eigenvalue is equal to zero; concatenate the +* eigenvectors corresponding to the two smallest * eigenvalues. * Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) = $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) + $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) - Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) = - $ ZERO + Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) = + $ ZERO * IF( IUTGK*2.GT.NTGK ) THEN * Eigenvalue equal to zero or very small. * NSL = NSL - 1 -* END IF +* END IF END IF * DO I = 0, MIN( NSL-1, NRU-1 ) @@ -639,20 +639,20 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, INFO = N*2 + 1 RETURN END IF - CALL DSCAL( NRU, ONE/NRMU, + CALL DSCAL( NRU, ONE/NRMU, $ Z( IROWU,ICOLZ+I ), 2 ) IF( NRMU.NE.ONE .AND. $ ABS( NRMU-ORTOL )*SQRT2.GT.ONE ) $ THEN DO J = 0, I-1 - ZJTJI = -DDOT( NRU, Z( IROWU, ICOLZ+J ), + ZJTJI = -DDOT( NRU, Z( IROWU, ICOLZ+J ), $ 2, Z( IROWU, ICOLZ+I ), 2 ) - CALL DAXPY( NRU, ZJTJI, + CALL DAXPY( NRU, ZJTJI, $ Z( IROWU, ICOLZ+J ), 2, $ Z( IROWU, ICOLZ+I ), 2 ) END DO NRMU = DNRM2( NRU, Z( IROWU, ICOLZ+I ), 2 ) - CALL DSCAL( NRU, ONE/NRMU, + CALL DSCAL( NRU, ONE/NRMU, $ Z( IROWU,ICOLZ+I ), 2 ) END IF END DO @@ -662,7 +662,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, INFO = N*2 + 1 RETURN END IF - CALL DSCAL( NRV, -ONE/NRMV, + CALL DSCAL( NRV, -ONE/NRMV, $ Z( IROWV,ICOLZ+I ), 2 ) IF( NRMV.NE.ONE .AND. $ ABS( NRMV-ORTOL )*SQRT2.GT.ONE ) @@ -670,12 +670,12 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, DO J = 0, I-1 ZJTJI = -DDOT( NRV, Z( IROWV, ICOLZ+J ), $ 2, Z( IROWV, ICOLZ+I ), 2 ) - CALL DAXPY( NRU, ZJTJI, + CALL DAXPY( NRU, ZJTJI, $ Z( IROWV, ICOLZ+J ), 2, $ Z( IROWV, ICOLZ+I ), 2 ) END DO NRMV = DNRM2( NRV, Z( IROWV, ICOLZ+I ), 2 ) - CALL DSCAL( NRV, ONE/NRMV, + CALL DSCAL( NRV, ONE/NRMV, $ Z( IROWV,ICOLZ+I ), 2 ) END IF END DO @@ -684,18 +684,18 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ MOD(NTGK,2).GT.0 ) THEN * * D=0 in the middle of the active submatrix (one -* eigenvalue is equal to zero): save the corresponding +* eigenvalue is equal to zero): save the corresponding * eigenvector for later use (when bottom of the * active submatrix is reached). * SPLIT = .TRUE. - Z( IROWZ:IROWZ+NTGK-1,N+1 ) = + Z( IROWZ:IROWZ+NTGK-1,N+1 ) = $ Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) - Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) = - $ ZERO - END IF + Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) = + $ ZERO + END IF END IF !** WANTZ **! -* +* NSL = MIN( NSL, NRU ) SVEQ0 = .FALSE. * @@ -706,17 +706,17 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, END DO * * Update pointers for TGK, S and Z. -* +* ISBEG = ISBEG + NSL IROWZ = IROWZ + NTGK ICOLZ = ICOLZ + NSL IROWU = IROWZ - IROWV = IROWZ + 1 + IROWV = IROWZ + 1 ISPLT = IDPTR + 1 NS = NS + NSL NRU = 0 - NRV = 0 - END IF !** NTGK.GT.0 **! + NRV = 0 + END IF !** NTGK.GT.0 **! IF( IROWZ.LT.N*2 .AND. WANTZ ) THEN Z( 1:IROWZ-1, ICOLZ ) = ZERO END IF @@ -726,7 +726,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Bring back eigenvector corresponding * to eigenvalue equal to zero. * - Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) = + Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) = $ Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) + $ Z( IDBEG:IDEND-NTGK+1,N+1 ) Z( IDBEG:IDEND-NTGK+1,N+1 ) = 0 @@ -735,7 +735,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IROWU = IROWU + 1 IDBEG = IEPTR + 1 SVEQ0 = .FALSE. - SPLIT = .FALSE. + SPLIT = .FALSE. END IF !** Check for split in E **! END DO !** IEPTR loop **! * @@ -757,7 +757,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( WANTZ ) CALL DSWAP( N*2, Z( 1,K ), 1, Z( 1,NS+1-I ), 1 ) END IF END DO -* +* * If RANGE=I, check for singular values/vectors to be discarded. * IF( INDSV ) THEN @@ -767,7 +767,7 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( WANTZ ) Z( 1:N*2,K+1:NS ) = ZERO NS = K END IF - END IF + END IF * * Reorder Z: U = Z( 1:N,1:NS ), V = Z( N+1:N*2,1:NS ). * If B is a lower diagonal, swap U and V. diff --git a/SRC/ddisna.f b/SRC/ddisna.f index 60952f6e2b..b39d12f2f7 100644 --- a/SRC/ddisna.f +++ b/SRC/ddisna.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DDISNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DDISNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DDISNA( JOB, M, N, D, SEP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INFO, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), SEP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbbrd.f b/SRC/dgbbrd.f index 3d11411627..21eb5d8718 100644 --- a/SRC/dgbbrd.f +++ b/SRC/dgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), * $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -174,10 +174,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbcon.f b/SRC/dgbcon.f index bf6933faf5..001c3ce662 100644 --- a/SRC/dgbcon.f +++ b/SRC/dgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbequ.f b/SRC/dgbequ.f index cc94fdb5be..dba55332eb 100644 --- a/SRC/dgbequ.f +++ b/SRC/dgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbequb.f b/SRC/dgbequb.f index 6be60278df..75a391b80e 100644 --- a/SRC/dgbequb.f +++ b/SRC/dgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbrfs.f b/SRC/dgbrfs.f index 39d91981bc..0a744292f3 100644 --- a/SRC/dgbrfs.f +++ b/SRC/dgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbrfsx.f b/SRC/dgbrfsx.f index e50ef67b2d..6f49bce135 100644 --- a/SRC/dgbrfsx.f +++ b/SRC/dgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgbsv.f b/SRC/dgbsv.f index 93769d3872..21cb0e5b42 100644 --- a/SRC/dgbsv.f +++ b/SRC/dgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbsvx.f b/SRC/dgbsvx.f index f6911b2678..3ab2c57af5 100644 --- a/SRC/dgbsvx.f +++ b/SRC/dgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgbsvxx.f b/SRC/dgbsvxx.f index 3f6c3b68ee..9f038402aa 100644 --- a/SRC/dgbsvxx.f +++ b/SRC/dgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -544,10 +544,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgbtf2.f b/SRC/dgbtf2.f index dc1fd99456..ee275fdbb3 100644 --- a/SRC/dgbtf2.f +++ b/SRC/dgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgbtrf.f b/SRC/dgbtrf.f index 653f8e376e..56804c4b09 100644 --- a/SRC/dgbtrf.f +++ b/SRC/dgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgbtrs.f b/SRC/dgbtrs.f index f34ae750ae..58db5e99e5 100644 --- a/SRC/dgbtrs.f +++ b/SRC/dgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgebak.f b/SRC/dgebak.f index 276a298182..9060fc027b 100644 --- a/SRC/dgebak.f +++ b/SRC/dgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION SCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgebal.f b/SRC/dgebal.f index 591319ddda..9263bbf994 100644 --- a/SRC/dgebal.f +++ b/SRC/dgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgebd2.f b/SRC/dgebd2.f index 4b4dcc9641..3ebe1c864f 100644 --- a/SRC/dgebd2.f +++ b/SRC/dgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgebrd.f b/SRC/dgebrd.f index 6cb61f002f..b43c81a143 100644 --- a/SRC/dgebrd.f +++ b/SRC/dgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgecon.f b/SRC/dgecon.f index df9d8e1c40..3e936775d3 100644 --- a/SRC/dgecon.f +++ b/SRC/dgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgeequ.f b/SRC/dgeequ.f index a93af8f8db..a2e92326cd 100644 --- a/SRC/dgeequ.f +++ b/SRC/dgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgeequb.f b/SRC/dgeequb.f index c9dd481ccc..2ee8bf9fee 100644 --- a/SRC/dgeequb.f +++ b/SRC/dgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgees.f b/SRC/dgees.f index cb5794b661..3b5d02fc2f 100644 --- a/SRC/dgees.f +++ b/SRC/dgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, * VS, LDVS, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgeesx.f b/SRC/dgeesx.f index 67e084877d..a559aefeea 100644 --- a/SRC/dgeesx.f +++ b/SRC/dgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, * WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LIWORK, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -267,10 +267,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dgeev.f b/SRC/dgeev.f index eb043d95a7..4faac16c20 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, * LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -305,7 +305,7 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, LWORK_TREVC = INT( WORK(1) ) MAXWRK = MAX( MAXWRK, N + LWORK_TREVC ) MAXWRK = MAX( MAXWRK, 4*N ) - ELSE + ELSE MINWRK = 3*N CALL DHSEQR( 'E', 'N', N, 1, N, A, LDA, WR, WI, VR, LDVR, $ WORK, -1, INFO ) diff --git a/SRC/dgeevx.f b/SRC/dgeevx.f index 3067f346d8..04be4ccfaf 100644 --- a/SRC/dgeevx.f +++ b/SRC/dgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, * VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, * RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * $ SCALE( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dgehd2.f b/SRC/dgehd2.f index 089fad1e0d..902924f541 100644 --- a/SRC/dgehd2.f +++ b/SRC/dgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgehrd.f b/SRC/dgehrd.f index 181990dbb0..652a08a6ad 100644 --- a/SRC/dgehrd.f +++ b/SRC/dgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -186,7 +186,7 @@ SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) PARAMETER ( NBMAX = 64, LDT = NBMAX+1, $ TSIZE = LDT*NBMAX ) DOUBLE PRECISION ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, + PARAMETER ( ZERO = 0.0D+0, $ ONE = 1.0D+0 ) * .. * .. Local Scalars .. @@ -232,7 +232,7 @@ SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) LWKOPT = N*NB + TSIZE WORK( 1 ) = LWKOPT END IF -* +* IF( INFO.NE.0 ) THEN CALL XERBLA( 'DGEHRD', -INFO ) RETURN @@ -316,7 +316,7 @@ SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL DGEMM( 'No transpose', 'Transpose', + CALL DGEMM( 'No transpose', 'Transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 4f3143c771..3488f262c4 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N @@ -32,7 +32,7 @@ * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -272,7 +272,7 @@ *> \param[out] WORK *> \verbatim *> WORK is DOUBLE PRECISION array, dimension at least LWORK. -*> On exit, if N.GT.0 .AND. M.GT.0 (else not referenced), +*> On exit, if N.GT.0 .AND. M.GT.0 (else not referenced), *> WORK(1) = SCALE = WORK(2) / WORK(1) is the scaling factor such *> that SCALE*SVA(1:N) are the computed singular values *> of A. (See the description of SVA().) @@ -319,15 +319,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB,7). Here NB is the optimal *> block size for DGEQP3 and DGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). +*> In general, optimal LWORK is computed as +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). *> -> .. an estimate of the scaled condition number of A is *> required (JOBA='E', 'G'). In this case, LWORK is the maximum *> of the above and N*N+4*N, i.e. LWORK >= max(2*M+N,N*N+4*N,7). -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB, N*N+4*N, 7). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), *> N+N*N+LWORK(DPOCON),7). *> *> If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -335,7 +335,7 @@ *> -> For optimal performance, LWORK >= max(2*M+N,3*N+(N+1)*NB,7), *> where NB is the optimal block size for DGEQP3, DGEQRF, DGELQF, *> DORMLQ. In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), *> N+LWORK(DGELQF), 2*N+LWORK(DGEQRF), N+LWORK(DORMLQ)). *> *> If SIGMA and the left singular vectors are needed @@ -346,14 +346,14 @@ *> where NB is the optimal block size for DGEQP3, DGEQRF, DORMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DPOCON), -*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). -*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or +*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). +*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or *> M*NB (for JOBU.EQ.'F'). -*> -*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> -> if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). -*> -> if JOBV.EQ.'J' the minimal requirement is +*> +*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> -> if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). +*> -> if JOBV.EQ.'J' the minimal requirement is *> LWORK >= max(2*M+N, 4*N+N*N,2*N+N*N+6). *> -> For optimal performance, LWORK should be additionally *> larger than N+M*NB, where NB is the optimal block size @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -571,7 +571,7 @@ SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, & .OR. & (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. MAX(7,2*M+N,4*N+1))) & .OR. - & (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + & (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. & (LWORK.LT.MAX(2*M+N,6*N+2*N*N))) & .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. & LWORK.LT.MAX(2*M+N,4*N+N*N,2*N+N*N+6))) diff --git a/SRC/dgelq2.f b/SRC/dgelq2.f index 0d64ba5210..87522d1508 100644 --- a/SRC/dgelq2.f +++ b/SRC/dgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgelqf.f b/SRC/dgelqf.f index d27b04ab1d..2994e0846d 100644 --- a/SRC/dgelqf.f +++ b/SRC/dgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgels.f b/SRC/dgels.f index 3d3cb88bae..e3206f12ba 100644 --- a/SRC/dgels.f +++ b/SRC/dgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgelsd.f b/SRC/dgelsd.f index 53e7741717..2b999e404d 100644 --- a/SRC/dgelsd.f +++ b/SRC/dgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgelss.f b/SRC/dgelss.f index 843f319c9f..bcc46b8b88 100644 --- a/SRC/dgelss.f +++ b/SRC/dgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -285,7 +285,7 @@ SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL DORGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_DORGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 3*N + LWORK_DGEBRD ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_DORMBR ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_DORGBR ) @@ -314,7 +314,7 @@ SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), DUM(1), -1, INFO ) LWORK_DGEBRD=DUM(1) * Compute space needed for DORMBR - CALL DORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, + CALL DORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_DORMBR=DUM(1) * Compute space needed for DORGBR @@ -325,7 +325,7 @@ SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL DORMLQ( 'L', 'T', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_DORMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_DGELQF MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_DGEBRD ) MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_DORMBR ) @@ -346,7 +346,7 @@ SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), DUM(1), -1, INFO ) LWORK_DGEBRD=DUM(1) * Compute space needed for DORMBR - CALL DORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, + CALL DORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_DORMBR=DUM(1) * Compute space needed for DORGBR diff --git a/SRC/dgelsy.f b/SRC/dgelsy.f index 87bc23cb2d..471ec2abaf 100644 --- a/SRC/dgelsy.f +++ b/SRC/dgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -196,7 +196,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/SRC/dgemqrt.f b/SRC/dgemqrt.f index ef79221c30..39a130641b 100644 --- a/SRC/dgemqrt.f +++ b/SRC/dgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by DGEQRT. +*> generated using the compact WY representation as returned by DGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup doubleGEcomputational * * ===================================================================== - SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL DLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL DLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL DLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/SRC/dgeql2.f b/SRC/dgeql2.f index 25651cdb5b..836c3287a8 100644 --- a/SRC/dgeql2.f +++ b/SRC/dgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgeqlf.f b/SRC/dgeqlf.f index 1efeba12e2..12b839553e 100644 --- a/SRC/dgeqlf.f +++ b/SRC/dgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f index 6d43542496..a1bee075e6 100644 --- a/SRC/dgeqp3.f +++ b/SRC/dgeqp3.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgeqr2.f b/SRC/dgeqr2.f index 8e63db8866..4aa9bd72b1 100644 --- a/SRC/dgeqr2.f +++ b/SRC/dgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgeqr2p.f b/SRC/dgeqr2p.f index 46de429284..a6455006cc 100644 --- a/SRC/dgeqr2p.f +++ b/SRC/dgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgeqrf.f b/SRC/dgeqrf.f index 2990257581..c047ed245c 100644 --- a/SRC/dgeqrf.f +++ b/SRC/dgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgeqrfp.f b/SRC/dgeqrfp.f index b82bce1b8c..160e948b71 100644 --- a/SRC/dgeqrfp.f +++ b/SRC/dgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgeqrt.f b/SRC/dgeqrt.f index 0ba5c7fcf8..72fad7a4ad 100644 --- a/SRC/dgeqrt.f +++ b/SRC/dgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> DGEQRT computes a blocked QR factorization of a real M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * Update by applying H**T to A(I:M,I+IB:N) from the left * CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of DGEQRT * END diff --git a/SRC/dgeqrt2.f b/SRC/dgeqrt2.f index 399d563e22..2f47de0423 100644 --- a/SRC/dgeqrt2.f +++ b/SRC/dgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DGEQRT2 computes a QR factorization of a real M-by-N matrix A, -*> using the compact WY representation of Q. +*> DGEQRT2 computes a QR factorization of a real M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) CALL XERBLA( 'DGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL DGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL DGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -(T( I, 1 )) - CALL DGER( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL DGER( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) * T(1:I-1,I) := alpha * A(I:M,1:I-1)**T * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL DGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL DGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of DGEQRT2 * diff --git a/SRC/dgeqrt3.f b/SRC/dgeqrt3.f index 42453dbf1c..db881808aa 100644 --- a/SRC/dgeqrt3.f +++ b/SRC/dgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DGEQRT3 recursively computes a QR factorization of a real M-by-N -*> matrix A, using the compact WY representation of Q. +*> DGEQRT3 recursively computes a QR factorization of a real M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -178,7 +178,7 @@ RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) * Compute Householder transform when N=1 * CALL DLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL DTRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, + CALL DTRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL DGEMM( 'T', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL DTRMM( 'L', 'U', 'T', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL DTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL DGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL DGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL DTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL DGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL DGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL DTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL DTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL DTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL DTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/SRC/dgerfs.f b/SRC/dgerfs.f index 9a48db9e11..c601eb6e21 100644 --- a/SRC/dgerfs.f +++ b/SRC/dgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgerfsx.f b/SRC/dgerfsx.f index 6f1921739c..7e501bd12f 100644 --- a/SRC/dgerfsx.f +++ b/SRC/dgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is DOUBLE PRECISION array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is DOUBLE PRECISION array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgerq2.f b/SRC/dgerq2.f index 310e80c3d2..84ec33c6fc 100644 --- a/SRC/dgerq2.f +++ b/SRC/dgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgerqf.f b/SRC/dgerqf.f index 033913d77b..e6fede2681 100644 --- a/SRC/dgerqf.f +++ b/SRC/dgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgesc2.f b/SRC/dgesc2.f index 75c0607a22..34dfe8e738 100644 --- a/SRC/dgesc2.f +++ b/SRC/dgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * DOUBLE PRECISION SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgesdd.f b/SRC/dgesdd.f index 02beb3be5c..999b4511fb 100644 --- a/SRC/dgesdd.f +++ b/SRC/dgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -247,7 +247,7 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ IR, ISCL, ITAU, ITAUP, ITAUQ, IU, IVT, LDWKVT, $ LDWRKL, LDWRKR, LDWRKU, MAXWRK, MINMN, MINWRK, $ MNTHR, NWORK, WRKBL - INTEGER LWORK_DGEBRD_MN, LWORK_DGEBRD_MM, + INTEGER LWORK_DGEBRD_MN, LWORK_DGEBRD_MM, $ LWORK_DGEBRD_NN, LWORK_DGELQF_MN, $ LWORK_DGEQRF_MN, $ LWORK_DORGBR_P_MM, LWORK_DORGBR_Q_NN, @@ -569,7 +569,7 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, END IF END IF END IF - + MAXWRK = MAX( MAXWRK, MINWRK ) WORK( 1 ) = MAXWRK * diff --git a/SRC/dgesv.f b/SRC/dgesv.f index 8d47f839dc..a528585e43 100644 --- a/SRC/dgesv.f +++ b/SRC/dgesv.f @@ -2,16 +2,16 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] *> \endhtmlonly * @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgesvd.f b/SRC/dgesvd.f index 0c40673a49..97aae8ae73 100644 --- a/SRC/dgesvd.f +++ b/SRC/dgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,7 +173,7 @@ *> LWORK is INTEGER *> The dimension of the array WORK. *> LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): -*> - PATH 1 (M much larger than N, JOBU='N') +*> - PATH 1 (M much larger than N, JOBU='N') *> - PATH 1t (N much larger than M, JOBVT='N') *> LWORK >= MAX(1,3*MIN(M,N) + MAX(M,N),5*MIN(M,N)) for the other paths *> For good performance, LWORK should generally be larger. @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgesvdx.f b/SRC/dgesvdx.f index accf2594e2..b6060b402d 100644 --- a/SRC/dgesvdx.f +++ b/SRC/dgesvdx.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, -* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, +* SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, +* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, * $ LWORK, IWORK, INFO ) -* +* * * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT, RANGE @@ -33,7 +33,7 @@ * DOUBLE PRECISION A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -43,23 +43,23 @@ *> DGESVDX computes the singular value decomposition (SVD) of a real *> M-by-N matrix A, optionally computing the left and/or right singular *> vectors. The SVD is written -*> +*> *> A = U * SIGMA * transpose(V) -*> +*> *> where SIGMA is an M-by-N matrix which is zero except for its *> min(m,n) diagonal elements, U is an M-by-M orthogonal matrix, and *> V is an N-by-N orthogonal matrix. The diagonal elements of SIGMA *> are the singular values of A; they are real and non-negative, and *> are returned in descending order. The first min(m,n) columns of *> U and V are the left and right singular vectors of A. -*> -*> DGESVDX uses an eigenvalue problem for obtaining the SVD, which -*> allows for the computation of a subset of singular values and +*> +*> DGESVDX uses an eigenvalue problem for obtaining the SVD, which +*> allows for the computation of a subset of singular values and *> vectors. See DBDSVDX for details. -*> +*> *> Note that the routine returns V**T, not V. *> \endverbatim -* +* * Arguments: * ========== * @@ -68,7 +68,7 @@ *> JOBU is CHARACTER*1 *> Specifies options for computing all or part of the matrix U: *> = 'V': the first min(m,n) columns of U (the left singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array U; *> = 'N': no columns of U (no left singular vectors) are *> computed. @@ -80,7 +80,7 @@ *> Specifies options for computing all or part of the matrix *> V**T: *> = 'V': the first min(m,n) rows of V**T (the right singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array VT; *> = 'N': no rows of V**T (no right singular vectors) are *> computed. @@ -92,7 +92,7 @@ *> = 'A': all singular values will be found. *> = 'V': all singular values in the half-open interval (VL,VU] *> will be found. -*> = 'I': the IL-th through IU-th singular values will be found. +*> = 'I': the IL-th through IU-th singular values will be found. *> \endverbatim *> *> \param[in] M @@ -157,7 +157,7 @@ *> \param[out] NS *> \verbatim *> NS is INTEGER -*> The total number of singular values found, +*> The total number of singular values found, *> 0 <= NS <= min(M,N). *> If RANGE = 'A', NS = min(M,N); if RANGE = 'I', NS = IU-IL+1. *> \endverbatim @@ -171,10 +171,10 @@ *> \param[out] U *> \verbatim *> U is DOUBLE PRECISION array, dimension (LDU,UCOL) -*> If JOBU = 'V', U contains columns of U (the left singular -*> vectors, stored columnwise) as specified by RANGE; if +*> If JOBU = 'V', U contains columns of U (the left singular +*> vectors, stored columnwise) as specified by RANGE; if *> JOBU = 'N', U is not referenced. -*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', +*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', *> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim @@ -189,11 +189,11 @@ *> \param[out] VT *> \verbatim *> VT is DOUBLE PRECISION array, dimension (LDVT,N) -*> If JOBVT = 'V', VT contains the rows of V**T (the right singular -*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', +*> If JOBVT = 'V', VT contains the rows of V**T (the right singular +*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', *> VT is not referenced. -*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', -*> the exact value of NS is not known in advance and an upper +*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', +*> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim *> @@ -214,9 +214,9 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. -*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see +*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see *> comments inside the code): -*> - PATH 1 (M much larger than N) +*> - PATH 1 (M much larger than N) *> - PATH 1t (N much larger than M) *> LWORK >= MAX(1,MIN(M,N)*2+MAX(M,N)) for the other paths. *> For good performance, LWORK should generally be larger. @@ -230,8 +230,8 @@ *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (12*MIN(M,N)) -*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, -*> then IWORK contains the indices of the eigenvectors that failed +*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, +*> then IWORK contains the indices of the eigenvectors that failed *> to converge in DBDSVDX/DSTEVX. *> \endverbatim *> @@ -249,18 +249,18 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup doubleGEsing * * ===================================================================== - SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, - $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, + SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, + $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * * -- LAPACK driver routine (version 3.6.1) -- @@ -289,7 +289,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, CHARACTER JOBZ, RNGTGK LOGICAL ALLS, INDS, LQUERY, VALS, WANTU, WANTVT INTEGER I, ID, IE, IERR, ILQF, ILTGK, IQRF, ISCL, - $ ITAU, ITAUP, ITAUQ, ITEMP, ITGKZ, IUTGK, + $ ITAU, ITAUP, ITAUQ, ITEMP, ITGKZ, IUTGK, $ J, MAXWRK, MINMN, MINWRK, MNTHR DOUBLE PRECISION ABSTOL, ANRM, BIGNUM, EPS, SMLNUM * .. @@ -392,7 +392,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Path 1 (M much larger than N) * - MAXWRK = N + + MAXWRK = N + $ N*ILAENV( 1, 'DGEQRF', ' ', M, N, -1, -1 ) MAXWRK = MAX( MAXWRK, N*(N+5) + 2*N* $ ILAENV( 1, 'DGEBRD', ' ', N, N, -1, -1 ) ) @@ -427,7 +427,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Path 1t (N much larger than M) * - MAXWRK = M + + MAXWRK = M + $ M*ILAENV( 1, 'DGELQF', ' ', M, N, -1, -1 ) MAXWRK = MAX( MAXWRK, M*(M+5) + 2*M* $ ILAENV( 1, 'DGEBRD', ' ', M, M, -1, -1 ) ) @@ -489,7 +489,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, RNGTGK = 'I' ILTGK = IL IUTGK = IU - ELSE + ELSE RNGTGK = 'V' ILTGK = 0 IUTGK = 0 @@ -533,7 +533,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAU + N CALL DGEQRF( M, N, A, LDA, WORK( ITAU ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) -* +* * Copy R into WORK and bidiagonalize it: * (Workspace: need N*N+5*N, prefer N*N+4*N+2*N*NB) * @@ -542,19 +542,19 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + N ITAUQ = IE + N ITAUP = ITAUQ + N - ITEMP = ITAUP + N + ITEMP = ITAUP + N CALL DLACPY( 'U', N, N, A, LDA, WORK( IQRF ), N ) CALL DLASET( 'L', N-1, N-1, ZERO, ZERO, WORK( IQRF+1 ), N ) - CALL DGEBRD( N, N, WORK( IQRF ), N, WORK( ID ), WORK( IE ), + CALL DGEBRD( N, N, WORK( IQRF ), N, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 14*N + 2*N*(N+1)) -* +* (Workspace: need 14*N + 2*N*(N+1)) +* ITGKZ = ITEMP ITEMP = ITGKZ + N*(N*2+1) - CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), + CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ N*2, WORK( ITEMP ), IWORK, INFO) * @@ -571,18 +571,18 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL DORMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL DORMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call DORMQR to compute Q*(QB*UB). * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL DORMQR( 'L', 'N', M, NS, N, A, LDA, + CALL DORMQR( 'L', 'N', M, NS, N, A, LDA, $ WORK( ITAU ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -595,7 +595,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL DORMBR( 'P', 'R', 'T', NS, N, N, WORK( IQRF ), N, + CALL DORMBR( 'P', 'R', 'T', NS, N, N, WORK( IQRF ), N, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) END IF @@ -613,17 +613,17 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + N ITAUQ = IE + N ITAUP = ITAUQ + N - ITEMP = ITAUP + N - CALL DGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), + ITEMP = ITAUP + N + CALL DGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 14*N + 2*N*(N+1)) -* +* (Workspace: need 14*N + 2*N*(N+1)) +* ITGKZ = ITEMP ITEMP = ITGKZ + N*(N*2+1) - CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), + CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ N*2, WORK( ITEMP ), IWORK, INFO) * @@ -639,12 +639,12 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Call DORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) -* - CALL DORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), +* + CALL DORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -657,11 +657,11 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL DORMBR( 'P', 'R', 'T', NS, N, N, A, LDA, + CALL DORMBR( 'P', 'R', 'T', NS, N, N, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) END IF - END IF + END IF ELSE * * A has more columns than rows. If A has sufficiently more @@ -670,7 +670,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( N.GE.MNTHR ) THEN * * Path 1t (N much larger than M): -* A = L * Q = ( QB * B * PB**T ) * Q +* A = L * Q = ( QB * B * PB**T ) * Q * = ( QB * ( UB * S * VB**T ) * PB**T ) * Q * U = QB * UB ; V**T = VB**T * PB**T * Q * @@ -693,16 +693,16 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAUP + M CALL DLACPY( 'L', M, M, A, LDA, WORK( ILQF ), M ) CALL DLASET( 'U', M-1, M-1, ZERO, ZERO, WORK( ILQF+M ), M ) - CALL DGEBRD( M, M, WORK( ILQF ), M, WORK( ID ), WORK( IE ), + CALL DGEBRD( M, M, WORK( ILQF ), M, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * ITGKZ = ITEMP ITEMP = ITGKZ + M*(M*2+1) - CALL DBDSVDX( 'U', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), + CALL DBDSVDX( 'U', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ M*2, WORK( ITEMP ), IWORK, INFO) * @@ -718,11 +718,11 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL DORMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL DORMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -736,23 +736,23 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute (VB**T)*(PB**T) * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL DORMBR( 'P', 'R', 'T', NS, M, M, WORK( ILQF ), M, + CALL DORMBR( 'P', 'R', 'T', NS, M, M, WORK( ILQF ), M, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call DORMLQ to compute ((VB**T)*(PB**T))*Q. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL DORMLQ( 'R', 'N', NS, N, M, A, LDA, + CALL DORMLQ( 'R', 'N', NS, N, M, A, LDA, $ WORK( ITAU ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF ELSE * * Path 2t (N greater than M, but not much larger) * Reduce to bidiagonal form without LQ decomposition * A = QB * B * PB**T = QB * ( UB * S * VB**T ) * PB**T -* U = QB * UB; V**T = VB**T * PB**T +* U = QB * UB; V**T = VB**T * PB**T * * Bidiagonalize A * (Workspace: need 4*M+N, prefer 4*M+(M+N)*NB) @@ -762,19 +762,19 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITAUQ = IE + M ITAUP = ITAUQ + M ITEMP = ITAUP + M - CALL DGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), + CALL DGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * ITGKZ = ITEMP ITEMP = ITGKZ + M*(M*2+1) - CALL DBDSVDX( 'L', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), + CALL DBDSVDX( 'L', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ M*2, WORK( ITEMP ), IWORK, INFO) -* +* * If needed, compute left singular vectors. * IF( WANTU ) THEN @@ -787,11 +787,11 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL DORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL DORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -805,10 +805,10 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call DORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL DORMBR( 'P', 'R', 'T', NS, N, M, A, LDA, + CALL DORMBR( 'P', 'R', 'T', NS, N, M, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF END IF END IF * diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f index e89af874e1..2286b7b78e 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -103,7 +103,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. +*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. *> \endverbatim *> *> \param[in] N @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -1261,7 +1261,7 @@ SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = MAX( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( MAX( ZERO, + AAPP = AAPP*DSQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = WORK( p ) / WORK( q ) diff --git a/SRC/dgesvx.f b/SRC/dgesvx.f index aac2053244..8b2dc25a31 100644 --- a/SRC/dgesvx.f +++ b/SRC/dgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgesvxx.f b/SRC/dgesvxx.f index ba2253f7f1..d2b84a07bd 100644 --- a/SRC/dgesvxx.f +++ b/SRC/dgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -524,10 +524,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dgetc2.f b/SRC/dgetc2.f index 3f6be168d7..2a4ea6c8e7 100644 --- a/SRC/dgetc2.f +++ b/SRC/dgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dgetf2.f b/SRC/dgetf2.f index 649d0671de..a95d4b3bd6 100644 --- a/SRC/dgetf2.f +++ b/SRC/dgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,11 +128,11 @@ SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION SFMIN + DOUBLE PRECISION SFMIN INTEGER I, J, JP * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH INTEGER IDAMAX EXTERNAL DLAMCH, IDAMAX * .. @@ -164,9 +164,9 @@ SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) IF( M.EQ.0 .OR. N.EQ.0 ) $ RETURN * -* Compute machine safe minimum -* - SFMIN = DLAMCH('S') +* Compute machine safe minimum +* + SFMIN = DLAMCH('S') * DO 10 J = 1, MIN( M, N ) * @@ -183,15 +183,15 @@ SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) * * Compute elements J+1:M of J-th column. * - IF( J.LT.M ) THEN - IF( ABS(A( J, J )) .GE. SFMIN ) THEN - CALL DSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) - ELSE - DO 20 I = 1, M-J - A( J+I, J ) = A( J+I, J ) / A( J, J ) - 20 CONTINUE - END IF - END IF + IF( J.LT.M ) THEN + IF( ABS(A( J, J )) .GE. SFMIN ) THEN + CALL DSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) + ELSE + DO 20 I = 1, M-J + A( J+I, J ) = A( J+I, J ) / A( J, J ) + 20 CONTINUE + END IF + END IF * ELSE IF( INFO.EQ.0 ) THEN * diff --git a/SRC/dgetrf.f b/SRC/dgetrf.f index 0f1f6d470c..79b3e9d547 100644 --- a/SRC/dgetrf.f +++ b/SRC/dgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgetrf2.f b/SRC/dgetrf2.f index 30aa42d680..32737da13f 100644 --- a/SRC/dgetrf2.f +++ b/SRC/dgetrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE DGETRF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,11 +35,11 @@ *> *> This is the recursive version of the algorithm. It divides *> the matrix into four submatrices: -*> +*> *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 *> A = [ -----|----- ] with n1 = min(m,n)/2 *> [ A21 | A22 ] n2 = n-n1 -*> +*> *> [ A11 ] *> The subroutine calls itself to factor [ --- ], *> [ A12 ] @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -239,12 +239,12 @@ RECURSIVE SUBROUTINE DGETRF2( M, N, A, LDA, IPIV, INFO ) * * Solve A12 * - CALL DTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, + CALL DTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, $ A( 1, N1+1 ), LDA ) * * Update A22 * - CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, + CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, $ A( 1, N1+1 ), LDA, ONE, A( N1+1, N1+1 ), LDA ) * * Factor A22 diff --git a/SRC/dgetri.f b/SRC/dgetri.f index ad5324c07e..39e3db97f7 100644 --- a/SRC/dgetri.f +++ b/SRC/dgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgetrs.f b/SRC/dgetrs.f index 02e9832af7..1c77b0dbd9 100644 --- a/SRC/dgetrs.f +++ b/SRC/dgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggbak.f b/SRC/dggbak.f index 9b56e152b1..d7a695515a 100644 --- a/SRC/dggbak.f +++ b/SRC/dggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION LSCALE( * ), RSCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dggbal.f b/SRC/dggbal.f index a90e62aa71..82d0395e0c 100644 --- a/SRC/dggbal.f +++ b/SRC/dggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), LSCALE( * ), * $ RSCALE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgges.f b/SRC/dgges.f index 76d6d399ad..738368f893 100644 --- a/SRC/dgges.f +++ b/SRC/dgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, * LDVSR, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggesx.f b/SRC/dggesx.f index 3f8a391ac6..8d558da3ac 100644 --- a/SRC/dggesx.f +++ b/SRC/dggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, * VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, * LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -332,10 +332,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggev.f b/SRC/dggev.f index 1840af2861..2aeb2f9ba3 100644 --- a/SRC/dggev.f +++ b/SRC/dggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dggevx.f b/SRC/dggevx.f index ebf9f2c4c2..3b3f0b42b6 100644 --- a/SRC/dggevx.f +++ b/SRC/dggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, * IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, * RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -36,7 +36,7 @@ * $ RCONDE( * ), RCONDV( * ), RSCALE( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -347,10 +347,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -432,7 +432,7 @@ SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, * .. External Subroutines .. EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHRD, DHGEQZ, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGEVC, - $ DTGSNA, XERBLA + $ DTGSNA, XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/dggglm.f b/SRC/dggglm.f index 91c396554b..e11372854c 100644 --- a/SRC/dggglm.f +++ b/SRC/dggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dgghrd.f b/SRC/dgghrd.f index 3157af846f..15bdb77133 100644 --- a/SRC/dgghrd.f +++ b/SRC/dgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dgglse.f b/SRC/dgglse.f index 429c798ef7..da0fb07eb4 100644 --- a/SRC/dgglse.f +++ b/SRC/dgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggqrf.f b/SRC/dggqrf.f index ea0c04c589..0bb119261a 100644 --- a/SRC/dggqrf.f +++ b/SRC/dggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggrqf.f b/SRC/dggrqf.f index 86267a186d..051b08dc69 100644 --- a/SRC/dggrqf.f +++ b/SRC/dggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dggsvd3.f b/SRC/dggsvd3.f index baad1532e6..30b69e7fdf 100644 --- a/SRC/dggsvd3.f +++ b/SRC/dggsvd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/dggsvp3.f b/SRC/dggsvp3.f index 6041e4eaea..62103715b3 100644 --- a/SRC/dggsvp3.f +++ b/SRC/dggsvp3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -245,10 +245,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/dgsvj0.f b/SRC/dgsvj0.f index 344658cf01..2a5765cdc5 100644 --- a/SRC/dgsvj0.f +++ b/SRC/dgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * DOUBLE PRECISION EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), SVA( N ), D( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -485,7 +485,7 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ FASTR ) SVA( q ) = AAQQ*DSQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( MAX( ZERO, + AAPP = AAPP*DSQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = MAX( MXSINJ, DABS( T ) ) * @@ -800,7 +800,7 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = MAX( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( MAX( ZERO, + AAPP = AAPP*DSQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = D( p ) / D( q ) diff --git a/SRC/dgsvj1.f b/SRC/dgsvj1.f index a0620d65f1..b3af181fc4 100644 --- a/SRC/dgsvj1.f +++ b/SRC/dgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), D( N ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -300,7 +300,7 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -499,7 +499,7 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, MXSINJ = MAX( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( MAX( ZERO, + AAPP = AAPP*DSQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) APOAQ = D( p ) / D( q ) diff --git a/SRC/dgtcon.f b/SRC/dgtcon.f index 8dca24fad4..ee2a56f290 100644 --- a/SRC/dgtcon.f +++ b/SRC/dgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgtrfs.f b/SRC/dgtrfs.f index 9c27fb2be0..b91fb1ed70 100644 --- a/SRC/dgtrfs.f +++ b/SRC/dgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgtsv.f b/SRC/dgtsv.f index ff344d9fdb..27901bbcd7 100644 --- a/SRC/dgtsv.f +++ b/SRC/dgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgtsvx.f b/SRC/dgtsvx.f index 1dd8210781..7ab5918942 100644 --- a/SRC/dgtsvx.f +++ b/SRC/dgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgttrf.f b/SRC/dgttrf.f index e742b8874d..72ec946795 100644 --- a/SRC/dgttrf.f +++ b/SRC/dgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgttrs.f b/SRC/dgttrs.f index 4d8fc0469d..4f203a05fe 100644 --- a/SRC/dgttrs.f +++ b/SRC/dgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dgtts2.f b/SRC/dgtts2.f index c313a75b10..9ca46308ef 100644 --- a/SRC/dgtts2.f +++ b/SRC/dgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dhgeqz.f b/SRC/dhgeqz.f index e5b02fc7fe..59a7173c77 100644 --- a/SRC/dhgeqz.f +++ b/SRC/dhgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -31,7 +31,7 @@ * $ H( LDH, * ), Q( LDQ, * ), T( LDT, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -50,9 +50,9 @@ *> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**T, T = Q*P*Z**T, -*> +*> *> where Q and Z are orthogonal matrices, P is an upper triangular *> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 *> diagonal blocks. @@ -75,7 +75,7 @@ *> generalized Schur factorization of (A,B): *> *> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, *> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is *> complex and beta real. @@ -86,7 +86,7 @@ *> alternate form of the GNEP *> mu*A*y = B*y. *> Real eigenvalues can be read directly from the generalized Schur -*> form: +*> form: *> alpha = S(i,i), beta = P(i,i). *> *> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix @@ -101,7 +101,7 @@ *> \verbatim *> JOB is CHARACTER*1 *> = 'E': Compute eigenvalues only; -*> = 'S': Compute eigenvalues and the Schur form. +*> = 'S': Compute eigenvalues and the Schur form. *> \endverbatim *> *> \param[in] COMPQ @@ -277,10 +277,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -760,7 +760,7 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ S2, WR, WR2, WI ) * IF ( ABS( (WR/S1)*T( ILAST, ILAST ) - H( ILAST, ILAST ) ) - $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) + $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) $ - H( ILAST, ILAST ) ) ) THEN TEMP = WR WR = WR2 diff --git a/SRC/dhsein.f b/SRC/dhsein.f index b8244b8285..1c38b5b16f 100644 --- a/SRC/dhsein.f +++ b/SRC/dhsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, * VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/dhseqr.f b/SRC/dhseqr.f index 3ee16cad34..fd7ec4e704 100644 --- a/SRC/dhseqr.f +++ b/SRC/dhseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, * LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -228,10 +228,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/disnan.f b/SRC/disnan.f index 355b827955..f741ba1954 100644 --- a/SRC/disnan.f +++ b/SRC/disnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION DISNAN( DIN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DIN * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gbamv.f b/SRC/dla_gbamv.f index 4774556d2c..f35f7a327c 100644 --- a/SRC/dla_gbamv.f +++ b/SRC/dla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gbrcond.f b/SRC/dla_gbrcond.f index 9c524752be..b8694536f4 100644 --- a/SRC/dla_gbrcond.f +++ b/SRC/dla_gbrcond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, * AFB, LDAFB, IPIV, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDAB, LDAFB, INFO, KL, KU, CMODE @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gbrfsx_extended.f b/SRC/dla_gbrfsx_extended.f index 38dfef22fa..139768be13 100644 --- a/SRC/dla_gbrfsx_extended.f +++ b/SRC/dla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,14 +40,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GBRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gbrpvgrw.f b/SRC/dla_gbrpvgrw.f index c446687d74..f0f7f677ae 100644 --- a/SRC/dla_gbrpvgrw.f +++ b/SRC/dla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, * LDAB, AFB, LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index 1c97dcb256..11d35f3d6f 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gercond.f b/SRC/dla_gercond.f index c8092e067e..20323a0b72 100644 --- a/SRC/dla_gercond.f +++ b/SRC/dla_gercond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, * LDAF, IPIV, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO, CMODE @@ -31,7 +31,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_gerfsx_extended.f b/SRC/dla_gerfsx_extended.f index 1c3fd3e5fa..9cabf06757 100644 --- a/SRC/dla_gerfsx_extended.f +++ b/SRC/dla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS, ITHRESH @@ -38,14 +38,14 @@ * DOUBLE PRECISION C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GERFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -382,10 +382,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -666,7 +666,7 @@ SUBROUTINE DLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, * op(A) = A, A**T, or A**H depending on TRANS (and type). * CALL DCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL DGEMV( TRANS, N, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, + CALL DGEMV( TRANS, N, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, $ RES, 1 ) DO I = 1, N diff --git a/SRC/dla_gerpvgrw.f b/SRC/dla_gerpvgrw.f index fe57be348c..094d04d480 100644 --- a/SRC/dla_gerpvgrw.f +++ b/SRC/dla_gerpvgrw.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, * LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dla_lin_berr.f b/SRC/dla_lin_berr.f index 7f2e825345..f225666ada 100644 --- a/SRC/dla_lin_berr.f +++ b/SRC/dla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) * DOUBLE PRECISION RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see dla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is DOUBLE PRECISION array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_porcond.f b/SRC/dla_porcond.f index 08e755f717..696a4d69ee 100644 --- a/SRC/dla_porcond.f +++ b/SRC/dla_porcond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, * CMODE, C, INFO, WORK, * IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -31,7 +31,7 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_porfsx_extended.f b/SRC/dla_porfsx_extended.f index e35b619337..152d1d12b3 100644 --- a/SRC/dla_porfsx_extended.f +++ b/SRC/dla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_porpvgrw.f b/SRC/dla_porpvgrw.f index 3aee98d85a..13d80416c6 100644 --- a/SRC/dla_porpvgrw.f +++ b/SRC/dla_porpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, +* DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, * LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -28,14 +28,14 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -93,17 +93,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup doublePOcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, + DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * * -- LAPACK computational routine (version 3.4.2) -- diff --git a/SRC/dla_syamv.f b/SRC/dla_syamv.f index f1ee81aeb3..02845b1b1b 100644 --- a/SRC/dla_syamv.f +++ b/SRC/dla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_syrcond.f b/SRC/dla_syrcond.f index 03e075a1d9..428f2e5511 100644 --- a/SRC/dla_syrcond.f +++ b/SRC/dla_syrcond.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, +* DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, * IPIV, CMODE, C, INFO, WORK, * IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * INTEGER IWORK( * ), IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,17 +134,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup doubleSYcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, + DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) * diff --git a/SRC/dla_syrfsx_extended.f b/SRC/dla_syrfsx_extended.f index 83bd5af6f8..5c25ada2ca 100644 --- a/SRC/dla_syrfsx_extended.f +++ b/SRC/dla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,14 +41,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_SYRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -381,10 +381,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -545,7 +545,7 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, CALL BLAS_DSYMV2_X(UPLO2, N, -1.0D+0, A, LDA, $ Y(1, J), Y_TAIL, 1, 1.0D+0, RES, 1, PREC_TYPE) END IF - + ! XXX: RES is no longer needed. CALL DCOPY( N, RES, 1, DY, 1 ) CALL DSYTRS( UPLO, N, 1, AF, LDAF, IPIV, DY, N, INFO ) @@ -557,11 +557,11 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, NORMDX = 0.0D+0 DZ_Z = 0.0D+0 YMIN = HUGEVAL - + DO I = 1, N YK = ABS( Y( I, J ) ) DYK = ABS( DY( I ) ) - + IF ( YK .NE. 0.0D+0 ) THEN DZ_Z = MAX( DZ_Z, DYK / YK ) ELSE IF ( DYK .NE. 0.0D+0 ) THEN @@ -660,7 +660,7 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, ELSE CALL DLA_WWADDW( N, Y(1,J), Y_TAIL, DY ) END IF - + END DO * Target of "IF (Z_STOP .AND. X_STOP)". Sun's f77 won't EXIT. 666 CONTINUE @@ -689,9 +689,9 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, * Compute residual RES = B_s - op(A_s) * Y, * op(A) = A, A**T, or A**H depending on TRANS (and type). CALL DCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, + CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, $ 1 ) - + DO I = 1, N AYB( I ) = ABS( B( I, J ) ) END DO @@ -700,7 +700,7 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, * CALL DLA_SYAMV( UPLO2, N, 1.0D+0, $ A, LDA, Y(1, J), 1, 1.0D+0, AYB, 1 ) - + CALL DLA_LIN_BERR( N, N, 1, RES, AYB, BERR_OUT( J ) ) * * End of loop for each RHS. diff --git a/SRC/dla_syrpvgrw.f b/SRC/dla_syrpvgrw.f index 45cfb443f9..5741554d66 100644 --- a/SRC/dla_syrpvgrw.f +++ b/SRC/dla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -29,14 +29,14 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dla_wwaddw.f b/SRC/dla_wwaddw.f index 6b7509556b..ed29d834f7 100644 --- a/SRC/dla_wwaddw.f +++ b/SRC/dla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * DOUBLE PRECISION X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlabad.f b/SRC/dlabad.f index 9eda3c91db..fdfb7e3a06 100644 --- a/SRC/dlabad.f +++ b/SRC/dlabad.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLABAD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLABAD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLABAD( SMALL, LARGE ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION LARGE, SMALL * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dlabrd.f b/SRC/dlabrd.f index 72d148119a..068acc383d 100644 --- a/SRC/dlabrd.f +++ b/SRC/dlabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlacn2.f b/SRC/dlacn2.f index 9dd3c85ea2..b3cd87faed 100644 --- a/SRC/dlacn2.f +++ b/SRC/dlacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ), ISAVE( 3 ) * DOUBLE PRECISION V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to DLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlacon.f b/SRC/dlacon.f index fa98ac5c79..2c313405ee 100644 --- a/SRC/dlacon.f +++ b/SRC/dlacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ) * DOUBLE PRECISION V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to DLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlacpy.f b/SRC/dlacpy.f index a9a23c9454..d7b4b79e80 100644 --- a/SRC/dlacpy.f +++ b/SRC/dlacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dladiv.f b/SRC/dladiv.f index 5df667d641..45c422ad64 100644 --- a/SRC/dladiv.f +++ b/SRC/dladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLADIV( A, B, C, D, P, Q ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, D, P, Q * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date January 2013 * @@ -132,12 +132,12 @@ SUBROUTINE DLADIV( A, B, C, D, P, Q ) AB = MAX( ABS(A), ABS(B) ) CD = MAX( ABS(C), ABS(D) ) S = 1.0D0 - + OV = DLAMCH( 'Overflow threshold' ) UN = DLAMCH( 'Safe minimum' ) EPS = DLAMCH( 'Epsilon' ) BE = BS / (EPS*EPS) - + IF( AB >= HALF*OV ) THEN AA = HALF * AA BB = HALF * BB @@ -173,7 +173,7 @@ SUBROUTINE DLADIV( A, B, C, D, P, Q ) * END - + SUBROUTINE DLADIV1( A, B, C, D, P, Q ) * diff --git a/SRC/dlae2.f b/SRC/dlae2.f index 302eeaa1f7..8143d14867 100644 --- a/SRC/dlae2.f +++ b/SRC/dlae2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAE2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAE2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, RT1, RT2 * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f index 64ced89e18..bf9edbe235 100644 --- a/SRC/dlaebz.f +++ b/SRC/dlaebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, * RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, * NAB, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX * DOUBLE PRECISION ABSTOL, PIVMIN, RELTOL @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( MMAX, * ), C( * ), D( * ), E( * ), E2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -268,10 +268,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaed0.f b/SRC/dlaed0.f index d8d7f53e1d..34a5a7bf43 100644 --- a/SRC/dlaed0.f +++ b/SRC/dlaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), Q( LDQ, * ), QSTORE( LDQS, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaed1.f b/SRC/dlaed1.f index b4e018364f..291c7cccbe 100644 --- a/SRC/dlaed1.f +++ b/SRC/dlaed1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, INFO, LDQ, N * DOUBLE PRECISION RHO @@ -29,7 +29,7 @@ * INTEGER INDXQ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlaed2.f b/SRC/dlaed2.f index a75d72a737..e01fbf5c8c 100644 --- a/SRC/dlaed2.f +++ b/SRC/dlaed2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * Q2, INDX, INDXC, INDXP, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * DOUBLE PRECISION RHO @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -520,10 +520,10 @@ SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * into the last N - K slots of D and Q respectively. * IF( K.LT.N ) THEN - CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, + CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, $ Q( 1, K+1 ), LDQ ) CALL DCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) - END IF + END IF * * Copy CTOT into COLTYP for referencing in DLAED3. * diff --git a/SRC/dlaed3.f b/SRC/dlaed3.f index 411d0f890f..392a34ec79 100644 --- a/SRC/dlaed3.f +++ b/SRC/dlaed3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, * CTOT, W, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * DOUBLE PRECISION RHO @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ S( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaed4.f b/SRC/dlaed4.f index c898b5b618..9167791d9d 100644 --- a/SRC/dlaed4.f +++ b/SRC/dlaed4.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER I, INFO, N * DOUBLE PRECISION DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DELTA( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaed5.f b/SRC/dlaed5.f index 3ac9aa19a8..4fede758de 100644 --- a/SRC/dlaed5.f +++ b/SRC/dlaed5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) -* +* * .. Scalar Arguments .. * INTEGER I * DOUBLE PRECISION DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 2 ), DELTA( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaed6.f b/SRC/dlaed6.f index e1573f3178..fa90fa29ed 100644 --- a/SRC/dlaed6.f +++ b/SRC/dlaed6.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL ORGATI * INTEGER INFO, KNITER @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 3 ), Z( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -175,7 +175,7 @@ SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) INTEGER I, ITER, NITER DOUBLE PRECISION A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F, $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1, - $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, + $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, $ LBD, UBD * .. * .. Intrinsic Functions .. @@ -195,7 +195,7 @@ SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) IF( FINIT .LT. ZERO )THEN LBD = ZERO ELSE - UBD = ZERO + UBD = ZERO END IF * NITER = 1 @@ -363,7 +363,7 @@ SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * TAU = TAU + ETA IF( TAU .LT. LBD .OR. TAU .GT. UBD ) - $ TAU = ( LBD + UBD )/TWO + $ TAU = ( LBD + UBD )/TWO * FC = ZERO ERRETM = ZERO diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index babd57be3e..df8792185a 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, * PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, * $ QSIZ, TLVLS @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), GIVNUM( 2, * ), Q( LDQ, * ), * $ QSTORE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlaed8.f b/SRC/dlaed8.f index 42b4ea1577..73e2f38f1f 100644 --- a/SRC/dlaed8.f +++ b/SRC/dlaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, * CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, * GIVCOL, GIVNUM, INDXP, INDX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, * $ QSIZ @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), GIVNUM( 2, * ), * $ Q( LDQ, * ), Q2( LDQ2, * ), W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -308,8 +308,8 @@ SUBROUTINE DLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/SRC/dlaed9.f b/SRC/dlaed9.f index 8aa0687573..3d8700cbb0 100644 --- a/SRC/dlaed9.f +++ b/SRC/dlaed9.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED9 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED9 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, * S, LDS, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N * DOUBLE PRECISION RHO @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), S( LDS, * ), * $ W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaeda.f b/SRC/dlaeda.f index 749a7c365a..785cbc090e 100644 --- a/SRC/dlaeda.f +++ b/SRC/dlaeda.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, * GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, INFO, N, TLVLS * .. @@ -29,7 +29,7 @@ * $ PRMPTR( * ), QPTR( * ) * DOUBLE PRECISION GIVNUM( 2, * ), Q( * ), Z( * ), ZTEMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaein.f b/SRC/dlaein.f index d4be36c987..aa65411102 100644 --- a/SRC/dlaein.f +++ b/SRC/dlaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, * LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), H( LDH, * ), VI( * ), VR( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaev2.f b/SRC/dlaev2.f index 2e333ddf2c..bd83c23049 100644 --- a/SRC/dlaev2.f +++ b/SRC/dlaev2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, CS1, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaexc.f b/SRC/dlaexc.f index ef2d66e034..1092d49d6c 100644 --- a/SRC/dlaexc.f +++ b/SRC/dlaexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ * INTEGER INFO, J1, LDQ, LDT, N, N1, N2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlag2.f b/SRC/dlag2.f index 1e3366c9bf..aa4c3d6f7e 100644 --- a/SRC/dlag2.f +++ b/SRC/dlag2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAG2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAG2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, * WR2, WI ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * DOUBLE PRECISION SAFMIN, SCALE1, SCALE2, WI, WR1, WR2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlag2s.f b/SRC/dlag2s.f index 2bace1f791..fa9d722532 100644 --- a/SRC/dlag2s.f +++ b/SRC/dlag2s.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAG2S + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAG2S + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlags2.f b/SRC/dlags2.f index 0f7cc85e28..0173913cd7 100644 --- a/SRC/dlags2.f +++ b/SRC/dlags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * DOUBLE PRECISION A1, A2, A3, B1, B2, B3, CSQ, CSU, CSV, SNQ, * $ SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlagtf.f b/SRC/dlagtf.f index ba7b229689..ea3953d48f 100644 --- a/SRC/dlagtf.f +++ b/SRC/dlagtf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION LAMBDA, TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * DOUBLE PRECISION A( * ), B( * ), C( * ), D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlagtm.f b/SRC/dlagtm.f index 0908f1f2b8..67880ba463 100644 --- a/SRC/dlagtm.f +++ b/SRC/dlagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlagts.f b/SRC/dlagts.f index 8eb28ff0d8..2f67b4c938 100644 --- a/SRC/dlagts.f +++ b/SRC/dlagts.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, JOB, N * DOUBLE PRECISION TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * DOUBLE PRECISION A( * ), B( * ), C( * ), D( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlagv2.f b/SRC/dlagv2.f index f52801fff0..4b12151e46 100644 --- a/SRC/dlagv2.f +++ b/SRC/dlagv2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, * CSR, SNR ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * DOUBLE PRECISION CSL, CSR, SNL, SNR @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), ALPHAI( 2 ), ALPHAR( 2 ), * $ B( LDB, * ), BETA( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlahqr.f b/SRC/dlahqr.f index 48033d84bc..fd336ffb8f 100644 --- a/SRC/dlahqr.f +++ b/SRC/dlahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION H( LDH, * ), WI( * ), WR( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -292,7 +292,7 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * * ITMAX is the total number of QR iterations allowed. * - ITMAX = 30 * MAX( 10, NH ) + ITMAX = 30 * MAX( 10, NH ) * * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works diff --git a/SRC/dlahr2.f b/SRC/dlahr2.f index 9d15979c0e..f6ccb0926f 100644 --- a/SRC/dlahr2.f +++ b/SRC/dlahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * .. Parameters .. DOUBLE PRECISION ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, + PARAMETER ( ZERO = 0.0D+0, $ ONE = 1.0D+0 ) * .. * .. Local Scalars .. @@ -240,31 +240,31 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * w := V1**T * b1 * CALL DCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL DTRMV( 'Lower', 'Transpose', 'UNIT', + CALL DTRMV( 'Lower', 'Transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**T * b2 * - CALL DGEMV( 'Transpose', N-K-I+1, I-1, + CALL DGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**T * w * - CALL DTRMV( 'Upper', 'Transpose', 'NON-UNIT', + CALL DTRMV( 'Upper', 'Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL DGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL DGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL DTRMV( 'Lower', 'NO TRANSPOSE', + CALL DTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL DAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -282,13 +282,13 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Compute Y(K+1:N,I) * - CALL DGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL DGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL DGEMV( 'Transpose', N-K-I+1, I-1, + CALL DGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL DGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL DGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL DSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -296,7 +296,7 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute T(1:I,I) * CALL DSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL DTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL DTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -307,15 +307,15 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute Y(1:K,1:NB) * CALL DLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL DTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL DTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL DGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL DGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL DTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL DTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/SRC/dlaic1.f b/SRC/dlaic1.f index e5841c3b30..832941caba 100644 --- a/SRC/dlaic1.f +++ b/SRC/dlaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * DOUBLE PRECISION C, GAMMA, S, SEST, SESTPR @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaisnan.f b/SRC/dlaisnan.f index 58595c5c33..9ebffb7f1a 100644 --- a/SRC/dlaisnan.f +++ b/SRC/dlaisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DIN1, DIN2 * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaln2.f b/SRC/dlaln2.f index 23629b7f19..c8b1323b68 100644 --- a/SRC/dlaln2.f +++ b/SRC/dlaln2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, * LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANS * INTEGER INFO, LDA, LDB, LDX, NA, NW @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlals0.f b/SRC/dlals0.f index e743b90ccf..18ce225999 100644 --- a/SRC/dlals0.f +++ b/SRC/dlals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -33,7 +33,7 @@ * $ DIFR( LDGNUM, * ), GIVNUM( LDGNUM, * ), * $ POLES( LDGNUM, * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlalsa.f b/SRC/dlalsa.f index 10de07d2f1..250a33adff 100644 --- a/SRC/dlalsa.f +++ b/SRC/dlalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -36,7 +36,7 @@ * $ U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlalsd.f b/SRC/dlalsd.f index 50b4d74fc4..b22d1b0c7e 100644 --- a/SRC/dlalsd.f +++ b/SRC/dlalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlamrg.f b/SRC/dlamrg.f index 8e9d37bd16..cc7289caf0 100644 --- a/SRC/dlamrg.f +++ b/SRC/dlamrg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAMRG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAMRG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) -* +* * .. Scalar Arguments .. * INTEGER DTRD1, DTRD2, N1, N2 * .. @@ -27,7 +27,7 @@ * INTEGER INDEX( * ) * DOUBLE PRECISION A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlaneg.f b/SRC/dlaneg.f index bfeb97674c..7f333151f8 100644 --- a/SRC/dlaneg.f +++ b/SRC/dlaneg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANEG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANEG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) -* +* * .. Scalar Arguments .. * INTEGER N, R * DOUBLE PRECISION PIVMIN, SIGMA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), LLD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlangb.f b/SRC/dlangb.f index 87116ee392..67810b790a 100644 --- a/SRC/dlangb.f +++ b/SRC/dlangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlange.f b/SRC/dlange.f index bec815d1ef..1dc145cc09 100644 --- a/SRC/dlange.f +++ b/SRC/dlange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlangt.f b/SRC/dlangt.f index fb89baf8dd..c2391092e1 100644 --- a/SRC/dlangt.f +++ b/SRC/dlangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/SRC/dlanhs.f b/SRC/dlanhs.f index 35c0637adc..b27b3b9c95 100644 --- a/SRC/dlanhs.f +++ b/SRC/dlanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlansb.f b/SRC/dlansb.f index a5417f50ae..829a8986ec 100644 --- a/SRC/dlansb.f +++ b/SRC/dlansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlansf.f b/SRC/dlansf.f index cac7b02d00..222d4350da 100644 --- a/SRC/dlansf.f +++ b/SRC/dlansf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), WORK( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -299,7 +299,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, K - 1 DO I = 0, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -308,7 +308,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, N - 1 DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -320,7 +320,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, K - 1 DO I = 0, N TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -329,7 +329,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, N DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -379,7 +379,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -421,7 +421,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -459,7 +459,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -497,7 +497,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -563,7 +563,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -628,7 +628,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -701,7 +701,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -774,7 +774,7 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF diff --git a/SRC/dlansp.f b/SRC/dlansp.f index 60ed215a52..cb9cf16351 100644 --- a/SRC/dlansp.f +++ b/SRC/dlansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlanst.f b/SRC/dlanst.f index 213b06ada0..14ebadbf57 100644 --- a/SRC/dlanst.f +++ b/SRC/dlanst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlansy.f b/SRC/dlansy.f index 47dae46c97..cdf67d70ef 100644 --- a/SRC/dlansy.f +++ b/SRC/dlansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlantb.f b/SRC/dlantb.f index 28ca46a39d..8b8f0e172b 100644 --- a/SRC/dlantb.f +++ b/SRC/dlantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlantp.f b/SRC/dlantp.f index ae4a669b8e..dd95713f82 100644 --- a/SRC/dlantp.f +++ b/SRC/dlantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlantr.f b/SRC/dlantr.f index 6088e8cc9b..99033a8490 100644 --- a/SRC/dlantr.f +++ b/SRC/dlantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlanv2.f b/SRC/dlanv2.f index 26c6b11ec3..b7d25621ee 100644 --- a/SRC/dlanv2.f +++ b/SRC/dlanv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlapll.f b/SRC/dlapll.f index 6c5cbed6d5..9a74307f6c 100644 --- a/SRC/dlapll.f +++ b/SRC/dlapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlapmr.f b/SRC/dlapmr.f index f228c3e5d8..0befec014c 100644 --- a/SRC/dlapmr.f +++ b/SRC/dlapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * DOUBLE PRECISION X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlapmt.f b/SRC/dlapmt.f index 9c01fbcbb6..9cb0f3e418 100644 --- a/SRC/dlapmt.f +++ b/SRC/dlapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * DOUBLE PRECISION X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index d43b0d5d14..0f4963450a 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION X, Y * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 23feecc447..9d616c05ac 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPY3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPY3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION X, Y, Z * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqgb.f b/SRC/dlaqgb.f index d5c2f473a1..495087bd4f 100644 --- a/SRC/dlaqgb.f +++ b/SRC/dlaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqge.f b/SRC/dlaqge.f index 6e4f039b50..b76704c477 100644 --- a/SRC/dlaqge.f +++ b/SRC/dlaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index e138aeee11..38d5a198cc 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), TAU( * ), VN1( * ), VN2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,7 +67,7 @@ *> \verbatim *> A is DOUBLE PRECISION array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is *> the triangular factor obtained; the elements in block *> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/SRC/dlaqps.f b/SRC/dlaqps.f index 2521bf6df3..192583c285 100644 --- a/SRC/dlaqps.f +++ b/SRC/dlaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ), * $ VN1( * ), VN2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,8 +170,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -342,9 +342,9 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = DNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/SRC/dlaqr0.f b/SRC/dlaqr0.f index 2a3b1db9e3..3b45267006 100644 --- a/SRC/dlaqr0.f +++ b/SRC/dlaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -243,10 +243,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqr1.f b/SRC/dlaqr1.f index df4fb68b3f..ec71c8336c 100644 --- a/SRC/dlaqr1.f +++ b/SRC/dlaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION SI1, SI2, SR1, SR2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqr2.f b/SRC/dlaqr2.f index 21c2d3af87..6846b1ca18 100644 --- a/SRC/dlaqr2.f +++ b/SRC/dlaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqr3.f b/SRC/dlaqr3.f index 103cd366fb..6399d28d93 100644 --- a/SRC/dlaqr3.f +++ b/SRC/dlaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlaqr4.f b/SRC/dlaqr4.f index 6898dfafe9..86afb91f84 100644 --- a/SRC/dlaqr4.f +++ b/SRC/dlaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -232,10 +232,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index b28df32aa7..1e1aa9b7fd 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, * SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, * LDU, NV, WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -32,7 +32,7 @@ * $ V( LDV, * ), WH( LDWH, * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -231,10 +231,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlaqsb.f b/SRC/dlaqsb.f index b15ea6bec7..251c90c07f 100644 --- a/SRC/dlaqsb.f +++ b/SRC/dlaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqsp.f b/SRC/dlaqsp.f index 67ceb4610f..8a4e69d492 100644 --- a/SRC/dlaqsp.f +++ b/SRC/dlaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqsy.f b/SRC/dlaqsy.f index 83ecf8c3d0..22b4318d08 100644 --- a/SRC/dlaqsy.f +++ b/SRC/dlaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaqtr.f b/SRC/dlaqtr.f index 189f5f87a7..7f950674b9 100644 --- a/SRC/dlaqtr.f +++ b/SRC/dlaqtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LREAL, LTRAN * INTEGER INFO, LDT, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( * ), T( LDT, * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlar1v.f b/SRC/dlar1v.f index 1234328b11..fd5b5d19f4 100644 --- a/SRC/dlar1v.f +++ b/SRC/dlar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlar2v.f b/SRC/dlar2v.f index a6766baaa8..9bec90c233 100644 --- a/SRC/dlar2v.f +++ b/SRC/dlar2v.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarf.f b/SRC/dlarf.f index 80dca69af7..c6d83a1da1 100644 --- a/SRC/dlarf.f +++ b/SRC/dlarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarfb.f b/SRC/dlarfb.f index 18ec9bfd76..b2c41bdfae 100644 --- a/SRC/dlarfb.f +++ b/SRC/dlarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/SRC/dlarfg.f b/SRC/dlarfg.f index ce91d33c1a..63416aa3b2 100644 --- a/SRC/dlarfg.f +++ b/SRC/dlarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarfgp.f b/SRC/dlarfgp.f index 0f5f49a8e3..faca8d6244 100644 --- a/SRC/dlarfgp.f +++ b/SRC/dlarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -203,7 +203,7 @@ SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO. This explains the next IF statement. * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -219,7 +219,7 @@ SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) BETA = -SAVEALPHA END IF * - ELSE + ELSE * * This is the general case. * diff --git a/SRC/dlarft.f b/SRC/dlarft.f index bc1b53b2ce..a29e2f33c3 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -221,13 +221,13 @@ SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( I , J ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**T * V(i:j,i) * - CALL DGEMV( 'Transpose', J-I, I-1, -TAU( I ), - $ V( I+1, 1 ), LDV, V( I+1, I ), 1, ONE, + CALL DGEMV( 'Transpose', J-I, I-1, -TAU( I ), + $ V( I+1, 1 ), LDV, V( I+1, I ), 1, ONE, $ T( 1, I ), 1 ) ELSE * Skip any trailing zeros. @@ -236,7 +236,7 @@ SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**T @@ -280,7 +280,7 @@ SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( N-K+I , J ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**T * V(j:n-k+i,i) @@ -295,7 +295,7 @@ SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**T diff --git a/SRC/dlarfx.f b/SRC/dlarfx.f index 47491dc6be..dbcfeb4d26 100644 --- a/SRC/dlarfx.f +++ b/SRC/dlarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlargv.f b/SRC/dlargv.f index 9ef68f244c..beb0fd6234 100644 --- a/SRC/dlargv.f +++ b/SRC/dlargv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarnv.f b/SRC/dlarnv.f index 04af112aea..1eb25464e7 100644 --- a/SRC/dlarnv.f +++ b/SRC/dlarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarra.f b/SRC/dlarra.f index c78e8d01fd..7a05c6bc66 100644 --- a/SRC/dlarra.f +++ b/SRC/dlarra.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, * NSPLIT, ISPLIT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N, NSPLIT * DOUBLE PRECISION SPLTOL, TNRM @@ -29,7 +29,7 @@ * INTEGER ISPLIT( * ) * DOUBLE PRECISION D( * ), E( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarrb.f b/SRC/dlarrb.f index f02c6d1d13..37143c181b 100644 --- a/SRC/dlarrb.f +++ b/SRC/dlarrb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, * RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, * PIVMIN, SPDIAM, TWIST, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST * DOUBLE PRECISION PIVMIN, RTOL1, RTOL2, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), LLD( * ), W( * ), * $ WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarrc.f b/SRC/dlarrc.f index 9a6f7f7953..74055d42aa 100644 --- a/SRC/dlarrc.f +++ b/SRC/dlarrc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, * EIGCNT, LCNT, RCNT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBT * INTEGER EIGCNT, INFO, LCNT, N, RCNT @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f index 00add6f9d6..7951f0f2b6 100644 --- a/SRC/dlarrd.f +++ b/SRC/dlarrd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, * M, W, WERR, WL, WU, IBLOCK, INDEXW, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), E( * ), E2( * ), * $ GERS( * ), W( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -314,10 +314,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlarre.f b/SRC/dlarre.f index d8e9c84591..ee0028d989 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, * W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), E( * ), E2( * ), GERS( * ), * $ W( * ),WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index afec65c991..b0b2564137 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * W, WGAP, WERR, * SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, * DPLUS, LPLUS, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CLSTRT, CLEND, INFO, N * DOUBLE PRECISION CLGAPL, CLGAPR, PIVMIN, SIGMA, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), DPLUS( * ), L( * ), LD( * ), * $ LPLUS( * ), W( * ), WGAP( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlarrj.f b/SRC/dlarrj.f index 7fb5cbf413..f383698dcc 100644 --- a/SRC/dlarrj.f +++ b/SRC/dlarrj.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLARRJ( N, D, E2, IFIRST, ILAST, * RTOL, OFFSET, W, WERR, WORK, IWORK, * PIVMIN, SPDIAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET * DOUBLE PRECISION PIVMIN, RTOL, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), E2( * ), W( * ), * $ WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarrk.f b/SRC/dlarrk.f index c649cc95ac..b9b707f9db 100644 --- a/SRC/dlarrk.f +++ b/SRC/dlarrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRK( N, IW, GL, GU, * D, E2, PIVMIN, RELTOL, W, WERR, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, IW, N * DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarrr.f b/SRC/dlarrr.f index add58e6025..1f6aa147d9 100644 --- a/SRC/dlarrr.f +++ b/SRC/dlarrr.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRR( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER N, INFO * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index 0628d49ed5..a85e54aedb 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * DOUBLE PRECISION MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlarscl2.f b/SRC/dlarscl2.f index acd577833e..159203a5ce 100644 --- a/SRC/dlarscl2.f +++ b/SRC/dlarscl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlartg.f b/SRC/dlartg.f index bf74c4365c..e73b5da4ee 100644 --- a/SRC/dlartg.f +++ b/SRC/dlartg.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlartgp.f b/SRC/dlartgp.f index 3f947a84a6..512af27271 100644 --- a/SRC/dlartgp.f +++ b/SRC/dlartgp.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTGP( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlartgs.f b/SRC/dlartgs.f index 5a821a2559..4e5b0b428d 100644 --- a/SRC/dlartgs.f +++ b/SRC/dlartgs.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, SIGMA, SN, X, Y * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlartv.f b/SRC/dlartv.f index f9aa2ae1e9..c85454fc76 100644 --- a/SRC/dlartv.f +++ b/SRC/dlartv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaruv.f b/SRC/dlaruv.f index d9012c6509..6deaeed864 100644 --- a/SRC/dlaruv.f +++ b/SRC/dlaruv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARUV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARUV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARUV( ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -67,10 +67,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -392,7 +392,7 @@ SUBROUTINE DLARUV( ISEED, N, X ) I4 = ISEED( 4 ) * DO 10 I = 1, MIN( N, LV ) -* +* 20 CONTINUE * * Multiply the seed by i-th power of the multiplier modulo 2**48 @@ -419,11 +419,11 @@ SUBROUTINE DLARUV( ISEED, N, X ) * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which * will occur about once every 2**n calls), then X( I ) will -* be rounded to exactly 1.0. +* be rounded to exactly 1.0. * Since X( I ) is not supposed to return exactly 0.0 or 1.0, * the statistically correct thing to do in this situation is * simply to iterate again. -* N.B. the case X( I ) = 0.0 should not be possible. +* N.B. the case X( I ) = 0.0 should not be possible. I1 = I1 + 2 I2 = I2 + 2 I3 = I3 + 2 diff --git a/SRC/dlarz.f b/SRC/dlarz.f index 08a57ecc7d..aefbf65956 100644 --- a/SRC/dlarz.f +++ b/SRC/dlarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarzb.f b/SRC/dlarzb.f index 93c1bd182c..6717504d4a 100644 --- a/SRC/dlarzb.f +++ b/SRC/dlarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlarzt.f b/SRC/dlarzt.f index f76c593f3f..55a8d12d15 100644 --- a/SRC/dlarzt.f +++ b/SRC/dlarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlas2.f b/SRC/dlas2.f index 81077f940d..9850ec1807 100644 --- a/SRC/dlas2.f +++ b/SRC/dlas2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION F, G, H, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlascl.f b/SRC/dlascl.f index 13c176ce3e..30f44c91b3 100644 --- a/SRC/dlascl.f +++ b/SRC/dlascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlascl2.f b/SRC/dlascl2.f index f9b3b8a154..5492053973 100644 --- a/SRC/dlascl2.f +++ b/SRC/dlascl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f index 7d7a681019..70167ce7a5 100644 --- a/SRC/dlasd0.f +++ b/SRC/dlasd0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index cf7ae9089f..98f938b91c 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, * IDXQ, IWORK, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, NL, NR, SQRE * DOUBLE PRECISION ALPHA, BETA @@ -29,7 +29,7 @@ * INTEGER IDXQ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -185,10 +185,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlasd2.f b/SRC/dlasd2.f index 074449c3d1..154082a888 100644 --- a/SRC/dlasd2.f +++ b/SRC/dlasd2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, * LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, * IDXC, IDXQ, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE * DOUBLE PRECISION ALPHA, BETA @@ -33,7 +33,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f index 89aae6bbb0..24666cd9e4 100644 --- a/SRC/dlasd3.f +++ b/SRC/dlasd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, * LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, * $ SQRE @@ -32,7 +32,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlasd4.f b/SRC/dlasd4.f index 71b6f7925a..74acf29a0d 100644 --- a/SRC/dlasd4.f +++ b/SRC/dlasd4.f @@ -331,7 +331,7 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / ( DELTA( N )*WORK( N ) ) PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -400,7 +400,7 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -470,7 +470,7 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -622,8 +622,8 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = W + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * * Test for convergence @@ -703,7 +703,7 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., DLAED6 failed, switch back +* If INFO is not 0, i.e., DLAED6 failed, switch back * to 2 pole interpolation. * SWTCH3 = .FALSE. @@ -803,8 +803,8 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * SWTCH = .FALSE. @@ -922,7 +922,7 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., DLAED6 failed, switch +* If INFO is not 0, i.e., DLAED6 failed, switch * back to two pole interpolation * SWTCH3 = .FALSE. @@ -1038,8 +1038,8 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * IF( W*PREW.GT.ZERO .AND. ABS( W ).GT.ABS( PREW ) / TEN ) diff --git a/SRC/dlasd5.f b/SRC/dlasd5.f index a1b4cd1f08..7874c11d45 100644 --- a/SRC/dlasd5.f +++ b/SRC/dlasd5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) -* +* * .. Scalar Arguments .. * INTEGER I * DOUBLE PRECISION DSIGMA, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 2 ), DELTA( 2 ), WORK( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index d562cc53e9..9619c6f312 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, * LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ GIVNUM( LDGNUM, * ), POLES( LDGNUM, * ), * $ VF( * ), VL( * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlasd7.f b/SRC/dlasd7.f index bca613d2fb..4c844e62d7 100644 --- a/SRC/dlasd7.f +++ b/SRC/dlasd7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * C, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ VF( * ), VFW( * ), VL( * ), VLW( * ), Z( * ), * $ ZW( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f index 2b7143f779..3315da2754 100644 --- a/SRC/dlasd8.f +++ b/SRC/dlasd8.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, * DSIGMA, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, K, LDDIFR * .. @@ -29,7 +29,7 @@ * $ DSIGMA( * ), VF( * ), VL( * ), WORK( * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlasda.f b/SRC/dlasda.f index bb67904935..7e540517b4 100644 --- a/SRC/dlasda.f +++ b/SRC/dlasda.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, * DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, * PERM, GIVNUM, C, S, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE * .. @@ -33,7 +33,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasdq.f b/SRC/dlasdq.f index 94cc1141d5..f40b31b89c 100644 --- a/SRC/dlasdq.f +++ b/SRC/dlasdq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, * U, LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU, SQRE @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlasdt.f b/SRC/dlasdt.f index 988b3ad501..d8b63b1338 100644 --- a/SRC/dlasdt.f +++ b/SRC/dlasdt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) -* +* * .. Scalar Arguments .. * INTEGER LVL, MSUB, N, ND * .. * .. Array Arguments .. * INTEGER INODE( * ), NDIML( * ), NDIMR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaset.f b/SRC/dlaset.f index d3bb9456e7..81cd1005cb 100644 --- a/SRC/dlaset.f +++ b/SRC/dlaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dlasq1.f b/SRC/dlasq1.f index 0bbc221ec0..d886f8b01f 100644 --- a/SRC/dlasq1.f +++ b/SRC/dlasq1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,17 +89,17 @@ *> represent a matrix with the same singular values *> which the calling subroutine could use to finish the *> computation, or even feed back into DLASQ1 -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -189,7 +189,7 @@ SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) CALL DCOPY( N-1, E, 1, WORK( 2 ), 2 ) CALL DLASCL( 'G', 0, 0, SIGMX, SCALE, 2*N-1, 1, WORK, 2*N-1, $ IINFO ) -* +* * Compute the q's and e's. * DO 30 I = 1, 2*N - 1 diff --git a/SRC/dlasq2.f b/SRC/dlasq2.f index df1690d020..13ea0065be 100644 --- a/SRC/dlasq2.f +++ b/SRC/dlasq2.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ2( N, Z, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DLASQ2 computes all the eigenvalues of the symmetric positive +*> DLASQ2 computes all the eigenvalues of the symmetric positive *> definite tridiagonal matrix associated with the qd array Z to high *> relative accuracy are computed to high relative accuracy, in the *> absence of denormalization, underflow and overflow. @@ -83,17 +83,17 @@ *> = 2, current block of Z not diagonalized after 100*N *> iterations (in inner while loop). On exit Z holds *> a qd array with the same eigenvalues as the given Z. -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,7 +136,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) * .. Local Scalars .. LOGICAL IEEE INTEGER I0, I1, I4, IINFO, IPN4, ITER, IWHILA, IWHILB, - $ K, KMIN, N0, N1, NBIG, NDIV, NFAIL, PP, SPLT, + $ K, KMIN, N0, N1, NBIG, NDIV, NFAIL, PP, SPLT, $ TTYPE DOUBLE PRECISION D, DEE, DEEMIN, DESIG, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, E, EMAX, EMIN, EPS, G, OLDEMN, QMAX, @@ -155,7 +155,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) INTRINSIC ABS, DBLE, MAX, MIN, SQRT * .. * .. Executable Statements .. -* +* * Test the input arguments. * (in case DLASQ2 is not called by DLASQ1) * @@ -195,7 +195,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) END IF Z( 5 ) = Z( 1 ) + Z( 2 ) + Z( 3 ) IF( Z( 2 ).GT.Z( 3 )*TOL2 ) THEN - T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) + T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) S = Z( 3 )*( Z( 2 ) / T ) IF( S.LE.T ) THEN S = Z( 3 )*( Z( 2 ) / ( T*( ONE+SQRT( ONE+S / T ) ) ) ) @@ -264,19 +264,19 @@ SUBROUTINE DLASQ2( N, Z, INFO ) Z( 2*N-1 ) = ZERO RETURN END IF -* +* * Check whether the machine is IEEE conformable. -* +* IEEE = ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. - $ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 -* + $ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 +* * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * DO 30 K = 2*N, 2, -2 - Z( 2*K ) = ZERO - Z( 2*K-1 ) = Z( K ) - Z( 2*K-2 ) = ZERO - Z( 2*K-3 ) = Z( K-1 ) + Z( 2*K ) = ZERO + Z( 2*K-1 ) = Z( K ) + Z( 2*K-2 ) = ZERO + Z( 2*K-3 ) = Z( K-1 ) 30 CONTINUE * I0 = 1 @@ -333,7 +333,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) D = Z( I4+1 )*( D / Z( I4-2*PP-2 ) ) END IF EMIN = MIN( EMIN, Z( I4-2*PP ) ) - 60 CONTINUE + 60 CONTINUE Z( 4*N0-PP-2 ) = D * * Now find qmax. @@ -364,14 +364,14 @@ SUBROUTINE DLASQ2( N, Z, INFO ) NDIV = 2*( N0-I0 ) * DO 160 IWHILA = 1, N + 1 - IF( N0.LT.1 ) + IF( N0.LT.1 ) $ GO TO 170 * -* While array unfinished do +* While array unfinished do * * E(N0) holds the value of SIGMA when submatrix in I0:N0 * splits from the rest of the array, but is negated. -* +* DESIG = ZERO IF( N0.EQ.N ) THEN SIGMA = ZERO @@ -386,7 +386,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) * Find last unreduced submatrix's top index I0, find QMAX and * EMIN. Find Gershgorin-type bound if Q's much greater than E's. * - EMAX = ZERO + EMAX = ZERO IF( N0.GT.I0 ) THEN EMIN = ABS( Z( 4*N0-5 ) ) ELSE @@ -404,7 +404,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) QMAX = MAX( QMAX, Z( I4-7 )+Z( I4-5 ) ) EMIN = MIN( EMIN, Z( I4-5 ) ) 90 CONTINUE - I4 = 4 + I4 = 4 * 100 CONTINUE I0 = I4 / 4 @@ -421,7 +421,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) KMIN = ( I4+3 )/4 END IF 110 CONTINUE - IF( (KMIN-I0)*2.LT.N0-KMIN .AND. + IF( (KMIN-I0)*2.LT.N0-KMIN .AND. $ DEEMIN.LE.HALF*Z(4*N0-3) ) THEN IPN4 = 4*( I0+N0 ) PP = 2 @@ -446,15 +446,15 @@ SUBROUTINE DLASQ2( N, Z, INFO ) * DMIN = -MAX( ZERO, QMIN-TWO*SQRT( QMIN )*SQRT( EMAX ) ) * -* Now I0:N0 is unreduced. +* Now I0:N0 is unreduced. * PP = 0 for ping, PP = 1 for pong. * PP = 2 indicates that flipping was applied to the Z array and -* and that the tests for deflation upon entry in DLASQ3 +* and that the tests for deflation upon entry in DLASQ3 * should not be performed. * NBIG = 100*( N0-I0+1 ) DO 140 IWHILB = 1, NBIG - IF( I0.GT.N0 ) + IF( I0.GT.N0 ) $ GO TO 150 * * While submatrix unfinished take a good dqds step. @@ -497,8 +497,8 @@ SUBROUTINE DLASQ2( N, Z, INFO ) 140 CONTINUE * INFO = 2 -* -* Maximum number of iterations exceeded, restore the shift +* +* Maximum number of iterations exceeded, restore the shift * SIGMA and place the new d's and e's in a qd array. * This might need to be done for several blocks * @@ -549,16 +549,16 @@ SUBROUTINE DLASQ2( N, Z, INFO ) INFO = 3 RETURN * -* end IWHILA +* end IWHILA * 170 CONTINUE -* +* * Move q's to the front. -* +* DO 180 K = 2, N Z( K ) = Z( 4*K-3 ) 180 CONTINUE -* +* * Sort and compute sum of eigenvalues. * CALL DLASRT( 'D', N, Z, IINFO ) @@ -570,7 +570,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) * * Store trace, sum(eigenvalues) and information on performance. * - Z( 2*N+1 ) = TRACE + Z( 2*N+1 ) = TRACE Z( 2*N+2 ) = E Z( 2*N+3 ) = DBLE( ITER ) Z( 2*N+4 ) = DBLE( NDIV ) / DBLE( N**2 ) diff --git a/SRC/dlasq3.f b/SRC/dlasq3.f index 3ae35ad11b..44404ce9c9 100644 --- a/SRC/dlasq3.f +++ b/SRC/dlasq3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, * DN2, G, TAU ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, ITER, N0, NDIV, NFAIL, PP @@ -31,7 +31,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,8 +68,8 @@ *> \verbatim *> PP is INTEGER *> PP=0 for ping, PP=1 for pong. -*> PP=2 indicates that flipping was applied to the Z array -*> and that the initial tests for deflation should not be +*> PP=2 indicates that flipping was applied to the Z array +*> and that the initial tests for deflation should not be *> performed. *> \endverbatim *> @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -286,7 +286,7 @@ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, GO TO 10 * 50 CONTINUE - IF( PP.EQ.2 ) + IF( PP.EQ.2 ) $ PP = 0 * * Reverse the qd-array, if warranted. @@ -345,7 +345,7 @@ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * GO TO 90 * - ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. + ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. $ Z( 4*( N0-1 )-PP ).LT.TOL*( SIGMA+DN1 ) .AND. $ ABS( DN ).LT.TOL*SIGMA ) THEN * @@ -389,7 +389,7 @@ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, GO TO 70 END IF ELSE -* +* * Possible underflow. Play it safe. * GO TO 80 diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f index 45361b2cbe..4bb03e8484 100644 --- a/SRC/dlasq4.f +++ b/SRC/dlasq4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * DN1, DN2, TAU, TTYPE, G ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, N0IN, PP, TTYPE * DOUBLE PRECISION DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -192,7 +192,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, TTYPE = -1 RETURN END IF -* +* NN = 4*N0 + PP IF( N0IN.EQ.N0 ) THEN * @@ -262,7 +262,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 20 10 CONTINUE 20 CONTINUE @@ -303,7 +303,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 40 30 CONTINUE 40 CONTINUE @@ -331,7 +331,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * One eigenvalue just deflated. Use DMIN1, DN1 for DMIN and DN. * - IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN + IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN * * Cases 7 and 8. * @@ -349,7 +349,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B1 = B1*( Z( I4 ) / Z( I4-2 ) ) B2 = B2 + B1 - IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) + IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) $ GO TO 60 50 CONTINUE 60 CONTINUE @@ -358,7 +358,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, GAP2 = HALF*DMIN2 - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) TTYPE = -8 END IF @@ -378,7 +378,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * Cases 10 and 11. * - IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN + IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN TTYPE = -10 S = THIRD*DMIN2 IF( Z( NN-5 ).GT.Z( NN-7 ) ) @@ -402,7 +402,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ SQRT( Z( NN-11 ) )*SQRT( Z( NN-9 ) ) - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) END IF ELSE @@ -413,7 +413,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * Case 12, more than two eigenvalues deflated. No information. * - S = ZERO + S = ZERO TTYPE = -12 END IF * diff --git a/SRC/dlasq5.f b/SRC/dlasq5.f index cdd8cf1ae3..d30308eced 100644 --- a/SRC/dlasq5.f +++ b/SRC/dlasq5.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2, IEEE, EPS ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, N0, PP @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -181,7 +181,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, IF( TAU.LT.DTHRESH*HALF ) TAU = ZERO IF( TAU.NE.ZERO ) THEN J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) @@ -192,7 +192,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) TEMP = Z( J4+1 ) / Z( J4-2 ) D = D*TEMP - TAU DMIN = MIN( DMIN, D ) @@ -201,7 +201,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) TEMP = Z( J4+2 ) / Z( J4-3 ) D = D*TEMP - TAU DMIN = MIN( DMIN, D ) @@ -210,7 +210,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN @@ -235,10 +235,10 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, * IF( PP.EQ.0 ) THEN DO 30 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) - TAU END IF @@ -247,10 +247,10 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 30 CONTINUE ELSE DO 40 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) - TAU END IF @@ -259,7 +259,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 40 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN @@ -290,17 +290,17 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, ELSE * This is the version that sets d's to zero if they are small enough J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 50 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) TEMP = Z( J4+1 ) / Z( J4-2 ) D = D*TEMP - TAU IF( D.LT.DTHRESH ) D = ZERO @@ -310,7 +310,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 50 CONTINUE ELSE DO 60 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) TEMP = Z( J4+2 ) / Z( J4-3 ) D = D*TEMP - TAU IF( D.LT.DTHRESH ) D = ZERO @@ -319,9 +319,9 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( Z( J4-1 ), EMIN ) 60 CONTINUE END IF -* -* Unroll last two steps. -* +* +* Unroll last two steps. +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -330,7 +330,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -338,17 +338,17 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 70 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) - TAU END IF @@ -358,10 +358,10 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, 70 CONTINUE ELSE DO 80 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) - TAU END IF @@ -370,9 +370,9 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( EMIN, Z( J4-1 ) ) 80 CONTINUE END IF -* -* Unroll last two steps. -* +* +* Unroll last two steps. +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -385,7 +385,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -397,10 +397,10 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF END IF -* +* Z( J4+2 ) = DN Z( 4*N0-PP ) = EMIN RETURN diff --git a/SRC/dlasq6.f b/SRC/dlasq6.f index 3c8661bbba..1c29bfa5f1 100644 --- a/SRC/dlasq6.f +++ b/SRC/dlasq6.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2 ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, PP * DOUBLE PRECISION DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -156,13 +156,13 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * SAFMIN = DLAMCH( 'Safe minimum' ) J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) DMIN = D * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( Z( J4-2 ).EQ.ZERO ) THEN Z( J4 ) = ZERO D = Z( J4+1 ) @@ -173,7 +173,7 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, TEMP = Z( J4+1 ) / Z( J4-2 ) Z( J4 ) = Z( J4-1 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) END IF @@ -182,7 +182,7 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( Z( J4-3 ).EQ.ZERO ) THEN Z( J4-1 ) = ZERO D = Z( J4+2 ) @@ -193,7 +193,7 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, TEMP = Z( J4+2 ) / Z( J4-3 ) Z( J4-1 ) = Z( J4 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) END IF @@ -202,7 +202,7 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN diff --git a/SRC/dlasr.f b/SRC/dlasr.f index 645d03b3d8..7ad05fe285 100644 --- a/SRC/dlasr.f +++ b/SRC/dlasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,35 +36,35 @@ *> *> DLASR applies a sequence of plane rotations to a real matrix A, *> from either the left or the right. -*> +*> *> When SIDE = 'L', the transformation takes the form -*> +*> *> A := P*A -*> +*> *> and when SIDE = 'R', the transformation takes the form -*> +*> *> A := A*P**T -*> +*> *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -73,13 +73,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -88,12 +88,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -102,7 +102,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasrt.f b/SRC/dlasrt.f index fca457efce..331ae638c4 100644 --- a/SRC/dlasrt.f +++ b/SRC/dlasrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASRT( ID, N, D, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ID * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlassq.f b/SRC/dlassq.f index c7c4087e80..6050329c7a 100644 --- a/SRC/dlassq.f +++ b/SRC/dlassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasv2.f b/SRC/dlasv2.f index 96aaa1e45c..e543eca131 100644 --- a/SRC/dlasv2.f +++ b/SRC/dlasv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlaswp.f b/SRC/dlaswp.f index 937e12b2f0..1f050dbff9 100644 --- a/SRC/dlaswp.f +++ b/SRC/dlaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlasy2.f b/SRC/dlasy2.f index 0af00d39d0..49a6f06497 100644 --- a/SRC/dlasy2.f +++ b/SRC/dlasy2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, * LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANL, LTRANR * INTEGER INFO, ISGN, LDB, LDTL, LDTR, LDX, N1, N2 @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), TL( LDTL, * ), TR( LDTR, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlat2s.f b/SRC/dlat2s.f index 57613c0db5..c97538e2c8 100644 --- a/SRC/dlat2s.f +++ b/SRC/dlat2s.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAT2S + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAT2S + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDSA, N @@ -28,7 +28,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlatbs.f b/SRC/dlatbs.f index 8238298a33..e3362bd1c3 100644 --- a/SRC/dlatbs.f +++ b/SRC/dlatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlatdf.f b/SRC/dlatdf.f index 5eba2843bb..1b60a36cdd 100644 --- a/SRC/dlatdf.f +++ b/SRC/dlatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * DOUBLE PRECISION RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dlatps.f b/SRC/dlatps.f index 3898a453f5..eaf60c36e9 100644 --- a/SRC/dlatps.f +++ b/SRC/dlatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlatrd.f b/SRC/dlatrd.f index 69ec0018be..022a8d830b 100644 --- a/SRC/dlatrd.f +++ b/SRC/dlatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), E( * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlatrs.f b/SRC/dlatrs.f index b34795eb15..35ef0294b1 100644 --- a/SRC/dlatrs.f +++ b/SRC/dlatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlatrz.f b/SRC/dlatrz.f index 6748db2691..31f50089eb 100644 --- a/SRC/dlatrz.f +++ b/SRC/dlatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlauu2.f b/SRC/dlauu2.f index c77ab60a00..388f216dbb 100644 --- a/SRC/dlauu2.f +++ b/SRC/dlauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dlauum.f b/SRC/dlauum.f index 1157057c78..41895b8277 100644 --- a/SRC/dlauum.f +++ b/SRC/dlauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dopgtr.f b/SRC/dopgtr.f index d908de3df9..19fe3d351e 100644 --- a/SRC/dopgtr.f +++ b/SRC/dopgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DOPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DOPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dopmtr.f b/SRC/dopmtr.f index 07486c7554..01a190aa57 100644 --- a/SRC/dopmtr.f +++ b/SRC/dopmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DOPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DOPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorbdb.f b/SRC/dorbdb.f index 011eb5c5e7..f841250d11 100644 --- a/SRC/dorbdb.f +++ b/SRC/dorbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -393,7 +393,7 @@ SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -618,12 +618,12 @@ SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, X11(I+1,I) = ONE END IF IF ( M-Q .GT. I ) THEN - CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, + CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, $ TAUQ2(I) ) ELSE - CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I,I), 1, + CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I,I), 1, $ TAUQ2(I) ) - END IF + END IF X12(I,I) = ONE * IF( I .LT. Q ) THEN @@ -649,7 +649,7 @@ SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, TAUQ2(I) ) X12(I,I) = ONE * - IF ( P .GT. I ) THEN + IF ( P .GT. I ) THEN CALL DLARF( 'L', M-Q-I+1, P-I, X12(I,I), 1, TAUQ2(I), $ X12(I,I+1), LDX12, WORK ) END IF diff --git a/SRC/dorbdb1.f b/SRC/dorbdb1.f index 8d616bc1bd..f2e958a7e1 100644 --- a/SRC/dorbdb1.f +++ b/SRC/dorbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/dorbdb2.f b/SRC/dorbdb2.f index 554cc2ff64..0919b167eb 100644 --- a/SRC/dorbdb2.f +++ b/SRC/dorbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL DROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, S ) END IF diff --git a/SRC/dorbdb3.f b/SRC/dorbdb3.f index 003c4402dc..9bff454d01 100644 --- a/SRC/dorbdb3.f +++ b/SRC/dorbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL DROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, S ) END IF diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index a8fe7435d8..bc8d552f05 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * DOUBLE PRECISION PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/dorbdb5.f b/SRC/dorbdb5.f index 8fd8e6e37c..6e80205bd8 100644 --- a/SRC/dorbdb5.f +++ b/SRC/dorbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * DOUBLE PRECISION Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, RETURN * * End of DORBDB5 -* +* END diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 59fd863bfc..1fae93116e 100644 --- a/SRC/dorbdb6.f +++ b/SRC/dorbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * DOUBLE PRECISION Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -260,7 +260,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -305,7 +305,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, END IF * RETURN -* +* * End of DORBDB6 * END diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index d5d48eb9e5..ddb2b616dc 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * LDX12, X21, LDX21, X22, LDX22, THETA, * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -37,7 +37,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -464,7 +464,7 @@ RECURSIVE SUBROUTINE DORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, IB22D = IB21E + MAX( 1, Q - 1 ) IB22E = IB22D + MAX( 1, Q ) IBBCSD = IB22E + MAX( 1, Q - 1 ) - CALL DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, + CALL DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ THETA, THETA, U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, U1, U1, U1, U1, U1, U1, U1, U1, WORK, -1, $ CHILDINFO ) @@ -579,7 +579,7 @@ RECURSIVE SUBROUTINE DORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/SRC/dorcsd2by1.f b/SRC/dorcsd2by1.f index dd0cd351c3..2f2f156160 100644 --- a/SRC/dorcsd2by1.f +++ b/SRC/dorcsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORCSD2BY1 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -33,8 +33,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -53,7 +53,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The orthogonal matrices U1, U2, and V1 are P-by-P, *> (M-P)-by-(M-P), and Q-by-Q, respectively. C and S are R-by-R *> nonnegative diagonal matrices satisfying C^2 + S^2 = I, in which @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -250,7 +250,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -526,16 +526,16 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL DORGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ WORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, $ DUM2, 1, WORK(IB11D), WORK(IB11E), $ WORK(IB12D), WORK(IB12E), WORK(IB21D), $ WORK(IB21E), WORK(IB22D), WORK(IB22E), $ WORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -580,16 +580,16 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL DORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ WORK(IPHI), V1T, LDV1T, DUM2, 1, U1, LDU1, U2, $ LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -635,16 +635,16 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL DORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, WORK(IPHI), DUM2, 1, V1T, LDV1T, U2, $ LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E), $ WORK(IB12D), WORK(IB12E), WORK(IB21D), $ WORK(IB21E), WORK(IB22D), WORK(IB22E), $ WORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -704,16 +704,16 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL DORGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, DUM2, $ 1, V1T, LDV1T, WORK(IB11D), WORK(IB11E), $ WORK(IB12D), WORK(IB12E), WORK(IB21D), $ WORK(IB21E), WORK(IB22D), WORK(IB22E), $ WORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/SRC/dorg2l.f b/SRC/dorg2l.f index b95fa50fc5..a41dde032b 100644 --- a/SRC/dorg2l.f +++ b/SRC/dorg2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dorg2r.f b/SRC/dorg2r.f index 86df6dddc7..dfea490ba0 100644 --- a/SRC/dorg2r.f +++ b/SRC/dorg2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f index ddfa7262a0..20e3d47d60 100644 --- a/SRC/dorgbr.f +++ b/SRC/dorgbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dorghr.f b/SRC/dorghr.f index 48f504ea71..ab5cfe88d8 100644 --- a/SRC/dorghr.f +++ b/SRC/dorghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorgl2.f b/SRC/dorgl2.f index 3e8398b73f..fbd5af66ca 100644 --- a/SRC/dorgl2.f +++ b/SRC/dorgl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorglq.f b/SRC/dorglq.f index 88aec15005..bfe2957ddb 100644 --- a/SRC/dorglq.f +++ b/SRC/dorglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorgql.f b/SRC/dorgql.f index ca4698d799..af818d5825 100644 --- a/SRC/dorgql.f +++ b/SRC/dorgql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorgqr.f b/SRC/dorgqr.f index 404ab184e6..fb8e232f53 100644 --- a/SRC/dorgqr.f +++ b/SRC/dorgqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index 3cd6200139..1994518baa 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dorgrq.f b/SRC/dorgrq.f index 0263eeb65f..c41883fd60 100644 --- a/SRC/dorgrq.f +++ b/SRC/dorgrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorgtr.f b/SRC/dorgtr.f index 06a7b6cc1c..82826010e3 100644 --- a/SRC/dorgtr.f +++ b/SRC/dorgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorm2l.f b/SRC/dorm2l.f index 3ff25869a7..5edecbd75c 100644 --- a/SRC/dorm2l.f +++ b/SRC/dorm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dorm2r.f b/SRC/dorm2r.f index b13f12d53c..9cb5c71618 100644 --- a/SRC/dorm2r.f +++ b/SRC/dorm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dormbr.f b/SRC/dormbr.f index 7a0d9b9038..f2bb0b7f3c 100644 --- a/SRC/dormbr.f +++ b/SRC/dormbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dormhr.f b/SRC/dormhr.f index 85bfc41b68..0c275252ff 100644 --- a/SRC/dormhr.f +++ b/SRC/dormhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dorml2.f b/SRC/dorml2.f index 9ae2396e12..0ed5377f79 100644 --- a/SRC/dorml2.f +++ b/SRC/dorml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dormlq.f b/SRC/dormlq.f index 236cfd111b..2ed1d59ccc 100644 --- a/SRC/dormlq.f +++ b/SRC/dormlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dormql.f b/SRC/dormql.f index e7d268ee63..f570413934 100644 --- a/SRC/dormql.f +++ b/SRC/dormql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dormqr.f b/SRC/dormqr.f index 7a21c2cd59..6122594f8d 100644 --- a/SRC/dormqr.f +++ b/SRC/dormqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dormr2.f b/SRC/dormr2.f index e6bcf04d81..49661fe283 100644 --- a/SRC/dormr2.f +++ b/SRC/dormr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dormr3.f b/SRC/dormr3.f index c98b16dc99..e84c33cded 100644 --- a/SRC/dormr3.f +++ b/SRC/dormr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dormrq.f b/SRC/dormrq.f index 1e3ca95308..8b168f153f 100644 --- a/SRC/dormrq.f +++ b/SRC/dormrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dormrz.f b/SRC/dormrz.f index 5e74c8aaac..db64d41e41 100644 --- a/SRC/dormrz.f +++ b/SRC/dormrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -266,7 +266,7 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, IF( INFO.EQ.0 ) THEN * * Compute the workspace requirements -* +* IF( M.EQ.0 .OR. N.EQ.0 ) THEN LWKOPT = 1 ELSE diff --git a/SRC/dormtr.f b/SRC/dormtr.f index 00fff4dda2..9a2d7f9d7f 100644 --- a/SRC/dormtr.f +++ b/SRC/dormtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbcon.f b/SRC/dpbcon.f index 18fdba80ad..1427f3ebee 100644 --- a/SRC/dpbcon.f +++ b/SRC/dpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbequ.f b/SRC/dpbequ.f index d7fba5201c..ece9ecd474 100644 --- a/SRC/dpbequ.f +++ b/SRC/dpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbrfs.f b/SRC/dpbrfs.f index 2f9ec7ab46..be1b6f7c78 100644 --- a/SRC/dpbrfs.f +++ b/SRC/dpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbstf.f b/SRC/dpbstf.f index 78dd2c1c73..f166eb8f50 100644 --- a/SRC/dpbstf.f +++ b/SRC/dpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbsv.f b/SRC/dpbsv.f index 837c651ae0..f13694be80 100644 --- a/SRC/dpbsv.f +++ b/SRC/dpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbsvx.f b/SRC/dpbsvx.f index 158f2835cb..94b1c837bd 100644 --- a/SRC/dpbsvx.f +++ b/SRC/dpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -297,10 +297,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dpbtf2.f b/SRC/dpbtf2.f index 6cc3e42d52..742a19f44a 100644 --- a/SRC/dpbtf2.f +++ b/SRC/dpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dpbtrf.f b/SRC/dpbtrf.f index d50d0330c2..b44f5eab54 100644 --- a/SRC/dpbtrf.f +++ b/SRC/dpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpbtrs.f b/SRC/dpbtrs.f index b8e3791f73..67555dbebc 100644 --- a/SRC/dpbtrs.f +++ b/SRC/dpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpftrf.f b/SRC/dpftrf.f index 647136739e..79d4435b55 100644 --- a/SRC/dpftrf.f +++ b/SRC/dpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpftri.f b/SRC/dpftri.f index 04ca4f3498..088a921a21 100644 --- a/SRC/dpftri.f +++ b/SRC/dpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpftrs.f b/SRC/dpftrs.f index d111dbc47c..66d72dbfbb 100644 --- a/SRC/dpftrs.f +++ b/SRC/dpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpocon.f b/SRC/dpocon.f index a8b0066933..2227315002 100644 --- a/SRC/dpocon.f +++ b/SRC/dpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpoequ.f b/SRC/dpoequ.f index 070c54114b..6a1e7fbd26 100644 --- a/SRC/dpoequ.f +++ b/SRC/dpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpoequb.f b/SRC/dpoequb.f index 09ee542c2a..fcee160e94 100644 --- a/SRC/dpoequb.f +++ b/SRC/dpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dporfs.f b/SRC/dporfs.f index 08db3c3801..7a73b179fd 100644 --- a/SRC/dporfs.f +++ b/SRC/dporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dporfsx.f b/SRC/dporfsx.f index 96462e4467..35d38a80e6 100644 --- a/SRC/dporfsx.f +++ b/SRC/dporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -379,10 +379,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dposv.f b/SRC/dposv.f index 0bcf476426..3ee3533799 100644 --- a/SRC/dposv.f +++ b/SRC/dposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dposvx.f b/SRC/dposvx.f index 4150a5d6cc..d6b87d7697 100644 --- a/SRC/dposvx.f +++ b/SRC/dposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dposvxx.f b/SRC/dposvxx.f index a7d0acfad7..a63368dc2b 100644 --- a/SRC/dposvxx.f +++ b/SRC/dposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -479,10 +479,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dpotf2.f b/SRC/dpotf2.f index 6003e19b05..73f2575097 100644 --- a/SRC/dpotf2.f +++ b/SRC/dpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dpotrf.f b/SRC/dpotrf.f index 5250ca0eb3..07ef05e1e4 100644 --- a/SRC/dpotrf.f +++ b/SRC/dpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dpotrf2.f b/SRC/dpotrf2.f index 751ff762c9..c579466e51 100644 --- a/SRC/dpotrf2.f +++ b/SRC/dpotrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,7 +41,7 @@ *> *> The subroutine calls itself to factor A11. Update and scale A21 *> or A12, update A22 then calls itself to factor A22. -*> +*> *> \endverbatim * * Arguments: @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -126,7 +126,7 @@ RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. - LOGICAL UPPER + LOGICAL UPPER INTEGER N1, N2, IINFO * .. * .. External Functions .. @@ -189,7 +189,7 @@ RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) IF ( IINFO.NE.0 ) THEN INFO = IINFO RETURN - END IF + END IF * * Compute the Cholesky factorization A = U**T*U * @@ -198,10 +198,10 @@ RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) * Update and scale A12 * CALL DTRSM( 'L', 'U', 'T', 'N', N1, N2, ONE, - $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) + $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) * * Update and factor A22 -* +* CALL DSYRK( UPLO, 'T', N2, N1, -ONE, A( 1, N1+1 ), LDA, $ ONE, A( N1+1, N1+1 ), LDA ) CALL DPOTRF2( UPLO, N2, A( N1+1, N1+1 ), LDA, IINFO ) @@ -216,7 +216,7 @@ RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) * * Update and scale A21 * - CALL DTRSM( 'R', 'L', 'T', 'N', N2, N1, ONE, + CALL DTRSM( 'R', 'L', 'T', 'N', N2, N1, ONE, $ A( 1, 1 ), LDA, A( N1+1, 1 ), LDA ) * * Update and factor A22 diff --git a/SRC/dpotri.f b/SRC/dpotri.f index af1572f6b9..22ddf448c6 100644 --- a/SRC/dpotri.f +++ b/SRC/dpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpotrs.f b/SRC/dpotrs.f index 71f19a3f90..d10a2fd693 100644 --- a/SRC/dpotrs.f +++ b/SRC/dpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dppcon.f b/SRC/dppcon.f index 6c55be154d..cb0b69dfe0 100644 --- a/SRC/dppcon.f +++ b/SRC/dppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dppequ.f b/SRC/dppequ.f index 4af3638f45..baa1712928 100644 --- a/SRC/dppequ.f +++ b/SRC/dppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpprfs.f b/SRC/dpprfs.f index 45fa1d8161..452e951865 100644 --- a/SRC/dpprfs.f +++ b/SRC/dpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dppsv.f b/SRC/dppsv.f index ac7c127c58..313a3b9fef 100644 --- a/SRC/dppsv.f +++ b/SRC/dppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dppsvx.f b/SRC/dppsvx.f index 3d61d38315..17c576ba9d 100644 --- a/SRC/dppsvx.f +++ b/SRC/dppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), S( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dpptrf.f b/SRC/dpptrf.f index bb06a8d779..71e79f3d19 100644 --- a/SRC/dpptrf.f +++ b/SRC/dpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpptri.f b/SRC/dpptri.f index 34b12fd578..9f279cb478 100644 --- a/SRC/dpptri.f +++ b/SRC/dpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpptrs.f b/SRC/dpptrs.f index 97f2172971..9c9823e43b 100644 --- a/SRC/dpptrs.f +++ b/SRC/dpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dpstf2.f b/SRC/dpstf2.f index 3e05c645d4..cd9ce066df 100644 --- a/SRC/dpstf2.f +++ b/SRC/dpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dpstrf.f b/SRC/dpstrf.f index 3d3f6ef031..63fcb300f8 100644 --- a/SRC/dpstrf.f +++ b/SRC/dpstrf.f @@ -3,24 +3,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dptcon.f b/SRC/dptcon.f index 78d81dceb3..6e12985631 100644 --- a/SRC/dptcon.f +++ b/SRC/dptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION ANORM, RCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dpteqr.f b/SRC/dpteqr.f index 4a98b99ee3..f4c764fe12 100644 --- a/SRC/dpteqr.f +++ b/SRC/dpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dptrfs.f b/SRC/dptrfs.f index 30b6fccdf5..9a81832c54 100644 --- a/SRC/dptrfs.f +++ b/SRC/dptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, * BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, LDX, N, NRHS * .. @@ -29,7 +29,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dptsv.f b/SRC/dptsv.f index ffc79b3cf2..1089480cbe 100644 --- a/SRC/dptsv.f +++ b/SRC/dptsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dptsvx.f b/SRC/dptsvx.f index 6f2357a855..d956056546 100644 --- a/SRC/dptsvx.f +++ b/SRC/dptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dpttrf.f b/SRC/dpttrf.f index e21327c059..288a53991e 100644 --- a/SRC/dpttrf.f +++ b/SRC/dpttrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dpttrs.f b/SRC/dpttrs.f index ae34683413..607bb7599c 100644 --- a/SRC/dpttrs.f +++ b/SRC/dpttrs.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dptts2.f b/SRC/dptts2.f index 59aa6b806f..3d506f4fc1 100644 --- a/SRC/dptts2.f +++ b/SRC/dptts2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/drscl.f b/SRC/drscl.f index 21ba19c11a..ad1c66624c 100644 --- a/SRC/drscl.f +++ b/SRC/drscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dsbev.f b/SRC/dsbev.f index fadf43e915..382a050c59 100644 --- a/SRC/dsbev.f +++ b/SRC/dsbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsbevd.f b/SRC/dsbevd.f index 0ae815b9e5..858b4703e0 100644 --- a/SRC/dsbevd.f +++ b/SRC/dsbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsbevx.f b/SRC/dsbevx.f index fc8836f79f..8b8de2c77c 100644 --- a/SRC/dsbevx.f +++ b/SRC/dsbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION AB( LDAB, * ), Q( LDQ, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -251,10 +251,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsbgst.f b/SRC/dsbgst.f index dce9b4865f..9d6af879d6 100644 --- a/SRC/dsbgst.f +++ b/SRC/dsbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsbgv.f b/SRC/dsbgv.f index 717e7a9742..48e4a396ba 100644 --- a/SRC/dsbgv.f +++ b/SRC/dsbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dsbgvd.f b/SRC/dsbgvd.f index a259ad78ee..f169c18677 100644 --- a/SRC/dsbgvd.f +++ b/SRC/dsbgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsbgvx.f b/SRC/dsbgvx.f index 2db4ac346c..b932d68b23 100644 --- a/SRC/dsbgvx.f +++ b/SRC/dsbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -33,7 +33,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -275,10 +275,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsbtrd.f b/SRC/dsbtrd.f index 528a3aad43..3131d80dc2 100644 --- a/SRC/dsbtrd.f +++ b/SRC/dsbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), D( * ), E( * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsfrk.f b/SRC/dsfrk.f index 960330c468..fe705e31cf 100644 --- a/SRC/dsfrk.f +++ b/SRC/dsfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dsgesv.f b/SRC/dsgesv.f index 99eb122c8a..baafc2363f 100644 --- a/SRC/dsgesv.f +++ b/SRC/dsgesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * SWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS * .. @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dspcon.f b/SRC/dspcon.f index e0dac84f04..075074e2b7 100644 --- a/SRC/dspcon.f +++ b/SRC/dspcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspev.f b/SRC/dspev.f index 3ddb0166e1..439470fee0 100644 --- a/SRC/dspev.f +++ b/SRC/dspev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspevd.f b/SRC/dspevd.f index 8b6b8dae56..b0b7f0cc68 100644 --- a/SRC/dspevd.f +++ b/SRC/dspevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspevx.f b/SRC/dspevx.f index 4f9e8d46f1..498d100b82 100644 --- a/SRC/dspevx.f +++ b/SRC/dspevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dspgst.f b/SRC/dspgst.f index 4be928d409..df90d7a419 100644 --- a/SRC/dspgst.f +++ b/SRC/dspgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspgv.f b/SRC/dspgv.f index 9f15c09964..b8143c48a0 100644 --- a/SRC/dspgv.f +++ b/SRC/dspgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dspgvd.f b/SRC/dspgvd.f index f3e5457e2e..16ac818d0d 100644 --- a/SRC/dspgvd.f +++ b/SRC/dspgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dspgvx.f b/SRC/dspgvx.f index e87ad5fcee..921dfa6c03 100644 --- a/SRC/dspgvx.f +++ b/SRC/dspgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsposv.f b/SRC/dsposv.f index f7573dd3cb..58606b5f52 100644 --- a/SRC/dsposv.f +++ b/SRC/dsposv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * SWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsprfs.f b/SRC/dsprfs.f index ea158ee575..c0801bae53 100644 --- a/SRC/dsprfs.f +++ b/SRC/dsprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspsv.f b/SRC/dspsv.f index 79664bb962..10ade8b5fa 100644 --- a/SRC/dspsv.f +++ b/SRC/dspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dspsvx.f b/SRC/dspsvx.f index d787cc30fa..b3e15d0aa1 100644 --- a/SRC/dspsvx.f +++ b/SRC/dspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dsptrd.f b/SRC/dsptrd.f index 5ee076a030..8ceb0c13f8 100644 --- a/SRC/dsptrd.f +++ b/SRC/dsptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsptrf.f b/SRC/dsptrf.f index b45649342d..a248c7be0a 100644 --- a/SRC/dsptrf.f +++ b/SRC/dsptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsptri.f b/SRC/dsptri.f index e914ffffca..c2d13db638 100644 --- a/SRC/dsptri.f +++ b/SRC/dsptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsptrs.f b/SRC/dsptrs.f index 48c82acbff..03a012748d 100644 --- a/SRC/dsptrs.f +++ b/SRC/dsptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dstebz.f b/SRC/dstebz.f index 25d271206a..337e7d5a68 100644 --- a/SRC/dstebz.f +++ b/SRC/dstebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, * M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -31,7 +31,7 @@ * INTEGER IBLOCK( * ), ISPLIT( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dstedc.f b/SRC/dstedc.f index 3ae63d9f98..0e0d6299b6 100644 --- a/SRC/dstedc.f +++ b/SRC/dstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dstegr.f b/SRC/dstegr.f index a56f90631e..12550e5c99 100644 --- a/SRC/dstegr.f +++ b/SRC/dstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dstein.f b/SRC/dstein.f index 0658fd42e6..2e58877181 100644 --- a/SRC/dstein.f +++ b/SRC/dstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -29,7 +29,7 @@ * $ IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dstemr.f b/SRC/dstemr.f index 60884672f1..6d26affe7e 100644 --- a/SRC/dstemr.f +++ b/SRC/dstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -298,10 +298,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -726,9 +726,9 @@ SUBROUTINE DSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( SCALE.NE.ONE ) THEN CALL DSCAL( M, ONE / SCALE, W, 1 ) END IF - + END IF - + * * If eigenvalues are not in increasing order, then sort them, * possibly along with eigenvectors. diff --git a/SRC/dsteqr.f b/SRC/dsteqr.f index 9e165bb6bb..daca9c5094 100644 --- a/SRC/dsteqr.f +++ b/SRC/dsteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsterf.f b/SRC/dsterf.f index b93cc13dd6..609db67d25 100644 --- a/SRC/dsterf.f +++ b/SRC/dsterf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTERF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTERF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTERF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -190,7 +190,7 @@ SUBROUTINE DSTERF( N, D, E, INFO ) ANORM = DLANST( 'M', LEND-L+1, D( L ), E( L ) ) ISCALE = 0 IF( ANORM.EQ.ZERO ) - $ GO TO 10 + $ GO TO 10 IF( (ANORM.GT.SSFMAX) ) THEN ISCALE = 1 CALL DLASCL( 'G', 0, 0, ANORM, SSFMAX, LEND-L+1, 1, D( L ), N, diff --git a/SRC/dstev.f b/SRC/dstev.f index aeca438295..8ac4049f48 100644 --- a/SRC/dstev.f +++ b/SRC/dstev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dstevd.f b/SRC/dstevd.f index 42648a0ad4..772f78927a 100644 --- a/SRC/dstevd.f +++ b/SRC/dstevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dstevr.f b/SRC/dstevr.f index dd40cf99c2..967ef25dc1 100644 --- a/SRC/dstevr.f +++ b/SRC/dstevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -282,10 +282,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dstevx.f b/SRC/dstevx.f index 0cdfe99923..62233b33a3 100644 --- a/SRC/dstevx.f +++ b/SRC/dstevx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, M, N @@ -30,7 +30,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsycon.f b/SRC/dsycon.f index 6e39484caa..6077f18c7b 100644 --- a/SRC/dsycon.f +++ b/SRC/dsycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsycon_rook.f b/SRC/dsycon_rook.f index 2b8b6f9013..bd34b1a1a8 100644 --- a/SRC/dsycon_rook.f +++ b/SRC/dsycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dsyconv.f b/SRC/dsyconv.f index 5680876e62..a91514ac13 100644 --- a/SRC/dsyconv.f +++ b/SRC/dsyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> DSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -194,7 +194,7 @@ SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -226,7 +226,7 @@ SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/dsyequb.f b/SRC/dsyequb.f index 865acef4c1..c9d8886a47 100644 --- a/SRC/dsyequb.f +++ b/SRC/dsyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsyev.f b/SRC/dsyev.f index 64b39ed847..9ad01f46ea 100644 --- a/SRC/dsyev.f +++ b/SRC/dsyev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsyevd.f b/SRC/dsyevd.f index 3c9545ac31..3a66329308 100644 --- a/SRC/dsyevd.f +++ b/SRC/dsyevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dsyevr.f b/SRC/dsyevr.f index c78fb156d1..0789643e4d 100644 --- a/SRC/dsyevr.f +++ b/SRC/dsyevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsyevx.f b/SRC/dsyevx.f index 52c847779e..a22845c4d6 100644 --- a/SRC/dsyevx.f +++ b/SRC/dsyevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsygs2.f b/SRC/dsygs2.f index 644dcfff1b..dc57c64807 100644 --- a/SRC/dsygs2.f +++ b/SRC/dsygs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dsygst.f b/SRC/dsygst.f index f1d5311c9a..81c052af3e 100644 --- a/SRC/dsygst.f +++ b/SRC/dsygst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsygv.f b/SRC/dsygv.f index e6d7d3c2d2..fd39f3986c 100644 --- a/SRC/dsygv.f +++ b/SRC/dsygv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dsygvd.f b/SRC/dsygvd.f index 9c19e938d3..01f8948b93 100644 --- a/SRC/dsygvd.f +++ b/SRC/dsygvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dsygvx.f b/SRC/dsygvx.f index 13ab094db9..4a5f4e9c4e 100644 --- a/SRC/dsygvx.f +++ b/SRC/dsygvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dsyrfs.f b/SRC/dsyrfs.f index fb807c880e..d35229e81d 100644 --- a/SRC/dsyrfs.f +++ b/SRC/dsyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsyrfsx.f b/SRC/dsyrfsx.f index 95aba2f990..72da663353 100644 --- a/SRC/dsyrfsx.f +++ b/SRC/dsyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dsysv.f b/SRC/dsysv.f index cd61e0a560..a53878c6c3 100644 --- a/SRC/dsysv.f +++ b/SRC/dsysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsysv_rook.f b/SRC/dsysv_rook.f index 4db3a98ef8..69bcb5de25 100644 --- a/SRC/dsysv_rook.f +++ b/SRC/dsysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -53,7 +53,7 @@ *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling DSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> DSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dsysvx.f b/SRC/dsysvx.f index c43e9a1488..b80db2867e 100644 --- a/SRC/dsysvx.f +++ b/SRC/dsysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index baf19fb333..43145fa129 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -490,10 +490,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dsyswapr.f b/SRC/dsyswapr.f index 695288924f..fa965f8a9f 100644 --- a/SRC/dsyswapr.f +++ b/SRC/dsyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,12 +136,12 @@ SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL DSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL DSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/SRC/dsytd2.f b/SRC/dsytd2.f index a238f9ab3b..046978d871 100644 --- a/SRC/dsytd2.f +++ b/SRC/dsytd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dsytf2.f b/SRC/dsytf2.f index 27a676b843..e74842a52d 100644 --- a/SRC/dsytf2.f +++ b/SRC/dsytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/dsytrd.f b/SRC/dsytrd.f index b268f4c1e4..d551f8e15f 100644 --- a/SRC/dsytrd.f +++ b/SRC/dsytrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsytrf.f b/SRC/dsytrf.f index a0b83c7c94..ab2a13724a 100644 --- a/SRC/dsytrf.f +++ b/SRC/dsytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsytrf_rook.f b/SRC/dsytrf_rook.f index a7f4053787..5d5d9b56ee 100644 --- a/SRC/dsytrf_rook.f +++ b/SRC/dsytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -321,7 +321,7 @@ SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/SRC/dsytri.f b/SRC/dsytri.f index bbafae41a1..0feb785d69 100644 --- a/SRC/dsytri.f +++ b/SRC/dsytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsytri2.f b/SRC/dsytri2.f index d943e68d9f..7f36d34499 100644 --- a/SRC/dsytri2.f +++ b/SRC/dsytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/dsytri2x.f b/SRC/dsytri2x.f index a2474d8b0c..7800a5f4b6 100644 --- a/SRC/dsytri2x.f +++ b/SRC/dsytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -212,7 +212,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -228,7 +228,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL DTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -245,8 +245,8 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -262,7 +262,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -272,7 +272,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -335,7 +335,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL DTRMM('L','U','T','U',NNB, NNB, @@ -345,13 +345,13 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * CALL DGEMM('T','N',NNB,NNB,CUT,ONE,A(1,CUT+1),LDA, $ WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * U11 = U11**T*invD1*U11 + U01**T*invD*U01 * @@ -380,7 +380,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL DSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL DSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL DTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL DTRMM('L',UPLO,'T','U',NNB, NNB, @@ -526,7 +526,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL DGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -566,7 +566,7 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/dsytri_rook.f b/SRC/dsytri_rook.f index f5b42a2974..be8b3e11d5 100644 --- a/SRC/dsytri_rook.f +++ b/SRC/dsytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -300,7 +300,7 @@ SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) IF( KP.GT.1 ) $ CALL DSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -391,7 +391,7 @@ SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) $ DDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/SRC/dsytrs.f b/SRC/dsytrs.f index 9aae7b130b..a9b5230acb 100644 --- a/SRC/dsytrs.f +++ b/SRC/dsytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dsytrs2.f b/SRC/dsytrs2.f index 9d1205b77d..c817fee868 100644 --- a/SRC/dsytrs2.f +++ b/SRC/dsytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,17 +119,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup doubleSYcomputational * * ===================================================================== - SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.6.1) -- @@ -200,7 +200,7 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -225,7 +225,7 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL DTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -277,7 +277,7 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -302,7 +302,7 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL DTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -324,7 +324,7 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL DTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/SRC/dsytrs_rook.f b/SRC/dsytrs_rook.f index b1cb9b152c..b2f9474413 100644 --- a/SRC/dsytrs_rook.f +++ b/SRC/dsytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dtbcon.f b/SRC/dtbcon.f index 6962ad50a2..2d058cfa0e 100644 --- a/SRC/dtbcon.f +++ b/SRC/dtbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtbrfs.f b/SRC/dtbrfs.f index e2d5a3e685..11810b904e 100644 --- a/SRC/dtbrfs.f +++ b/SRC/dtbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtbtrs.f b/SRC/dtbtrs.f index 15c75d2b7d..69771c84e4 100644 --- a/SRC/dtbtrs.f +++ b/SRC/dtbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f index 3b5720f4dd..53233a31ed 100644 --- a/SRC/dtfsm.f +++ b/SRC/dtfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtftri.f b/SRC/dtftri.f index a8a6a0bdc2..9d4c370ec4 100644 --- a/SRC/dtftri.f +++ b/SRC/dtftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtfttp.f b/SRC/dtfttp.f index 36ec09bfd9..9a90dbfde2 100644 --- a/SRC/dtfttp.f +++ b/SRC/dtfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtfttr.f b/SRC/dtfttr.f index 384f680c9c..f7536d5cc9 100644 --- a/SRC/dtfttr.f +++ b/SRC/dtfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtgevc.f b/SRC/dtgevc.f index a988f52df3..fb1fa70b6c 100644 --- a/SRC/dtgevc.f +++ b/SRC/dtgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -30,8 +30,8 @@ * DOUBLE PRECISION P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -49,20 +49,20 @@ *> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal blocks of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. *> If Q and Z are the orthogonal factors from the generalized Schur *> factorization of a matrix pair (A,B), then Z*X and Q*Y *> are the matrices of right and left eigenvectors of (A,B). -*> +*> *> \endverbatim * * Arguments: @@ -179,7 +179,7 @@ *> A complex eigenvector corresponding to a complex eigenvalue *> is stored in two consecutive columns, the first holding the *> real part and the second the imaginary part. -*> +*> *> Not referenced if SIDE = 'L'. *> \endverbatim *> @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtgex2.f b/SRC/dtgex2.f index 45eb166f49..62551cab9f 100644 --- a/SRC/dtgex2.f +++ b/SRC/dtgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, N1, N2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, LWORK, N, N1, N2 @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -314,7 +314,7 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) DNORM = DSCALE*SQRT( DSUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/SRC/dtgexc.f b/SRC/dtgexc.f index 4a55bf00af..c0f8ee7bc9 100644 --- a/SRC/dtgexc.f +++ b/SRC/dtgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtgsen.f b/SRC/dtgsen.f index 14719e4fd6..24371e1209 100644 --- a/SRC/dtgsen.f +++ b/SRC/dtgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, * PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * $ B( LDB, * ), BETA( * ), DIF( * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,7 +249,7 @@ *> \param[out] WORK *> \verbatim *> WORK is DOUBLE PRECISION array, -*> dimension (MAX(1,LWORK)) +*> dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK. *> \endverbatim *> @@ -300,10 +300,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/dtgsja.f b/SRC/dtgsja.f index ceae9295d9..89b4646c43 100644 --- a/SRC/dtgsja.f +++ b/SRC/dtgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtgsna.f b/SRC/dtgsna.f index 80394fa47c..9d5065cce1 100644 --- a/SRC/dtgsna.f +++ b/SRC/dtgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), DIF( * ), S( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f index f4fe7e1488..7be3f5288e 100644 --- a/SRC/dtgsy2.f +++ b/SRC/dtgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * IWORK, PQ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N, @@ -33,7 +33,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/dtgsyl.f b/SRC/dtgsyl.f index d589016a65..6567e74d22 100644 --- a/SRC/dtgsyl.f +++ b/SRC/dtgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtpcon.f b/SRC/dtpcon.f index 2619891193..a50765e785 100644 --- a/SRC/dtpcon.f +++ b/SRC/dtpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f index e8ace7038e..b79911c36c 100644 --- a/SRC/dtpmqrt.f +++ b/SRC/dtpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), +* DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), * $ T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPMQRT applies a real orthogonal matrix Q obtained from a +*> DTPMQRT applies a real orthogonal matrix Q obtained from a *> "triangular-pentagonal" real block reflector H to a general *> real matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is DOUBLE PRECISION array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**T*C or C*Q or C*Q**T. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The real orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), + DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), $ T( LDT, * ), WORK( * ) * .. * @@ -256,7 +256,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-M+L-I+1 END IF - CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-N+L-I+1 END IF - CALL DTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL DTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL DTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, LB = MB-N+L-I+1 END IF CALL DTPRFB( 'R', 'T', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/SRC/dtpqrt.f b/SRC/dtpqrt.f index c8f2e14c14..af32b81c4d 100644 --- a/SRC/dtpqrt.f +++ b/SRC/dtpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPQRT computes a blocked QR factorization of a real -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> DTPQRT computes a blocked QR factorization of a real +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is DOUBLE PRECISION array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, LB = MB-M+L-I+1 END IF * - CALL DTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL DTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**T to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of DTPQRT * END diff --git a/SRC/dtpqrt2.f b/SRC/dtpqrt2.f index ca2da232f5..c789321c92 100644 --- a/SRC/dtpqrt2.f +++ b/SRC/dtpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> DTPQRT2 computes a QR factorization of a real "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is DOUBLE PRECISION array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**T @@ -227,7 +227,7 @@ SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) DO J = 1, N-I T( J, N ) = (A( I, I+J )) END DO - CALL DGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL DGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)^H * - ALPHA = -(T( I, 1 )) + ALPHA = -(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*(T( J, N )) END DO - CALL DGER( P, N-I, ALPHA, B( 1, I ), 1, + CALL DGER( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * * Rectangular part of B2 * - CALL DGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL DGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL DGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL DGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of DTPQRT2 * diff --git a/SRC/dtprfb.f b/SRC/dtprfb.f index 409cbf2f80..e4050d1a2c 100644 --- a/SRC/dtprfb.f +++ b/SRC/dtprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), +* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPRFB applies a real "triangular-pentagonal" block reflector H or its -*> transpose H**T to a real matrix C, which is composed of two +*> DTPRFB applies a real "triangular-pentagonal" block reflector H or its +*> transpose H**T to a real matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is DOUBLE PRECISION array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is DOUBLE PRECISION array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**T*C or C*H or C*H**T. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), + DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -322,7 +322,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -336,34 +336,34 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**T or H**T = I - W T**T W**T * * A = A - T (A + V**T B) or A = A - T**T (A + V**T B) -* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) +* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL DTRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -373,7 +373,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL DGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL DTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -383,7 +383,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -402,7 +402,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -410,20 +410,20 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL DTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -443,7 +443,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -457,7 +457,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**T or H**T = I - W T**T W**T * * A = A - T (A + V**T B) or A = A - T**T (A + V**T B) -* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) +* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) * * --------------------------------------------------------------------------- * @@ -472,10 +472,10 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL DTRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -483,16 +483,16 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL DGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -505,7 +505,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -524,7 +524,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -532,20 +532,20 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL DTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -565,7 +565,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -578,7 +578,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**T T W or H**T = I - W**T T**T W * * A = A - T (A + V B) or A = A - T**T (A + V B) -* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) +* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) * * --------------------------------------------------------------------------- * @@ -589,12 +589,12 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL DTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL DGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL DGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL DGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -603,7 +603,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -614,7 +614,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL DGEMM( 'T', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL DTRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -625,7 +625,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -653,7 +653,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ WORK, LDWORK ) CALL DGEMM( 'N', 'T', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -662,7 +662,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -671,10 +671,10 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL DGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL DTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -684,7 +684,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -697,7 +697,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**T T W or H**T = I - W**T T**T W * * A = A - T (A + V B) or A = A - T**T (A + V B) -* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) +* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) * * --------------------------------------------------------------------------- * @@ -733,10 +733,10 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL DGEMM( 'T', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, + CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL DTRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -744,7 +744,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -773,7 +773,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL DGEMM( 'N', 'T', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -781,7 +781,7 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -790,9 +790,9 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL DGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL DTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/SRC/dtprfs.f b/SRC/dtprfs.f index b5a5809f66..4e4adf74a2 100644 --- a/SRC/dtprfs.f +++ b/SRC/dtprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtptri.f b/SRC/dtptri.f index 9e8aa1ce0b..200f2b026b 100644 --- a/SRC/dtptri.f +++ b/SRC/dtptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtptrs.f b/SRC/dtptrs.f index abce4588c8..4d3b49adb1 100644 --- a/SRC/dtptrs.f +++ b/SRC/dtptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtpttf.f b/SRC/dtpttf.f index f79babc673..bffcc565ac 100644 --- a/SRC/dtpttf.f +++ b/SRC/dtpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtpttr.f b/SRC/dtpttr.f index 1c11deb8e7..b467bc9fdf 100644 --- a/SRC/dtpttr.f +++ b/SRC/dtpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtrcon.f b/SRC/dtrcon.f index 80578d6180..4eaa1c7a20 100644 --- a/SRC/dtrcon.f +++ b/SRC/dtrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrevc.f b/SRC/dtrevc.f index 62e5029125..4a8e45f09c 100644 --- a/SRC/dtrevc.f +++ b/SRC/dtrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,16 +41,16 @@ *> a real upper quasi-triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a real general matrix: A = Q*T*Q**T, as computed by DHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**T)*T = w*(y**T) -*> +*> *> where y**T denotes the transpose of y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal blocks of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the orthogonal factor that reduces a matrix @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrevc3.f b/SRC/dtrevc3.f index ba5abb5f5c..4e1e951fbd 100644 --- a/SRC/dtrevc3.f +++ b/SRC/dtrevc3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTREVC3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTREVC3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -421,7 +421,7 @@ SUBROUTINE DTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, IF( NB.GT.2 ) THEN IV = NB END IF - + IP = 0 IS = M DO 140 KI = N, 1, -1 @@ -779,7 +779,7 @@ SUBROUTINE DTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, * back-transform and normalization is done below END IF END IF - + IF( NB.GT.1 ) THEN * -------------------------------------------------------- * Blocked version of back-transform diff --git a/SRC/dtrexc.f b/SRC/dtrexc.f index 4ac8d9d590..4cf3594b45 100644 --- a/SRC/dtrexc.f +++ b/SRC/dtrexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrrfs.f b/SRC/dtrrfs.f index 7668d60118..1aec257422 100644 --- a/SRC/dtrrfs.f +++ b/SRC/dtrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrsen.f b/SRC/dtrsen.f index 01417323dd..fc4f724e05 100644 --- a/SRC/dtrsen.f +++ b/SRC/dtrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, * M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WI( * ), WORK( * ), * $ WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/dtrsna.f b/SRC/dtrsna.f index 6dcd20a951..0030f0f1cf 100644 --- a/SRC/dtrsna.f +++ b/SRC/dtrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION S( * ), SEP( * ), T( LDT, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrsyl.f b/SRC/dtrsyl.f index 0d16d9cfed..d566543ade 100644 --- a/SRC/dtrsyl.f +++ b/SRC/dtrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrti2.f b/SRC/dtrti2.f index edf1b5b003..cf35e1fc34 100644 --- a/SRC/dtrti2.f +++ b/SRC/dtrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtrtri.f b/SRC/dtrtri.f index 5d27ca56af..a90547ff4e 100644 --- a/SRC/dtrtri.f +++ b/SRC/dtrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrtrs.f b/SRC/dtrtrs.f index 416a66e7cc..20c3c04a04 100644 --- a/SRC/dtrtrs.f +++ b/SRC/dtrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/dtrttf.f b/SRC/dtrttf.f index 69b502a710..b32854ce44 100644 --- a/SRC/dtrttf.f +++ b/SRC/dtrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtrttp.f b/SRC/dtrttp.f index 58c4083f84..6ed36c8656 100644 --- a/SRC/dtrttp.f +++ b/SRC/dtrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/dtzrzf.f b/SRC/dtzrzf.f index 00f70fc157..e757671399 100644 --- a/SRC/dtzrzf.f +++ b/SRC/dtzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/SRC/dzsum1.f b/SRC/dzsum1.f index bfa032cacf..b73b99c511 100644 --- a/SRC/dzsum1.f +++ b/SRC/dzsum1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DZSUM1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DZSUM1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/icmax1.f b/SRC/icmax1.f index 74d1c7f9ff..4020ad10e4 100644 --- a/SRC/icmax1.f +++ b/SRC/icmax1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ICMAX1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ICMAX1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ICMAX1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date February 2014 * diff --git a/SRC/ieeeck.f b/SRC/ieeeck.f index 132e436770..b436ba1638 100644 --- a/SRC/ieeeck.f +++ b/SRC/ieeeck.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IEEECK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IEEECK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC * REAL ONE, ZERO * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ilaclc.f b/SRC/ilaclc.f index 4bd639d1bf..6c8eb0da2c 100644 --- a/SRC/ilaclc.f +++ b/SRC/ilaclc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILACLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILACLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILACLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index 617d670a7d..08458da956 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILACLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILACLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILACLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/iladiag.f b/SRC/iladiag.f index 1d5c5bff18..819423ce4f 100644 --- a/SRC/iladiag.f +++ b/SRC/iladiag.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADIAG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADIAG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADIAG( DIAG ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/iladlc.f b/SRC/iladlc.f index b56387d320..032e906c09 100644 --- a/SRC/iladlc.f +++ b/SRC/iladlc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/iladlr.f b/SRC/iladlr.f index fe155af075..6d22159dd2 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index b963ad7386..a6a075c7ff 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAENV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAENV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ilaprec.f b/SRC/ilaprec.f index 88ae77e4d7..54254f22c4 100644 --- a/SRC/ilaprec.f +++ b/SRC/ilaprec.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAPREC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAPREC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAPREC( PREC ) -* +* * .. Scalar Arguments .. * CHARACTER PREC * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ilaslc.f b/SRC/ilaslc.f index e1dc426caf..ae57bdc7af 100644 --- a/SRC/ilaslc.f +++ b/SRC/ilaslc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILASLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILASLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILASLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index 9436dc4085..9ec342317d 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILASLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILASLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILASLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ilatrans.f b/SRC/ilatrans.f index d8fc9bc643..6a21d2f9ca 100644 --- a/SRC/ilatrans.f +++ b/SRC/ilatrans.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILATRANS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILATRANS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILATRANS( TRANS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ilauplo.f b/SRC/ilauplo.f index e65c103e7e..1357b7cea8 100644 --- a/SRC/ilauplo.f +++ b/SRC/ilauplo.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAUPLO + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAUPLO + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAUPLO( UPLO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ilaver.f b/SRC/ilaver.f index 0da02707e6..4f450aff14 100644 --- a/SRC/ilaver.f +++ b/SRC/ilaver.f @@ -2,8 +2,8 @@ ** * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ilazlc.f b/SRC/ilazlc.f index 718b277dfa..383b0353e2 100644 --- a/SRC/ilazlc.f +++ b/SRC/ilazlc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAZLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAZLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAZLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index 44697214c7..9d78ea012d 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAZLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAZLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAZLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/iparmq.f b/SRC/iparmq.f index 94e35ae014..628e6c7f9e 100644 --- a/SRC/iparmq.f +++ b/SRC/iparmq.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IPARMQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IPARMQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, ISPEC, LWORK, N * CHARACTER NAME*( * ), OPTS*( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/izmax1.f b/SRC/izmax1.f index 4fe9b0c7c6..10aef0aee8 100644 --- a/SRC/izmax1.f +++ b/SRC/izmax1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IZMAX1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IZMAX1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IZMAX1( N, ZX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 ZX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date February 2014 * diff --git a/SRC/lsamen.f b/SRC/lsamen.f index e14d96b156..13a46984cb 100644 --- a/SRC/lsamen.f +++ b/SRC/lsamen.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download LSAMEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download LSAMEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION LSAMEN( N, CA, CB ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) CA, CB * INTEGER N * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f index d2cd707fbd..308d4bce0d 100644 --- a/SRC/sbbcsd.f +++ b/SRC/sbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -34,7 +34,7 @@ * REAL U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sbdsdc.f b/SRC/sbdsdc.f index b31cc0bf09..2ddf1aec61 100644 --- a/SRC/sbdsdc.f +++ b/SRC/sbdsdc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBDSDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBDSDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, UPLO * INTEGER INFO, LDU, LDVT, N @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), Q( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sbdsqr.f b/SRC/sbdsqr.f index 6b906bbb7e..652b4fe2e0 100644 --- a/SRC/sbdsqr.f +++ b/SRC/sbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * REAL C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**T -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**T, for given real input matrices U and VT. When U and VT are the *> orthogonal matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by SGEBRD, then -*> +*> *> A = (U*Q) * S * (P**T*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**T*C *> for a given real input matrix C. *> @@ -179,7 +179,7 @@ *> = 1, a split was marked by a positive value in E *> = 2, current block of Z not diagonalized after 30*N *> iterations (in inner while loop) -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> else NCVT = NRU = NCC = 0, *> the algorithm did not converge; D and E contain the @@ -217,10 +217,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -329,7 +329,7 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, CALL SLASQ1( N, D, E, WORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/SRC/sbdsvdx.f b/SRC/sbdsvdx.f index 6b5c3c4193..bab7d617a0 100644 --- a/SRC/sbdsvdx.f +++ b/SRC/sbdsvdx.f @@ -2,23 +2,23 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBDSVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBDSVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, +* SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * $ NS, S, Z, LDZ, WORK, IWORK, INFO ) * * .. Scalar Arguments .. @@ -28,45 +28,45 @@ * .. * .. Array Arguments .. * INTEGER IWORK( * ) -* REAL D( * ), E( * ), S( * ), WORK( * ), +* REAL D( * ), E( * ), S( * ), WORK( * ), * Z( LDZ, * ) * .. -* +* *> \par Purpose: * ============= *> *> \verbatim *> *> SBDSVDX computes the singular value decomposition (SVD) of a real -*> N-by-N (upper or lower) bidiagonal matrix B, B = U * S * VT, -*> where S is a diagonal matrix with non-negative diagonal elements -*> (the singular values of B), and U and VT are orthogonal matrices +*> N-by-N (upper or lower) bidiagonal matrix B, B = U * S * VT, +*> where S is a diagonal matrix with non-negative diagonal elements +*> (the singular values of B), and U and VT are orthogonal matrices *> of left and right singular vectors, respectively. *> -*> Given an upper bidiagonal B with diagonal D = [ d_1 d_2 ... d_N ] -*> and superdiagonal E = [ e_1 e_2 ... e_N-1 ], SBDSVDX computes the -*> singular value decompositon of B through the eigenvalues and +*> Given an upper bidiagonal B with diagonal D = [ d_1 d_2 ... d_N ] +*> and superdiagonal E = [ e_1 e_2 ... e_N-1 ], SBDSVDX computes the +*> singular value decompositon of B through the eigenvalues and *> eigenvectors of the N*2-by-N*2 tridiagonal matrix -*> -*> | 0 d_1 | -*> | d_1 0 e_1 | -*> TGK = | e_1 0 d_2 | -*> | d_2 . . | +*> +*> | 0 d_1 | +*> | d_1 0 e_1 | +*> TGK = | e_1 0 d_2 | +*> | d_2 . . | *> | . . . | *> -*> If (s,u,v) is a singular triplet of B with ||u|| = ||v|| = 1, then -*> (+/-s,q), ||q|| = 1, are eigenpairs of TGK, with q = P * ( u' +/-v' ) / -*> sqrt(2) = ( v_1 u_1 v_2 u_2 ... v_n u_n ) / sqrt(2), and -*> P = [ e_{n+1} e_{1} e_{n+2} e_{2} ... ]. +*> If (s,u,v) is a singular triplet of B with ||u|| = ||v|| = 1, then +*> (+/-s,q), ||q|| = 1, are eigenpairs of TGK, with q = P * ( u' +/-v' ) / +*> sqrt(2) = ( v_1 u_1 v_2 u_2 ... v_n u_n ) / sqrt(2), and +*> P = [ e_{n+1} e_{1} e_{n+2} e_{2} ... ]. *> -*> Given a TGK matrix, one can either a) compute -s,-v and change signs -*> so that the singular values (and corresponding vectors) are already in -*> descending order (as in SGESVD/SGESDD) or b) compute s,v and reorder -*> the values (and corresponding vectors). SBDSVDX implements a) by -*> calling SSTEVX (bisection plus inverse iteration, to be replaced -*> with a version of the Multiple Relative Robust Representation -*> algorithm. (See P. Willems and B. Lang, A framework for the MR^3 -*> algorithm: theory and implementation, SIAM J. Sci. Comput., +*> Given a TGK matrix, one can either a) compute -s,-v and change signs +*> so that the singular values (and corresponding vectors) are already in +*> descending order (as in SGESVD/SGESDD) or b) compute s,v and reorder +*> the values (and corresponding vectors). SBDSVDX implements a) by +*> calling SSTEVX (bisection plus inverse iteration, to be replaced +*> with a version of the Multiple Relative Robust Representation +*> algorithm. (See P. Willems and B. Lang, A framework for the MR^3 +*> algorithm: theory and implementation, SIAM J. Sci. Comput., *> 35:740-766, 2013.) *> \endverbatim * @@ -101,13 +101,13 @@ *> N is INTEGER *> The order of the bidiagonal matrix. N >= 0. *> \endverbatim -*> +*> *> \param[in] D *> \verbatim *> D is REAL array, dimension (N) *> The n diagonal elements of the bidiagonal matrix B. *> \endverbatim -*> +*> *> \param[in] E *> \verbatim *> E is REAL array, dimension (max(1,N-1)) @@ -167,14 +167,14 @@ *> \verbatim *> Z is REAL array, dimension (2*N,K) ) *> If JOBZ = 'V', then if INFO = 0 the first NS columns of Z -*> contain the singular vectors of the matrix B corresponding to +*> contain the singular vectors of the matrix B corresponding to *> the selected singular values, with U in rows 1 to N and V *> in rows N+1 to N*2, i.e. -*> Z = [ U ] +*> Z = [ U ] *> [ V ] -*> If JOBZ = 'N', then Z is not referenced. -*> Note: The user must ensure that at least K = NS+1 columns are -*> supplied in the array Z; if RANGE = 'V', the exact value of +*> If JOBZ = 'N', then Z is not referenced. +*> Note: The user must ensure that at least K = NS+1 columns are +*> supplied in the array Z; if RANGE = 'V', the exact value of *> NS is not known in advance and an upper bound must be used. *> \endverbatim *> @@ -194,7 +194,7 @@ *> \verbatim *> IWORK is INTEGER array, dimension (12*N) *> If JOBZ = 'V', then if INFO = 0, the first NS elements of -*> IWORK are zero. If INFO > 0, then IWORK contains the indices +*> IWORK are zero. If INFO > 0, then IWORK contains the indices *> of the eigenvectors that failed to converge in DSTEVX. *> \endverbatim *> @@ -213,24 +213,24 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup realOTHEReigen * -* ===================================================================== - SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, +* ===================================================================== + SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * * -- LAPACK driver routine (version 3.6.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * November 2016 -* +* * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO INTEGER IL, INFO, IU, LDZ, N, NS @@ -238,28 +238,28 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * .. * .. Array Arguments .. INTEGER IWORK( * ) - REAL D( * ), E( * ), S( * ), WORK( * ), + REAL D( * ), E( * ), S( * ), WORK( * ), $ Z( LDZ, * ) * .. * * ===================================================================== * * .. Parameters .. - REAL ZERO, ONE, TEN, HNDRD, MEIGTH - PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0, TEN = 10.0E0, + REAL ZERO, ONE, TEN, HNDRD, MEIGTH + PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0, TEN = 10.0E0, $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 ) REAL FUDGE PARAMETER ( FUDGE = 2.0E0 ) * .. -* .. Local Scalars .. +* .. Local Scalars .. CHARACTER RNGVX - LOGICAL ALLSV, INDSV, LOWER, SPLIT, SVEQ0, VALSV, WANTZ - INTEGER I, ICOLZ, IDBEG, IDEND, IDTGK, IDPTR, IEPTR, - $ IETGK, IIFAIL, IIWORK, ILTGK, IROWU, IROWV, - $ IROWZ, ISBEG, ISPLT, ITEMP, IUTGK, J, K, + LOGICAL ALLSV, INDSV, LOWER, SPLIT, SVEQ0, VALSV, WANTZ + INTEGER I, ICOLZ, IDBEG, IDEND, IDTGK, IDPTR, IEPTR, + $ IETGK, IIFAIL, IIWORK, ILTGK, IROWU, IROWV, + $ IROWZ, ISBEG, ISPLT, ITEMP, IUTGK, J, K, $ NTGK, NRU, NRV, NSL REAL ABSTOL, EPS, EMIN, MU, NRMU, NRMV, ORTOL, SMAX, - $ SMIN, SQRT2, THRESH, TOL, ULP, + $ SMIN, SQRT2, THRESH, TOL, ULP, $ VLTGK, VUTGK, ZJTJI * .. * .. External Functions .. @@ -274,7 +274,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * .. Intrinsic Functions .. INTRINSIC ABS, REAL, SIGN, SQRT * .. -* .. Executable Statements .. +* .. Executable Statements .. * * Test the input parameters. * @@ -321,7 +321,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * NS = 0 IF( N.EQ.0 ) RETURN -* +* IF( N.EQ.1 ) THEN IF( ALLSV .OR. INDSV ) THEN NS = 1 @@ -339,17 +339,17 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, RETURN END IF * - ABSTOL = 2*SLAMCH( 'Safe Minimum' ) + ABSTOL = 2*SLAMCH( 'Safe Minimum' ) ULP = SLAMCH( 'Precision' ) EPS = SLAMCH( 'Epsilon' ) SQRT2 = SQRT( 2.0E0 ) ORTOL = SQRT( ULP ) -* +* * Criterion for splitting is taken from SBDSQR when singular -* values are computed to relative accuracy TOL. (See J. Demmel and -* W. Kahan, Accurate singular values of bidiagonal matrices, SIAM +* values are computed to relative accuracy TOL. (See J. Demmel and +* W. Kahan, Accurate singular values of bidiagonal matrices, SIAM * J. Sci. and Stat. Comput., 11:873–912, 1990.) -* +* TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS * * Compute approximate maximum, minimum singular values. @@ -390,19 +390,19 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IIWORK = IIFAIL + N*2 * * Set RNGVX, which corresponds to RANGE for SSTEVX in TGK mode. -* VL,VU or IL,IU are redefined to conform to implementation a) +* VL,VU or IL,IU are redefined to conform to implementation a) * described in the leading comments. * ILTGK = 0 - IUTGK = 0 + IUTGK = 0 VLTGK = ZERO VUTGK = ZERO * IF( ALLSV ) THEN * -* All singular values will be found. We aim at -s (see +* All singular values will be found. We aim at -s (see * leading comments) with RNGVX = 'I'. IL and IU are set -* later (as ILTGK and IUTGK) according to the dimension +* later (as ILTGK and IUTGK) according to the dimension * of the active submatrix. * RNGVX = 'I' @@ -419,7 +419,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL SCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL SCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL SSTEVX( 'N', 'V', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL SSTEVX( 'N', 'V', N*2, WORK( IDTGK ), WORK( IETGK ), $ VLTGK, VUTGK, ILTGK, ILTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -430,20 +430,20 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, END IF ELSE IF( INDSV ) THEN * -* Find the IL-th through the IU-th singular values. We aim -* at -s (see leading comments) and indices are mapped into +* Find the IL-th through the IU-th singular values. We aim +* at -s (see leading comments) and indices are mapped into * values, therefore mimicking SSTEBZ, where * * GL = GL - FUDGE*TNORM*ULP*N - FUDGE*TWO*PIVMIN * GU = GU + FUDGE*TNORM*ULP*N + FUDGE*PIVMIN * ILTGK = IL - IUTGK = IU + IUTGK = IU RNGVX = 'V' WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL SCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL SCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), $ VLTGK, VLTGK, ILTGK, ILTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -451,7 +451,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, WORK( IDTGK:IDTGK+2*N-1 ) = ZERO CALL SCOPY( N, D, 1, WORK( IETGK ), 2 ) CALL SCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) - CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), + CALL SSTEVX( 'N', 'I', N*2, WORK( IDTGK ), WORK( IETGK ), $ VUTGK, VUTGK, IUTGK, IUTGK, ABSTOL, NS, S, $ Z, LDZ, WORK( ITEMP ), IWORK( IIWORK ), $ IWORK( IIFAIL ), INFO ) @@ -459,12 +459,12 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, VUTGK = MIN( VUTGK, ZERO ) * * If VLTGK=VUTGK, SSTEVX returns an error message, -* so if needed we change VUTGK slightly. +* so if needed we change VUTGK slightly. * IF( VLTGK.EQ.VUTGK ) VLTGK = VLTGK - TOL * IF( WANTZ ) CALL SLASET( 'F', N*2, IU-IL+1, ZERO, ZERO, Z, LDZ) - END IF + END IF * * Initialize variables and pointers for S, Z, and WORK. * @@ -483,7 +483,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IROWU = 2 IROWV = 1 SPLIT = .FALSE. - SVEQ0 = .FALSE. + SVEQ0 = .FALSE. * * Form the tridiagonal TGK matrix. * @@ -494,15 +494,15 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, CALL SCOPY( N-1, E, 1, WORK( IETGK+1 ), 2 ) * * -* Check for splits in two levels, outer level +* Check for splits in two levels, outer level * in E and inner level in D. * - DO IEPTR = 2, N*2, 2 - IF( WORK( IETGK+IEPTR-1 ).EQ.ZERO ) THEN + DO IEPTR = 2, N*2, 2 + IF( WORK( IETGK+IEPTR-1 ).EQ.ZERO ) THEN * * Split in E (this piece of B is square) or bottom * of the (input bidiagonal) matrix. -* +* ISPLT = IDBEG IDEND = IEPTR - 1 DO IDPTR = IDBEG, IDEND, 2 @@ -519,22 +519,22 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( IDBEG.EQ.IDEND) THEN NRU = 1 NRV = 1 - END IF + END IF ELSE IF( IDPTR.EQ.IDEND ) THEN * * D=0 at the bottom. * SVEQ0 = .TRUE. - NRU = (IDEND-ISPLT)/2 + 1 - NRV = NRU + NRU = (IDEND-ISPLT)/2 + 1 + NRV = NRU IF( ISPLT.NE.IDBEG ) THEN NRU = NRU + 1 - END IF + END IF ELSE IF( ISPLT.EQ.IDBEG ) THEN * * Split: top rectangular submatrix. -* +* NRU = (IDPTR-IDBEG)/2 NRV = NRU + 1 ELSE @@ -542,7 +542,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Split: middle square submatrix. * NRU = (IDPTR-ISPLT)/2 + 1 - NRV = NRU + NRV = NRU END IF END IF ELSE IF( IDPTR.EQ.IDEND ) THEN @@ -560,7 +560,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Split: bottom rectangular submatrix. * NRV = (IDEND-ISPLT)/2 + 1 - NRU = NRV + 1 + NRU = NRV + 1 END IF END IF * @@ -568,32 +568,32 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * IF( NTGK.GT.0 ) THEN * -* Compute eigenvalues/vectors of the active -* submatrix according to RANGE: +* Compute eigenvalues/vectors of the active +* submatrix according to RANGE: * if RANGE='A' (ALLSV) then RNGVX = 'I' * if RANGE='V' (VALSV) then RNGVX = 'V' * if RANGE='I' (INDSV) then RNGVX = 'V' * ILTGK = 1 - IUTGK = NTGK / 2 + IUTGK = NTGK / 2 IF( ALLSV .OR. VUTGK.EQ.ZERO ) THEN - IF( SVEQ0 .OR. - $ SMIN.LT.EPS .OR. + IF( SVEQ0 .OR. + $ SMIN.LT.EPS .OR. $ MOD(NTGK,2).GT.0 ) THEN * Special case: eigenvalue equal to zero or very * small, additional eigenvector is needed. IUTGK = IUTGK + 1 - END IF + END IF END IF * -* Workspace needed by SSTEVX: -* WORK( ITEMP: ): 2*5*NTGK +* Workspace needed by SSTEVX: +* WORK( ITEMP: ): 2*5*NTGK * IWORK( 1: ): 2*6*NTGK * - CALL SSTEVX( JOBZ, RNGVX, NTGK, WORK( IDTGK+ISPLT-1 ), - $ WORK( IETGK+ISPLT-1 ), VLTGK, VUTGK, - $ ILTGK, IUTGK, ABSTOL, NSL, S( ISBEG ), - $ Z( IROWZ,ICOLZ ), LDZ, WORK( ITEMP ), + CALL SSTEVX( JOBZ, RNGVX, NTGK, WORK( IDTGK+ISPLT-1 ), + $ WORK( IETGK+ISPLT-1 ), VLTGK, VUTGK, + $ ILTGK, IUTGK, ABSTOL, NSL, S( ISBEG ), + $ Z( IROWZ,ICOLZ ), LDZ, WORK( ITEMP ), $ IWORK( IIWORK ), IWORK( IIFAIL ), $ INFO ) IF( INFO.NE.0 ) THEN @@ -601,7 +601,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, RETURN END IF EMIN = ABS( MAXVAL( S( ISBEG:ISBEG+NSL-1 ) ) ) -* +* IF( NSL.GT.0 .AND. WANTZ ) THEN * * Normalize u=Z([2,4,...],:) and v=Z([1,3,...],:), @@ -615,22 +615,22 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( NSL.GT.1 .AND. $ VUTGK.EQ.ZERO .AND. $ MOD(NTGK,2).EQ.0 .AND. - $ EMIN.EQ.0 .AND. .NOT.SPLIT ) THEN + $ EMIN.EQ.0 .AND. .NOT.SPLIT ) THEN * * D=0 at the top or bottom of the active submatrix: -* one eigenvalue is equal to zero; concatenate the -* eigenvectors corresponding to the two smallest +* one eigenvalue is equal to zero; concatenate the +* eigenvectors corresponding to the two smallest * eigenvalues. * Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) = $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-2 ) + $ Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) - Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) = - $ ZERO + Z( IROWZ:IROWZ+NTGK-1,ICOLZ+NSL-1 ) = + $ ZERO * IF( IUTGK*2.GT.NTGK ) THEN * Eigenvalue equal to zero or very small. * NSL = NSL - 1 -* END IF +* END IF END IF * DO I = 0, MIN( NSL-1, NRU-1 ) @@ -639,20 +639,20 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, INFO = N*2 + 1 RETURN END IF - CALL SSCAL( NRU, ONE/NRMU, + CALL SSCAL( NRU, ONE/NRMU, $ Z( IROWU,ICOLZ+I ), 2 ) IF( NRMU.NE.ONE .AND. $ ABS( NRMU-ORTOL )*SQRT2.GT.ONE ) $ THEN DO J = 0, I-1 - ZJTJI = -SDOT( NRU, Z( IROWU, ICOLZ+J ), + ZJTJI = -SDOT( NRU, Z( IROWU, ICOLZ+J ), $ 2, Z( IROWU, ICOLZ+I ), 2 ) - CALL SAXPY( NRU, ZJTJI, + CALL SAXPY( NRU, ZJTJI, $ Z( IROWU, ICOLZ+J ), 2, $ Z( IROWU, ICOLZ+I ), 2 ) END DO NRMU = SNRM2( NRU, Z( IROWU, ICOLZ+I ), 2 ) - CALL SSCAL( NRU, ONE/NRMU, + CALL SSCAL( NRU, ONE/NRMU, $ Z( IROWU,ICOLZ+I ), 2 ) END IF END DO @@ -662,7 +662,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, INFO = N*2 + 1 RETURN END IF - CALL SSCAL( NRV, -ONE/NRMV, + CALL SSCAL( NRV, -ONE/NRMV, $ Z( IROWV,ICOLZ+I ), 2 ) IF( NRMV.NE.ONE .AND. $ ABS( NRMV-ORTOL )*SQRT2.GT.ONE ) @@ -670,12 +670,12 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, DO J = 0, I-1 ZJTJI = -SDOT( NRV, Z( IROWV, ICOLZ+J ), $ 2, Z( IROWV, ICOLZ+I ), 2 ) - CALL SAXPY( NRU, ZJTJI, + CALL SAXPY( NRU, ZJTJI, $ Z( IROWV, ICOLZ+J ), 2, $ Z( IROWV, ICOLZ+I ), 2 ) END DO NRMV = SNRM2( NRV, Z( IROWV, ICOLZ+I ), 2 ) - CALL SSCAL( NRV, ONE/NRMV, + CALL SSCAL( NRV, ONE/NRMV, $ Z( IROWV,ICOLZ+I ), 2 ) END IF END DO @@ -684,18 +684,18 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ MOD(NTGK,2).GT.0 ) THEN * * D=0 in the middle of the active submatrix (one -* eigenvalue is equal to zero): save the corresponding +* eigenvalue is equal to zero): save the corresponding * eigenvector for later use (when bottom of the * active submatrix is reached). * SPLIT = .TRUE. - Z( IROWZ:IROWZ+NTGK-1,N+1 ) = + Z( IROWZ:IROWZ+NTGK-1,N+1 ) = $ Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) - Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) = - $ ZERO - END IF + Z( IROWZ:IROWZ+NTGK-1,NS+NSL ) = + $ ZERO + END IF END IF !** WANTZ **! -* +* NSL = MIN( NSL, NRU ) SVEQ0 = .FALSE. * @@ -706,17 +706,17 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, END DO * * Update pointers for TGK, S and Z. -* +* ISBEG = ISBEG + NSL IROWZ = IROWZ + NTGK ICOLZ = ICOLZ + NSL IROWU = IROWZ - IROWV = IROWZ + 1 + IROWV = IROWZ + 1 ISPLT = IDPTR + 1 NS = NS + NSL NRU = 0 - NRV = 0 - END IF !** NTGK.GT.0 **! + NRV = 0 + END IF !** NTGK.GT.0 **! IF( IROWZ.LT.N*2 .AND. WANTZ ) THEN Z( 1:IROWZ-1, ICOLZ ) = ZERO END IF @@ -726,7 +726,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * Bring back eigenvector corresponding * to eigenvalue equal to zero. * - Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) = + Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) = $ Z( IDBEG:IDEND-NTGK+1,ISBEG-1 ) + $ Z( IDBEG:IDEND-NTGK+1,N+1 ) Z( IDBEG:IDEND-NTGK+1,N+1 ) = 0 @@ -735,7 +735,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IROWU = IROWU + 1 IDBEG = IEPTR + 1 SVEQ0 = .FALSE. - SPLIT = .FALSE. + SPLIT = .FALSE. END IF !** Check for split in E **! END DO !** IEPTR loop **! * @@ -757,7 +757,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( WANTZ ) CALL SSWAP( N*2, Z( 1,K ), 1, Z( 1,NS+1-I ), 1 ) END IF END DO -* +* * If RANGE=I, check for singular values/vectors to be discarded. * IF( INDSV ) THEN @@ -767,7 +767,7 @@ SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IF( WANTZ ) Z( 1:N*2,K+1:NS ) = ZERO NS = K END IF - END IF + END IF * * Reorder Z: U = Z( 1:N,1:NS ), V = Z( N+1:N*2,1:NS ). * If B is a lower diagonal, swap U and V. diff --git a/SRC/scsum1.f b/SRC/scsum1.f index 2fbb911b99..022829f2f6 100644 --- a/SRC/scsum1.f +++ b/SRC/scsum1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SCSUM1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SCSUM1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SCSUM1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sdisna.f b/SRC/sdisna.f index d6d2d16b08..a8100b4592 100644 --- a/SRC/sdisna.f +++ b/SRC/sdisna.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SDISNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SDISNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SDISNA( JOB, M, N, D, SEP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INFO, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), SEP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbbrd.f b/SRC/sgbbrd.f index f5d3fd25c5..59864a0097 100644 --- a/SRC/sgbbrd.f +++ b/SRC/sgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), * $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -174,10 +174,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbcon.f b/SRC/sgbcon.f index 4301febb6e..3e514d5b94 100644 --- a/SRC/sgbcon.f +++ b/SRC/sgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbequ.f b/SRC/sgbequ.f index 3d7a36c7c3..fe10fd862d 100644 --- a/SRC/sgbequ.f +++ b/SRC/sgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbequb.f b/SRC/sgbequb.f index d94b885163..15f7e6f35f 100644 --- a/SRC/sgbequb.f +++ b/SRC/sgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sgbrfs.f b/SRC/sgbrfs.f index 514aeb0052..12920f43ec 100644 --- a/SRC/sgbrfs.f +++ b/SRC/sgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbrfsx.f b/SRC/sgbrfsx.f index 234ea170eb..e4a2aabbe7 100644 --- a/SRC/sgbrfsx.f +++ b/SRC/sgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sgbsv.f b/SRC/sgbsv.f index 308e38d62f..f64473fbaf 100644 --- a/SRC/sgbsv.f +++ b/SRC/sgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbsvx.f b/SRC/sgbsvx.f index 10cb45464a..486a2000d8 100644 --- a/SRC/sgbsvx.f +++ b/SRC/sgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -354,10 +354,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -387,7 +387,7 @@ SUBROUTINE SGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/SRC/sgbsvxx.f b/SRC/sgbsvxx.f index 3e6d3ed9e6..7ec5b9f743 100644 --- a/SRC/sgbsvxx.f +++ b/SRC/sgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -547,10 +547,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sgbtf2.f b/SRC/sgbtf2.f index 11c5ee3976..08d1d0a800 100644 --- a/SRC/sgbtf2.f +++ b/SRC/sgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgbtrf.f b/SRC/sgbtrf.f index 3df8d69894..9d171189b6 100644 --- a/SRC/sgbtrf.f +++ b/SRC/sgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgbtrs.f b/SRC/sgbtrs.f index d47d41c0ab..2a8960fe77 100644 --- a/SRC/sgbtrs.f +++ b/SRC/sgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgebak.f b/SRC/sgebak.f index acb80d27fb..98e9288410 100644 --- a/SRC/sgebak.f +++ b/SRC/sgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL V( LDV, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgebal.f b/SRC/sgebal.f index cdf0a91b0e..88a6ed442b 100644 --- a/SRC/sgebal.f +++ b/SRC/sgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sgebd2.f b/SRC/sgebd2.f index 26d16f0fad..fdd3783cb5 100644 --- a/SRC/sgebd2.f +++ b/SRC/sgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgebrd.f b/SRC/sgebrd.f index f4dfd2b2d3..5b6833eaa2 100644 --- a/SRC/sgebrd.f +++ b/SRC/sgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,17 +135,17 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit +*> = 0: successful exit *> < 0: if INFO = -i, the i-th argument had an illegal value. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgecon.f b/SRC/sgecon.f index 60c6b1e3ae..ec04af0282 100644 --- a/SRC/sgecon.f +++ b/SRC/sgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgeequ.f b/SRC/sgeequ.f index e64acbdd5b..13999f0a40 100644 --- a/SRC/sgeequ.f +++ b/SRC/sgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgeequb.f b/SRC/sgeequb.f index 018c7cef08..89630d63e2 100644 --- a/SRC/sgeequb.f +++ b/SRC/sgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgees.f b/SRC/sgees.f index 691749c1a0..58745923f5 100644 --- a/SRC/sgees.f +++ b/SRC/sgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, * VS, LDVS, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgeesx.f b/SRC/sgeesx.f index 1deb4d5f7e..a3fc1a1b31 100644 --- a/SRC/sgeesx.f +++ b/SRC/sgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, * WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LIWORK, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -267,10 +267,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sgeev.f b/SRC/sgeev.f index 9f21d1fc5a..0af30e352a 100644 --- a/SRC/sgeev.f +++ b/SRC/sgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, * LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -305,7 +305,7 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, LWORK_TREVC = INT( WORK(1) ) MAXWRK = MAX( MAXWRK, N + LWORK_TREVC ) MAXWRK = MAX( MAXWRK, 4*N ) - ELSE + ELSE MINWRK = 3*N CALL SHSEQR( 'E', 'N', N, 1, N, A, LDA, WR, WI, VR, LDVR, $ WORK, -1, INFO ) diff --git a/SRC/sgeevx.f b/SRC/sgeevx.f index db20e8bee2..9d9898bd96 100644 --- a/SRC/sgeevx.f +++ b/SRC/sgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, * VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, * RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * $ SCALE( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sgehd2.f b/SRC/sgehd2.f index 6c8fc1392c..871c82edce 100644 --- a/SRC/sgehd2.f +++ b/SRC/sgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgehrd.f b/SRC/sgehrd.f index cff1a8acc0..edf2340b6d 100644 --- a/SRC/sgehrd.f +++ b/SRC/sgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -186,7 +186,7 @@ SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) PARAMETER ( NBMAX = 64, LDT = NBMAX+1, $ TSIZE = LDT*NBMAX ) REAL ZERO, ONE - PARAMETER ( ZERO = 0.0E+0, + PARAMETER ( ZERO = 0.0E+0, $ ONE = 1.0E+0 ) * .. * .. Local Scalars .. @@ -225,14 +225,14 @@ SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) END IF * IF( INFO.EQ.0 ) THEN -* +* * Compute the workspace requirements -* +* NB = MIN( NBMAX, ILAENV( 1, 'SGEHRD', ' ', N, ILO, IHI, -1 ) ) LWKOPT = N*NB + TSIZE WORK( 1 ) = LWKOPT END IF -* +* IF( INFO.NE.0 ) THEN CALL XERBLA( 'SGEHRD', -INFO ) RETURN @@ -316,7 +316,7 @@ SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL SGEMM( 'No transpose', 'Transpose', + CALL SGEMM( 'No transpose', 'Transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index a89d5dae8c..4054a593d7 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N @@ -32,7 +32,7 @@ * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -99,7 +99,7 @@ *> numerical RANK is declared to be r. The SVD is computed with *> absolute error bounds, but more accurately than with 'A'. *> \endverbatim -*> +*> *> \param[in] JOBU *> \verbatim *> JOBU is CHARACTER*1 @@ -110,7 +110,7 @@ *> of U. *> = 'N': U is not computed. *> \endverbatim -*> +*> *> \param[in] JOBV *> \verbatim *> JOBV is CHARACTER*1 @@ -124,7 +124,7 @@ *> of V. *> = 'N': V is not computed. *> \endverbatim -*> +*> *> \param[in] JOBR *> \verbatim *> JOBR is CHARACTER*1 @@ -145,7 +145,7 @@ *> For computing the singular values in the FULL range [SFMIN,BIG] *> use SGESVJ. *> \endverbatim -*> +*> *> \param[in] JOBT *> \verbatim *> JOBT is CHARACTER*1 @@ -166,7 +166,7 @@ *> The implementer can easily remove this constraint and make the *> code more complicated. See the descriptions of U and V. *> \endverbatim -*> +*> *> \param[in] JOBP *> \verbatim *> JOBP is CHARACTER*1 @@ -319,15 +319,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB,7). Here NB is the optimal *> block size for DGEQP3 and DGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). +*> In general, optimal LWORK is computed as +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). *> -> .. an estimate of the scaled condition number of A is *> required (JOBA='E', 'G'). In this case, LWORK is the maximum *> of the above and N*N+4*N, i.e. LWORK >= max(2*M+N,N*N+4*N,7). -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB, N*N+4*N, 7). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), *> N+N*N+LWORK(DPOCON),7). *> *> If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -335,7 +335,7 @@ *> -> For optimal performance, LWORK >= max(2*M+N,3*N+(N+1)*NB,7), *> where NB is the optimal block size for DGEQP3, DGEQRF, DGELQ, *> DORMLQ. In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), *> N+LWORK(DGELQ), 2*N+LWORK(DGEQRF), N+LWORK(DORMLQ)). *> *> If SIGMA and the left singular vectors are needed @@ -346,14 +346,14 @@ *> where NB is the optimal block size for DGEQP3, DGEQRF, DORMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DPOCON), -*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). -*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or +*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). +*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or *> M*NB (for JOBU.EQ.'F'). -*> -*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> -> if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). -*> -> if JOBV.EQ.'J' the minimal requirement is +*> +*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> -> if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). +*> -> if JOBV.EQ.'J' the minimal requirement is *> LWORK >= max(2*M+N, 4*N+N*N,2*N+N*N+6). *> -> For optimal performance, LWORK should be additionally *> larger than N+M*NB, where NB is the optimal block size @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -571,7 +571,7 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ .OR. $ (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. MAX(7,2*M+N,4*N+1))) $ .OR. - $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. $ (LWORK.LT.MAX(2*M+N,6*N+2*N*N))) $ .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. $ LWORK.LT.MAX(2*M+N,4*N+N*N,2*N+N*N+6))) @@ -834,7 +834,7 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, KILL = LSVEC LSVEC = RSVEC RSVEC = KILL - IF ( LSVEC ) N1 = N + IF ( LSVEC ) N1 = N * ROWPIV = .TRUE. END IF diff --git a/SRC/sgelq2.f b/SRC/sgelq2.f index 955331db20..b557ba7371 100644 --- a/SRC/sgelq2.f +++ b/SRC/sgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgelqf.f b/SRC/sgelqf.f index 90082106ea..9220c0761d 100644 --- a/SRC/sgelqf.f +++ b/SRC/sgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgels.f b/SRC/sgels.f index 003c85de55..08881b5513 100644 --- a/SRC/sgels.f +++ b/SRC/sgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -39,7 +39,7 @@ *> involving an M-by-N matrix A, or its transpose, using a QR or LQ *> factorization of A. It is assumed that A has full rank. *> -*> The following options are provided: +*> The following options are provided: *> *> 1. If TRANS = 'N' and m >= n: find the least squares solution of *> an overdetermined system, i.e., solve the least squares problem @@ -55,9 +55,9 @@ *> an overdetermined system, i.e., solve the least squares problem *> minimize || B - A**T * X ||. *> -*> Several right hand side vectors b and solution vectors x can be +*> Several right hand side vectors b and solution vectors x can be *> handled in a single call; they are stored as the columns of the -*> M-by-NRHS right hand side matrix B and the N-by-NRHS solution +*> M-by-NRHS right hand side matrix B and the N-by-NRHS solution *> matrix X. *> \endverbatim * @@ -68,7 +68,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': the linear system involves A; -*> = 'T': the linear system involves A**T. +*> = 'T': the linear system involves A**T. *> \endverbatim *> *> \param[in] M @@ -112,7 +112,7 @@ *> B is REAL array, dimension (LDB,NRHS) *> On entry, the matrix B of right hand side vectors, stored *> columnwise; B is M-by-NRHS if TRANS = 'N', or N-by-NRHS -*> if TRANS = 'T'. +*> if TRANS = 'T'. *> On exit, if INFO = 0, B is overwritten by the solution *> vectors, stored columnwise: *> if TRANS = 'N' and m >= n, rows 1 to n of B contain the least @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgelsd.f b/SRC/sgelsd.f index 844b6cda50..aaa57ff638 100644 --- a/SRC/sgelsd.f +++ b/SRC/sgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, * RANK, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgelss.f b/SRC/sgelss.f index bb46130e35..b9da037725 100644 --- a/SRC/sgelss.f +++ b/SRC/sgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -197,7 +197,7 @@ SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ ITAU, ITAUP, ITAUQ, IWORK, LDWORK, MAXMN, $ MAXWRK, MINMN, MINWRK, MM, MNTHR INTEGER LWORK_SGEQRF, LWORK_SORMQR, LWORK_SGEBRD, - $ LWORK_SORMBR, LWORK_SORGBR, LWORK_SORMLQ + $ LWORK_SORMBR, LWORK_SORGBR, LWORK_SORMLQ REAL ANRM, BIGNUM, BNRM, EPS, SFMIN, SMLNUM, THR * .. * .. Local Arrays .. @@ -284,7 +284,7 @@ SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL SORGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_SORGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 3*N + LWORK_SGEBRD ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_SORMBR ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_SORGBR ) @@ -309,7 +309,7 @@ SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), DUM(1), -1, INFO ) LWORK_SGEBRD=DUM(1) * Compute space needed for SORMBR - CALL SORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, + CALL SORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_SORMBR=DUM(1) * Compute space needed for SORGBR @@ -320,7 +320,7 @@ SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL SORMLQ( 'L', 'T', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_SORMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + M*ILAENV( 1, 'SGELQF', ' ', M, N, -1, $ -1 ) MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_SGEBRD ) @@ -342,7 +342,7 @@ SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), DUM(1), -1, INFO ) LWORK_SGEBRD=DUM(1) * Compute space needed for SORMBR - CALL SORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, + CALL SORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_SORMBR=DUM(1) * Compute space needed for SORGBR diff --git a/SRC/sgelsy.f b/SRC/sgelsy.f index 2ad42b7f85..294219f32a 100644 --- a/SRC/sgelsy.f +++ b/SRC/sgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -196,7 +196,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/SRC/sgemqrt.f b/SRC/sgemqrt.f index 3b29f765fb..a3cf4e2603 100644 --- a/SRC/sgemqrt.f +++ b/SRC/sgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by SGEQRT. +*> generated using the compact WY representation as returned by SGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup realGEcomputational * * ===================================================================== - SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL SLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL SLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL SLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/SRC/sgeql2.f b/SRC/sgeql2.f index 4d44618604..614e257116 100644 --- a/SRC/sgeql2.f +++ b/SRC/sgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgeqlf.f b/SRC/sgeqlf.f index 7d2949a949..5d5f85401e 100644 --- a/SRC/sgeqlf.f +++ b/SRC/sgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index ae28fc4bb3..909be434cd 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sgeqr2.f b/SRC/sgeqr2.f index 1f027f6dcb..51a359ef01 100644 --- a/SRC/sgeqr2.f +++ b/SRC/sgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgeqr2p.f b/SRC/sgeqr2p.f index c5cd0c8488..c6644d4a5d 100644 --- a/SRC/sgeqr2p.f +++ b/SRC/sgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> On entry, the m by n matrix A. *> On exit, the elements on and above the diagonal of the array *> contain the min(m,n) by n upper trapezoidal matrix R (R is -*> upper triangular if m >= n). The diagonal entries of R +*> upper triangular if m >= n). The diagonal entries of R *> are nonnegative; the elements below the diagonal, *> with the array TAU, represent the orthogonal matrix Q as a *> product of elementary reflectors (see Further Details). @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sgeqrf.f b/SRC/sgeqrf.f index 8474bf4c5c..7bf82086f2 100644 --- a/SRC/sgeqrf.f +++ b/SRC/sgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,7 +87,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= max(1,N). -*> For optimum performance LWORK >= N*NB, where NB is +*> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgeqrfp.f b/SRC/sgeqrfp.f index f07fcd42f7..2a66b71777 100644 --- a/SRC/sgeqrfp.f +++ b/SRC/sgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> On entry, the M-by-N matrix A. *> On exit, the elements on and above the diagonal of the array *> contain the min(M,N)-by-N upper trapezoidal matrix R (R is -*> upper triangular if m >= n). The diagonal entries of R +*> upper triangular if m >= n). The diagonal entries of R *> are nonnegative; the elements below the diagonal, *> with the array TAU, represent the orthogonal matrix Q as a *> product of min(m,n) elementary reflectors (see Further @@ -88,7 +88,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= max(1,N). -*> For optimum performance LWORK >= N*NB, where NB is +*> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sgeqrt.f b/SRC/sgeqrt.f index e995212a3a..0b160dc174 100644 --- a/SRC/sgeqrt.f +++ b/SRC/sgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> SGEQRT computes a blocked QR factorization of a real M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * Update by applying H**T to A(I:M,I+IB:N) from the left * CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of SGEQRT * END diff --git a/SRC/sgeqrt2.f b/SRC/sgeqrt2.f index 08e9cf1d56..b79250761f 100644 --- a/SRC/sgeqrt2.f +++ b/SRC/sgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SGEQRT2 computes a QR factorization of a real M-by-N matrix A, -*> using the compact WY representation of Q. +*> SGEQRT2 computes a QR factorization of a real M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) CALL XERBLA( 'SGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL SGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL SGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -(T( I, 1 )) - CALL SGER( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL SGER( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) * T(1:I-1,I) := alpha * A(I:M,1:I-1)**T * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL SGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL SGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of SGEQRT2 * diff --git a/SRC/sgeqrt3.f b/SRC/sgeqrt3.f index a0e1c2c189..6f272a0c64 100644 --- a/SRC/sgeqrt3.f +++ b/SRC/sgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SGEQRT3 recursively computes a QR factorization of a real M-by-N -*> matrix A, using the compact WY representation of Q. +*> SGEQRT3 recursively computes a QR factorization of a real M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -178,7 +178,7 @@ RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) * Compute Householder transform when N=1 * CALL SLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL STRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, + CALL STRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL SGEMM( 'T', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL STRMM( 'L', 'U', 'T', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL STRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL SGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL SGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL STRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL SGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL SGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL STRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL STRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL STRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL STRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/SRC/sgerfs.f b/SRC/sgerfs.f index c7ec92508a..02f24a20e4 100644 --- a/SRC/sgerfs.f +++ b/SRC/sgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgerfsx.f b/SRC/sgerfsx.f index 2e1a6d741b..5d40833c37 100644 --- a/SRC/sgerfsx.f +++ b/SRC/sgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is REAL array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is REAL array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgerq2.f b/SRC/sgerq2.f index 6bbfbb8098..22907a359a 100644 --- a/SRC/sgerq2.f +++ b/SRC/sgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgerqf.f b/SRC/sgerqf.f index 57147304d0..11255f52a1 100644 --- a/SRC/sgerqf.f +++ b/SRC/sgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgesc2.f b/SRC/sgesc2.f index bba4c63719..e3b93bbb7e 100644 --- a/SRC/sgesc2.f +++ b/SRC/sgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * REAL SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgesdd.f b/SRC/sgesdd.f index cae6993940..16c27d50e2 100644 --- a/SRC/sgesdd.f +++ b/SRC/sgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * REAL A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -568,7 +568,7 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, END IF END IF END IF - + MAXWRK = MAX( MAXWRK, MINWRK ) WORK( 1 ) = MAXWRK * diff --git a/SRC/sgesv.f b/SRC/sgesv.f index 40509d3cd5..41aa559b9e 100644 --- a/SRC/sgesv.f +++ b/SRC/sgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgesvd.f b/SRC/sgesvd.f index 4e37528ba8..f7a115b1a4 100644 --- a/SRC/sgesvd.f +++ b/SRC/sgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,7 +173,7 @@ *> LWORK is INTEGER *> The dimension of the array WORK. *> LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): -*> - PATH 1 (M much larger than N, JOBU='N') +*> - PATH 1 (M much larger than N, JOBU='N') *> - PATH 1t (N much larger than M, JOBVT='N') *> LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)) for the other paths *> For good performance, LWORK should generally be larger. @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sgesvdx.f b/SRC/sgesvdx.f index 8a2fc9b0cf..2bcded6691 100644 --- a/SRC/sgesvdx.f +++ b/SRC/sgesvdx.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, -* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, +* SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, +* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, * $ LWORK, IWORK, INFO ) -* +* * * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT, RANGE @@ -33,7 +33,7 @@ * REAL A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -43,23 +43,23 @@ *> SGESVDX computes the singular value decomposition (SVD) of a real *> M-by-N matrix A, optionally computing the left and/or right singular *> vectors. The SVD is written -*> +*> *> A = U * SIGMA * transpose(V) -*> +*> *> where SIGMA is an M-by-N matrix which is zero except for its *> min(m,n) diagonal elements, U is an M-by-M orthogonal matrix, and *> V is an N-by-N orthogonal matrix. The diagonal elements of SIGMA *> are the singular values of A; they are real and non-negative, and *> are returned in descending order. The first min(m,n) columns of *> U and V are the left and right singular vectors of A. -*> -*> SGESVDX uses an eigenvalue problem for obtaining the SVD, which -*> allows for the computation of a subset of singular values and +*> +*> SGESVDX uses an eigenvalue problem for obtaining the SVD, which +*> allows for the computation of a subset of singular values and *> vectors. See SBDSVDX for details. -*> +*> *> Note that the routine returns V**T, not V. *> \endverbatim -* +* * Arguments: * ========== * @@ -68,7 +68,7 @@ *> JOBU is CHARACTER*1 *> Specifies options for computing all or part of the matrix U: *> = 'V': the first min(m,n) columns of U (the left singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array U; *> = 'N': no columns of U (no left singular vectors) are *> computed. @@ -80,7 +80,7 @@ *> Specifies options for computing all or part of the matrix *> V**T: *> = 'V': the first min(m,n) rows of V**T (the right singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array VT; *> = 'N': no rows of V**T (no right singular vectors) are *> computed. @@ -92,7 +92,7 @@ *> = 'A': all singular values will be found. *> = 'V': all singular values in the half-open interval (VL,VU] *> will be found. -*> = 'I': the IL-th through IU-th singular values will be found. +*> = 'I': the IL-th through IU-th singular values will be found. *> \endverbatim *> *> \param[in] M @@ -157,7 +157,7 @@ *> \param[out] NS *> \verbatim *> NS is INTEGER -*> The total number of singular values found, +*> The total number of singular values found, *> 0 <= NS <= min(M,N). *> If RANGE = 'A', NS = min(M,N); if RANGE = 'I', NS = IU-IL+1. *> \endverbatim @@ -171,10 +171,10 @@ *> \param[out] U *> \verbatim *> U is REAL array, dimension (LDU,UCOL) -*> If JOBU = 'V', U contains columns of U (the left singular -*> vectors, stored columnwise) as specified by RANGE; if +*> If JOBU = 'V', U contains columns of U (the left singular +*> vectors, stored columnwise) as specified by RANGE; if *> JOBU = 'N', U is not referenced. -*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', +*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', *> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim @@ -189,11 +189,11 @@ *> \param[out] VT *> \verbatim *> VT is REAL array, dimension (LDVT,N) -*> If JOBVT = 'V', VT contains the rows of V**T (the right singular -*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', +*> If JOBVT = 'V', VT contains the rows of V**T (the right singular +*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', *> VT is not referenced. -*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', -*> the exact value of NS is not known in advance and an upper +*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', +*> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim *> @@ -214,9 +214,9 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. -*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see +*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see *> comments inside the code): -*> - PATH 1 (M much larger than N) +*> - PATH 1 (M much larger than N) *> - PATH 1t (N much larger than M) *> LWORK >= MAX(1,MIN(M,N)*2+MAX(M,N)) for the other paths. *> For good performance, LWORK should generally be larger. @@ -230,8 +230,8 @@ *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (12*MIN(M,N)) -*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, -*> then IWORK contains the indices of the eigenvectors that failed +*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, +*> then IWORK contains the indices of the eigenvectors that failed *> to converge in SBDSVDX/SSTEVX. *> \endverbatim *> @@ -249,18 +249,18 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup realGEsing * * ===================================================================== - SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, - $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, + SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, + $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * * -- LAPACK driver routine (version 3.6.1) -- @@ -289,7 +289,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, CHARACTER JOBZ, RNGTGK LOGICAL ALLS, INDS, LQUERY, VALS, WANTU, WANTVT INTEGER I, ID, IE, IERR, ILQF, ILTGK, IQRF, ISCL, - $ ITAU, ITAUP, ITAUQ, ITEMP, ITGKZ, IUTGK, + $ ITAU, ITAUP, ITAUQ, ITEMP, ITGKZ, IUTGK, $ J, MAXWRK, MINMN, MINWRK, MNTHR REAL ABSTOL, ANRM, BIGNUM, EPS, SMLNUM * .. @@ -392,7 +392,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Path 1 (M much larger than N) * - MAXWRK = N + + MAXWRK = N + $ N*ILAENV( 1, 'SGEQRF', ' ', M, N, -1, -1 ) MAXWRK = MAX( MAXWRK, N*(N+5) + 2*N* $ ILAENV( 1, 'SGEBRD', ' ', N, N, -1, -1 ) ) @@ -427,7 +427,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Path 1t (N much larger than M) * - MAXWRK = M + + MAXWRK = M + $ M*ILAENV( 1, 'SGELQF', ' ', M, N, -1, -1 ) MAXWRK = MAX( MAXWRK, M*(M+5) + 2*M* $ ILAENV( 1, 'SGEBRD', ' ', M, M, -1, -1 ) ) @@ -489,7 +489,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, RNGTGK = 'I' ILTGK = IL IUTGK = IU - ELSE + ELSE RNGTGK = 'V' ILTGK = 0 IUTGK = 0 @@ -533,7 +533,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAU + N CALL SGEQRF( M, N, A, LDA, WORK( ITAU ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) -* +* * Copy R into WORK and bidiagonalize it: * (Workspace: need N*N+5*N, prefer N*N+4*N+2*N*NB) * @@ -542,19 +542,19 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + N ITAUQ = IE + N ITAUP = ITAUQ + N - ITEMP = ITAUP + N + ITEMP = ITAUP + N CALL SLACPY( 'U', N, N, A, LDA, WORK( IQRF ), N ) CALL SLASET( 'L', N-1, N-1, ZERO, ZERO, WORK( IQRF+1 ), N ) - CALL SGEBRD( N, N, WORK( IQRF ), N, WORK( ID ), WORK( IE ), + CALL SGEBRD( N, N, WORK( IQRF ), N, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 14*N + 2*N*(N+1)) -* +* (Workspace: need 14*N + 2*N*(N+1)) +* ITGKZ = ITEMP ITEMP = ITGKZ + N*(N*2+1) - CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), + CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ N*2, WORK( ITEMP ), IWORK, INFO) * @@ -571,18 +571,18 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL SORMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL SORMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call SORMQR to compute Q*(QB*UB). * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL SORMQR( 'L', 'N', M, NS, N, A, LDA, + CALL SORMQR( 'L', 'N', M, NS, N, A, LDA, $ WORK( ITAU ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -595,7 +595,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL SORMBR( 'P', 'R', 'T', NS, N, N, WORK( IQRF ), N, + CALL SORMBR( 'P', 'R', 'T', NS, N, N, WORK( IQRF ), N, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) END IF @@ -613,17 +613,17 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + N ITAUQ = IE + N ITAUP = ITAUQ + N - ITEMP = ITAUP + N - CALL SGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), + ITEMP = ITAUP + N + CALL SGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 14*N + 2*N*(N+1)) -* +* (Workspace: need 14*N + 2*N*(N+1)) +* ITGKZ = ITEMP ITEMP = ITGKZ + N*(N*2+1) - CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), + CALL SBDSVDX( 'U', JOBZ, RNGTGK, N, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ N*2, WORK( ITEMP ), IWORK, INFO) * @@ -639,12 +639,12 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Call SORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) -* - CALL SORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), +* + CALL SORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -657,11 +657,11 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL SORMBR( 'P', 'R', 'T', NS, N, N, A, LDA, + CALL SORMBR( 'P', 'R', 'T', NS, N, N, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) END IF - END IF + END IF ELSE * * A has more columns than rows. If A has sufficiently more @@ -670,7 +670,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( N.GE.MNTHR ) THEN * * Path 1t (N much larger than M): -* A = L * Q = ( QB * B * PB**T ) * Q +* A = L * Q = ( QB * B * PB**T ) * Q * = ( QB * ( UB * S * VB**T ) * PB**T ) * Q * U = QB * UB ; V**T = VB**T * PB**T * Q * @@ -693,16 +693,16 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAUP + M CALL SLACPY( 'L', M, M, A, LDA, WORK( ILQF ), M ) CALL SLASET( 'U', M-1, M-1, ZERO, ZERO, WORK( ILQF+M ), M ) - CALL SGEBRD( M, M, WORK( ILQF ), M, WORK( ID ), WORK( IE ), + CALL SGEBRD( M, M, WORK( ILQF ), M, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * ITGKZ = ITEMP ITEMP = ITGKZ + M*(M*2+1) - CALL SBDSVDX( 'U', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), + CALL SBDSVDX( 'U', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ M*2, WORK( ITEMP ), IWORK, INFO) * @@ -718,11 +718,11 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL SORMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL SORMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -736,23 +736,23 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute (VB**T)*(PB**T) * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL SORMBR( 'P', 'R', 'T', NS, M, M, WORK( ILQF ), M, + CALL SORMBR( 'P', 'R', 'T', NS, M, M, WORK( ILQF ), M, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call SORMLQ to compute ((VB**T)*(PB**T))*Q. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL SORMLQ( 'R', 'N', NS, N, M, A, LDA, + CALL SORMLQ( 'R', 'N', NS, N, M, A, LDA, $ WORK( ITAU ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF ELSE * * Path 2t (N greater than M, but not much larger) * Reduce to bidiagonal form without LQ decomposition * A = QB * B * PB**T = QB * ( UB * S * VB**T ) * PB**T -* U = QB * UB; V**T = VB**T * PB**T +* U = QB * UB; V**T = VB**T * PB**T * * Bidiagonalize A * (Workspace: need 4*M+N, prefer 4*M+(M+N)*NB) @@ -762,19 +762,19 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITAUQ = IE + M ITAUP = ITAUQ + M ITEMP = ITAUP + M - CALL SGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), + CALL SGEBRD( M, N, A, LDA, WORK( ID ), WORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * ITGKZ = ITEMP ITEMP = ITGKZ + M*(M*2+1) - CALL SBDSVDX( 'L', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), + CALL SBDSVDX( 'L', JOBZ, RNGTGK, M, WORK( ID ), WORK( IE ), $ VL, VU, ILTGK, IUTGK, NS, S, WORK( ITGKZ ), $ M*2, WORK( ITEMP ), IWORK, INFO) -* +* * If needed, compute left singular vectors. * IF( WANTU ) THEN @@ -787,11 +787,11 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL SORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL SORMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -805,10 +805,10 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call SORMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL SORMBR( 'P', 'R', 'T', NS, N, M, A, LDA, + CALL SORMBR( 'P', 'R', 'T', NS, N, M, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF END IF END IF * diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f index d3fc45270f..e45af02008 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * REAL A( LDA, * ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -925,7 +925,7 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ FASTR ) SVA( q ) = AAQQ*SQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( MAX( ZERO, + AAPP = AAPP*SQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = MAX( MXSINJ, ABS( T ) ) * @@ -1247,7 +1247,7 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = MAX( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( MAX( ZERO, + AAPP = AAPP*SQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = WORK( p ) / WORK( q ) @@ -1561,7 +1561,7 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF * * Undo scaling, if necessary (and possible). - IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) + IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) $ .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( MAX( N2, 1 ) ) .GT. $ ( SFMIN / SKL ) ) ) ) THEN DO 2400 p = 1, N diff --git a/SRC/sgesvx.f b/SRC/sgesvx.f index 67938a9e24..7632df3ed8 100644 --- a/SRC/sgesvx.f +++ b/SRC/sgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sgesvxx.f b/SRC/sgesvxx.f index bc53c7c7cf..14d3d1c438 100644 --- a/SRC/sgesvxx.f +++ b/SRC/sgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -527,10 +527,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f index ce6a5b3927..05cb6973c0 100644 --- a/SRC/sgetc2.f +++ b/SRC/sgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sgetf2.f b/SRC/sgetf2.f index 4b31027618..574f738dd5 100644 --- a/SRC/sgetf2.f +++ b/SRC/sgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -164,8 +164,8 @@ SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) IF( M.EQ.0 .OR. N.EQ.0 ) $ RETURN * -* Compute machine safe minimum -* +* Compute machine safe minimum +* SFMIN = SLAMCH('S') * DO 10 J = 1, MIN( M, N ) @@ -183,15 +183,15 @@ SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) * * Compute elements J+1:M of J-th column. * - IF( J.LT.M ) THEN - IF( ABS(A( J, J )) .GE. SFMIN ) THEN - CALL SSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) - ELSE - DO 20 I = 1, M-J - A( J+I, J ) = A( J+I, J ) / A( J, J ) - 20 CONTINUE - END IF - END IF + IF( J.LT.M ) THEN + IF( ABS(A( J, J )) .GE. SFMIN ) THEN + CALL SSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) + ELSE + DO 20 I = 1, M-J + A( J+I, J ) = A( J+I, J ) / A( J, J ) + 20 CONTINUE + END IF + END IF * ELSE IF( INFO.EQ.0 ) THEN * diff --git a/SRC/sgetrf.f b/SRC/sgetrf.f index ec092331f9..5da212fab8 100644 --- a/SRC/sgetrf.f +++ b/SRC/sgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sgetrf2.f b/SRC/sgetrf2.f index 02b6c34548..6f2719548d 100644 --- a/SRC/sgetrf2.f +++ b/SRC/sgetrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,11 +35,11 @@ *> *> This is the recursive version of the algorithm. It divides *> the matrix into four submatrices: -*> +*> *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 *> A = [ -----|----- ] with n1 = min(m,n)/2 * [ A21 | A22 ] n2 = n-n1 -*> +*> *> [ A11 ] *> The subroutine calls itself to factor [ --- ], *> [ A12 ] @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -239,12 +239,12 @@ RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) * * Solve A12 * - CALL STRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, + CALL STRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, $ A( 1, N1+1 ), LDA ) * * Update A22 * - CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, + CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, $ A( 1, N1+1 ), LDA, ONE, A( N1+1, N1+1 ), LDA ) * * Factor A22 diff --git a/SRC/sgetri.f b/SRC/sgetri.f index 15a837453f..72ec4c1649 100644 --- a/SRC/sgetri.f +++ b/SRC/sgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgetrs.f b/SRC/sgetrs.f index caa45670cd..1ef628f01e 100644 --- a/SRC/sgetrs.f +++ b/SRC/sgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sggbak.f b/SRC/sggbak.f index f10895cb31..da1caf81c7 100644 --- a/SRC/sggbak.f +++ b/SRC/sggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL LSCALE( * ), RSCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sggbal.f b/SRC/sggbal.f index 31b18e9286..7686f740df 100644 --- a/SRC/sggbal.f +++ b/SRC/sggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), LSCALE( * ), * $ RSCALE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgges.f b/SRC/sgges.f index 2f686a2880..c4f621b976 100644 --- a/SRC/sgges.f +++ b/SRC/sgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, * LDVSR, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -577,13 +577,13 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, $ CALL SGGBAK( 'P', 'R', N, ILO, IHI, WORK( ILEFT ), $ WORK( IRIGHT ), N, VSR, LDVSR, IERR ) * -* Check if unscaling would cause over/underflow, if so, rescale -* (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of +* Check if unscaling would cause over/underflow, if so, rescale +* (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of * B(I,I) and ALPHAR(I) and ALPHAI(I) are on the order of A(I,I) * IF( ILASCL )THEN - DO 50 I = 1, N - IF( ALPHAI( I ).NE.ZERO ) THEN + DO 50 I = 1, N + IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( ALPHAR( I )/SAFMAX ).GT.( ANRMTO/ANRM ) .OR. $ ( SAFMIN/ALPHAR( I ) ).GT.( ANRM/ANRMTO ) ) THEN WORK( 1 ) = ABS( A( I, I )/ALPHAR( I ) ) @@ -599,9 +599,9 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, END IF END IF 50 CONTINUE - END IF + END IF * - IF( ILBSCL )THEN + IF( ILBSCL )THEN DO 60 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( BETA( I )/SAFMAX ).GT.( BNRMTO/BNRM ) .OR. @@ -610,10 +610,10 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - END IF + END IF END IF - 60 CONTINUE - END IF + 60 CONTINUE + END IF * * Undo scaling * diff --git a/SRC/sggesx.f b/SRC/sggesx.f index 7a2b34df21..cf7b6466e1 100644 --- a/SRC/sggesx.f +++ b/SRC/sggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, * VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, * LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -332,10 +332,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -718,17 +718,17 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, * (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of * B(I,I) and ALPHAR(I) and ALPHAI(I) are on the order of A(I,I) * - IF( ILASCL ) THEN - DO 20 I = 1, N + IF( ILASCL ) THEN + DO 20 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( ALPHAR( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) .OR. - $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) + $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) $ THEN WORK( 1 ) = ABS( A( I, I ) / ALPHAR( I ) ) BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - ELSE IF( ( ALPHAI( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) + ELSE IF( ( ALPHAI( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) $ .OR. ( SAFMIN / ALPHAI( I ) ).GT.( ANRM / ANRMTO ) ) $ THEN WORK( 1 ) = ABS( A( I, I+1 ) / ALPHAI( I ) ) @@ -738,9 +738,9 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, END IF END IF 20 CONTINUE - END IF + END IF * - IF( ILBSCL ) THEN + IF( ILBSCL ) THEN DO 25 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( BETA( I ) / SAFMAX ).GT.( BNRMTO / BNRM ) .OR. @@ -749,10 +749,10 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - END IF - END IF + END IF + END IF 25 CONTINUE - END IF + END IF * * Undo scaling * diff --git a/SRC/sggev.f b/SRC/sggev.f index 51321a2393..9ec6e363e8 100644 --- a/SRC/sggev.f +++ b/SRC/sggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sggevx.f b/SRC/sggevx.f index ad5b35696d..25fc5a6786 100644 --- a/SRC/sggevx.f +++ b/SRC/sggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, * IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, * RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -36,7 +36,7 @@ * $ RCONDE( * ), RCONDV( * ), RSCALE( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -347,10 +347,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sggglm.f b/SRC/sggglm.f index bc3d5d0ffa..e27899238e 100644 --- a/SRC/sggglm.f +++ b/SRC/sggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -215,7 +215,7 @@ SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/sgghrd.f b/SRC/sgghrd.f index 9ff6e8fa8f..20900ff042 100644 --- a/SRC/sgghrd.f +++ b/SRC/sgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sgglse.f b/SRC/sgglse.f index ce0bcfed39..5466c7f592 100644 --- a/SRC/sgglse.f +++ b/SRC/sgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -210,7 +210,7 @@ SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/sggqrf.f b/SRC/sggqrf.f index 31f99bdc29..5a30609fcd 100644 --- a/SRC/sggqrf.f +++ b/SRC/sggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -239,7 +239,7 @@ SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/sggrqf.f b/SRC/sggrqf.f index da2663534c..6ea6b861e0 100644 --- a/SRC/sggrqf.f +++ b/SRC/sggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -237,8 +237,8 @@ SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, EXTERNAL SGEQRF, SGERQF, SORMRQ, XERBLA * .. * .. External Functions .. - INTEGER ILAENV - EXTERNAL ILAENV + INTEGER ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/sggsvd3.f b/SRC/sggsvd3.f index 3e7b114ee9..12bde7b210 100644 --- a/SRC/sggsvd3.f +++ b/SRC/sggsvd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/sggsvp3.f b/SRC/sggsvp3.f index 595afab13f..f5098280ae 100644 --- a/SRC/sggsvp3.f +++ b/SRC/sggsvp3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -245,10 +245,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f index 4be9f9b936..cddc76c1f1 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * REAL EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * REAL A( LDA, * ), SVA( N ), D( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -485,7 +485,7 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ FASTR ) SVA( q ) = AAQQ*SQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( MAX( ZERO, + AAPP = AAPP*SQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = MAX( MXSINJ, ABS( T ) ) * @@ -800,7 +800,7 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = MAX( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( MAX( ZERO, + AAPP = AAPP*SQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = D( p ) / D( q ) diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index a483f5da37..046372fcfc 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * REAL EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -30,7 +30,7 @@ * REAL A( LDA, * ), D( N ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -300,7 +300,7 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -499,7 +499,7 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, MXSINJ = MAX( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( MAX( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( MAX( ZERO, + AAPP = AAPP*SQRT( MAX( ZERO, $ ONE-T*AQOAP*AAPQ ) ) APOAQ = D( p ) / D( q ) diff --git a/SRC/sgtcon.f b/SRC/sgtcon.f index b6b33b1bad..baccb3093e 100644 --- a/SRC/sgtcon.f +++ b/SRC/sgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgtrfs.f b/SRC/sgtrfs.f index 4cc05bed72..c2eaa58ff5 100644 --- a/SRC/sgtrfs.f +++ b/SRC/sgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgtsv.f b/SRC/sgtsv.f index 3cd6c9bdd7..2bc4d278b3 100644 --- a/SRC/sgtsv.f +++ b/SRC/sgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgtsvx.f b/SRC/sgtsvx.f index 64d5459f98..441ab690e5 100644 --- a/SRC/sgtsvx.f +++ b/SRC/sgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgttrf.f b/SRC/sgttrf.f index 19bc9b2bd7..6c0d5aa466 100644 --- a/SRC/sgttrf.f +++ b/SRC/sgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgttrs.f b/SRC/sgttrs.f index 117839ba4d..0ccc6bdf9a 100644 --- a/SRC/sgttrs.f +++ b/SRC/sgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sgtts2.f b/SRC/sgtts2.f index 31f12f9993..4278a76be9 100644 --- a/SRC/sgtts2.f +++ b/SRC/sgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/shgeqz.f b/SRC/shgeqz.f index 6d55c5563e..18ea25a241 100644 --- a/SRC/shgeqz.f +++ b/SRC/shgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -31,7 +31,7 @@ * $ H( LDH, * ), Q( LDQ, * ), T( LDT, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -50,9 +50,9 @@ *> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**T, T = Q*P*Z**T, -*> +*> *> where Q and Z are orthogonal matrices, P is an upper triangular *> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 *> diagonal blocks. @@ -75,7 +75,7 @@ *> generalized Schur factorization of (A,B): *> *> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, *> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is *> complex and beta real. @@ -86,7 +86,7 @@ *> alternate form of the GNEP *> mu*A*y = B*y. *> Real eigenvalues can be read directly from the generalized Schur -*> form: +*> form: *> alpha = S(i,i), beta = P(i,i). *> *> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix @@ -101,7 +101,7 @@ *> \verbatim *> JOB is CHARACTER*1 *> = 'E': Compute eigenvalues only; -*> = 'S': Compute eigenvalues and the Schur form. +*> = 'S': Compute eigenvalues and the Schur form. *> \endverbatim *> *> \param[in] COMPQ @@ -277,10 +277,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -760,7 +760,7 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ S2, WR, WR2, WI ) * IF ( ABS( (WR/S1)*T( ILAST, ILAST ) - H( ILAST, ILAST ) ) - $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) + $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) $ - H( ILAST, ILAST ) ) ) THEN TEMP = WR WR = WR2 diff --git a/SRC/shsein.f b/SRC/shsein.f index ffae353e06..2e481ce2bb 100644 --- a/SRC/shsein.f +++ b/SRC/shsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, * VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -32,7 +32,7 @@ * REAL H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/shseqr.f b/SRC/shseqr.f index 1c1f8eca69..af638b4609 100644 --- a/SRC/shseqr.f +++ b/SRC/shseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, * LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -228,10 +228,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sisnan.f b/SRC/sisnan.f index a746da53a9..5b76b1f8f3 100644 --- a/SRC/sisnan.f +++ b/SRC/sisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION SISNAN( SIN ) -* +* * .. Scalar Arguments .. * REAL SIN * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gbamv.f b/SRC/sla_gbamv.f index 91de2d646c..090fa203c8 100644 --- a/SRC/sla_gbamv.f +++ b/SRC/sla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gbrcond.f b/SRC/sla_gbrcond.f index 11700ac0fb..934af62060 100644 --- a/SRC/sla_gbrcond.f +++ b/SRC/sla_gbrcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, * IPIV, CMODE, C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDAB, LDAFB, INFO, KL, KU, CMODE @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gbrfsx_extended.f b/SRC/sla_gbrfsx_extended.f index 87d509c2e7..2b1a1e1dd8 100644 --- a/SRC/sla_gbrfsx_extended.f +++ b/SRC/sla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gbrpvgrw.f b/SRC/sla_gbrpvgrw.f index b1177bad64..227abe9263 100644 --- a/SRC/sla_gbrpvgrw.f +++ b/SRC/sla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, * LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * REAL AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index e6f68cfd5e..eacc0b82ba 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gercond.f b/SRC/sla_gercond.f index e241cbdd2f..bcc3a5c6cf 100644 --- a/SRC/sla_gercond.f +++ b/SRC/sla_gercond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, * CMODE, C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gerfsx_extended.f b/SRC/sla_gerfsx_extended.f index e09b3172f3..5650e815af 100644 --- a/SRC/sla_gerfsx_extended.f +++ b/SRC/sla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERRS_N( NRHS, * ), * $ ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_gerpvgrw.f b/SRC/sla_gerpvgrw.f index 042cff222a..658c748feb 100644 --- a/SRC/sla_gerpvgrw.f +++ b/SRC/sla_gerpvgrw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * REAL A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sla_lin_berr.f b/SRC/sla_lin_berr.f index 7f7a35595d..c496d7d878 100644 --- a/SRC/sla_lin_berr.f +++ b/SRC/sla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * REAL AYB( N, NRHS ), BERR( NRHS ) * REAL RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see sla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is REAL array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_porcond.f b/SRC/sla_porcond.f index f59008651f..06f3d46ea8 100644 --- a/SRC/sla_porcond.f +++ b/SRC/sla_porcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_porfsx_extended.f b/SRC/sla_porfsx_extended.f index 8d0ab25f18..3506a2fe49 100644 --- a/SRC/sla_porfsx_extended.f +++ b/SRC/sla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -369,10 +369,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_porpvgrw.f b/SRC/sla_porpvgrw.f index a6623c342e..6bc01f8061 100644 --- a/SRC/sla_porpvgrw.f +++ b/SRC/sla_porpvgrw.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -27,14 +27,14 @@ * .. Array Arguments .. * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_syamv.f b/SRC/sla_syamv.f index 5d44221706..7cbae1a1b6 100644 --- a/SRC/sla_syamv.f +++ b/SRC/sla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f index a815ad9a7f..c4902c7f74 100644 --- a/SRC/sla_syrcond.f +++ b/SRC/sla_syrcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, * C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -29,7 +29,7 @@ * INTEGER IWORK( * ), IPIV( * ) * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_syrfsx_extended.f b/SRC/sla_syrfsx_extended.f index 0e98017fba..01541d46e2 100644 --- a/SRC/sla_syrfsx_extended.f +++ b/SRC/sla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,14 +41,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_SYRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -542,7 +542,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, CALL BLAS_SSYMV2_X(UPLO2, N, -1.0, A, LDA, $ Y(1, J), Y_TAIL, 1, 1.0, RES, 1, PREC_TYPE) END IF - + ! XXX: RES is no longer needed. CALL SCOPY( N, RES, 1, DY, 1 ) CALL SSYTRS( UPLO, N, 1, AF, LDAF, IPIV, DY, N, INFO ) @@ -554,11 +554,11 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, NORMDX = 0.0 DZ_Z = 0.0 YMIN = HUGEVAL - + DO I = 1, N YK = ABS( Y( I, J ) ) DYK = ABS( DY( I ) ) - + IF ( YK .NE. 0.0 ) THEN DZ_Z = MAX( DZ_Z, DYK / YK ) ELSE IF ( DYK .NE. 0.0 ) THEN @@ -657,7 +657,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, ELSE CALL SLA_WWADDW( N, Y(1,J), Y_TAIL, DY ) END IF - + END DO * Target of "IF (Z_STOP .AND. X_STOP)". Sun's f77 won't EXIT. 666 CONTINUE @@ -687,7 +687,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, * op(A) = A, A**T, or A**H depending on TRANS (and type). CALL SCOPY( N, B( 1, J ), 1, RES, 1 ) CALL SSYMV( UPLO, N, -1.0, A, LDA, Y(1,J), 1, 1.0, RES, 1 ) - + DO I = 1, N AYB( I ) = ABS( B( I, J ) ) END DO @@ -696,7 +696,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, * CALL SLA_SYAMV( UPLO2, N, 1.0, $ A, LDA, Y(1, J), 1, 1.0, AYB, 1 ) - + CALL SLA_LIN_BERR( N, N, 1, RES, AYB, BERR_OUT( J ) ) * * End of loop for each RHS. diff --git a/SRC/sla_syrpvgrw.f b/SRC/sla_syrpvgrw.f index 21da411a7c..a9cfde2a44 100644 --- a/SRC/sla_syrpvgrw.f +++ b/SRC/sla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -29,14 +29,14 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sla_wwaddw.f b/SRC/sla_wwaddw.f index 081beb4422..03f8f68ecd 100644 --- a/SRC/sla_wwaddw.f +++ b/SRC/sla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * REAL X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slabad.f b/SRC/slabad.f index 5bf653009b..3e7b0dd17d 100644 --- a/SRC/slabad.f +++ b/SRC/slabad.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLABAD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLABAD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLABAD( SMALL, LARGE ) -* +* * .. Scalar Arguments .. * REAL LARGE, SMALL * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/slabrd.f b/SRC/slabrd.f index 5006eac3fd..778a663e0a 100644 --- a/SRC/slabrd.f +++ b/SRC/slabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slacn2.f b/SRC/slacn2.f index 73c993e71c..eeaa639902 100644 --- a/SRC/slacn2.f +++ b/SRC/slacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ), ISAVE( 3 ) * REAL V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to SLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slacon.f b/SRC/slacon.f index 0493e069c3..f0b2164a23 100644 --- a/SRC/slacon.f +++ b/SRC/slacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ) * REAL V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to SLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slacpy.f b/SRC/slacpy.f index fa19989f4c..5d9f87017a 100644 --- a/SRC/slacpy.f +++ b/SRC/slacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sladiv.f b/SRC/sladiv.f index 6d26da20c2..e746375ab0 100644 --- a/SRC/sladiv.f +++ b/SRC/sladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLADIV( A, B, C, D, P, Q ) -* +* * .. Scalar Arguments .. * REAL A, B, C, D, P, Q * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date January 2013 * @@ -132,12 +132,12 @@ SUBROUTINE SLADIV( A, B, C, D, P, Q ) AB = MAX( ABS(A), ABS(B) ) CD = MAX( ABS(C), ABS(D) ) S = 1.0E0 - + OV = SLAMCH( 'Overflow threshold' ) UN = SLAMCH( 'Safe minimum' ) EPS = SLAMCH( 'Epsilon' ) BE = BS / (EPS*EPS) - + IF( AB >= HALF*OV ) THEN AA = HALF * AA BB = HALF * BB @@ -173,7 +173,7 @@ SUBROUTINE SLADIV( A, B, C, D, P, Q ) * END - + SUBROUTINE SLADIV1( A, B, C, D, P, Q ) * diff --git a/SRC/slae2.f b/SRC/slae2.f index 313436c1fa..375a2f0e21 100644 --- a/SRC/slae2.f +++ b/SRC/slae2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAE2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAE2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) -* +* * .. Scalar Arguments .. * REAL A, B, C, RT1, RT2 * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaebz.f b/SRC/slaebz.f index 57064875af..9f63afebf4 100644 --- a/SRC/slaebz.f +++ b/SRC/slaebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, * RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, * NAB, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX * REAL ABSTOL, PIVMIN, RELTOL @@ -31,7 +31,7 @@ * REAL AB( MMAX, * ), C( * ), D( * ), E( * ), E2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -268,10 +268,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaed0.f b/SRC/slaed0.f index b05f18ecad..1d7bbd00fd 100644 --- a/SRC/slaed0.f +++ b/SRC/slaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), Q( LDQ, * ), QSTORE( LDQS, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaed1.f b/SRC/slaed1.f index c6f52d0fdf..2247d28758 100644 --- a/SRC/slaed1.f +++ b/SRC/slaed1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, INFO, LDQ, N * REAL RHO @@ -29,7 +29,7 @@ * INTEGER INDXQ( * ), IWORK( * ) * REAL D( * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slaed2.f b/SRC/slaed2.f index 897eb4c543..ae9685a82e 100644 --- a/SRC/slaed2.f +++ b/SRC/slaed2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * Q2, INDX, INDXC, INDXP, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * REAL RHO @@ -31,7 +31,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -520,7 +520,7 @@ SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * into the last N - K slots of D and Q respectively. * IF( K.LT.N ) THEN - CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, + CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, $ Q( 1, K+1 ), LDQ ) CALL SCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) END IF diff --git a/SRC/slaed3.f b/SRC/slaed3.f index 334fcb27d8..3808b08eeb 100644 --- a/SRC/slaed3.f +++ b/SRC/slaed3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, * CTOT, W, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * REAL RHO @@ -30,7 +30,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ S( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaed4.f b/SRC/slaed4.f index 6330c854a6..f25c1df45a 100644 --- a/SRC/slaed4.f +++ b/SRC/slaed4.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER I, INFO, N * REAL DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), DELTA( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaed5.f b/SRC/slaed5.f index d5573b4ce7..35e1bc2866 100644 --- a/SRC/slaed5.f +++ b/SRC/slaed5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) -* +* * .. Scalar Arguments .. * INTEGER I * REAL DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( 2 ), DELTA( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaed6.f b/SRC/slaed6.f index 96ab9de335..e52b5df38d 100644 --- a/SRC/slaed6.f +++ b/SRC/slaed6.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL ORGATI * INTEGER INFO, KNITER @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL D( 3 ), Z( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -175,7 +175,7 @@ SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) INTEGER I, ITER, NITER REAL A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F, $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1, - $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, + $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, $ LBD, UBD * .. * .. Intrinsic Functions .. @@ -195,7 +195,7 @@ SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) IF( FINIT .LT. ZERO )THEN LBD = ZERO ELSE - UBD = ZERO + UBD = ZERO END IF * NITER = 1 @@ -363,7 +363,7 @@ SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * TAU = TAU + ETA IF( TAU .LT. LBD .OR. TAU .GT. UBD ) - $ TAU = ( LBD + UBD )/TWO + $ TAU = ( LBD + UBD )/TWO * FC = ZERO ERRETM = ZERO diff --git a/SRC/slaed7.f b/SRC/slaed7.f index f6615e039e..f51ea2f5a0 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, * PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, * $ QSIZ, TLVLS @@ -34,7 +34,7 @@ * REAL D( * ), GIVNUM( 2, * ), Q( LDQ, * ), * $ QSTORE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slaed8.f b/SRC/slaed8.f index c9446d2e6a..45fae861e8 100644 --- a/SRC/slaed8.f +++ b/SRC/slaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, * CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, * GIVCOL, GIVNUM, INDXP, INDX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, * $ QSIZ @@ -33,7 +33,7 @@ * REAL D( * ), DLAMDA( * ), GIVNUM( 2, * ), * $ Q( LDQ, * ), Q2( LDQ2, * ), W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -308,8 +308,8 @@ SUBROUTINE SLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/SRC/slaed9.f b/SRC/slaed9.f index 7828434ef2..02765af4fc 100644 --- a/SRC/slaed9.f +++ b/SRC/slaed9.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED9 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED9 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, * S, LDS, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N * REAL RHO @@ -29,7 +29,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), S( LDS, * ), * $ W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaeda.f b/SRC/slaeda.f index 70d1aa22d9..6887fa6adb 100644 --- a/SRC/slaeda.f +++ b/SRC/slaeda.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, * GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, INFO, N, TLVLS * .. @@ -29,7 +29,7 @@ * $ PRMPTR( * ), QPTR( * ) * REAL GIVNUM( 2, * ), Q( * ), Z( * ), ZTEMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaein.f b/SRC/slaein.f index 8c8ed6fb51..8fdbf617d7 100644 --- a/SRC/slaein.f +++ b/SRC/slaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, * LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -30,7 +30,7 @@ * REAL B( LDB, * ), H( LDH, * ), VI( * ), VR( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaev2.f b/SRC/slaev2.f index f6b81caa2b..efd0e0be28 100644 --- a/SRC/slaev2.f +++ b/SRC/slaev2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * REAL A, B, C, CS1, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaexc.f b/SRC/slaexc.f index db479cdc4a..c1a90f86f5 100644 --- a/SRC/slaexc.f +++ b/SRC/slaexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ * INTEGER INFO, J1, LDQ, LDT, N, N1, N2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slag2.f b/SRC/slag2.f index da18f6b231..d3f7d08bc5 100644 --- a/SRC/slag2.f +++ b/SRC/slag2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAG2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAG2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, * WR2, WI ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * REAL SAFMIN, SCALE1, SCALE2, WI, WR1, WR2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slag2d.f b/SRC/slag2d.f index e515fa6351..2f9b26a44a 100644 --- a/SRC/slag2d.f +++ b/SRC/slag2d.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAG2D + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAG2D + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slags2.f b/SRC/slags2.f index a78c00d825..07fe2f5818 100644 --- a/SRC/slags2.f +++ b/SRC/slags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * REAL A1, A2, A3, B1, B2, B3, CSQ, CSU, CSV, SNQ, * $ SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slagtf.f b/SRC/slagtf.f index a2f2e6d9c7..5aaccaccc8 100644 --- a/SRC/slagtf.f +++ b/SRC/slagtf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL LAMBDA, TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * REAL A( * ), B( * ), C( * ), D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slagtm.f b/SRC/slagtm.f index 41f4ace95c..cfaed55072 100644 --- a/SRC/slagtm.f +++ b/SRC/slagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slagts.f b/SRC/slagts.f index 7d579b8502..d20241cf69 100644 --- a/SRC/slagts.f +++ b/SRC/slagts.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, JOB, N * REAL TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * REAL A( * ), B( * ), C( * ), D( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slagv2.f b/SRC/slagv2.f index cbdf00cc97..1fa0f434c6 100644 --- a/SRC/slagv2.f +++ b/SRC/slagv2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, * CSR, SNR ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * REAL CSL, CSR, SNL, SNR @@ -29,7 +29,7 @@ * REAL A( LDA, * ), ALPHAI( 2 ), ALPHAR( 2 ), * $ B( LDB, * ), BETA( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slahqr.f b/SRC/slahqr.f index 7783da0247..c81fe18ae3 100644 --- a/SRC/slahqr.f +++ b/SRC/slahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL H( LDH, * ), WI( * ), WR( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -292,7 +292,7 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * * ITMAX is the total number of QR iterations allowed. * - ITMAX = 30 * MAX( 10, NH ) + ITMAX = 30 * MAX( 10, NH ) * * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works diff --git a/SRC/slahr2.f b/SRC/slahr2.f index c0b72dd6ab..96a9fd7917 100644 --- a/SRC/slahr2.f +++ b/SRC/slahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * .. Parameters .. REAL ZERO, ONE - PARAMETER ( ZERO = 0.0E+0, + PARAMETER ( ZERO = 0.0E+0, $ ONE = 1.0E+0 ) * .. * .. Local Scalars .. @@ -240,31 +240,31 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * w := V1**T * b1 * CALL SCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL STRMV( 'Lower', 'Transpose', 'UNIT', + CALL STRMV( 'Lower', 'Transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**T * b2 * - CALL SGEMV( 'Transpose', N-K-I+1, I-1, + CALL SGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**T * w * - CALL STRMV( 'Upper', 'Transpose', 'NON-UNIT', + CALL STRMV( 'Upper', 'Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL SGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL SGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL STRMV( 'Lower', 'NO TRANSPOSE', + CALL STRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL SAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -282,13 +282,13 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Compute Y(K+1:N,I) * - CALL SGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL SGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL SGEMV( 'Transpose', N-K-I+1, I-1, + CALL SGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL SGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL SGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL SSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -296,7 +296,7 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute T(1:I,I) * CALL SSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL STRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL STRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -307,15 +307,15 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute Y(1:K,1:NB) * CALL SLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL STRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL STRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL SGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL SGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL STRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL STRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/SRC/slaic1.f b/SRC/slaic1.f index edbfcdf305..6eddab2742 100644 --- a/SRC/slaic1.f +++ b/SRC/slaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * REAL C, GAMMA, S, SEST, SESTPR @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaisnan.f b/SRC/slaisnan.f index 0cf4117d85..911836978c 100644 --- a/SRC/slaisnan.f +++ b/SRC/slaisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) -* +* * .. Scalar Arguments .. * REAL SIN1, SIN2 * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaln2.f b/SRC/slaln2.f index 14468c0c80..3d1cdfbf84 100644 --- a/SRC/slaln2.f +++ b/SRC/slaln2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, * LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANS * INTEGER INFO, LDA, LDB, LDX, NA, NW @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slals0.f b/SRC/slals0.f index 869a3b64a8..4625f1f9e4 100644 --- a/SRC/slals0.f +++ b/SRC/slals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -33,7 +33,7 @@ * $ DIFR( LDGNUM, * ), GIVNUM( LDGNUM, * ), * $ POLES( LDGNUM, * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slalsa.f b/SRC/slalsa.f index ad225d0240..f373a77cfd 100644 --- a/SRC/slalsa.f +++ b/SRC/slalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -36,7 +36,7 @@ * $ U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slalsd.f b/SRC/slalsd.f index fe1f0c5815..989a53f501 100644 --- a/SRC/slalsd.f +++ b/SRC/slalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL B( LDB, * ), D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slamrg.f b/SRC/slamrg.f index 7f171cbe92..99d4a59c90 100644 --- a/SRC/slamrg.f +++ b/SRC/slamrg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAMRG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAMRG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) -* +* * .. Scalar Arguments .. * INTEGER N1, N2, STRD1, STRD2 * .. @@ -27,7 +27,7 @@ * INTEGER INDEX( * ) * REAL A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slaneg.f b/SRC/slaneg.f index f17068c38b..cfc3b36cc5 100644 --- a/SRC/slaneg.f +++ b/SRC/slaneg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANEG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANEG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) -* +* * .. Scalar Arguments .. * INTEGER N, R * REAL PIVMIN, SIGMA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), LLD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slangb.f b/SRC/slangb.f index 27c6fe6433..37de16e943 100644 --- a/SRC/slangb.f +++ b/SRC/slangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -169,7 +169,7 @@ REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, VALUE = ZERO DO 20 J = 1, N DO 10 I = MAX( KU+2-J, 1 ), MIN( N+KU+1-J, KL+KU+1 ) - TEMP = ABS( AB( I, J ) ) + TEMP = ABS( AB( I, J ) ) IF( VALUE.LT.TEMP .OR. SISNAN( TEMP ) ) VALUE = TEMP 10 CONTINUE 20 CONTINUE diff --git a/SRC/slange.f b/SRC/slange.f index f2fe0e4bf9..4df2bf7c62 100644 --- a/SRC/slange.f +++ b/SRC/slange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -158,7 +158,7 @@ REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) VALUE = ZERO DO 20 J = 1, N DO 10 I = 1, M - TEMP = ABS( A( I, J ) ) + TEMP = ABS( A( I, J ) ) IF( VALUE.LT.TEMP .OR. SISNAN( TEMP ) ) VALUE = TEMP 10 CONTINUE 20 CONTINUE diff --git a/SRC/slangt.f b/SRC/slangt.f index 150eb9780f..68be33de5b 100644 --- a/SRC/slangt.f +++ b/SRC/slangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/SRC/slanhs.f b/SRC/slanhs.f index fe166cf72e..c3578f426b 100644 --- a/SRC/slanhs.f +++ b/SRC/slanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slansb.f b/SRC/slansb.f index e36182472d..4884d532ee 100644 --- a/SRC/slansb.f +++ b/SRC/slansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slansf.f b/SRC/slansf.f index 5c3cdacb0b..bf79d7cdb6 100644 --- a/SRC/slansf.f +++ b/SRC/slansf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ), WORK( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -300,7 +300,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, K - 1 DO I = 0, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -309,7 +309,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, N - 1 DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -321,7 +321,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, K - 1 DO I = 0, N TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -330,7 +330,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) DO J = 0, N DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -380,7 +380,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -422,7 +422,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -460,7 +460,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -498,7 +498,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -564,7 +564,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -629,7 +629,7 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF diff --git a/SRC/slansp.f b/SRC/slansp.f index 67c7fd757e..f8f4af16b2 100644 --- a/SRC/slansp.f +++ b/SRC/slansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -196,7 +196,7 @@ REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) 60 CONTINUE DO 70 I = 1, N SUM = WORK( I ) - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 70 CONTINUE ELSE DO 80 I = 1, N @@ -211,7 +211,7 @@ REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) WORK( I ) = WORK( I ) + ABSA K = K + 1 90 CONTINUE - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 100 CONTINUE END IF ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN diff --git a/SRC/slanst.f b/SRC/slanst.f index 56db9969dc..4a556c65e6 100644 --- a/SRC/slanst.f +++ b/SRC/slanst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANST( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slansy.f b/SRC/slansy.f index f03d721488..7b14f9fdd5 100644 --- a/SRC/slansy.f +++ b/SRC/slansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slantb.f b/SRC/slantb.f index 9d87539f47..560890d0d7 100644 --- a/SRC/slantb.f +++ b/SRC/slantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slantp.f b/SRC/slantp.f index 129d7a6dce..96389770d8 100644 --- a/SRC/slantp.f +++ b/SRC/slantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slantr.f b/SRC/slantr.f index 50c896d9bb..3263e31ccf 100644 --- a/SRC/slantr.f +++ b/SRC/slantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slanv2.f b/SRC/slanv2.f index e535e20df3..8d4a35abc1 100644 --- a/SRC/slanv2.f +++ b/SRC/slanv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) -* +* * .. Scalar Arguments .. * REAL A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slapll.f b/SRC/slapll.f index 05a4607aa7..d5b1aa06b0 100644 --- a/SRC/slapll.f +++ b/SRC/slapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slapmr.f b/SRC/slapmr.f index e496f63030..6397123f21 100644 --- a/SRC/slapmr.f +++ b/SRC/slapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * REAL X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slapmt.f b/SRC/slapmt.f index c55c1bc30e..2826dced6c 100644 --- a/SRC/slapmt.f +++ b/SRC/slapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * REAL X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 85f502bd1d..f07af9180e 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLAPY2( X, Y ) -* +* * .. Scalar Arguments .. * REAL X, Y * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slapy3.f b/SRC/slapy3.f index 34bf5e15e5..b417486939 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPY3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPY3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLAPY3( X, Y, Z ) -* +* * .. Scalar Arguments .. * REAL X, Y, Z * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqgb.f b/SRC/slaqgb.f index 5346166ec1..cf4454adf3 100644 --- a/SRC/slaqgb.f +++ b/SRC/slaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqge.f b/SRC/slaqge.f index d3fd5c6d2d..28005c4154 100644 --- a/SRC/slaqge.f +++ b/SRC/slaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqp2.f b/SRC/slaqp2.f index 2aa54b2546..8f03200f1c 100644 --- a/SRC/slaqp2.f +++ b/SRC/slaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * REAL A( LDA, * ), TAU( * ), VN1( * ), VN2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,9 +67,9 @@ *> \verbatim *> A is REAL array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is -*> the triangular factor obtained; the elements in block -*> A(OFFSET+1:M,1:N) below the diagonal, together with the +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> the triangular factor obtained; the elements in block +*> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of *> elementary reflectors. Block A(1:OFFSET,1:N) has been *> accordingly pivoted, but no factorized. @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/SRC/slaqps.f b/SRC/slaqps.f index 7983147cb1..ef50c60b07 100644 --- a/SRC/slaqps.f +++ b/SRC/slaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * REAL A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ), * $ VN1( * ), VN2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -171,8 +171,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -343,9 +343,9 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = SNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/SRC/slaqr0.f b/SRC/slaqr0.f index 80dfb6075d..2327f2fa3b 100644 --- a/SRC/slaqr0.f +++ b/SRC/slaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqr1.f b/SRC/slaqr1.f index 336d545da1..75ce5eef48 100644 --- a/SRC/slaqr1.f +++ b/SRC/slaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) -* +* * .. Scalar Arguments .. * REAL SI1, SI2, SR1, SR2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 6b9775b3a1..0e162035b9 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f index b80b27af50..6756b7dc69 100644 --- a/SRC/slaqr3.f +++ b/SRC/slaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slaqr4.f b/SRC/slaqr4.f index f918a9c404..e9a48ed08e 100644 --- a/SRC/slaqr4.f +++ b/SRC/slaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index d9ed7922df..dcb5f975bc 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, * SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, * LDU, NV, WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -32,7 +32,7 @@ * $ V( LDV, * ), WH( LDWH, * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -231,10 +231,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slaqsb.f b/SRC/slaqsb.f index 42a117f224..86e3d276b9 100644 --- a/SRC/slaqsb.f +++ b/SRC/slaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqsp.f b/SRC/slaqsp.f index ac5842e9bd..972e3dde38 100644 --- a/SRC/slaqsp.f +++ b/SRC/slaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqsy.f b/SRC/slaqsy.f index 86d21d71f5..e90d0d6dbd 100644 --- a/SRC/slaqsy.f +++ b/SRC/slaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaqtr.f b/SRC/slaqtr.f index e2dc607edd..53a7db9651 100644 --- a/SRC/slaqtr.f +++ b/SRC/slaqtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LREAL, LTRAN * INTEGER INFO, LDT, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL B( * ), T( LDT, * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slar1v.f b/SRC/slar1v.f index d813f68c46..80b697b020 100644 --- a/SRC/slar1v.f +++ b/SRC/slar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slar2v.f b/SRC/slar2v.f index 20c119bbfa..1c0d5c5265 100644 --- a/SRC/slar2v.f +++ b/SRC/slar2v.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. * .. Array Arguments .. * REAL C( * ), S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarf.f b/SRC/slarf.f index 2747561e6d..eb0a9cd116 100644 --- a/SRC/slarf.f +++ b/SRC/slarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarfb.f b/SRC/slarfb.f index 78b121d245..8becdfd34b 100644 --- a/SRC/slarfb.f +++ b/SRC/slarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * REAL C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/SRC/slarfg.f b/SRC/slarfg.f index d44f8b1734..777cddb6c0 100644 --- a/SRC/slarfg.f +++ b/SRC/slarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarfgp.f b/SRC/slarfgp.f index 82b575f5c0..1d271190df 100644 --- a/SRC/slarfgp.f +++ b/SRC/slarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -203,7 +203,7 @@ SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO. This explains the next IF statement. * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -219,7 +219,7 @@ SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) BETA = -SAVEALPHA END IF * - ELSE + ELSE * * This is the general case. * diff --git a/SRC/slarft.f b/SRC/slarft.f index bc3521d157..22b69b295b 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -221,7 +221,7 @@ SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( I , J ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**T * V(i:j,i) @@ -236,13 +236,13 @@ SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**T * CALL SGEMV( 'No transpose', I-1, J-I, -TAU( I ), - $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, + $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, $ ONE, T( 1, I ), 1 ) END IF * @@ -280,7 +280,7 @@ SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( N-K+I , J ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**T * V(j:n-k+i,i) @@ -295,7 +295,7 @@ SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**T diff --git a/SRC/slarfx.f b/SRC/slarfx.f index c4bb71bf50..8dd57238af 100644 --- a/SRC/slarfx.f +++ b/SRC/slarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slargv.f b/SRC/slargv.f index a587e083fa..3b9f566ea0 100644 --- a/SRC/slargv.f +++ b/SRC/slargv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * REAL C( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarnv.f b/SRC/slarnv.f index eede7fc63f..95a0bf91df 100644 --- a/SRC/slarnv.f +++ b/SRC/slarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarra.f b/SRC/slarra.f index ffc7c40fea..c40b9ea75b 100644 --- a/SRC/slarra.f +++ b/SRC/slarra.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, * NSPLIT, ISPLIT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N, NSPLIT * REAL SPLTOL, TNRM @@ -29,7 +29,7 @@ * INTEGER ISPLIT( * ) * REAL D( * ), E( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarrb.f b/SRC/slarrb.f index d39c32d2de..e04fa53dfd 100644 --- a/SRC/slarrb.f +++ b/SRC/slarrb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, * RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, * PIVMIN, SPDIAM, TWIST, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST * REAL PIVMIN, RTOL1, RTOL2, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), LLD( * ), W( * ), * $ WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarrc.f b/SRC/slarrc.f index ec9c252c21..fee7230eb4 100644 --- a/SRC/slarrc.f +++ b/SRC/slarrc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, * EIGCNT, LCNT, RCNT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBT * INTEGER EIGCNT, INFO, LCNT, N, RCNT @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slarrd.f b/SRC/slarrd.f index 5ac428e2a2..44774f7218 100644 --- a/SRC/slarrd.f +++ b/SRC/slarrd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, * M, W, WERR, WL, WU, IBLOCK, INDEXW, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * REAL D( * ), E( * ), E2( * ), * $ GERS( * ), W( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -314,10 +314,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slarre.f b/SRC/slarre.f index bf56986c0c..5aa32a5d81 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, * W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * REAL D( * ), E( * ), E2( * ), GERS( * ), * $ W( * ),WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slarrf.f b/SRC/slarrf.f index f686018d1d..ccd078af25 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * W, WGAP, WERR, * SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, * DPLUS, LPLUS, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CLSTRT, CLEND, INFO, N * REAL CLGAPL, CLGAPR, PIVMIN, SIGMA, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), DPLUS( * ), L( * ), LD( * ), * $ LPLUS( * ), W( * ), WGAP( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slarrj.f b/SRC/slarrj.f index 5b7abcf47e..3afd92ee49 100644 --- a/SRC/slarrj.f +++ b/SRC/slarrj.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLARRJ( N, D, E2, IFIRST, ILAST, * RTOL, OFFSET, W, WERR, WORK, IWORK, * PIVMIN, SPDIAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET * REAL PIVMIN, RTOL, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), E2( * ), W( * ), * $ WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarrk.f b/SRC/slarrk.f index 66dd09184b..9e70a36667 100644 --- a/SRC/slarrk.f +++ b/SRC/slarrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRK( N, IW, GL, GU, * D, E2, PIVMIN, RELTOL, W, WERR, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, IW, N * REAL PIVMIN, RELTOL, GL, GU, W, WERR @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL D( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarrr.f b/SRC/slarrr.f index 5e2230d1a7..42980eae42 100644 --- a/SRC/slarrr.f +++ b/SRC/slarrr.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRR( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER N, INFO * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarrv.f b/SRC/slarrv.f index b098c3d11a..bc11f659e3 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * REAL MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slarscl2.f b/SRC/slarscl2.f index 3f51d722d9..f00426a0a0 100644 --- a/SRC/slarscl2.f +++ b/SRC/slarscl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * REAL D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slartg.f b/SRC/slartg.f index fd7d9dd1e8..9768954f0d 100644 --- a/SRC/slartg.f +++ b/SRC/slartg.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slartgp.f b/SRC/slartgp.f index bd518bc4b4..c7fe1ef2d5 100644 --- a/SRC/slartgp.f +++ b/SRC/slartgp.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTGP( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slartgs.f b/SRC/slartgs.f index 2d39413170..bd8b63e2e1 100644 --- a/SRC/slartgs.f +++ b/SRC/slartgs.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) -* +* * .. Scalar Arguments .. * REAL CS, SIGMA, SN, X, Y * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slartv.f b/SRC/slartv.f index 5d3187e0ba..ce364bc884 100644 --- a/SRC/slartv.f +++ b/SRC/slartv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * REAL C( * ), S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaruv.f b/SRC/slaruv.f index 97cae10d2c..1f7d4c7da4 100644 --- a/SRC/slaruv.f +++ b/SRC/slaruv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARUV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARUV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARUV( ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * REAL X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -67,10 +67,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -414,7 +414,7 @@ SUBROUTINE SLARUV( ISEED, N, X ) * X( I ) = R*( REAL( IT1 )+R*( REAL( IT2 )+R*( REAL( IT3 )+R* $ REAL( IT4 ) ) ) ) -* +* IF (X( I ).EQ.1.0) THEN * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which @@ -424,7 +424,7 @@ SUBROUTINE SLARUV( ISEED, N, X ) * Since X( I ) is not supposed to return exactly 0.0 or 1.0, * the statistically correct thing to do in this situation is * simply to iterate again. -* N.B. the case X( I ) = 0.0 should not be possible. +* N.B. the case X( I ) = 0.0 should not be possible. I1 = I1 + 2 I2 = I2 + 2 I3 = I3 + 2 diff --git a/SRC/slarz.f b/SRC/slarz.f index 3158a4c0a9..b1b02d48a2 100644 --- a/SRC/slarz.f +++ b/SRC/slarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarzb.f b/SRC/slarzb.f index 9252f31b17..8b39379e92 100644 --- a/SRC/slarzb.f +++ b/SRC/slarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * REAL C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slarzt.f b/SRC/slarzt.f index a8a1901cca..ca0f64cb78 100644 --- a/SRC/slarzt.f +++ b/SRC/slarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slas2.f b/SRC/slas2.f index 36431d58f6..e71ff186fd 100644 --- a/SRC/slas2.f +++ b/SRC/slas2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) -* +* * .. Scalar Arguments .. * REAL F, G, H, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slascl.f b/SRC/slascl.f index d67ea0f09f..405a2f686f 100644 --- a/SRC/slascl.f +++ b/SRC/slascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slascl2.f b/SRC/slascl2.f index bb2f960b86..477fe5df03 100644 --- a/SRC/slascl2.f +++ b/SRC/slascl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * REAL D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slasd0.f b/SRC/slasd0.f index 07c06dbdcb..dbec11b917 100644 --- a/SRC/slasd0.f +++ b/SRC/slasd0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slasd1.f b/SRC/slasd1.f index 63d878be56..e6852d1ec7 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, * IDXQ, IWORK, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, NL, NR, SQRE * REAL ALPHA, BETA @@ -29,7 +29,7 @@ * INTEGER IDXQ( * ), IWORK( * ) * REAL D( * ), U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -185,10 +185,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slasd2.f b/SRC/slasd2.f index 500eedb868..0807fbb983 100644 --- a/SRC/slasd2.f +++ b/SRC/slasd2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, * LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, * IDXC, IDXQ, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE * REAL ALPHA, BETA @@ -33,7 +33,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasd3.f b/SRC/slasd3.f index 740251a603..b1a0f10950 100644 --- a/SRC/slasd3.f +++ b/SRC/slasd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, * LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, * $ SQRE @@ -32,7 +32,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slasd4.f b/SRC/slasd4.f index 0c5daca031..d68a478bcd 100644 --- a/SRC/slasd4.f +++ b/SRC/slasd4.f @@ -331,7 +331,7 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / ( DELTA( N )*WORK( N ) ) PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -400,7 +400,7 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -470,7 +470,7 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -622,8 +622,8 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = W + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * * Test for convergence @@ -703,7 +703,7 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., SLAED6 failed, switch back +* If INFO is not 0, i.e., SLAED6 failed, switch back * to 2 pole interpolation. * SWTCH3 = .FALSE. @@ -803,8 +803,8 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * SWTCH = .FALSE. @@ -922,7 +922,7 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., SLAED6 failed, switch +* If INFO is not 0, i.e., SLAED6 failed, switch * back to two pole interpolation * SWTCH3 = .FALSE. @@ -1038,8 +1038,8 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * IF( W*PREW.GT.ZERO .AND. ABS( W ).GT.ABS( PREW ) / TEN ) diff --git a/SRC/slasd5.f b/SRC/slasd5.f index 6c2535ba38..3def385b5b 100644 --- a/SRC/slasd5.f +++ b/SRC/slasd5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) -* +* * .. Scalar Arguments .. * INTEGER I * REAL DSIGMA, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( 2 ), DELTA( 2 ), WORK( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasd6.f b/SRC/slasd6.f index 9f31e6ccf4..70c29a7ce8 100644 --- a/SRC/slasd6.f +++ b/SRC/slasd6.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, * LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ GIVNUM( LDGNUM, * ), POLES( LDGNUM, * ), * $ VF( * ), VL( * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slasd7.f b/SRC/slasd7.f index f32bd47e48..f2a58f5640 100644 --- a/SRC/slasd7.f +++ b/SRC/slasd7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * C, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ VF( * ), VFW( * ), VL( * ), VLW( * ), Z( * ), * $ ZW( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasd8.f b/SRC/slasd8.f index ca77184771..672fc281f4 100644 --- a/SRC/slasd8.f +++ b/SRC/slasd8.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, * DSIGMA, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, K, LDDIFR * .. @@ -29,7 +29,7 @@ * $ DSIGMA( * ), VF( * ), VL( * ), WORK( * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slasda.f b/SRC/slasda.f index c6d69cb747..0092402069 100644 --- a/SRC/slasda.f +++ b/SRC/slasda.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, * DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, * PERM, GIVNUM, C, S, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE * .. @@ -33,7 +33,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasdq.f b/SRC/slasdq.f index 7b72fb98fb..10ce7a8d4c 100644 --- a/SRC/slasdq.f +++ b/SRC/slasdq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, * U, LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU, SQRE @@ -29,7 +29,7 @@ * REAL C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slasdt.f b/SRC/slasdt.f index f67475ef00..777adf0216 100644 --- a/SRC/slasdt.f +++ b/SRC/slasdt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) -* +* * .. Scalar Arguments .. * INTEGER LVL, MSUB, N, ND * .. * .. Array Arguments .. * INTEGER INODE( * ), NDIML( * ), NDIMR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaset.f b/SRC/slaset.f index 23a4175efd..1fa587427c 100644 --- a/SRC/slaset.f +++ b/SRC/slaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/slasq1.f b/SRC/slasq1.f index b5a8a3be95..fb285d2d10 100644 --- a/SRC/slasq1.f +++ b/SRC/slasq1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,17 +89,17 @@ *> represent a matrix with the same singular values *> which the calling subroutine could use to finish the *> computation, or even feed back into SLASQ1 -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -189,7 +189,7 @@ SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) CALL SCOPY( N-1, E, 1, WORK( 2 ), 2 ) CALL SLASCL( 'G', 0, 0, SIGMX, SCALE, 2*N-1, 1, WORK, 2*N-1, $ IINFO ) -* +* * Compute the q's and e's. * DO 30 I = 1, 2*N - 1 diff --git a/SRC/slasq2.f b/SRC/slasq2.f index b97451fc62..f272d344ec 100644 --- a/SRC/slasq2.f +++ b/SRC/slasq2.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ2( N, Z, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SLASQ2 computes all the eigenvalues of the symmetric positive +*> SLASQ2 computes all the eigenvalues of the symmetric positive *> definite tridiagonal matrix associated with the qd array Z to high *> relative accuracy are computed to high relative accuracy, in the *> absence of denormalization, underflow and overflow. @@ -83,17 +83,17 @@ *> = 2, current block of Z not diagonalized after 100*N *> iterations (in inner while loop). On exit Z holds *> a qd array with the same eigenvalues as the given Z. -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -155,7 +155,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) INTRINSIC ABS, MAX, MIN, REAL, SQRT * .. * .. Executable Statements .. -* +* * Test the input arguments. * (in case SLASQ2 is not called by SLASQ1) * @@ -195,7 +195,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) END IF Z( 5 ) = Z( 1 ) + Z( 2 ) + Z( 3 ) IF( Z( 2 ).GT.Z( 3 )*TOL2 ) THEN - T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) + T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) S = Z( 3 )*( Z( 2 ) / T ) IF( S.LE.T ) THEN S = Z( 3 )*( Z( 2 ) / ( T*( ONE+SQRT( ONE+S / T ) ) ) ) @@ -264,24 +264,24 @@ SUBROUTINE SLASQ2( N, Z, INFO ) Z( 2*N-1 ) = ZERO RETURN END IF -* +* * Check whether the machine is IEEE conformable. -* +* * IEEE = ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. -* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 +* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 * * [11/15/2008] The case IEEE=.TRUE. has a problem in single precision with * some the test matrices of type 16. The double precision code is fine. * IEEE = .FALSE. -* +* * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * DO 30 K = 2*N, 2, -2 - Z( 2*K ) = ZERO - Z( 2*K-1 ) = Z( K ) - Z( 2*K-2 ) = ZERO - Z( 2*K-3 ) = Z( K-1 ) + Z( 2*K ) = ZERO + Z( 2*K-1 ) = Z( K ) + Z( 2*K-2 ) = ZERO + Z( 2*K-3 ) = Z( K-1 ) 30 CONTINUE * I0 = 1 @@ -338,7 +338,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) D = Z( I4+1 )*( D / Z( I4-2*PP-2 ) ) END IF EMIN = MIN( EMIN, Z( I4-2*PP ) ) - 60 CONTINUE + 60 CONTINUE Z( 4*N0-PP-2 ) = D * * Now find qmax. @@ -369,14 +369,14 @@ SUBROUTINE SLASQ2( N, Z, INFO ) NDIV = 2*( N0-I0 ) * DO 160 IWHILA = 1, N + 1 - IF( N0.LT.1 ) + IF( N0.LT.1 ) $ GO TO 170 * -* While array unfinished do +* While array unfinished do * * E(N0) holds the value of SIGMA when submatrix in I0:N0 * splits from the rest of the array, but is negated. -* +* DESIG = ZERO IF( N0.EQ.N ) THEN SIGMA = ZERO @@ -391,7 +391,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) * Find last unreduced submatrix's top index I0, find QMAX and * EMIN. Find Gershgorin-type bound if Q's much greater than E's. * - EMAX = ZERO + EMAX = ZERO IF( N0.GT.I0 ) THEN EMIN = ABS( Z( 4*N0-5 ) ) ELSE @@ -409,7 +409,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) QMAX = MAX( QMAX, Z( I4-7 )+Z( I4-5 ) ) EMIN = MIN( EMIN, Z( I4-5 ) ) 90 CONTINUE - I4 = 4 + I4 = 4 * 100 CONTINUE I0 = I4 / 4 @@ -426,7 +426,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) KMIN = ( I4+3 )/4 END IF 110 CONTINUE - IF( (KMIN-I0)*2.LT.N0-KMIN .AND. + IF( (KMIN-I0)*2.LT.N0-KMIN .AND. $ DEEMIN.LE.HALF*Z(4*N0-3) ) THEN IPN4 = 4*( I0+N0 ) PP = 2 @@ -451,15 +451,15 @@ SUBROUTINE SLASQ2( N, Z, INFO ) * DMIN = -MAX( ZERO, QMIN-TWO*SQRT( QMIN )*SQRT( EMAX ) ) * -* Now I0:N0 is unreduced. +* Now I0:N0 is unreduced. * PP = 0 for ping, PP = 1 for pong. * PP = 2 indicates that flipping was applied to the Z array and -* and that the tests for deflation upon entry in SLASQ3 +* and that the tests for deflation upon entry in SLASQ3 * should not be performed. * NBIG = 100*( N0-I0+1 ) DO 140 IWHILB = 1, NBIG - IF( I0.GT.N0 ) + IF( I0.GT.N0 ) $ GO TO 150 * * While submatrix unfinished take a good dqds step. @@ -502,8 +502,8 @@ SUBROUTINE SLASQ2( N, Z, INFO ) 140 CONTINUE * INFO = 2 -* -* Maximum number of iterations exceeded, restore the shift +* +* Maximum number of iterations exceeded, restore the shift * SIGMA and place the new d's and e's in a qd array. * This might need to be done for several blocks * @@ -556,16 +556,16 @@ SUBROUTINE SLASQ2( N, Z, INFO ) INFO = 3 RETURN * -* end IWHILA +* end IWHILA * 170 CONTINUE -* +* * Move q's to the front. -* +* DO 180 K = 2, N Z( K ) = Z( 4*K-3 ) 180 CONTINUE -* +* * Sort and compute sum of eigenvalues. * CALL SLASRT( 'D', N, Z, IINFO ) @@ -577,7 +577,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) * * Store trace, sum(eigenvalues) and information on performance. * - Z( 2*N+1 ) = TRACE + Z( 2*N+1 ) = TRACE Z( 2*N+2 ) = E Z( 2*N+3 ) = REAL( ITER ) Z( 2*N+4 ) = REAL( NDIV ) / REAL( N**2 ) diff --git a/SRC/slasq3.f b/SRC/slasq3.f index 879fdfbbd0..0a0552fc16 100644 --- a/SRC/slasq3.f +++ b/SRC/slasq3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, * DN2, G, TAU ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, ITER, N0, NDIV, NFAIL, PP @@ -31,7 +31,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,8 +68,8 @@ *> \verbatim *> PP is INTEGER *> PP=0 for ping, PP=1 for pong. -*> PP=2 indicates that flipping was applied to the Z array -*> and that the initial tests for deflation should not be +*> PP=2 indicates that flipping was applied to the Z array +*> and that the initial tests for deflation should not be *> performed. *> \endverbatim *> @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -286,7 +286,7 @@ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, GO TO 10 * 50 CONTINUE - IF( PP.EQ.2 ) + IF( PP.EQ.2 ) $ PP = 0 * * Reverse the qd-array, if warranted. @@ -345,7 +345,7 @@ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * GO TO 90 * - ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. + ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. $ Z( 4*( N0-1 )-PP ).LT.TOL*( SIGMA+DN1 ) .AND. $ ABS( DN ).LT.TOL*SIGMA ) THEN * @@ -389,7 +389,7 @@ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, GO TO 70 END IF ELSE -* +* * Possible underflow. Play it safe. * GO TO 80 diff --git a/SRC/slasq4.f b/SRC/slasq4.f index 1ad5a91185..8ba2a013c5 100644 --- a/SRC/slasq4.f +++ b/SRC/slasq4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * DN1, DN2, TAU, TTYPE, G ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, N0IN, PP, TTYPE * REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -192,7 +192,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, TTYPE = -1 RETURN END IF -* +* NN = 4*N0 + PP IF( N0IN.EQ.N0 ) THEN * @@ -262,7 +262,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 20 10 CONTINUE 20 CONTINUE @@ -303,7 +303,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 40 30 CONTINUE 40 CONTINUE @@ -331,7 +331,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * One eigenvalue just deflated. Use DMIN1, DN1 for DMIN and DN. * - IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN + IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN * * Cases 7 and 8. * @@ -349,7 +349,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ RETURN B1 = B1*( Z( I4 ) / Z( I4-2 ) ) B2 = B2 + B1 - IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) + IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) $ GO TO 60 50 CONTINUE 60 CONTINUE @@ -358,7 +358,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, GAP2 = HALF*DMIN2 - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) TTYPE = -8 END IF @@ -378,7 +378,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * Cases 10 and 11. * - IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN + IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN TTYPE = -10 S = THIRD*DMIN2 IF( Z( NN-5 ).GT.Z( NN-7 ) ) @@ -402,7 +402,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ SQRT( Z( NN-11 ) )*SQRT( Z( NN-9 ) ) - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) END IF ELSE @@ -413,7 +413,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * * Case 12, more than two eigenvalues deflated. No information. * - S = ZERO + S = ZERO TTYPE = -12 END IF * diff --git a/SRC/slasq5.f b/SRC/slasq5.f index c24d302c0a..55bf22a080 100644 --- a/SRC/slasq5.f +++ b/SRC/slasq5.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2, IEEE, EPS ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, N0, PP @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -184,11 +184,11 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) -* +* IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -208,9 +208,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( Z( J4-1 ), EMIN ) 20 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -219,7 +219,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -227,11 +227,11 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 30 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -257,9 +257,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( EMIN, Z( J4-1 ) ) 40 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -272,7 +272,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -284,7 +284,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF * ELSE @@ -295,9 +295,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DMIN = D DMIN1 = -Z( J4 ) IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 50 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -319,9 +319,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( Z( J4-1 ), EMIN ) 60 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -330,7 +330,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -338,11 +338,11 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 70 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -370,9 +370,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, EMIN = MIN( EMIN, Z( J4-1 ) ) 80 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -385,7 +385,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -397,9 +397,9 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF -* +* END IF Z( J4+2 ) = DN Z( 4*N0-PP ) = EMIN diff --git a/SRC/slasq6.f b/SRC/slasq6.f index e56813bb17..913c23014b 100644 --- a/SRC/slasq6.f +++ b/SRC/slasq6.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2 ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, PP * REAL DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -156,13 +156,13 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * SAFMIN = SLAMCH( 'Safe minimum' ) J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) DMIN = D * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( Z( J4-2 ).EQ.ZERO ) THEN Z( J4 ) = ZERO D = Z( J4+1 ) @@ -173,7 +173,7 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, TEMP = Z( J4+1 ) / Z( J4-2 ) Z( J4 ) = Z( J4-1 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) END IF @@ -182,7 +182,7 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( Z( J4-3 ).EQ.ZERO ) THEN Z( J4-1 ) = ZERO D = Z( J4+2 ) @@ -193,7 +193,7 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, TEMP = Z( J4+2 ) / Z( J4-3 ) Z( J4-1 ) = Z( J4 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) END IF @@ -202,7 +202,7 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN diff --git a/SRC/slasr.f b/SRC/slasr.f index 5f8cbaa5ef..86bfd4b6ba 100644 --- a/SRC/slasr.f +++ b/SRC/slasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,35 +36,35 @@ *> *> SLASR applies a sequence of plane rotations to a real matrix A, *> from either the left or the right. -*> +*> *> When SIDE = 'L', the transformation takes the form -*> +*> *> A := P*A -*> +*> *> and when SIDE = 'R', the transformation takes the form -*> +*> *> A := A*P**T -*> +*> *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -73,13 +73,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -88,12 +88,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -102,7 +102,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasrt.f b/SRC/slasrt.f index d3aa129218..d366bea0f1 100644 --- a/SRC/slasrt.f +++ b/SRC/slasrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASRT( ID, N, D, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ID * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slassq.f b/SRC/slassq.f index 0776bb31cf..c217299786 100644 --- a/SRC/slassq.f +++ b/SRC/slassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasv2.f b/SRC/slasv2.f index 24ae12c685..9585bda963 100644 --- a/SRC/slasv2.f +++ b/SRC/slasv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) -* +* * .. Scalar Arguments .. * REAL CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slaswp.f b/SRC/slaswp.f index fb6f27d411..5ea247bcae 100644 --- a/SRC/slaswp.f +++ b/SRC/slaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slasy2.f b/SRC/slasy2.f index ed34a823ea..35efb92a01 100644 --- a/SRC/slasy2.f +++ b/SRC/slasy2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, * LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANL, LTRANR * INTEGER INFO, ISGN, LDB, LDTL, LDTR, LDX, N1, N2 @@ -30,7 +30,7 @@ * REAL B( LDB, * ), TL( LDTL, * ), TR( LDTR, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slatbs.f b/SRC/slatbs.f index 1cd7cb78e3..910ef7a857 100644 --- a/SRC/slatbs.f +++ b/SRC/slatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slatdf.f b/SRC/slatdf.f index dc5e2b7494..c666c60e03 100644 --- a/SRC/slatdf.f +++ b/SRC/slatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * REAL RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/slatps.f b/SRC/slatps.f index 4ce411ff13..6de404eb9c 100644 --- a/SRC/slatps.f +++ b/SRC/slatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AP( * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slatrd.f b/SRC/slatrd.f index 48bd4cf4b7..c5205d1486 100644 --- a/SRC/slatrd.f +++ b/SRC/slatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), E( * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slatrs.f b/SRC/slatrs.f index b762a4b6a4..e07b842363 100644 --- a/SRC/slatrs.f +++ b/SRC/slatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slatrz.f b/SRC/slatrz.f index 99cab45874..bc06f2199d 100644 --- a/SRC/slatrz.f +++ b/SRC/slatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slauu2.f b/SRC/slauu2.f index e00eb29358..ab8710b30b 100644 --- a/SRC/slauu2.f +++ b/SRC/slauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/slauum.f b/SRC/slauum.f index 0915e289cc..d396d7c5c2 100644 --- a/SRC/slauum.f +++ b/SRC/slauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sopgtr.f b/SRC/sopgtr.f index c047512711..a9dc818cf9 100644 --- a/SRC/sopgtr.f +++ b/SRC/sopgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SOPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SOPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sopmtr.f b/SRC/sopmtr.f index ae2e7584a3..5983926589 100644 --- a/SRC/sopmtr.f +++ b/SRC/sopmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SOPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SOPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f index d615117eab..d6ba8a5388 100644 --- a/SRC/sorbdb.f +++ b/SRC/sorbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -393,7 +393,7 @@ SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * diff --git a/SRC/sorbdb1.f b/SRC/sorbdb1.f index a8c2e96bd6..af5312c109 100644 --- a/SRC/sorbdb1.f +++ b/SRC/sorbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/sorbdb2.f b/SRC/sorbdb2.f index c9919a174e..0ca55b4cc2 100644 --- a/SRC/sorbdb2.f +++ b/SRC/sorbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL SROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, S ) END IF diff --git a/SRC/sorbdb3.f b/SRC/sorbdb3.f index 8ce74d4079..689b1b4763 100644 --- a/SRC/sorbdb3.f +++ b/SRC/sorbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL SROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, S ) END IF diff --git a/SRC/sorbdb4.f b/SRC/sorbdb4.f index 1efe146b16..cd55c715db 100644 --- a/SRC/sorbdb4.f +++ b/SRC/sorbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * REAL PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/sorbdb5.f b/SRC/sorbdb5.f index a0b6672c05..fe824d8785 100644 --- a/SRC/sorbdb5.f +++ b/SRC/sorbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, RETURN * * End of SORBDB5 -* +* END diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f index 900316ee82..3310f4dd2b 100644 --- a/SRC/sorbdb6.f +++ b/SRC/sorbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -260,7 +260,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -305,7 +305,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, END IF * RETURN -* +* * End of SORBDB6 * END diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index ff4e80579f..50f5d345f1 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * LDX12, X21, LDX21, X22, LDX22, THETA, * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -37,7 +37,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -578,7 +578,7 @@ RECURSIVE SUBROUTINE SORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/SRC/sorcsd2by1.f b/SRC/sorcsd2by1.f index 3354d091cb..1121e4c484 100644 --- a/SRC/sorcsd2by1.f +++ b/SRC/sorcsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORCSD2BY1 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -33,8 +33,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -51,7 +51,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The orthogonal matrices U1, U2, and V1 are P-by-P, *> (M-P)-by-(M-P), and Q-by-Q, respectively. C and S are R-by-R *> nonnegative diagonal matrices satisfying C^2 + S^2 = I, in which @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -248,7 +248,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -524,16 +524,16 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL SORGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ WORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, $ DUM2, 1, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -578,16 +578,16 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ WORK(IPHI), V1T, LDV1T, DUM1, 1, U1, LDU1, U2, $ LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -633,16 +633,16 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, WORK(IPHI), DUM1, 1, V1T, LDV1T, U2, $ LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E), $ WORK(IB12D), WORK(IB12E), WORK(IB21D), $ WORK(IB21E), WORK(IB22D), WORK(IB22E), $ WORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -702,16 +702,16 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL SORGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, DUM1, 1, $ V1T, LDV1T, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/SRC/sorg2l.f b/SRC/sorg2l.f index 9e5c388726..9c0ed383cb 100644 --- a/SRC/sorg2l.f +++ b/SRC/sorg2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sorg2r.f b/SRC/sorg2r.f index 297b61a24b..4699d4a4f5 100644 --- a/SRC/sorg2r.f +++ b/SRC/sorg2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f index a525acd267..88fc844677 100644 --- a/SRC/sorgbr.f +++ b/SRC/sorgbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sorghr.f b/SRC/sorghr.f index be54131bab..3d88d1065a 100644 --- a/SRC/sorghr.f +++ b/SRC/sorghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -152,8 +152,8 @@ SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) EXTERNAL SORGQR, XERBLA * .. * .. External Functions .. - INTEGER ILAENV - EXTERNAL ILAENV + INTEGER ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/sorgl2.f b/SRC/sorgl2.f index 30430287d3..94e461b291 100644 --- a/SRC/sorgl2.f +++ b/SRC/sorgl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorglq.f b/SRC/sorglq.f index 9239c24400..0aed7a3cee 100644 --- a/SRC/sorglq.f +++ b/SRC/sorglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorgql.f b/SRC/sorgql.f index a15dc3f05c..bd7f61b2c6 100644 --- a/SRC/sorgql.f +++ b/SRC/sorgql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorgqr.f b/SRC/sorgqr.f index d491346772..58dcedcd0f 100644 --- a/SRC/sorgqr.f +++ b/SRC/sorgqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorgr2.f b/SRC/sorgr2.f index b5f4a60f44..c38f2188ca 100644 --- a/SRC/sorgr2.f +++ b/SRC/sorgr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sorgrq.f b/SRC/sorgrq.f index 5bafb88fa3..0da47501bc 100644 --- a/SRC/sorgrq.f +++ b/SRC/sorgrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sorgtr.f b/SRC/sorgtr.f index 919b9bb172..2677165b35 100644 --- a/SRC/sorgtr.f +++ b/SRC/sorgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -183,7 +183,7 @@ SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) LWKOPT = MAX( 1, N-1 )*NB WORK( 1 ) = LWKOPT END IF -* +* IF( INFO.NE.0 ) THEN CALL XERBLA( 'SORGTR', -INFO ) RETURN diff --git a/SRC/sorm2l.f b/SRC/sorm2l.f index b0adc9ef43..8a7aa76609 100644 --- a/SRC/sorm2l.f +++ b/SRC/sorm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sorm2r.f b/SRC/sorm2r.f index 4a6aaa48ff..b6d30f6ef3 100644 --- a/SRC/sorm2r.f +++ b/SRC/sorm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sormbr.f b/SRC/sormbr.f index 83b9d6392b..212495d387 100644 --- a/SRC/sormbr.f +++ b/SRC/sormbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -183,10 +183,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -277,18 +277,18 @@ SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, ELSE NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, N-1, N-1, $ -1 ) - END IF + END IF ELSE IF( LEFT ) THEN NB = ILAENV( 1, 'SORMLQ', SIDE // TRANS, M-1, N, M-1, - $ -1 ) + $ -1 ) ELSE NB = ILAENV( 1, 'SORMLQ', SIDE // TRANS, M, N-1, N-1, $ -1 ) END IF END IF LWKOPT = MAX( 1, NW )*NB - WORK( 1 ) = LWKOPT + WORK( 1 ) = LWKOPT END IF * IF( INFO.NE.0 ) THEN diff --git a/SRC/sormhr.f b/SRC/sormhr.f index b08c5f792a..d1879f1ecc 100644 --- a/SRC/sormhr.f +++ b/SRC/sormhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,7 +253,7 @@ SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, IF( LEFT ) THEN NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, NH, N, NH, -1 ) ELSE - NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) + NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF LWKOPT = MAX( 1, NW )*NB WORK( 1 ) = LWKOPT diff --git a/SRC/sorml2.f b/SRC/sorml2.f index 28a7754bd3..90867dd317 100644 --- a/SRC/sorml2.f +++ b/SRC/sorml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sormlq.f b/SRC/sormlq.f index e15309077d..1c82905fda 100644 --- a/SRC/sormlq.f +++ b/SRC/sormlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,7 +137,7 @@ *> The dimension of the array WORK. *> If SIDE = 'L', LWORK >= max(1,N); *> if SIDE = 'R', LWORK >= max(1,M). -*> For good performance, LWORK should generally be larger. +*> For good performance, LWORK should generally be larger. *> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -250,7 +250,7 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ -1 ) ) LWKOPT = MAX( 1, NW )*NB + TSIZE WORK( 1 ) = LWKOPT - END IF + END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SORMLQ', -INFO ) diff --git a/SRC/sormql.f b/SRC/sormql.f index eafaeeb491..488e0a7673 100644 --- a/SRC/sormql.f +++ b/SRC/sormql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sormqr.f b/SRC/sormqr.f index 50b78572fd..d6856c9ebd 100644 --- a/SRC/sormqr.f +++ b/SRC/sormqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sormr2.f b/SRC/sormr2.f index 9530393cea..a3fd1df72b 100644 --- a/SRC/sormr2.f +++ b/SRC/sormr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sormr3.f b/SRC/sormr3.f index 13bc19dcf9..a49fbecf66 100644 --- a/SRC/sormr3.f +++ b/SRC/sormr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sormrq.f b/SRC/sormrq.f index eac91940e7..4b1dddc809 100644 --- a/SRC/sormrq.f +++ b/SRC/sormrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sormrz.f b/SRC/sormrz.f index 5167b1183e..8121c95dd3 100644 --- a/SRC/sormrz.f +++ b/SRC/sormrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -265,7 +265,7 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * IF( INFO.EQ.0 ) THEN * -* Compute the workspace requirements +* Compute the workspace requirements * IF( M.EQ.0 .OR. N.EQ.0 ) THEN LWKOPT = 1 diff --git a/SRC/sormtr.f b/SRC/sormtr.f index 9935716ddb..8cf729a425 100644 --- a/SRC/sormtr.f +++ b/SRC/sormtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbcon.f b/SRC/spbcon.f index 3a9a8187a7..a8129f6113 100644 --- a/SRC/spbcon.f +++ b/SRC/spbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbequ.f b/SRC/spbequ.f index ab5650faf9..d38a088eb3 100644 --- a/SRC/spbequ.f +++ b/SRC/spbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbrfs.f b/SRC/spbrfs.f index fc230d97a2..25c3af7b60 100644 --- a/SRC/spbrfs.f +++ b/SRC/spbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbstf.f b/SRC/spbstf.f index ca93d70d7a..d550ee193f 100644 --- a/SRC/spbstf.f +++ b/SRC/spbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbsv.f b/SRC/spbsv.f index 168d3441b5..4e81f41367 100644 --- a/SRC/spbsv.f +++ b/SRC/spbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbsvx.f b/SRC/spbsvx.f index c0dfa99148..f49290c534 100644 --- a/SRC/spbsvx.f +++ b/SRC/spbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -297,10 +297,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/spbtf2.f b/SRC/spbtf2.f index 5e8a7747cc..678836723f 100644 --- a/SRC/spbtf2.f +++ b/SRC/spbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/spbtrf.f b/SRC/spbtrf.f index fa89fbc0b6..417bd75f4e 100644 --- a/SRC/spbtrf.f +++ b/SRC/spbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spbtrs.f b/SRC/spbtrs.f index 3cc4049ff0..bf2574fc03 100644 --- a/SRC/spbtrs.f +++ b/SRC/spbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spftrf.f b/SRC/spftrf.f index 3d73e0e630..8a89eed5eb 100644 --- a/SRC/spftrf.f +++ b/SRC/spftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * REAL A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spftri.f b/SRC/spftri.f index 22634de87c..a40b6f1ec3 100644 --- a/SRC/spftri.f +++ b/SRC/spftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * REAL A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spftrs.f b/SRC/spftrs.f index ff8aa11d30..3f229ac1dd 100644 --- a/SRC/spftrs.f +++ b/SRC/spftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spocon.f b/SRC/spocon.f index b65279381d..db08fcc0b0 100644 --- a/SRC/spocon.f +++ b/SRC/spocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,14 +30,14 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SPOCON estimates the reciprocal of the condition number (in the +*> SPOCON estimates the reciprocal of the condition number (in the *> 1-norm) of a real symmetric positive definite matrix using the *> Cholesky factorization A = U**T*U or A = L*L**T computed by SPOTRF. *> @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spoequ.f b/SRC/spoequ.f index 9a79d5cc5a..1ae1054914 100644 --- a/SRC/spoequ.f +++ b/SRC/spoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spoequb.f b/SRC/spoequb.f index 17be21f76b..523aee048d 100644 --- a/SRC/spoequb.f +++ b/SRC/spoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sporfs.f b/SRC/sporfs.f index 435ce779b0..f4cfd04f84 100644 --- a/SRC/sporfs.f +++ b/SRC/sporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f index 5149fb6ba5..e49fa6bfea 100644 --- a/SRC/sporfsx.f +++ b/SRC/sporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -379,10 +379,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sposv.f b/SRC/sposv.f index 0fdcdb6753..7ca44f2f61 100644 --- a/SRC/sposv.f +++ b/SRC/sposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sposvx.f b/SRC/sposvx.f index 597550a3ff..87d2e76de2 100644 --- a/SRC/sposvx.f +++ b/SRC/sposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/sposvxx.f b/SRC/sposvxx.f index 400dec6281..fe971d085d 100644 --- a/SRC/sposvxx.f +++ b/SRC/sposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -482,10 +482,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/spotf2.f b/SRC/spotf2.f index a2ee180e77..36c9c872bd 100644 --- a/SRC/spotf2.f +++ b/SRC/spotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/spotrf.f b/SRC/spotrf.f index 4a1e4e3ded..2cc27f03c6 100644 --- a/SRC/spotrf.f +++ b/SRC/spotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/spotrf2.f b/SRC/spotrf2.f index dfdf16e2ae..68761afcf1 100644 --- a/SRC/spotrf2.f +++ b/SRC/spotrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,7 +41,7 @@ *> *> The subroutine calls itself to factor A11. Update and scale A21 *> or A12, update A22 then call itself to factor A22. -*> +*> *> \endverbatim * * Arguments: @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -126,7 +126,7 @@ RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) PARAMETER ( ONE = 1.0E+0, ZERO=0.0E+0 ) * .. * .. Local Scalars .. - LOGICAL UPPER + LOGICAL UPPER INTEGER N1, N2, IINFO * .. * .. External Functions .. @@ -189,7 +189,7 @@ RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) IF ( IINFO.NE.0 ) THEN INFO = IINFO RETURN - END IF + END IF * * Compute the Cholesky factorization A = U**T*U * @@ -201,7 +201,7 @@ RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) * * Update and factor A22 -* +* CALL SSYRK( UPLO, 'T', N2, N1, -ONE, A( 1, N1+1 ), LDA, $ ONE, A( N1+1, N1+1 ), LDA ) CALL SPOTRF2( UPLO, N2, A( N1+1, N1+1 ), LDA, IINFO ) diff --git a/SRC/spotri.f b/SRC/spotri.f index 370c9e0cae..97aacb481b 100644 --- a/SRC/spotri.f +++ b/SRC/spotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spotrs.f b/SRC/spotrs.f index 6ee53d7c8b..a6b3824184 100644 --- a/SRC/spotrs.f +++ b/SRC/spotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sppcon.f b/SRC/sppcon.f index 2bc65076e4..995dc18f55 100644 --- a/SRC/sppcon.f +++ b/SRC/sppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sppequ.f b/SRC/sppequ.f index 6d1a3916cd..7077c13d46 100644 --- a/SRC/sppequ.f +++ b/SRC/sppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spprfs.f b/SRC/spprfs.f index c42c5c1d44..96311dffe8 100644 --- a/SRC/spprfs.f +++ b/SRC/spprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sppsv.f b/SRC/sppsv.f index 820fe381f8..92c728b787 100644 --- a/SRC/sppsv.f +++ b/SRC/sppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> is stored in the array AP as follows: *> if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j; *> if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) = A(i,j) for j<=i<=n. -*> See below for further details. +*> See below for further details. *> *> On exit, if INFO = 0, the factor U or L from the Cholesky *> factorization A = U**T*U or A = L*L**T, in the same storage @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sppsvx.f b/SRC/sppsvx.f index 24144f38ab..30c27326a8 100644 --- a/SRC/sppsvx.f +++ b/SRC/sppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), S( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/spptrf.f b/SRC/spptrf.f index 8ce6f05f9f..f58e10a5a4 100644 --- a/SRC/spptrf.f +++ b/SRC/spptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spptri.f b/SRC/spptri.f index b95f86f3e0..75d59703a4 100644 --- a/SRC/spptri.f +++ b/SRC/spptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spptrs.f b/SRC/spptrs.f index 957b3091b9..900ca12eac 100644 --- a/SRC/spptrs.f +++ b/SRC/spptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spstf2.f b/SRC/spstf2.f index 12321ad37e..a5a76f0ec3 100644 --- a/SRC/spstf2.f +++ b/SRC/spstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * REAL A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/spstrf.f b/SRC/spstrf.f index e0775effd1..1a147ba68a 100644 --- a/SRC/spstrf.f +++ b/SRC/spstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * REAL A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sptcon.f b/SRC/sptcon.f index 2d2b9b9873..35525bd84d 100644 --- a/SRC/sptcon.f +++ b/SRC/sptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL ANORM, RCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/spteqr.f b/SRC/spteqr.f index 5986e09397..ab468668fe 100644 --- a/SRC/spteqr.f +++ b/SRC/spteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sptrfs.f b/SRC/sptrfs.f index f39a408ece..a9696381e6 100644 --- a/SRC/sptrfs.f +++ b/SRC/sptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, * BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, LDX, N, NRHS * .. @@ -29,7 +29,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sptsv.f b/SRC/sptsv.f index c0dc904d22..906adb30c6 100644 --- a/SRC/sptsv.f +++ b/SRC/sptsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sptsvx.f b/SRC/sptsvx.f index 3c35fd97cc..2b4127d468 100644 --- a/SRC/sptsvx.f +++ b/SRC/sptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/spttrf.f b/SRC/spttrf.f index 9fa77c2fd7..be3e31050c 100644 --- a/SRC/spttrf.f +++ b/SRC/spttrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/spttrs.f b/SRC/spttrs.f index 7ef2bb3368..f9a0947b57 100644 --- a/SRC/spttrs.f +++ b/SRC/spttrs.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sptts2.f b/SRC/sptts2.f index 3dd6bc699c..12b1704a1b 100644 --- a/SRC/sptts2.f +++ b/SRC/sptts2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/srscl.f b/SRC/srscl.f index dacc5a7b78..b807501cd0 100644 --- a/SRC/srscl.f +++ b/SRC/srscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ssbev.f b/SRC/ssbev.f index d9f67d3215..b8da2abd7d 100644 --- a/SRC/ssbev.f +++ b/SRC/ssbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssbevd.f b/SRC/ssbevd.f index 292bd1c5f8..5128cdc712 100644 --- a/SRC/ssbevd.f +++ b/SRC/ssbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -282,19 +282,19 @@ SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, CALL XERBLA( 'SSBEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AB( 1, 1 ) IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/ssbevx.f b/SRC/ssbevx.f index a03c4a4157..8fbdb39376 100644 --- a/SRC/ssbevx.f +++ b/SRC/ssbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -32,7 +32,7 @@ * REAL AB( LDAB, * ), Q( LDQ, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -251,10 +251,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssbgst.f b/SRC/ssbgst.f index a8addb87ee..23f2a7f5ae 100644 --- a/SRC/ssbgst.f +++ b/SRC/ssbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssbgv.f b/SRC/ssbgv.f index ae7400fffa..ddea27ee2a 100644 --- a/SRC/ssbgv.f +++ b/SRC/ssbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ssbgvd.f b/SRC/ssbgvd.f index fac2baadc0..f1983284cc 100644 --- a/SRC/ssbgvd.f +++ b/SRC/ssbgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssbgvx.f b/SRC/ssbgvx.f index 2b27f023f6..29d30c322d 100644 --- a/SRC/ssbgvx.f +++ b/SRC/ssbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -33,7 +33,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -275,10 +275,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssbtrd.f b/SRC/ssbtrd.f index 83bd8b775a..20149d6a30 100644 --- a/SRC/ssbtrd.f +++ b/SRC/ssbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), D( * ), E( * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssfrk.f b/SRC/ssfrk.f index 5531ffd7ca..91562ca31d 100644 --- a/SRC/ssfrk.f +++ b/SRC/ssfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/sspcon.f b/SRC/sspcon.f index ae2f742b49..efa2fabfd9 100644 --- a/SRC/sspcon.f +++ b/SRC/sspcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sspev.f b/SRC/sspev.f index 9f4b4b27aa..b14e26c406 100644 --- a/SRC/sspev.f +++ b/SRC/sspev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sspevd.f b/SRC/sspevd.f index aea1e3fbc5..448920f11d 100644 --- a/SRC/sspevd.f +++ b/SRC/sspevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -262,19 +262,19 @@ SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, CALL XERBLA( 'SSPEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AP( 1 ) IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/sspevx.f b/SRC/sspevx.f index c2bbaf717e..49de54631e 100644 --- a/SRC/sspevx.f +++ b/SRC/sspevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sspgst.f b/SRC/sspgst.f index dadd484ce5..6a374e5c9c 100644 --- a/SRC/sspgst.f +++ b/SRC/sspgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sspgv.f b/SRC/sspgv.f index f5025bcc50..61d6b5e587 100644 --- a/SRC/sspgv.f +++ b/SRC/sspgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sspgvd.f b/SRC/sspgvd.f index 2d50e637ac..2fa9ad1513 100644 --- a/SRC/sspgvd.f +++ b/SRC/sspgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sspgvx.f b/SRC/sspgvx.f index 8f8ed9a8f6..b1b290180d 100644 --- a/SRC/sspgvx.f +++ b/SRC/sspgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssprfs.f b/SRC/ssprfs.f index 4516e449a1..0963807959 100644 --- a/SRC/ssprfs.f +++ b/SRC/ssprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sspsv.f b/SRC/sspsv.f index 87bb84840d..27c324b531 100644 --- a/SRC/sspsv.f +++ b/SRC/sspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sspsvx.f b/SRC/sspsvx.f index 41ccbf168d..e8a413285a 100644 --- a/SRC/sspsvx.f +++ b/SRC/sspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/ssptrd.f b/SRC/ssptrd.f index 530693e4b1..c138596e30 100644 --- a/SRC/ssptrd.f +++ b/SRC/ssptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssptrf.f b/SRC/ssptrf.f index 592a0dd04c..f7976f8513 100644 --- a/SRC/ssptrf.f +++ b/SRC/ssptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssptri.f b/SRC/ssptri.f index 0b026e41c4..5036df32eb 100644 --- a/SRC/ssptri.f +++ b/SRC/ssptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssptrs.f b/SRC/ssptrs.f index 782aa8d83f..5290f7ac55 100644 --- a/SRC/ssptrs.f +++ b/SRC/ssptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sstebz.f b/SRC/sstebz.f index 1e231ec89a..7e5c1b1f56 100644 --- a/SRC/sstebz.f +++ b/SRC/sstebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, * M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -31,7 +31,7 @@ * INTEGER IBLOCK( * ), ISPLIT( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sstedc.f b/SRC/sstedc.f index dc4c0f0774..a1b6060a3c 100644 --- a/SRC/sstedc.f +++ b/SRC/sstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sstegr.f b/SRC/sstegr.f index 4c8350e6b9..ecab7a88b2 100644 --- a/SRC/sstegr.f +++ b/SRC/sstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sstein.f b/SRC/sstein.f index 0eb2f6ebd4..119eb57c9d 100644 --- a/SRC/sstein.f +++ b/SRC/sstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -29,7 +29,7 @@ * $ IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/sstemr.f b/SRC/sstemr.f index 5ffe96d435..61a11d5549 100644 --- a/SRC/sstemr.f +++ b/SRC/sstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -298,10 +298,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssteqr.f b/SRC/ssteqr.f index c9fe9bf033..34d1ba0cea 100644 --- a/SRC/ssteqr.f +++ b/SRC/ssteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssterf.f b/SRC/ssterf.f index 58456e252b..2c9ac00661 100644 --- a/SRC/ssterf.f +++ b/SRC/ssterf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTERF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTERF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTERF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -189,7 +189,7 @@ SUBROUTINE SSTERF( N, D, E, INFO ) ANORM = SLANST( 'M', LEND-L+1, D( L ), E( L ) ) ISCALE = 0 IF( ANORM.EQ.ZERO ) - $ GO TO 10 + $ GO TO 10 IF( ANORM.GT.SSFMAX ) THEN ISCALE = 1 CALL SLASCL( 'G', 0, 0, ANORM, SSFMAX, LEND-L+1, 1, D( L ), N, diff --git a/SRC/sstev.f b/SRC/sstev.f index 375722494c..c31f48808c 100644 --- a/SRC/sstev.f +++ b/SRC/sstev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/sstevd.f b/SRC/sstevd.f index c3a1fd3655..36b34e85a3 100644 --- a/SRC/sstevd.f +++ b/SRC/sstevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -236,7 +236,7 @@ SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SSTEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF @@ -244,12 +244,12 @@ SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/sstevr.f b/SRC/sstevr.f index 2dec8695d3..bf1a9eba4f 100644 --- a/SRC/sstevr.f +++ b/SRC/sstevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -282,10 +282,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/sstevx.f b/SRC/sstevx.f index 427ad742bb..4d4e1bb300 100644 --- a/SRC/sstevx.f +++ b/SRC/sstevx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, M, N @@ -30,7 +30,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssycon.f b/SRC/ssycon.f index 7e614cebf1..b446ba6f79 100644 --- a/SRC/ssycon.f +++ b/SRC/ssycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssycon_rook.f b/SRC/ssycon_rook.f index c98db4bac9..9594c8bd8e 100644 --- a/SRC/ssycon_rook.f +++ b/SRC/ssycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ssyconv.f b/SRC/ssyconv.f index e088ea082c..5a0204407d 100644 --- a/SRC/ssyconv.f +++ b/SRC/ssyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> SSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -194,7 +194,7 @@ SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -226,7 +226,7 @@ SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/ssyequb.f b/SRC/ssyequb.f index b233b35d60..15aaf03a8f 100644 --- a/SRC/ssyequb.f +++ b/SRC/ssyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssyev.f b/SRC/ssyev.f index d9b8ca3127..842beb7f29 100644 --- a/SRC/ssyev.f +++ b/SRC/ssyev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssyevd.f b/SRC/ssyevd.f index 5e78379316..03cf35963c 100644 --- a/SRC/ssyevd.f +++ b/SRC/ssyevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,7 +114,7 @@ *> The dimension of the array WORK. *> If N <= 1, LWORK must be at least 1. *> If JOBZ = 'N' and N > 1, LWORK must be at least 2*N+1. -*> If JOBZ = 'V' and N > 1, LWORK must be at least +*> If JOBZ = 'V' and N > 1, LWORK must be at least *> 1 + 6*N + 2*N**2. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -275,7 +275,7 @@ SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, CALL XERBLA( 'SSYEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible @@ -287,7 +287,7 @@ SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, W( 1 ) = A( 1, 1 ) IF( WANTZ ) $ A( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/SRC/ssyevr.f b/SRC/ssyevr.f index 7e274b4e6e..96cd100ae1 100644 --- a/SRC/ssyevr.f +++ b/SRC/ssyevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -310,10 +310,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssyevx.f b/SRC/ssyevx.f index 611f4f243c..7449489c93 100644 --- a/SRC/ssyevx.f +++ b/SRC/ssyevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssygs2.f b/SRC/ssygs2.f index 33a8c1d17e..b92a5304d9 100644 --- a/SRC/ssygs2.f +++ b/SRC/ssygs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ssygst.f b/SRC/ssygst.f index 1005107486..bef4fa0a41 100644 --- a/SRC/ssygst.f +++ b/SRC/ssygst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssygv.f b/SRC/ssygv.f index 7a251637bc..ab46314e29 100644 --- a/SRC/ssygv.f +++ b/SRC/ssygv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ssygvd.f b/SRC/ssygvd.f index 1ed45b4806..51669641ea 100644 --- a/SRC/ssygvd.f +++ b/SRC/ssygvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ssygvx.f b/SRC/ssygvx.f index 8c909946dc..ac4291e482 100644 --- a/SRC/ssygvx.f +++ b/SRC/ssygvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ssyrfs.f b/SRC/ssyrfs.f index a7da716bee..607f2dea75 100644 --- a/SRC/ssyrfs.f +++ b/SRC/ssyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssyrfsx.f b/SRC/ssyrfsx.f index cea4d538d6..1ac7f6b7a5 100644 --- a/SRC/ssyrfsx.f +++ b/SRC/ssyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/ssysv.f b/SRC/ssysv.f index 07eb1e2338..c1cdce736b 100644 --- a/SRC/ssysv.f +++ b/SRC/ssysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssysv_rook.f b/SRC/ssysv_rook.f index 6c159338ad..dd245efbc1 100644 --- a/SRC/ssysv_rook.f +++ b/SRC/ssysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -53,7 +53,7 @@ *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling SSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> SSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/ssysvx.f b/SRC/ssysvx.f index 00e16491fa..ca3d0979d5 100644 --- a/SRC/ssysvx.f +++ b/SRC/ssysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -32,7 +32,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index be19e66270..e9afe5cbe1 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -493,10 +493,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -602,7 +602,7 @@ SUBROUTINE SSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, IF ( RCEQU ) THEN SMIN = BIGNUM SMAX = ZERO - DO 10 J = 1, N + DO 10 J = 1, N SMIN = MIN( SMIN, S( J ) ) SMAX = MAX( SMAX, S( J ) ) 10 CONTINUE diff --git a/SRC/ssyswapr.f b/SRC/ssyswapr.f index 19007513c1..3142dcacfc 100644 --- a/SRC/ssyswapr.f +++ b/SRC/ssyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * REAL A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,12 +136,12 @@ SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL SSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL SSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/SRC/ssytd2.f b/SRC/ssytd2.f index e5e3c2006b..ea63e5b7f5 100644 --- a/SRC/ssytd2.f +++ b/SRC/ssytd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ssytf2.f b/SRC/ssytf2.f index 1ca56621cf..58f6261889 100644 --- a/SRC/ssytf2.f +++ b/SRC/ssytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/ssytrd.f b/SRC/ssytrd.f index 765374b7b2..830bd949c0 100644 --- a/SRC/ssytrd.f +++ b/SRC/ssytrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssytrf.f b/SRC/ssytrf.f index 98693310a7..d304c23f3d 100644 --- a/SRC/ssytrf.f +++ b/SRC/ssytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,7 +42,7 @@ *> A = U*D*U**T or A = L*D*L**T *> *> where U (or L) is a product of permutation and unit upper (lower) -*> triangular matrices, and D is symmetric and block diagonal with +*> triangular matrices, and D is symmetric and block diagonal with *> 1-by-1 and 2-by-2 diagonal blocks. *> *> This is the blocked version of the algorithm, calling Level 3 BLAS. @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssytrf_rook.f b/SRC/ssytrf_rook.f index 3281fbe7ff..8213330ea7 100644 --- a/SRC/ssytrf_rook.f +++ b/SRC/ssytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -321,7 +321,7 @@ SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/SRC/ssytri.f b/SRC/ssytri.f index 0e472449fd..3cda6040bb 100644 --- a/SRC/ssytri.f +++ b/SRC/ssytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssytri2.f b/SRC/ssytri2.f index 882a3be995..e2ce48bd52 100644 --- a/SRC/ssytri2.f +++ b/SRC/ssytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/ssytri2x.f b/SRC/ssytri2x.f index d542142963..d5a859c30b 100644 --- a/SRC/ssytri2x.f +++ b/SRC/ssytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -212,7 +212,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -228,7 +228,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL STRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -245,8 +245,8 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -262,7 +262,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -272,7 +272,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -335,7 +335,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL STRMM('L','U','T','U',NNB, NNB, @@ -345,7 +345,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * @@ -379,7 +379,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -389,9 +389,9 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL SSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL SSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -405,7 +405,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL STRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -422,8 +422,8 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -439,7 +439,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -506,7 +506,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL STRMM('L',UPLO,'T','U',NNB, NNB, @@ -525,7 +525,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL SGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -565,7 +565,7 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/ssytri_rook.f b/SRC/ssytri_rook.f index 0d0dfd98ad..fd2437596f 100644 --- a/SRC/ssytri_rook.f +++ b/SRC/ssytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -300,7 +300,7 @@ SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) IF( KP.GT.1 ) $ CALL SSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -391,7 +391,7 @@ SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) $ SDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/SRC/ssytrs.f b/SRC/ssytrs.f index fb5f655756..4a145166d3 100644 --- a/SRC/ssytrs.f +++ b/SRC/ssytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ssytrs2.f b/SRC/ssytrs2.f index 0988ae8177..9faf07865e 100644 --- a/SRC/ssytrs2.f +++ b/SRC/ssytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,17 +119,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * *> \ingroup realSYcomputational * * ===================================================================== - SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.6.0) -- @@ -200,7 +200,7 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -225,7 +225,7 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL STRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -277,7 +277,7 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -302,7 +302,7 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL STRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -324,7 +324,7 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL STRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/SRC/ssytrs_rook.f b/SRC/ssytrs_rook.f index 240b454b6c..7d60391ede 100644 --- a/SRC/ssytrs_rook.f +++ b/SRC/ssytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/stbcon.f b/SRC/stbcon.f index 6f1efa14fa..ee051e63c9 100644 --- a/SRC/stbcon.f +++ b/SRC/stbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stbrfs.f b/SRC/stbrfs.f index 625d21e406..a14bcf137e 100644 --- a/SRC/stbrfs.f +++ b/SRC/stbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stbtrs.f b/SRC/stbtrs.f index c0806b998d..6b119c4ae4 100644 --- a/SRC/stbtrs.f +++ b/SRC/stbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stfsm.f b/SRC/stfsm.f index 74d7540173..b9aa2d93c6 100644 --- a/SRC/stfsm.f +++ b/SRC/stfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/stftri.f b/SRC/stftri.f index 681fa3b7bb..7e1d0461f7 100644 --- a/SRC/stftri.f +++ b/SRC/stftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stfttp.f b/SRC/stfttp.f index e2dfbbecbf..b0013498a4 100644 --- a/SRC/stfttp.f +++ b/SRC/stfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/stfttr.f b/SRC/stfttr.f index 490778fc81..9c3079dd42 100644 --- a/SRC/stfttr.f +++ b/SRC/stfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/stgevc.f b/SRC/stgevc.f index bbf3f8cf74..d626630b6d 100644 --- a/SRC/stgevc.f +++ b/SRC/stgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -30,8 +30,8 @@ * REAL P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -49,20 +49,20 @@ *> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal blocks of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. *> If Q and Z are the orthogonal factors from the generalized Schur *> factorization of a matrix pair (A,B), then Z*X and Q*Y *> are the matrices of right and left eigenvectors of (A,B). -*> +*> *> \endverbatim * * Arguments: @@ -179,7 +179,7 @@ *> A complex eigenvector corresponding to a complex eigenvalue *> is stored in two consecutive columns, the first holding the *> real part and the second the imaginary part. -*> +*> *> Not referenced if SIDE = 'L'. *> \endverbatim *> @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stgex2.f b/SRC/stgex2.f index 0cfc15789a..8d57af31e3 100644 --- a/SRC/stgex2.f +++ b/SRC/stgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, N1, N2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, LWORK, N, N1, N2 @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -314,7 +314,7 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) DNORM = DSCALE*SQRT( DSUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/SRC/stgexc.f b/SRC/stgexc.f index 3991fc1543..60d062378d 100644 --- a/SRC/stgexc.f +++ b/SRC/stgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, LWORK, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stgsen.f b/SRC/stgsen.f index 13997be310..e2feb60945 100644 --- a/SRC/stgsen.f +++ b/SRC/stgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, * PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * $ B( LDB, * ), BETA( * ), DIF( * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -299,10 +299,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -802,7 +802,7 @@ SUBROUTINE STGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * 60 CONTINUE * -* Compute generalized eigenvalues of reordered pair (A, B) and +* Compute generalized eigenvalues of reordered pair (A, B) and * normalize the generalized Schur form. * PAIR = .FALSE. diff --git a/SRC/stgsja.f b/SRC/stgsja.f index 36a06d9884..608ec782a5 100644 --- a/SRC/stgsja.f +++ b/SRC/stgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stgsna.f b/SRC/stgsna.f index 28730987f4..4aabcf7c50 100644 --- a/SRC/stgsna.f +++ b/SRC/stgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), DIF( * ), S( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stgsy2.f b/SRC/stgsy2.f index bffdf9211a..c4bb4c34f6 100644 --- a/SRC/stgsy2.f +++ b/SRC/stgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * IWORK, PQ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N, @@ -33,7 +33,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/stgsyl.f b/SRC/stgsyl.f index 44c66bc4d9..c8688dc048 100644 --- a/SRC/stgsyl.f +++ b/SRC/stgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stpcon.f b/SRC/stpcon.f index 2e4ce62d2c..0e8083e8d3 100644 --- a/SRC/stpcon.f +++ b/SRC/stpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f index ccdfcf9241..a7eb1d3de5 100644 --- a/SRC/stpmqrt.f +++ b/SRC/stpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPMQRT applies a real orthogonal matrix Q obtained from a +*> STPMQRT applies a real orthogonal matrix Q obtained from a *> "triangular-pentagonal" real block reflector H to a general *> real matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is REAL array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q^T*C or C*Q or C*Q^T. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The real orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-M+L-I+1 END IF - CALL STPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL STPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-N+L-I+1 END IF - CALL STPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL STPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL STPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, LB = MB-N+L-I+1 END IF CALL STPRFB( 'R', 'T', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/SRC/stpqrt.f b/SRC/stpqrt.f index 139c1f7370..cd52ca58b7 100644 --- a/SRC/stpqrt.f +++ b/SRC/stpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPQRT computes a blocked QR factorization of a real -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> STPQRT computes a blocked QR factorization of a real +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is REAL array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, LB = MB-M+L-I+1 END IF * - CALL STPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL STPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H^H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL STPRFB( 'L', 'T', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of STPQRT * END diff --git a/SRC/stpqrt2.f b/SRC/stpqrt2.f index beb2b97dfb..593351080c 100644 --- a/SRC/stpqrt2.f +++ b/SRC/stpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> STPQRT2 computes a QR factorization of a real "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is REAL array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W^H @@ -227,7 +227,7 @@ SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) DO J = 1, N-I T( J, N ) = (A( I, I+J )) END DO - CALL SGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL SGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)^H * - ALPHA = -(T( I, 1 )) + ALPHA = -(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*(T( J, N )) END DO - CALL SGER( P, N-I, ALPHA, B( 1, I ), 1, + CALL SGER( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * * Rectangular part of B2 * - CALL SGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL SGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL SGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL SGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of STPQRT2 * diff --git a/SRC/stprfb.f b/SRC/stprfb.f index 4ae3f0b0cb..d571183774 100644 --- a/SRC/stprfb.f +++ b/SRC/stprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), +* REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPRFB applies a real "triangular-pentagonal" block reflector H or its -*> conjugate transpose H^H to a real matrix C, which is composed of two +*> STPRFB applies a real "triangular-pentagonal" block reflector H or its +*> conjugate transpose H^H to a real matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is REAL array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H^H*C or C*H or C*H^H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), + REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -322,7 +322,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -336,34 +336,34 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W^H or H^H = I - W T^H W^H * * A = A - T (A + V^H B) or A = A - T^H (A + V^H B) -* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) +* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL STRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -373,7 +373,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL SGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL STRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -383,7 +383,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -402,7 +402,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -410,20 +410,20 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL STRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -443,7 +443,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -457,7 +457,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W^H or H^H = I - W T^H W^H * * A = A - T (A + V^H B) or A = A - T^H (A + V^H B) -* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) +* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) * * --------------------------------------------------------------------------- * @@ -472,10 +472,10 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL STRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -483,16 +483,16 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL STRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL SGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -505,7 +505,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -524,7 +524,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -532,20 +532,20 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL STRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -565,7 +565,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -578,7 +578,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W^H T W or H^H = I - W^H T^H W * * A = A - T (A + V B) or A = A - T^H (A + V B) -* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) +* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) * * --------------------------------------------------------------------------- * @@ -589,12 +589,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL STRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL SGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL SGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL SGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -603,7 +603,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -614,7 +614,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL SGEMM( 'T', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL STRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -625,7 +625,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -653,7 +653,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ WORK, LDWORK ) CALL SGEMM( 'N', 'T', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -662,7 +662,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -671,10 +671,10 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL SGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL STRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -684,7 +684,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -697,7 +697,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W^H T W or H^H = I - W^H T^H W * * A = A - T (A + V B) or A = A - T^H (A + V B) -* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) +* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) * * --------------------------------------------------------------------------- * @@ -733,10 +733,10 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL SGEMM( 'T', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, + CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL STRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -744,7 +744,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -773,7 +773,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL SGEMM( 'N', 'T', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -781,7 +781,7 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -790,9 +790,9 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL SGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL STRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/SRC/stprfs.f b/SRC/stprfs.f index a8c8b12aea..09edb70e3c 100644 --- a/SRC/stprfs.f +++ b/SRC/stprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stptri.f b/SRC/stptri.f index 19790c3c9f..6888f18f00 100644 --- a/SRC/stptri.f +++ b/SRC/stptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stptrs.f b/SRC/stptrs.f index c7e8efc299..9ab9f0ee46 100644 --- a/SRC/stptrs.f +++ b/SRC/stptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/stpttf.f b/SRC/stpttf.f index a2c01515c1..263728c530 100644 --- a/SRC/stpttf.f +++ b/SRC/stpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * REAL AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/stpttr.f b/SRC/stpttr.f index 3e0c4f76a1..4b79708e71 100644 --- a/SRC/stpttr.f +++ b/SRC/stpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/strcon.f b/SRC/strcon.f index 37384e6b5c..0be1071ccb 100644 --- a/SRC/strcon.f +++ b/SRC/strcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strevc.f b/SRC/strevc.f index 2cc7d2588f..7abc291082 100644 --- a/SRC/strevc.f +++ b/SRC/strevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -30,7 +30,7 @@ * REAL T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,16 +41,16 @@ *> a real upper quasi-triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a real general matrix: A = Q*T*Q**T, as computed by SHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**T)*T = w*(y**T) -*> +*> *> where y**T denotes the transpose of y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal blocks of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the orthogonal factor that reduces a matrix @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strevc3.f b/SRC/strevc3.f index 95ac0f6d08..e091a447d9 100644 --- a/SRC/strevc3.f +++ b/SRC/strevc3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STREVC3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STREVC3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -421,7 +421,7 @@ SUBROUTINE STREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, IF( NB.GT.2 ) THEN IV = NB END IF - + IP = 0 IS = M DO 140 KI = N, 1, -1 @@ -779,7 +779,7 @@ SUBROUTINE STREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, * back-transform and normalization is done below END IF END IF - + IF( NB.GT.1 ) THEN * -------------------------------------------------------- * Blocked version of back-transform diff --git a/SRC/strexc.f b/SRC/strexc.f index 3e2ca3b89b..5df09776da 100644 --- a/SRC/strexc.f +++ b/SRC/strexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strrfs.f b/SRC/strrfs.f index e04f3d49bd..649a17ec21 100644 --- a/SRC/strrfs.f +++ b/SRC/strrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strsen.f b/SRC/strsen.f index 593dd70b03..7ceaff59f2 100644 --- a/SRC/strsen.f +++ b/SRC/strsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, * M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL Q( LDQ, * ), T( LDT, * ), WI( * ), WORK( * ), * $ WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/strsna.f b/SRC/strsna.f index e53205cd75..d304ce4f77 100644 --- a/SRC/strsna.f +++ b/SRC/strsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * REAL S( * ), SEP( * ), T( LDT, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strsyl.f b/SRC/strsyl.f index db8649eaf3..5849b0b96f 100644 --- a/SRC/strsyl.f +++ b/SRC/strsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strti2.f b/SRC/strti2.f index 20eea39712..8f9d443d55 100644 --- a/SRC/strti2.f +++ b/SRC/strti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/strtri.f b/SRC/strtri.f index d9dbf845bd..500d4d6891 100644 --- a/SRC/strtri.f +++ b/SRC/strtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strtrs.f b/SRC/strtrs.f index 51c6a4ed0e..a2a6ecf297 100644 --- a/SRC/strtrs.f +++ b/SRC/strtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/strttf.f b/SRC/strttf.f index c42ea20024..6ffa1bd3f0 100644 --- a/SRC/strttf.f +++ b/SRC/strttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/strttp.f b/SRC/strttp.f index 4b2391bbd3..93e7388932 100644 --- a/SRC/strttp.f +++ b/SRC/strttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/stzrzf.f b/SRC/stzrzf.f index 9b2b498cc6..12754915fd 100644 --- a/SRC/stzrzf.f +++ b/SRC/stzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/SRC/xerbla.f b/SRC/xerbla.f index 3e93bc4e0e..067eb710e8 100644 --- a/SRC/xerbla.f +++ b/SRC/xerbla.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download XERBLA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download XERBLA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -58,10 +58,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/xerbla_array.f b/SRC/xerbla_array.f index a1307cadc5..db30aea3af 100644 --- a/SRC/xerbla_array.f +++ b/SRC/xerbla_array.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download XERBLA_ARRAY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download XERBLA_ARRAY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) -* +* * .. Scalar Arguments .. * INTEGER SRNAME_LEN, INFO * .. * .. Array Arguments .. * CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zbbcsd.f b/SRC/zbbcsd.f index 18c4db0d02..0288b133fb 100644 --- a/SRC/zbbcsd.f +++ b/SRC/zbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LRWORK, M, P, Q @@ -34,7 +34,7 @@ * COMPLEX*16 U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zbdsqr.f b/SRC/zbdsqr.f index 927fdb7209..2882caf543 100644 --- a/SRC/zbdsqr.f +++ b/SRC/zbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 C( LDC, * ), U( LDU, * ), VT( LDVT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**H -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**H, for given complex input matrices U and VT. When U and VT are *> the unitary matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by ZGEBRD, then -*> +*> *> A = (U*Q) * S * (P**H*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**H*C *> for a given complex input matrix C. *> @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -321,7 +321,7 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, CALL DLASQ1( N, D, E, RWORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index 493cc4164a..cdcf981f3c 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZCGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZCGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * SWORK, RWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS * .. @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zcposv.f b/SRC/zcposv.f index 4cf9f61e0d..16c73d10e3 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZCPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZCPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * SWORK, RWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zdrscl.f b/SRC/zdrscl.f index 94ba393442..37681067a3 100644 --- a/SRC/zdrscl.f +++ b/SRC/zdrscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZDRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZDRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZDRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgbbrd.f b/SRC/zgbbrd.f index cc85fb6149..593d82914e 100644 --- a/SRC/zgbbrd.f +++ b/SRC/zgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), C( LDC, * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbcon.f b/SRC/zgbcon.f index 1c1e5c20fd..8a70c454b0 100644 --- a/SRC/zgbcon.f +++ b/SRC/zgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -31,7 +31,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbequ.f b/SRC/zgbequ.f index a5cb5124f7..85ec5f8a30 100644 --- a/SRC/zgbequ.f +++ b/SRC/zgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbequb.f b/SRC/zgbequb.f index 3c53046bfb..650a15fd8c 100644 --- a/SRC/zgbequb.f +++ b/SRC/zgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgbrfs.f b/SRC/zgbrfs.f index 7ae4390a13..17f55c845c 100644 --- a/SRC/zgbrfs.f +++ b/SRC/zgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f index 14972ebb1d..8aab97e132 100644 --- a/SRC/zgbrfsx.f +++ b/SRC/zgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zgbsv.f b/SRC/zgbsv.f index 1487d60083..502cf11dc3 100644 --- a/SRC/zgbsv.f +++ b/SRC/zgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbsvx.f b/SRC/zgbsvx.f index 3883cbdcfb..c2c090911d 100644 --- a/SRC/zgbsvx.f +++ b/SRC/zgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -356,10 +356,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -390,7 +390,7 @@ SUBROUTINE ZGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/SRC/zgbsvxx.f b/SRC/zgbsvxx.f index eddf950e34..29dddd2167 100644 --- a/SRC/zgbsvxx.f +++ b/SRC/zgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -544,10 +544,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zgbtf2.f b/SRC/zgbtf2.f index 890d301237..17377c0488 100644 --- a/SRC/zgbtf2.f +++ b/SRC/zgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgbtrf.f b/SRC/zgbtrf.f index bbdd986d46..cf1f387eeb 100644 --- a/SRC/zgbtrf.f +++ b/SRC/zgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgbtrs.f b/SRC/zgbtrs.f index 2b41f129a4..5c8be5c495 100644 --- a/SRC/zgbtrs.f +++ b/SRC/zgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgebak.f b/SRC/zgebak.f index 43d1b06c56..1e498fb124 100644 --- a/SRC/zgebak.f +++ b/SRC/zgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION SCALE( * ) * COMPLEX*16 V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgebal.f b/SRC/zgebal.f index c679ba0f84..f8b552ec76 100644 --- a/SRC/zgebal.f +++ b/SRC/zgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION SCALE( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgebd2.f b/SRC/zgebd2.f index 9991f4d6e8..d55f08dcfe 100644 --- a/SRC/zgebd2.f +++ b/SRC/zgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgebrd.f b/SRC/zgebrd.f index deef71e611..fa13bd5e6a 100644 --- a/SRC/zgebrd.f +++ b/SRC/zgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgecon.f b/SRC/zgecon.f index 74d3116851..2b68a399bf 100644 --- a/SRC/zgecon.f +++ b/SRC/zgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgeequ.f b/SRC/zgeequ.f index b8f0c61e87..ceef3cff5f 100644 --- a/SRC/zgeequ.f +++ b/SRC/zgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgeequb.f b/SRC/zgeequb.f index c18c526457..9a1d057616 100644 --- a/SRC/zgeequb.f +++ b/SRC/zgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgees.f b/SRC/zgees.f index 23bb978ee8..23f5250513 100644 --- a/SRC/zgees.f +++ b/SRC/zgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * LDVS, WORK, LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgeesx.f b/SRC/zgeesx.f index 7868245e71..041a553970 100644 --- a/SRC/zgeesx.f +++ b/SRC/zgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, * BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgeev.f b/SRC/zgeev.f index 1fb35a1752..86b268e8e5 100644 --- a/SRC/zgeev.f +++ b/SRC/zgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgeevx.f b/SRC/zgeevx.f index 752d0328e1..3236d99b2d 100644 --- a/SRC/zgeevx.f +++ b/SRC/zgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, * LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, * RCONDV, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgehd2.f b/SRC/zgehd2.f index 4263fcba7f..bea0cb969f 100644 --- a/SRC/zgehd2.f +++ b/SRC/zgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgehrd.f b/SRC/zgehrd.f index d0d1ff0d8a..09e02fce59 100644 --- a/SRC/zgehrd.f +++ b/SRC/zgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -186,7 +186,7 @@ SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) PARAMETER ( NBMAX = 64, LDT = NBMAX+1, $ TSIZE = LDT*NBMAX ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), + PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), $ ONE = ( 1.0D+0, 0.0D+0 ) ) * .. * .. Local Scalars .. @@ -316,7 +316,7 @@ SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL ZGEMM( 'No transpose', 'Conjugate transpose', + CALL ZGEMM( 'No transpose', 'Conjugate transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f index 15bbab074e..65d5dd1a4d 100644 --- a/SRC/zgejsv.f +++ b/SRC/zgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,18 +21,18 @@ * SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), U( LDU, * ), V( LDV, * ), CWORK( LWORK ) -* DOUBLE PRECISION SVA( N ), RWORK( LRWORK ) +* DOUBLE PRECISION SVA( N ), RWORK( LRWORK ) * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -97,7 +97,7 @@ *> numerical RANK is declared to be r. The SVD is computed with *> absolute error bounds, but more accurately than with 'A'. *> \endverbatim -*> +*> *> \param[in] JOBU *> \verbatim *> JOBU is CHARACTER*1 @@ -108,7 +108,7 @@ *> of U. *> = 'N': U is not computed. *> \endverbatim -*> +*> *> \param[in] JOBV *> \verbatim *> JOBV is CHARACTER*1 @@ -122,7 +122,7 @@ *> of V. *> = 'N': V is not computed. *> \endverbatim -*> +*> *> \param[in] JOBR *> \verbatim *> JOBR is CHARACTER*1 @@ -143,7 +143,7 @@ *> For computing the singular values in the FULL range [SFMIN,BIG] *> use ZGESVJ. *> \endverbatim -*> +*> *> \param[in] JOBT *> \verbatim *> JOBT is CHARACTER*1 @@ -164,7 +164,7 @@ *> The implementer can easily remove this constraint and make the *> code more complicated. See the descriptions of U and V. *> \endverbatim -*> +*> *> \param[in] JOBP *> \verbatim *> JOBP is CHARACTER*1 @@ -269,7 +269,7 @@ *> *> \param[out] CWORK *> \verbatim -*> CWORK is COMPLEX*16 array, dimension at least LWORK. +*> CWORK is COMPLEX*16 array, dimension at least LWORK. *> \endverbatim *> *> \param[in] LWORK @@ -284,15 +284,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= N + (N+1)*NB. Here NB is the optimal *> block size for ZGEQP3 and ZGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(N+LWORK(ZGEQP3),N+LWORK(ZGEQRF)). +*> In general, optimal LWORK is computed as +*> LWORK >= max(N+LWORK(ZGEQP3),N+LWORK(ZGEQRF)). *> 1.2. .. an estimate of the scaled condition number of A is *> required (JOBA='E', or 'G'). In this case, LWORK the minimal *> requirement is LWORK >= N*N + 3*N. -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(N+(N+1)*NB, N*N+3*N). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(N+LWORK(ZGEQP3),N+LWORK(ZGEQRF), +*> LWORK >= max(N+LWORK(ZGEQP3),N+LWORK(ZGEQRF), *> N+N*N+LWORK(ZPOCON)). *> *> 2. If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -311,12 +311,12 @@ *> where NB is the optimal block size for ZGEQP3, ZGEQRF, ZUNMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(N+LWORK(ZGEQP3),N+LWORK(ZPOCON), -*> 2*N+LWORK(ZGEQRF), N+LWORK(ZUNMQR)). -*> -*> 4. If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> 4.1. if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= 5*N+2*N*N. -*> 4.2. if JOBV.EQ.'J' the minimal requirement is +*> 2*N+LWORK(ZGEQRF), N+LWORK(ZUNMQR)). +*> +*> 4. If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> 4.1. if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= 5*N+2*N*N. +*> 4.2. if JOBV.EQ.'J' the minimal requirement is *> LWORK >= 4*N+N*N. *> In both cases, the allocated CWORK can accommodate blocked runs *> of ZGEQP3, ZGEQRF, ZGELQF, ZUNMQR, ZUNMLQ. @@ -365,43 +365,43 @@ *> Length of RWORK to confirm proper allocation of workspace. *> LRWORK depends on the job: *> -*> 1. If only singular values are requested i.e. if -*> LSAME(JOBU,'N') .AND. LSAME(JOBV,'N') +*> 1. If only singular values are requested i.e. if +*> LSAME(JOBU,'N') .AND. LSAME(JOBV,'N') *> then: *> 1.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). +*> then LRWORK = max( 7, N + 2 * M ). *> 1.2. Otherwise, LRWORK = max( 7, 2 * N ). *> 2. If singular values with the right singular vectors are requested -*> i.e. if -*> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) .AND. +*> i.e. if +*> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) .AND. *> .NOT.(LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) *> then: *> 2.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 2.2. Otherwise, LRWORK = max( 7, 2 * N ). -*> 3. If singular values with the left singular vectors are requested, i.e. if +*> then LRWORK = max( 7, N + 2 * M ). +*> 2.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> 3. If singular values with the left singular vectors are requested, i.e. if *> (LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) .AND. *> .NOT.(LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) *> then: *> 3.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 3.2. Otherwise, LRWORK = max( 7, 2 * N ). -*> 4. If singular values with both the left and the right singular vectors -*> are requested, i.e. if +*> then LRWORK = max( 7, N + 2 * M ). +*> 3.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> 4. If singular values with both the left and the right singular vectors +*> are requested, i.e. if *> (LSAME(JOBU,'U').OR.LSAME(JOBU,'F')) .AND. *> (LSAME(JOBV,'V').OR.LSAME(JOBV,'J')) *> then: *> 4.1. If LSAME(JOBT,'T') .OR. LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), -*> then LRWORK = max( 7, N + 2 * M ). -*> 4.2. Otherwise, LRWORK = max( 7, 2 * N ). +*> then LRWORK = max( 7, N + 2 * M ). +*> 4.2. Otherwise, LRWORK = max( 7, 2 * N ). *> \endverbatim -*> +*> *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, of dimension: -*> If LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), then +*> If LSAME(JOBA,'F') .OR. LSAME(JOBA,'G'), then *> the dimension of IWORK is max( 3, 2 * N + M ). -*> Otherwise, the dimension of IWORK is +*> Otherwise, the dimension of IWORK is *> -> max( 3, 2*N ) for full SVD *> -> max( 3, N ) for singular values only or singular *> values with one set of singular vectors (left or right) @@ -428,10 +428,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -527,7 +527,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, INTEGER INFO, LDA, LDU, LDV, LWORK, LRWORK, M, N * .. * .. Array Arguments .. - COMPLEX*16 A( LDA, * ), U( LDU, * ), V( LDV, * ), + COMPLEX*16 A( LDA, * ), U( LDU, * ), V( LDV, * ), $ CWORK( LWORK ) DOUBLE PRECISION SVA( N ), RWORK( * ) INTEGER IWORK( * ) @@ -544,9 +544,9 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * .. * .. Local Scalars .. COMPLEX*16 CTEMP - DOUBLE PRECISION AAPP, AAQQ, AATMAX, AATMIN, BIG, BIG1, - $ COND_OK, CONDR1, CONDR2, ENTRA, ENTRAT, EPSLN, - $ MAXPRJ, SCALEM, SCONDA, SFMIN, SMALL, TEMP1, + DOUBLE PRECISION AAPP, AAQQ, AATMAX, AATMIN, BIG, BIG1, + $ COND_OK, CONDR1, CONDR2, ENTRA, ENTRAT, EPSLN, + $ MAXPRJ, SCALEM, SCONDA, SFMIN, SMALL, TEMP1, $ USCAL1, USCAL2, XSC INTEGER IERR, N1, NR, NUMRANK, p, q, WARNING LOGICAL ALMORT, DEFR, ERREST, GOSCAL, JRACC, KILL, LSVEC, @@ -619,14 +619,14 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ .OR. $ (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. 3*N)) $ .OR. - $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. $ (LWORK.LT.5*N+2*N*N)) $ .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. $ LWORK.LT.4*N+N*N)) $ THEN INFO = - 17 ELSE IF ( LRWORK.LT. MAX0(N+2*M,7)) THEN - INFO = -19 + INFO = -19 ELSE * #:) INFO = 0 @@ -770,7 +770,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IWORK(1) = 0 IWORK(2) = 0 END IF - IWORK(3) = 0 + IWORK(3) = 0 IF ( ERREST ) RWORK(3) = ONE IF ( LSVEC .AND. RSVEC ) THEN RWORK(4) = ONE @@ -806,7 +806,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, RWORK(M+N+p) = XSC * SCALEM RWORK(N+p) = XSC * (SCALEM*DSQRT(TEMP1)) AATMAX = DMAX1( AATMAX, RWORK(N+p) ) - IF (RWORK(N+p) .NE. ZERO) + IF (RWORK(N+p) .NE. ZERO) $ AATMIN = DMIN1(AATMIN,RWORK(N+p)) 1950 CONTINUE ELSE @@ -867,7 +867,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * In an optimal implementation, this trivial transpose * should be replaced with faster transpose. DO 1115 p = 1, N - 1 - A(p,p) = DCONJG(A(p,p)) + A(p,p) = DCONJG(A(p,p)) DO 1116 q = p + 1, N CTEMP = DCONJG(A(q,p)) A(q,p) = DCONJG(A(p,q)) @@ -878,8 +878,8 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, DO 1117 p = 1, N RWORK(M+N+p) = SVA(p) SVA(p) = RWORK(N+p) -* previously computed row 2-norms are now column 2-norms -* of the transposed matrix +* previously computed row 2-norms are now column 2-norms +* of the transposed matrix 1117 CONTINUE TEMP1 = AAPP AAPP = AATMAX @@ -890,7 +890,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, KILL = LSVEC LSVEC = RSVEC RSVEC = KILL - IF ( LSVEC ) N1 = N + IF ( LSVEC ) N1 = N * ROWPIV = .TRUE. END IF @@ -996,7 +996,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * .. all columns are free columns IWORK(p) = 0 1963 CONTINUE - CALL ZGEQP3( M, N, A, LDA, IWORK, CWORK, CWORK(N+1), LWORK-N, + CALL ZGEQP3( M, N, A, LDA, IWORK, CWORK, CWORK(N+1), LWORK-N, $ RWORK, IERR ) * * The upper triangular matrix R1 from the first QRF is inspected for @@ -1079,7 +1079,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, 3053 CONTINUE CALL ZPOCON( 'U', N, V, LDV, ONE, TEMP1, $ CWORK(N+1), RWORK, IERR ) -* +* ELSE IF ( LSVEC ) THEN * .. U is available as workspace CALL ZLACPY( 'U', N, N, A, LDA, U, LDU ) @@ -1098,7 +1098,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * .. the columns of R are scaled to have unit Euclidean lengths. CALL ZPOCON( 'U', N, CWORK(N+1), N, ONE, TEMP1, $ CWORK(N+N*N+1), RWORK, IERR ) -* +* END IF SCONDA = ONE / DSQRT(TEMP1) * SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). @@ -1122,7 +1122,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL ZCOPY( N-p, A(p,p+1), LDA, A(p+1,p), 1 ) CALL ZLACGV( N-p+1, A(p,p), 1 ) 1946 CONTINUE - IF ( NR .EQ. N ) A(N,N) = DCONJG(A(N,N)) + IF ( NR .EQ. N ) A(N,N) = DCONJG(A(N,N)) * * The following two DO-loops introduce small relative perturbation * into the strict upper triangle of the lower triangular matrix. @@ -1179,7 +1179,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( (p.GT.q) .AND. (ABS(A(p,q)).LE.TEMP1) ) $ .OR. ( p .LT. q ) ) * $ A(p,q) = TEMP1 * ( A(p,q) / ABS(A(p,q)) ) - $ A(p,q) = CTEMP + $ A(p,q) = CTEMP 1949 CONTINUE 1947 CONTINUE ELSE @@ -1228,7 +1228,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ LWORK-2*N, IERR ) DO 8998 p = 1, NR CALL ZCOPY( NR-p+1, V(p,p), LDV, V(p,p), 1 ) - CALL ZLACGV( NR-p+1, V(p,p), 1 ) + CALL ZLACGV( NR-p+1, V(p,p), 1 ) 8998 CONTINUE CALL ZLASET('Upper', NR-1, NR-1, CZERO, CZERO, V(1,2), LDV) * @@ -1273,7 +1273,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * DO 1967 p = 1, NR - 1 CALL ZCOPY( NR-p, U(p,p+1), LDU, U(p+1,p), 1 ) - CALL ZLACGV( N-p+1, U(p,p), 1 ) + CALL ZLACGV( N-p+1, U(p,p), 1 ) 1967 CONTINUE CALL ZLASET( 'Upper', NR-1, NR-1, CZERO, CZERO, U(1,2), LDU ) * @@ -1345,7 +1345,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( p .GT. q ) .AND. ( ABS(V(p,q)) .LE. TEMP1 ) $ .OR. ( p .LT. q ) ) * $ V(p,q) = TEMP1 * ( V(p,q) / ABS(V(p,q)) ) - $ V(p,q) = CTEMP + $ V(p,q) = CTEMP IF ( p .LT. q ) V(p,q) = - V(p,q) 2968 CONTINUE 2969 CONTINUE @@ -1389,7 +1389,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ ZERO) IF ( ABS(V(q,p)) .LE. TEMP1 ) * $ V(q,p) = TEMP1 * ( V(q,p) / ABS(V(q,p)) ) - $ V(q,p) = CTEMP + $ V(q,p) = CTEMP 3958 CONTINUE 3959 CONTINUE END IF @@ -1403,7 +1403,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL ZCOPY( NR-p, V(p,p+1), LDV, V(p+1,p), 1 ) CALL ZLACGV(NR-p+1, V(p,p), 1 ) 1969 CONTINUE - V(NR,NR)=DCONJG(V(NR,NR)) + V(NR,NR)=DCONJG(V(NR,NR)) * CONDR2 = CONDR1 * @@ -1432,7 +1432,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ ZERO) IF ( ABS(V(q,p)) .LE. TEMP1 ) * $ V(q,p) = TEMP1 * ( V(q,p) / ABS(V(q,p)) ) - $ V(q,p) = CTEMP + $ V(q,p) = CTEMP 3968 CONTINUE 3969 CONTINUE END IF @@ -1446,7 +1446,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CTEMP=DCMPLX(XSC*DMIN1(ABS(V(p,p)),ABS(V(q,q))), $ ZERO) * V(p,q) = - TEMP1*( V(q,p) / ABS(V(q,p)) ) - V(p,q) = - CTEMP + V(p,q) = - CTEMP 8971 CONTINUE 8970 CONTINUE ELSE @@ -1462,7 +1462,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CALL ZDSCAL( p, ONE/TEMP1, CWORK(2*N+N*NR+NR+p), NR ) 4950 CONTINUE CALL ZPOCON( 'L',NR,CWORK(2*N+N*NR+NR+1),NR,ONE,TEMP1, - $ CWORK(2*N+N*NR+NR+NR*NR+1),RWORK,IERR ) + $ CWORK(2*N+N*NR+NR+NR*NR+1),RWORK,IERR ) CONDR2 = ONE / DSQRT(TEMP1) * * @@ -1540,7 +1540,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * the lower triangular L3 from the LQ factorization of * R2=L3*Q3), pre-multiplied with the transposed Q3. CALL ZGESVJ( 'L', 'U', 'N', NR, NR, V, LDV, SVA, NR, U, - $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, + $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) @@ -1579,7 +1579,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * Compute the full SVD of L3 using ZGESVJ with explicit * accumulation of Jacobi rotations. CALL ZGESVJ( 'L', 'U', 'V', NR, NR, V, LDV, SVA, NR, U, - $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, + $ LDU, CWORK(2*N+N*NR+NR+1), LWORK-2*N-N*NR-NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) @@ -1665,7 +1665,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, DO 5971 q = 1, p - 1 * CWORK(N+(q-1)*N+p)=-TEMP1 * ( CWORK(N+(p-1)*N+q) / * $ ABS(CWORK(N+(p-1)*N+q)) ) - CWORK(N+(q-1)*N+p)=-CTEMP + CWORK(N+(q-1)*N+p)=-CTEMP 5971 CONTINUE 5970 CONTINUE ELSE @@ -1673,7 +1673,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, END IF * CALL ZGESVJ( 'Upper', 'U', 'N', N, N, CWORK(N+1), N, SVA, - $ N, U, LDU, CWORK(N+N*N+1), LWORK-N-N*N, RWORK, LRWORK, + $ N, U, LDU, CWORK(N+N*N+1), LWORK-N-N*N, RWORK, LRWORK, $ INFO ) * SCALEM = RWORK(1) @@ -1745,7 +1745,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( ( p .GT. q ) .AND. ( ABS(V(p,q)) .LE. TEMP1 ) $ .OR. ( p .LT. q ) ) * $ V(p,q) = TEMP1 * ( V(p,q) / ABS(V(p,q)) ) - $ V(p,q) = CTEMP + $ V(p,q) = CTEMP IF ( p .LT. q ) V(p,q) = - V(p,q) 5968 CONTINUE 5969 CONTINUE @@ -1769,7 +1769,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, CTEMP = DCMPLX(XSC * DMIN1(ABS(U(p,p)),ABS(U(q,q))), $ ZERO) * U(p,q) = - TEMP1 * ( U(q,p) / ABS(U(q,p)) ) - U(p,q) = - CTEMP + U(p,q) = - CTEMP 9971 CONTINUE 9970 CONTINUE ELSE @@ -1777,7 +1777,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, END IF CALL ZGESVJ( 'L', 'U', 'V', NR, NR, U, LDU, SVA, - $ N, V, LDV, CWORK(2*N+N*NR+1), LWORK-2*N-N*NR, + $ N, V, LDV, CWORK(2*N+N*NR+1), LWORK-2*N-N*NR, $ RWORK, LRWORK, INFO ) SCALEM = RWORK(1) NUMRANK = NINT(RWORK(2)) diff --git a/SRC/zgelq2.f b/SRC/zgelq2.f index 5877e98316..414055cdbd 100644 --- a/SRC/zgelq2.f +++ b/SRC/zgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgelqf.f b/SRC/zgelqf.f index 4ef8ab679f..c9130dd63c 100644 --- a/SRC/zgelqf.f +++ b/SRC/zgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgels.f b/SRC/zgels.f index 4546582fba..6814f22229 100644 --- a/SRC/zgels.f +++ b/SRC/zgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgelsd.f b/SRC/zgelsd.f index 81731760e6..9c89d61179 100644 --- a/SRC/zgelsd.f +++ b/SRC/zgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgelss.f b/SRC/zgelss.f index b99535a64b..831e34e762 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -296,7 +296,7 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL ZUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_ZUNGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNMBR ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNGBR ) @@ -319,7 +319,7 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), -1, INFO ) LWORK_ZGEBRD=DUM(1) * Compute space needed for ZUNMBR - CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, + CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMBR=DUM(1) * Compute space needed for ZUNGBR @@ -330,7 +330,7 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, CALL ZUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_ZGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZUNMBR ) @@ -350,7 +350,7 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ DUM(1), -1, INFO ) LWORK_ZGEBRD=DUM(1) * Compute space needed for ZUNMBR - CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, + CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMBR=DUM(1) * Compute space needed for ZUNGBR diff --git a/SRC/zgelsy.f b/SRC/zgelsy.f index 2e8999a503..6f3ca40aa9 100644 --- a/SRC/zgelsy.f +++ b/SRC/zgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -202,7 +202,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/SRC/zgemqrt.f b/SRC/zgemqrt.f index 19d684f733..fe4cedbe55 100644 --- a/SRC/zgemqrt.f +++ b/SRC/zgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H *> -*> generated using the compact WY representation as returned by ZGEQRT. +*> generated using the compact WY representation as returned by ZGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup complex16GEcomputational * * ===================================================================== - SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL ZLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL ZLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL ZLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/SRC/zgeql2.f b/SRC/zgeql2.f index 6f9d10f4db..4a2a89e10a 100644 --- a/SRC/zgeql2.f +++ b/SRC/zgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgeqlf.f b/SRC/zgeqlf.f index 83fcb3cad8..d1041cfe0e 100644 --- a/SRC/zgeqlf.f +++ b/SRC/zgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f index 5b6e8a9bcc..eeaac0bac3 100644 --- a/SRC/zgeqp3.f +++ b/SRC/zgeqp3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgeqr2.f b/SRC/zgeqr2.f index f7775bbe37..3e6a2222a1 100644 --- a/SRC/zgeqr2.f +++ b/SRC/zgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgeqr2p.f b/SRC/zgeqr2p.f index e057247d3f..738fb38488 100644 --- a/SRC/zgeqr2p.f +++ b/SRC/zgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> On entry, the m by n matrix A. *> On exit, the elements on and above the diagonal of the array *> contain the min(m,n) by n upper trapezoidal matrix R (R is -*> upper triangular if m >= n). The diagonal entries of R +*> upper triangular if m >= n). The diagonal entries of R *> are real and nonnegative; the elements below the diagonal, *> with the array TAU, represent the unitary matrix Q as a *> product of elementary reflectors (see Further Details). @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgeqrf.f b/SRC/zgeqrf.f index 9ba1553ac2..110159e3f7 100644 --- a/SRC/zgeqrf.f +++ b/SRC/zgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgeqrfp.f b/SRC/zgeqrfp.f index fcf9bded61..f46922e5c8 100644 --- a/SRC/zgeqrfp.f +++ b/SRC/zgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgeqrt.f b/SRC/zgeqrt.f index 0603c4fe9d..84dac16fba 100644 --- a/SRC/zgeqrt.f +++ b/SRC/zgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> ZGEQRT computes a blocked QR factorization of a complex M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * Update by applying H**H to A(I:M,I+IB:N) from the left * CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of ZGEQRT * END diff --git a/SRC/zgeqrt2.f b/SRC/zgeqrt2.f index d3400afda0..7494a568cf 100644 --- a/SRC/zgeqrt2.f +++ b/SRC/zgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZGEQRT2 computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> ZGEQRT2 computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) CALL XERBLA( 'ZGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL ZGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL ZGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -CONJG(T( I, 1 )) - CALL ZGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL ZGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) * T(1:I-1,I) := alpha * A(I:M,1:I-1)**H * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL ZGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL ZGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of ZGEQRT2 * diff --git a/SRC/zgeqrt3.f b/SRC/zgeqrt3.f index 6995a289c5..f2d2b32415 100644 --- a/SRC/zgeqrt3.f +++ b/SRC/zgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZGEQRT3 recursively computes a QR factorization of a complex M-by-N -*> matrix A, using the compact WY representation of Q. +*> ZGEQRT3 recursively computes a QR factorization of a complex M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -58,7 +58,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension (LDA,N) -*> On entry, the complex M-by-N matrix A. On exit, the elements on +*> On entry, the complex M-by-N matrix A. On exit, the elements on *> and above the diagonal contain the N-by-N upper triangular matrix R; *> the elements below the diagonal are the columns of V. See below for *> further details. @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -178,7 +178,7 @@ RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) * Compute Householder transform when N=1 * CALL ZLARFG( M, A(1,1), A( MIN( 2, M ), 1 ), 1, T(1,1) ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL ZTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, + CALL ZTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL ZGEMM( 'C', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL ZTRMM( 'L', 'U', 'C', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL ZTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL ZGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL ZGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) CALL ZTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL ZGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL ZGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL ZTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL ZTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL ZTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL ZTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/SRC/zgerfs.f b/SRC/zgerfs.f index e3a0c5d049..543eb0005d 100644 --- a/SRC/zgerfs.f +++ b/SRC/zgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgerfsx.f b/SRC/zgerfsx.f index 549c32f0bc..5fd803c1c7 100644 --- a/SRC/zgerfsx.f +++ b/SRC/zgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is DOUBLE PRECISION array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgerq2.f b/SRC/zgerq2.f index 6d628a1f75..9e71004f7b 100644 --- a/SRC/zgerq2.f +++ b/SRC/zgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgerqf.f b/SRC/zgerqf.f index 51e8b3462f..56a9fb83ea 100644 --- a/SRC/zgerqf.f +++ b/SRC/zgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgesc2.f b/SRC/zgesc2.f index ce969550d6..00138793aa 100644 --- a/SRC/zgesc2.f +++ b/SRC/zgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * DOUBLE PRECISION SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgesdd.f b/SRC/zgesdd.f index 4f3201756b..aec4d5de32 100644 --- a/SRC/zgesdd.f +++ b/SRC/zgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgesv.f b/SRC/zgesv.f index e6df7958ee..93416d68c5 100644 --- a/SRC/zgesv.f +++ b/SRC/zgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgesvd.f b/SRC/zgesvd.f index 5f66bcb1e1..7f4d79b422 100644 --- a/SRC/zgesvd.f +++ b/SRC/zgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -201,17 +201,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * *> \ingroup complex16GEsing * * ===================================================================== - SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, + SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, INFO ) * * -- LAPACK driver routine (version 3.6.1) -- diff --git a/SRC/zgesvdx.f b/SRC/zgesvdx.f index 27428732ca..702c35015a 100644 --- a/SRC/zgesvdx.f +++ b/SRC/zgesvdx.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVDX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVDX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, -* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, +* SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, +* $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, * $ LWORK, RWORK, IWORK, INFO ) -* +* * * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT, RANGE @@ -31,7 +31,7 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * DOUBLE PRECISION S( * ), RWORK( * ) -* COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), +* COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. * @@ -60,7 +60,7 @@ *> *> Note that the routine returns V**T, not V. *> \endverbatim -* +* * Arguments: * ========== * @@ -69,7 +69,7 @@ *> JOBU is CHARACTER*1 *> Specifies options for computing all or part of the matrix U: *> = 'V': the first min(m,n) columns of U (the left singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array U; *> = 'N': no columns of U (no left singular vectors) are *> computed. @@ -81,7 +81,7 @@ *> Specifies options for computing all or part of the matrix *> V**T: *> = 'V': the first min(m,n) rows of V**T (the right singular -*> vectors) or as specified by RANGE are returned in +*> vectors) or as specified by RANGE are returned in *> the array VT; *> = 'N': no rows of V**T (no right singular vectors) are *> computed. @@ -93,7 +93,7 @@ *> = 'A': all singular values will be found. *> = 'V': all singular values in the half-open interval (VL,VU] *> will be found. -*> = 'I': the IL-th through IU-th singular values will be found. +*> = 'I': the IL-th through IU-th singular values will be found. *> \endverbatim *> *> \param[in] M @@ -158,7 +158,7 @@ *> \param[out] NS *> \verbatim *> NS is INTEGER -*> The total number of singular values found, +*> The total number of singular values found, *> 0 <= NS <= min(M,N). *> If RANGE = 'A', NS = min(M,N); if RANGE = 'I', NS = IU-IL+1. *> \endverbatim @@ -172,10 +172,10 @@ *> \param[out] U *> \verbatim *> U is COMPLEX*16 array, dimension (LDU,UCOL) -*> If JOBU = 'V', U contains columns of U (the left singular -*> vectors, stored columnwise) as specified by RANGE; if +*> If JOBU = 'V', U contains columns of U (the left singular +*> vectors, stored columnwise) as specified by RANGE; if *> JOBU = 'N', U is not referenced. -*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', +*> Note: The user must ensure that UCOL >= NS; if RANGE = 'V', *> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim @@ -190,11 +190,11 @@ *> \param[out] VT *> \verbatim *> VT is COMPLEX*16 array, dimension (LDVT,N) -*> If JOBVT = 'V', VT contains the rows of V**T (the right singular -*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', +*> If JOBVT = 'V', VT contains the rows of V**T (the right singular +*> vectors, stored rowwise) as specified by RANGE; if JOBVT = 'N', *> VT is not referenced. -*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', -*> the exact value of NS is not known in advance and an upper +*> Note: The user must ensure that LDVT >= NS; if RANGE = 'V', +*> the exact value of NS is not known in advance and an upper *> bound must be used. *> \endverbatim *> @@ -215,9 +215,9 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. -*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see +*> LWORK >= MAX(1,MIN(M,N)*(MIN(M,N)+4)) for the paths (see *> comments inside the code): -*> - PATH 1 (M much larger than N) +*> - PATH 1 (M much larger than N) *> - PATH 1t (N much larger than M) *> LWORK >= MAX(1,MIN(M,N)*2+MAX(M,N)) for the other paths. *> For good performance, LWORK should generally be larger. @@ -237,8 +237,8 @@ *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (12*MIN(M,N)) -*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, -*> then IWORK contains the indices of the eigenvectors that failed +*> If INFO = 0, the first NS elements of IWORK are zero. If INFO > 0, +*> then IWORK contains the indices of the eigenvectors that failed *> to converge in DBDSVDX/DSTEVX. *> \endverbatim *> @@ -256,18 +256,18 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup complex16GEsing * * ===================================================================== - SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, - $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, + SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, + $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * * -- LAPACK driver routine (version 3.6.1) -- @@ -283,7 +283,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * .. Array Arguments .. INTEGER IWORK( * ) DOUBLE PRECISION S( * ), RWORK( * ) - COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), + COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), $ WORK( * ) * .. * @@ -300,7 +300,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, CHARACTER JOBZ, RNGTGK LOGICAL ALLS, INDS, LQUERY, VALS, WANTU, WANTVT INTEGER I, ID, IE, IERR, ILQF, ILTGK, IQRF, ISCL, - $ ITAU, ITAUP, ITAUQ, ITEMP, ITEMPR, ITGKZ, + $ ITAU, ITAUP, ITAUQ, ITEMP, ITEMPR, ITGKZ, $ IUTGK, J, K, MAXWRK, MINMN, MINWRK, MNTHR DOUBLE PRECISION ABSTOL, ANRM, BIGNUM, EPS, SMLNUM * .. @@ -480,7 +480,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, RNGTGK = 'I' ILTGK = IL IUTGK = IU - ELSE + ELSE RNGTGK = 'V' ILTGK = 0 IUTGK = 0 @@ -524,28 +524,28 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, ITEMP = ITAU + N CALL ZGEQRF( M, N, A, LDA, WORK( ITAU ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) -* +* * Copy R into WORK and bidiagonalize it: * (Workspace: need N*N+3*N, prefer N*N+N+2*N*NB) -* +* IQRF = ITEMP ITAUQ = ITEMP + N*N ITAUP = ITAUQ + N ITEMP = ITAUP + N - ID = 1 + ID = 1 IE = ID + N ITGKZ = IE + N CALL ZLACPY( 'U', N, N, A, LDA, WORK( IQRF ), N ) CALL ZLASET( 'L', N-1, N-1, CZERO, CZERO, $ WORK( IQRF+1 ), N ) - CALL ZGEBRD( N, N, WORK( IQRF ), N, RWORK( ID ), + CALL ZGEBRD( N, N, WORK( IQRF ), N, RWORK( ID ), $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), $ WORK( ITEMP ), LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + N*(N*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*N*N+14*N) -* +* (Workspace: need 2*N*N+14*N) +* CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, RWORK( ID ), $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), @@ -567,18 +567,18 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL ZUNMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL ZUNMBR( 'Q', 'L', 'N', N, NS, N, WORK( IQRF ), N, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call ZUNMQR to compute Q*(QB*UB). * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL ZUNMQR( 'L', 'N', M, NS, N, A, LDA, + CALL ZUNMQR( 'L', 'N', M, NS, N, A, LDA, $ WORK( ITAU ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -594,7 +594,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL ZUNMBR( 'P', 'R', 'C', NS, N, N, WORK( IQRF ), N, + CALL ZUNMBR( 'P', 'R', 'C', NS, N, N, WORK( IQRF ), N, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) END IF @@ -610,21 +610,21 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * ITAUQ = 1 ITAUP = ITAUQ + N - ITEMP = ITAUP + N + ITEMP = ITAUP + N ID = 1 IE = ID + N ITGKZ = IE + N - CALL ZGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), + CALL ZGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + N*(N*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*N*N+14*N) -* +* (Workspace: need 2*N*N+14*N) +* CALL DBDSVDX( 'U', JOBZ, RNGTGK, N, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), N*2, RWORK( ITEMPR ), $ IWORK, INFO) * * If needed, compute left singular vectors. @@ -632,7 +632,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( WANTU ) THEN K = ITGKZ DO I = 1, NS - DO J = 1, N + DO J = 1, N U( J, I ) = DCMPLX( RWORK( K ), ZERO ) K = K + 1 END DO @@ -642,12 +642,12 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * * Call ZUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need N, prefer N*NB) -* - CALL ZUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), +* + CALL ZUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -663,11 +663,11 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need N, prefer N*NB) * - CALL ZUNMBR( 'P', 'R', 'C', NS, N, N, A, LDA, + CALL ZUNMBR( 'P', 'R', 'C', NS, N, N, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, IERR ) END IF - END IF + END IF ELSE * * A has more columns than rows. If A has sufficiently more @@ -676,7 +676,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IF( N.GE.MNTHR ) THEN * * Path 1t (N much larger than M): -* A = L * Q = ( QB * B * PB**T ) * Q +* A = L * Q = ( QB * B * PB**T ) * Q * = ( QB * ( UB * S * VB**T ) * PB**T ) * Q * U = QB * UB ; V**T = VB**T * PB**T * Q * @@ -691,7 +691,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Copy L into WORK and bidiagonalize it: * (Workspace in WORK( ITEMP ): need M*M+3*M, prefer M*M+M+2*M*NB) * - ILQF = ITEMP + ILQF = ITEMP ITAUQ = ILQF + M*M ITAUP = ITAUQ + M ITEMP = ITAUP + M @@ -699,19 +699,19 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, IE = ID + M ITGKZ = IE + M CALL ZLACPY( 'L', M, M, A, LDA, WORK( ILQF ), M ) - CALL ZLASET( 'U', M-1, M-1, CZERO, CZERO, + CALL ZLASET( 'U', M-1, M-1, CZERO, CZERO, $ WORK( ILQF+M ), M ) CALL ZGEBRD( M, M, WORK( ILQF ), M, RWORK( ID ), - $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), + $ RWORK( IE ), WORK( ITAUQ ), WORK( ITAUP ), $ WORK( ITEMP ), LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + M*(M*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) +* (Workspace: need 2*M*M+14*M) * CALL DBDSVDX( 'U', JOBZ, RNGTGK, M, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), $ IWORK, INFO) * * If needed, compute left singular vectors. @@ -729,11 +729,11 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL ZUNMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL ZUNMBR( 'Q', 'L', 'N', M, NS, M, WORK( ILQF ), M, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -751,46 +751,46 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute (VB**T)*(PB**T) * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL ZUNMBR( 'P', 'R', 'C', NS, M, M, WORK( ILQF ), M, + CALL ZUNMBR( 'P', 'R', 'C', NS, M, M, WORK( ILQF ), M, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) * * Call ZUNMLQ to compute ((VB**T)*(PB**T))*Q. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL ZUNMLQ( 'R', 'N', NS, N, M, A, LDA, + CALL ZUNMLQ( 'R', 'N', NS, N, M, A, LDA, $ WORK( ITAU ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF ELSE * * Path 2t (N greater than M, but not much larger) * Reduce to bidiagonal form without LQ decomposition * A = QB * B * PB**T = QB * ( UB * S * VB**T ) * PB**T -* U = QB * UB; V**T = VB**T * PB**T +* U = QB * UB; V**T = VB**T * PB**T * * Bidiagonalize A * (Workspace: need 2*M+N, prefer 2*M+(M+N)*NB) -* +* ITAUQ = 1 ITAUP = ITAUQ + M ITEMP = ITAUP + M ID = 1 IE = ID + M ITGKZ = IE + M - CALL ZGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), + CALL ZGEBRD( M, N, A, LDA, RWORK( ID ), RWORK( IE ), $ WORK( ITAUQ ), WORK( ITAUP ), WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) ITEMPR = ITGKZ + M*(M*2+1) * * Solve eigenvalue problem TGK*Z=Z*S. -* (Workspace: need 2*M*M+14*M) -* - CALL DBDSVDX( 'L', JOBZ, RNGTGK, M, RWORK( ID ), - $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, - $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), +* (Workspace: need 2*M*M+14*M) +* + CALL DBDSVDX( 'L', JOBZ, RNGTGK, M, RWORK( ID ), + $ RWORK( IE ), VL, VU, ILTGK, IUTGK, NS, S, + $ RWORK( ITGKZ ), M*2, RWORK( ITEMPR ), $ IWORK, INFO) -* +* * If needed, compute left singular vectors. * IF( WANTU ) THEN @@ -806,11 +806,11 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute QB*UB. * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL ZUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, - $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), + CALL ZUNMBR( 'Q', 'L', 'N', M, NS, N, A, LDA, + $ WORK( ITAUQ ), U, LDU, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF -* + END IF +* * If needed, compute right singular vectors. * IF( WANTVT) THEN @@ -828,10 +828,10 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, * Call ZUNMBR to compute VB**T * PB**T * (Workspace in WORK( ITEMP ): need M, prefer M*NB) * - CALL ZUNMBR( 'P', 'R', 'C', NS, N, M, A, LDA, + CALL ZUNMBR( 'P', 'R', 'C', NS, N, M, A, LDA, $ WORK( ITAUP ), VT, LDVT, WORK( ITEMP ), $ LWORK-ITEMP+1, INFO ) - END IF + END IF END IF END IF * diff --git a/SRC/zgesvj.f b/SRC/zgesvj.f index e4b6969f72..95569d80c0 100644 --- a/SRC/zgesvj.f +++ b/SRC/zgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, LRWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), V( LDV, * ), CWORK( LWORK ) * DOUBLE PRECISION RWORK( LRWORK ), SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -101,7 +101,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. +*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. *> \endverbatim *> *> \param[in] N @@ -257,18 +257,18 @@ *> INFO is INTEGER *> = 0 : successful exit. *> < 0 : if INFO = -i, then the i-th argument had an illegal value -*> > 0 : ZGESVJ did not converge in the maximal allowed number -*> (NSWEEP=30) of sweeps. The output may still be useful. +*> > 0 : ZGESVJ did not converge in the maximal allowed number +*> (NSWEEP=30) of sweeps. The output may still be useful. *> See the description of RWORK. *> \endverbatim *> * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -291,7 +291,7 @@ *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. *> Some tunning parameters (marked with [TP]) are available for the -*> implementer. +*> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even *> denormalized singular values can be computed with the corresponding @@ -312,8 +312,8 @@ * ================ *> *> [1] P. P. M. De Rijk: A one-sided Jacobi algorithm for computing the -*> singular value decomposition on a vector computer. -*> SIAM J. Sci. Stat. Comp., Vol. 10 (1998), pp. 359-371. +*> singular value decomposition on a vector computer. +*> SIAM J. Sci. Stat. Comp., Vol. 10 (1998), pp. 359-371. *> [2] J. Demmel and K. Veselic: Jacobi method is more accurate than QR. *> [3] Z. Drmac: Implementation of Jacobi rotations for accurate singular *> value computation in floating point arithmetic. @@ -339,7 +339,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, + SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * * -- LAPACK computational routine (version 3.6.1) -- @@ -347,7 +347,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * June 2016 * - IMPLICIT NONE + IMPLICIT NONE * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, LRWORK, M, MV, N CHARACTER*1 JOBA, JOBU, JOBV @@ -369,19 +369,19 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * .. * .. Local Scalars .. COMPLEX*16 AAPQ, OMPQ - DOUBLE PRECISION AAPP, AAPP0, AAPQ1, AAQQ, APOAQ, AQOAP, BIG, - $ BIGTHETA, CS, CTOL, EPSLN, LARGE, MXAAPQ, - $ MXSINJ, ROOTBIG, ROOTEPS, ROOTSFMIN, ROOTTOL, + DOUBLE PRECISION AAPP, AAPP0, AAPQ1, AAQQ, APOAQ, AQOAP, BIG, + $ BIGTHETA, CS, CTOL, EPSLN, LARGE, MXAAPQ, + $ MXSINJ, ROOTBIG, ROOTEPS, ROOTSFMIN, ROOTTOL, $ SKL, SFMIN, SMALL, SN, T, TEMP1, THETA, THSIGN, TOL INTEGER BLSKIP, EMPTSW, i, ibr, IERR, igl, IJBLSK, ir1, - $ ISWROT, jbc, jgl, KBL, LKAHEAD, MVL, N2, N34, + $ ISWROT, jbc, jgl, KBL, LKAHEAD, MVL, N2, N34, $ N4, NBL, NOTROT, p, PSKIPPED, q, ROWSKIP, SWBAND - LOGICAL APPLV, GOSCALE, LOWER, LSVEC, NOSCALE, ROTOK, + LOGICAL APPLV, GOSCALE, LOWER, LSVEC, NOSCALE, ROTOK, $ RSVEC, UCTOL, UPPER * .. * .. * .. Intrinsic Functions .. - INTRINSIC ABS, DMAX1, DMIN1, DCONJG, DBLE, MIN0, MAX0, + INTRINSIC ABS, DMAX1, DMIN1, DCONJG, DBLE, MIN0, MAX0, $ DSIGN, DSQRT * .. * .. External Functions .. @@ -439,7 +439,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ELSE IF( LWORK.LT.( M+N ) ) THEN INFO = -13 ELSE IF( LRWORK.LT.MAX0( N, 6 ) ) THEN - INFO = -15 + INFO = -15 ELSE INFO = 0 END IF @@ -644,7 +644,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * SN = DSQRT( SFMIN / EPSLN ) TEMP1 = DSQRT( BIG / DBLE( N ) ) - IF( ( AAPP.LE.SN ) .OR. ( AAQQ.GE.TEMP1 ) .OR. + IF( ( AAPP.LE.SN ) .OR. ( AAQQ.GE.TEMP1 ) .OR. $ ( ( SN.LE.AAQQ ) .AND. ( AAPP.LE.TEMP1 ) ) ) THEN TEMP1 = DMIN1( BIG, TEMP1 / AAPP ) * AAQQ = AAQQ*TEMP1 @@ -680,10 +680,10 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * EMPTSW = ( N*( N-1 ) ) / 2 NOTROT = 0 - + DO 1868 q = 1, N CWORK( q ) = CONE - 1868 CONTINUE + 1868 CONTINUE * * * @@ -827,7 +827,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, q = IDAMAX( N-p+1, SVA( p ), 1 ) + p - 1 IF( p.NE.q ) THEN CALL ZSWAP( M, A( 1, p ), 1, A( 1, q ), 1 ) - IF( RSVEC )CALL ZSWAP( MVL, V( 1, p ), 1, + IF( RSVEC )CALL ZSWAP( MVL, V( 1, p ), 1, $ V( 1, q ), 1 ) TEMP1 = SVA( p ) SVA( p ) = SVA( q ) @@ -851,7 +851,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * If properly implemented SCNRM2 is available, the IF-THEN-ELSE-END IF * below should be replaced with "AAPP = DZNRM2( M, A(1,p), 1 )". * - IF( ( SVA( p ).LT.ROOTBIG ) .AND. + IF( ( SVA( p ).LT.ROOTBIG ) .AND. $ ( SVA( p ).GT.ROOTSFMIN ) ) THEN SVA( p ) = DZNRM2( M, A( 1, p ), 1 ) ELSE @@ -879,12 +879,12 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, IF( AAQQ.GE.ONE ) THEN ROTOK = ( SMALL*AAPP ).LE.AAQQ IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL ZCOPY( M, A( 1, p ), 1, + CALL ZCOPY( M, A( 1, p ), 1, $ CWORK(N+1), 1 ) - CALL ZLASCL( 'G', 0, 0, AAPP, ONE, + CALL ZLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, CWORK(N+1), LDA, IERR ) AAPQ = ZDOTC( M, CWORK(N+1), 1, $ A( 1, q ), 1 ) / AAQQ @@ -892,10 +892,10 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ELSE ROTOK = AAPP.LE.( AAQQ / SMALL ) IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL ZCOPY( M, A( 1, q ), 1, + CALL ZCOPY( M, A( 1, q ), 1, $ CWORK(N+1), 1 ) CALL ZLASCL( 'G', 0, 0, AAQQ, $ ONE, M, 1, @@ -905,8 +905,8 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF END IF * -* AAPQ = AAPQ * DCONJG( CWORK(p) ) * CWORK(q) - AAPQ1 = -ABS(AAPQ) +* AAPQ = AAPQ * DCONJG( CWORK(p) ) * CWORK(q) + AAPQ1 = -ABS(AAPQ) MXAAPQ = DMAX1( MXAAPQ, -AAPQ1 ) * * TO rotate or NOT to rotate, THAT is the question ... @@ -924,24 +924,24 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ROTOK ) THEN * - OMPQ = AAPQ / ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) AQOAP = AAQQ / AAPP APOAQ = AAPP / AAQQ THETA = -HALF*ABS( AQOAP-APOAQ )/AAPQ1 * IF( ABS( THETA ).GT.BIGTHETA ) THEN -* +* T = HALF / THETA CS = ONE CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*T ) IF ( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*T ) END IF - - SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, + + SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) @@ -952,7 +952,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * .. choose correct signum for THETA and rotate * THSIGN = -DSIGN( ONE, AAPQ1 ) - T = ONE / ( THETA+THSIGN* + T = ONE / ( THETA+THSIGN* $ DSQRT( ONE+THETA*THETA ) ) CS = DSQRT( ONE / ( ONE+T*T ) ) SN = T*CS @@ -960,17 +960,17 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = DMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*SN ) IF ( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*SN ) - END IF - END IF - CWORK(p) = -CWORK(q) * OMPQ + END IF + END IF + CWORK(p) = -CWORK(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -1095,7 +1095,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, p ), 1, @@ -1113,7 +1113,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, q ), 1, @@ -1126,7 +1126,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF END IF * -* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) +* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = DMAX1( MXAAPQ, -AAPQ1 ) * @@ -1140,7 +1140,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ROTOK ) THEN * - OMPQ = AAPQ / ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) AQOAP = AAQQ / AAPP APOAQ = AAPP / AAQQ THETA = -HALF*ABS( AQOAP-APOAQ )/ AAPQ1 @@ -1148,11 +1148,11 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, @@ -1173,17 +1173,17 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, MXSINJ = DMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL ZROT( M, A(1,p), 1, A(1,q), 1, - $ CS, DCONJG(OMPQ)*SN ) + $ CS, DCONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*SN ) END IF END IF - CWORK(p) = -CWORK(q) * OMPQ + CWORK(p) = -CWORK(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -1213,7 +1213,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, CALL ZLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL ZAXPY( M, -DCONJG(AAPQ), + CALL ZAXPY( M, -DCONJG(AAPQ), $ CWORK(N+1), 1, A( 1, p ), 1 ) CALL ZLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, @@ -1386,7 +1386,7 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, END IF * * Undo scaling, if necessary (and possible). - IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) + IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) $ .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( MAX( N2, 1 ) ) .GT. $ ( SFMIN / SKL ) ) ) ) THEN DO 2400 p = 1, N diff --git a/SRC/zgesvx.f b/SRC/zgesvx.f index aff8bb7bed..888c015e37 100644 --- a/SRC/zgesvx.f +++ b/SRC/zgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -336,10 +336,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zgesvxx.f b/SRC/zgesvxx.f index 3ac901f609..178e84d4f7 100644 --- a/SRC/zgesvxx.f +++ b/SRC/zgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -524,10 +524,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f index f41b6f09ca..549c1cfbee 100644 --- a/SRC/zgetc2.f +++ b/SRC/zgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgetf2.f b/SRC/zgetf2.f index 7013ffb17d..583cfb75f9 100644 --- a/SRC/zgetf2.f +++ b/SRC/zgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -167,7 +167,7 @@ SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) * * Compute machine safe minimum * - SFMIN = DLAMCH('S') + SFMIN = DLAMCH('S') * DO 10 J = 1, MIN( M, N ) * diff --git a/SRC/zgetrf.f b/SRC/zgetrf.f index fcf31e34f5..2be4dfcd9f 100644 --- a/SRC/zgetrf.f +++ b/SRC/zgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgetrf2.f b/SRC/zgetrf2.f index 9b2e956c80..8e1dc98ebe 100644 --- a/SRC/zgetrf2.f +++ b/SRC/zgetrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE ZGETRF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,11 +35,11 @@ *> *> This is the recursive version of the algorithm. It divides *> the matrix into four submatrices: -*> +*> *> [ A11 | A12 ] where A11 is n1 by n1 and A22 is n2 by n2 *> A = [ -----|----- ] with n1 = min(m,n)/2 *> [ A21 | A22 ] n2 = n-n1 -*> +*> *> [ A11 ] *> The subroutine calls itself to factor [ --- ], *> [ A12 ] @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -241,12 +241,12 @@ RECURSIVE SUBROUTINE ZGETRF2( M, N, A, LDA, IPIV, INFO ) * * Solve A12 * - CALL ZTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, + CALL ZTRSM( 'L', 'L', 'N', 'U', N1, N2, ONE, A, LDA, $ A( 1, N1+1 ), LDA ) * * Update A22 * - CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, + CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( N1+1, 1 ), LDA, $ A( 1, N1+1 ), LDA, ONE, A( N1+1, N1+1 ), LDA ) * * Factor A22 diff --git a/SRC/zgetri.f b/SRC/zgetri.f index c7ac26ef74..77e5932a85 100644 --- a/SRC/zgetri.f +++ b/SRC/zgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zgetrs.f b/SRC/zgetrs.f index 6400055b40..db9630a921 100644 --- a/SRC/zgetrs.f +++ b/SRC/zgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zggbak.f b/SRC/zggbak.f index 1d8d73c787..95a1f174fd 100644 --- a/SRC/zggbak.f +++ b/SRC/zggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION LSCALE( * ), RSCALE( * ) * COMPLEX*16 V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zggbal.f b/SRC/zggbal.f index 7771c4c16a..66286b9b48 100644 --- a/SRC/zggbal.f +++ b/SRC/zggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zgges.f b/SRC/zgges.f index 6432a71dd6..f55eb3b895 100644 --- a/SRC/zgges.f +++ b/SRC/zgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zggesx.f b/SRC/zggesx.f index bc709ffd74..f9b9eb39e7 100644 --- a/SRC/zggesx.f +++ b/SRC/zggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, * LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zggev.f b/SRC/zggev.f index 6ad934d3d5..cabf73d8f1 100644 --- a/SRC/zggev.f +++ b/SRC/zggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,10 +204,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zggevx.f b/SRC/zggevx.f index 922a717b32..c7d5768eb8 100644 --- a/SRC/zggevx.f +++ b/SRC/zggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, * LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, * WORK, LWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -37,7 +37,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -330,10 +330,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -522,7 +522,7 @@ SUBROUTINE ZGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, IF( ILVL ) THEN MAXWRK = MAX( MAXWRK, N + $ N*ILAENV( 1, 'ZUNGQR', ' ', N, 1, N, 0 ) ) - END IF + END IF END IF WORK( 1 ) = MAXWRK * diff --git a/SRC/zggglm.f b/SRC/zggglm.f index 47f56c4a2c..ebd20019d2 100644 --- a/SRC/zggglm.f +++ b/SRC/zggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -216,7 +216,7 @@ SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/SRC/zgghrd.f b/SRC/zgghrd.f index 58ac1918e1..9b788bfe6a 100644 --- a/SRC/zgghrd.f +++ b/SRC/zgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zgglse.f b/SRC/zgglse.f index 084654620b..7c96708703 100644 --- a/SRC/zgglse.f +++ b/SRC/zgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zggqrf.f b/SRC/zggqrf.f index 3685570410..6e0f8396e9 100644 --- a/SRC/zggqrf.f +++ b/SRC/zggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zggrqf.f b/SRC/zggrqf.f index 8bb41e9deb..0a77c3f2fe 100644 --- a/SRC/zggrqf.f +++ b/SRC/zggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zggsvd3.f b/SRC/zggsvd3.f index da479793dc..1f6f043160 100644 --- a/SRC/zggsvd3.f +++ b/SRC/zggsvd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/zggsvp3.f b/SRC/zggsvp3.f index 88566f7504..0ec28ab9d8 100644 --- a/SRC/zggsvp3.f +++ b/SRC/zggsvp3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P, LWORK @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -251,10 +251,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/SRC/zgsvj0.f b/SRC/zgsvj0.f index e547eebb20..6ca0ccc1e4 100644 --- a/SRC/zgsvj0.f +++ b/SRC/zgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * DOUBLE PRECISION EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) * DOUBLE PRECISION SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -230,7 +230,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * .. * .. Array Arguments .. COMPLEX*16 A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) - DOUBLE PRECISION SVA( N ) + DOUBLE PRECISION SVA( N ) * .. * * ===================================================================== @@ -287,7 +287,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -394,7 +394,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, q = IDAMAX( N-p+1, SVA( p ), 1 ) + p - 1 IF( p.NE.q ) THEN CALL ZSWAP( M, A( 1, p ), 1, A( 1, q ), 1 ) - IF( RSVEC )CALL ZSWAP( MVL, V( 1, p ), 1, + IF( RSVEC )CALL ZSWAP( MVL, V( 1, p ), 1, $ V( 1, q ), 1 ) TEMP1 = SVA( p ) SVA( p ) = SVA( q ) @@ -418,7 +418,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * If properly implemented DZNRM2 is available, the IF-THEN-ELSE-END IF * below should be replaced with "AAPP = DZNRM2( M, A(1,p), 1 )". * - IF( ( SVA( p ).LT.ROOTBIG ) .AND. + IF( ( SVA( p ).LT.ROOTBIG ) .AND. $ ( SVA( p ).GT.ROOTSFMIN ) ) THEN SVA( p ) = DZNRM2( M, A( 1, p ), 1 ) ELSE @@ -446,12 +446,12 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, IF( AAQQ.GE.ONE ) THEN ROTOK = ( SMALL*AAPP ).LE.AAQQ IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL ZCOPY( M, A( 1, p ), 1, + CALL ZCOPY( M, A( 1, p ), 1, $ WORK, 1 ) - CALL ZLASCL( 'G', 0, 0, AAPP, ONE, + CALL ZLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, WORK, LDA, IERR ) AAPQ = ZDOTC( M, WORK, 1, $ A( 1, q ), 1 ) / AAQQ @@ -459,22 +459,22 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ELSE ROTOK = AAPP.LE.( AAQQ / SMALL ) IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE - CALL ZCOPY( M, A( 1, q ), 1, + CALL ZCOPY( M, A( 1, q ), 1, $ WORK, 1 ) CALL ZLASCL( 'G', 0, 0, AAQQ, $ ONE, M, 1, $ WORK, LDA, IERR ) - AAPQ = ZDOTC( M, A( 1, p ), 1, + AAPQ = ZDOTC( M, A( 1, p ), 1, $ WORK, 1 ) / AAPP END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * DCONJG( CWORK(p) ) * CWORK(q) - AAPQ1 = -ABS(AAPQ) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * DCONJG( CWORK(p) ) * CWORK(q) + AAPQ1 = -ABS(AAPQ) MXAAPQ = DMAX1( MXAAPQ, -AAPQ1 ) * * TO rotate or NOT to rotate, THAT is the question ... @@ -497,18 +497,18 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, THETA = -HALF*ABS( AQOAP-APOAQ )/AAPQ1 * IF( ABS( THETA ).GT.BIGTHETA ) THEN -* +* T = HALF / THETA CS = ONE CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*T ) IF ( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*T ) END IF - - SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, + + SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) @@ -519,7 +519,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * .. choose correct signum for THETA and rotate * THSIGN = -DSIGN( ONE, AAPQ1 ) - T = ONE / ( THETA+THSIGN* + T = ONE / ( THETA+THSIGN* $ DSQRT( ONE+THETA*THETA ) ) CS = DSQRT( ONE / ( ONE+T*T ) ) SN = T*CS @@ -527,17 +527,17 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = DMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*SN ) IF ( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*SN ) - END IF - END IF - D(p) = -D(q) * OMPQ + END IF + END IF + D(p) = -D(q) * OMPQ * ELSE * .. have to use modified Gram-Schmidt like transformation @@ -662,7 +662,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, p ), 1, @@ -680,7 +680,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, q ), 1, @@ -693,8 +693,8 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = DMAX1( MXAAPQ, -AAPQ1 ) * @@ -715,11 +715,11 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, @@ -740,13 +740,13 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, MXSINJ = DMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL ZROT( M, A(1,p), 1, A(1,q), 1, - $ CS, DCONJG(OMPQ)*SN ) + $ CS, DCONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*SN ) END IF END IF @@ -780,7 +780,7 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, CALL ZLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL ZAXPY( M, -DCONJG(AAPQ), + CALL ZAXPY( M, -DCONJG(AAPQ), $ WORK, 1, A( 1, p ), 1 ) CALL ZLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, diff --git a/SRC/zgsvj1.f b/SRC/zgsvj1.f index 65b383b78f..89ce3d0176 100644 --- a/SRC/zgsvj1.f +++ b/SRC/zgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -28,9 +28,9 @@ * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) -* DOUBLE PRECISION SVA( N ) +* DOUBLE PRECISION SVA( N ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -241,7 +241,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * June 2016 * - IMPLICIT NONE + IMPLICIT NONE * .. Scalar Arguments .. DOUBLE PRECISION EPS, SFMIN, TOL INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -249,7 +249,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * .. * .. Array Arguments .. COMPLEX*16 A( LDA, * ), D( N ), V( LDV, * ), WORK( LWORK ) - DOUBLE PRECISION SVA( N ) + DOUBLE PRECISION SVA( N ) * .. * * ===================================================================== @@ -281,7 +281,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, EXTERNAL IDAMAX, LSAME, ZDOTC, DZNRM2 * .. * .. External Subroutines .. -* .. from BLAS +* .. from BLAS EXTERNAL ZCOPY, ZROT, ZSWAP * .. from LAPACK EXTERNAL ZLASCL, ZLASSQ, XERBLA @@ -304,7 +304,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -402,7 +402,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, igl = ( ibr-1 )*KBL + 1 * * DO 2010 jbc = ibr + 1, NBL - DO 2010 jbc = 1, NBLC + DO 2010 jbc = 1, NBLC * jgl = ( jbc-1 )*KBL + N1 + 1 * @@ -433,7 +433,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, ROTOK = ( SMALL*AAQQ ).LE.AAPP END IF IF( AAPP.LT.( BIG / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, p ), 1, @@ -451,7 +451,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, ROTOK = AAQQ.LE.( AAPP / SMALL ) END IF IF( AAPP.GT.( SMALL / AAQQ ) ) THEN - AAPQ = ( ZDOTC( M, A( 1, p ), 1, + AAPQ = ( ZDOTC( M, A( 1, p ), 1, $ A( 1, q ), 1 ) / AAQQ ) / AAPP ELSE CALL ZCOPY( M, A( 1, q ), 1, @@ -464,8 +464,8 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, END IF END IF * - OMPQ = AAPQ / ABS(AAPQ) -* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) + OMPQ = AAPQ / ABS(AAPQ) +* AAPQ = AAPQ * DCONJG(CWORK(p))*CWORK(q) AAPQ1 = -ABS(AAPQ) MXAAPQ = DMAX1( MXAAPQ, -AAPQ1 ) * @@ -486,11 +486,11 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * IF( ABS( THETA ).GT.BIGTHETA ) THEN T = HALF / THETA - CS = ONE + CS = ONE CALL ZROT( M, A(1,p), 1, A(1,q), 1, $ CS, DCONJG(OMPQ)*T ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*T ) END IF SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, @@ -511,13 +511,13 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, MXSINJ = DMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ1 ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ1 ) ) * CALL ZROT( M, A(1,p), 1, A(1,q), 1, - $ CS, DCONJG(OMPQ)*SN ) + $ CS, DCONJG(OMPQ)*SN ) IF( RSVEC ) THEN - CALL ZROT( MVL, V(1,p), 1, + CALL ZROT( MVL, V(1,p), 1, $ V(1,q), 1, CS, DCONJG(OMPQ)*SN ) END IF END IF @@ -551,7 +551,7 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, CALL ZLASCL( 'G', 0, 0, AAPP, ONE, $ M, 1, A( 1, p ), LDA, $ IERR ) - CALL ZAXPY( M, -DCONJG(AAPQ), + CALL ZAXPY( M, -DCONJG(AAPQ), $ WORK, 1, A( 1, p ), 1 ) CALL ZLASCL( 'G', 0, 0, ONE, AAPP, $ M, 1, A( 1, p ), LDA, diff --git a/SRC/zgtcon.f b/SRC/zgtcon.f index b8cac22adf..4295eb19f0 100644 --- a/SRC/zgtcon.f +++ b/SRC/zgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgtrfs.f b/SRC/zgtrfs.f index f0a0359c81..bd523b28af 100644 --- a/SRC/zgtrfs.f +++ b/SRC/zgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgtsv.f b/SRC/zgtsv.f index 8611ce6cba..e096f98716 100644 --- a/SRC/zgtsv.f +++ b/SRC/zgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgtsvx.f b/SRC/zgtsvx.f index 59b25e4cd3..d29379bd60 100644 --- a/SRC/zgtsvx.f +++ b/SRC/zgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -280,10 +280,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgttrf.f b/SRC/zgttrf.f index 8ccc654ead..cd567574b3 100644 --- a/SRC/zgttrf.f +++ b/SRC/zgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgttrs.f b/SRC/zgttrs.f index 421efca357..437cd1ac96 100644 --- a/SRC/zgttrs.f +++ b/SRC/zgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zgtts2.f b/SRC/zgtts2.f index 5f9eb4aad9..b4831220e5 100644 --- a/SRC/zgtts2.f +++ b/SRC/zgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zhbev.f b/SRC/zhbev.f index 62e75c97aa..a9a00cf812 100644 --- a/SRC/zhbev.f +++ b/SRC/zhbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhbevd.f b/SRC/zhbevd.f index fded2d1d9a..62de0f8497 100644 --- a/SRC/zhbevd.f +++ b/SRC/zhbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -202,10 +202,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhbevx.f b/SRC/zhbevx.f index 09322be408..f034807786 100644 --- a/SRC/zhbevx.f +++ b/SRC/zhbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -33,7 +33,7 @@ * COMPLEX*16 AB( LDAB, * ), Q( LDQ, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zhbgst.f b/SRC/zhbgst.f index efc48d0fa3..c459f95344 100644 --- a/SRC/zhbgst.f +++ b/SRC/zhbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhbgv.f b/SRC/zhbgv.f index 81ed1b59f6..ac0a33b535 100644 --- a/SRC/zhbgv.f +++ b/SRC/zhbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zhbgvd.f b/SRC/zhbgvd.f index 333e4377fb..f3f4679ab0 100644 --- a/SRC/zhbgvd.f +++ b/SRC/zhbgvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LRWORK, @@ -33,7 +33,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zhbgvx.f b/SRC/zhbgvx.f index 4d42b503ec..9dfa9553a6 100644 --- a/SRC/zhbgvx.f +++ b/SRC/zhbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -34,7 +34,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -281,10 +281,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zhbtrd.f b/SRC/zhbtrd.f index 0ea08bd2b6..35f7b59770 100644 --- a/SRC/zhbtrd.f +++ b/SRC/zhbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 AB( LDAB, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhecon.f b/SRC/zhecon.f index f87b4bfda8..9aacfa00bc 100644 --- a/SRC/zhecon.f +++ b/SRC/zhecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zheequb.f b/SRC/zheequb.f index 12bead6c9f..ac1251bb01 100644 --- a/SRC/zheequb.f +++ b/SRC/zheequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), WORK( * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zheev.f b/SRC/zheev.f index adba990f0a..ae09a6ca82 100644 --- a/SRC/zheev.f +++ b/SRC/zheev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zheevd.f b/SRC/zheevd.f index 74b21b0d4f..fd21827ad3 100644 --- a/SRC/zheevd.f +++ b/SRC/zheevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zheevr.f b/SRC/zheevr.f index 1ea82200f9..11fa88f919 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LRWORK, LWORK, @@ -33,7 +33,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -331,10 +331,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zheevx.f b/SRC/zheevx.f index fe4422f6c3..f8f9b75b36 100644 --- a/SRC/zheevx.f +++ b/SRC/zheevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -245,10 +245,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zhegs2.f b/SRC/zhegs2.f index 80c4b21381..06a59f3c82 100644 --- a/SRC/zhegs2.f +++ b/SRC/zhegs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zhegst.f b/SRC/zhegst.f index cf804bf2e8..f952711001 100644 --- a/SRC/zhegst.f +++ b/SRC/zhegst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zhegv.f b/SRC/zhegv.f index 912c4bcced..e2963943eb 100644 --- a/SRC/zhegv.f +++ b/SRC/zhegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zhegvd.f b/SRC/zhegvd.f index 5b70a749cc..bdd7e80e2a 100644 --- a/SRC/zhegvd.f +++ b/SRC/zhegvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zhegvx.f b/SRC/zhegvx.f index 2aaa335900..a5d0cbd83d 100644 --- a/SRC/zhegvx.f +++ b/SRC/zhegvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -288,10 +288,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zherfs.f b/SRC/zherfs.f index f278265d8b..a6031cf630 100644 --- a/SRC/zherfs.f +++ b/SRC/zherfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index 038ed8e78e..e39151e899 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * DOUBLE PRECISION S( * ), PARAMS( * ), BERR( * ), RWORK( * ), * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) -* +* * *> \par Purpose: * ============= @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zhesv.f b/SRC/zhesv.f index 664cb22b0b..976927ec4a 100644 --- a/SRC/zhesv.f +++ b/SRC/zhesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhesvx.f b/SRC/zhesvx.f index fd787c7f34..369f480f21 100644 --- a/SRC/zhesvx.f +++ b/SRC/zhesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zhesvxx.f b/SRC/zhesvxx.f index 27ce0fc5e9..64e65631be 100644 --- a/SRC/zhesvxx.f +++ b/SRC/zhesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -491,10 +491,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zheswapr.f b/SRC/zheswapr.f index 8870350ea2..c8172066f2 100644 --- a/SRC/zheswapr.f +++ b/SRC/zheswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,14 +136,14 @@ SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) * - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) - + TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -169,12 +169,12 @@ SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from 1 to I1-1 +* - swap row I1 and I2 from 1 to I1-1 CALL ZSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) TMP=A(I1,I1) @@ -198,6 +198,6 @@ SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) END DO * ENDIF - + END SUBROUTINE ZHESWAPR diff --git a/SRC/zhetd2.f b/SRC/zhetd2.f index dd8f9cf014..c7c81bac48 100644 --- a/SRC/zhetd2.f +++ b/SRC/zhetd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zhetrd.f b/SRC/zhetrd.f index c607484637..36f87768cd 100644 --- a/SRC/zhetrd.f +++ b/SRC/zhetrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhetrf.f b/SRC/zhetrf.f index a31eef06e6..0c55f050a1 100644 --- a/SRC/zhetrf.f +++ b/SRC/zhetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhetri.f b/SRC/zhetri.f index 6a19da3d9c..00b997463f 100644 --- a/SRC/zhetri.f +++ b/SRC/zhetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhetri2.f b/SRC/zhetri2.f index 4659009f05..e567e6a3fa 100644 --- a/SRC/zhetri2.f +++ b/SRC/zhetri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/zhetri2x.f b/SRC/zhetri2x.f index e8bc7be85b..05b026b96d 100644 --- a/SRC/zhetri2x.f +++ b/SRC/zhetri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -215,7 +215,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -231,7 +231,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -248,7 +248,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K+1,INVD) = DCONJG (WORK(K,INVD+1) ) K=K+2 END IF @@ -265,7 +265,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -275,7 +275,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -338,7 +338,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**H*invD1*U11->U11 * CALL ZTRMM('L','U','C','U',NNB, NNB, @@ -382,7 +382,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -392,9 +392,9 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL ZHESWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL ZHESWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -408,7 +408,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -425,7 +425,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K-1,INVD+1) = DCONJG (WORK(K,INVD+1) ) K=K-2 END IF @@ -442,7 +442,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -509,7 +509,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**H*invD1*L11->L11 * CALL ZTRMM('L',UPLO,'C','U',NNB, NNB, @@ -527,7 +527,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL ZGEMM('C','N',NNB,NNB,N-NNB-CUT,CONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**H*invD1*L11 + U01**H*invD*U01 * @@ -565,7 +565,7 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/zhetrs.f b/SRC/zhetrs.f index 43a4998b5b..437bf769f6 100644 --- a/SRC/zhetrs.f +++ b/SRC/zhetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index 7f72c18feb..0ad2c1c8ec 100644 --- a/SRC/zhetrs2.f +++ b/SRC/zhetrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup complex16HEcomputational * * ===================================================================== - SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.6.1) -- @@ -196,7 +196,7 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**H. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -221,7 +221,7 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL ZTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -274,7 +274,7 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**H. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -299,7 +299,7 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL ZTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -322,7 +322,7 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**H \ B) -> B [ L**H \ (D \ (L \P**T * B) ) ] -* +* CALL ZTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**H \ (D \ (L \P**T * B) )) ] diff --git a/SRC/zhfrk.f b/SRC/zhfrk.f index 3399706698..c8e4955ec7 100644 --- a/SRC/zhfrk.f +++ b/SRC/zhfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zhgeqz.f b/SRC/zhgeqz.f index fb2df81ef2..a3bb7f8b6d 100644 --- a/SRC/zhgeqz.f +++ b/SRC/zhgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -32,7 +32,7 @@ * $ Q( LDQ, * ), T( LDT, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,18 +44,18 @@ *> using the single-shift QZ method. *> Matrix pairs of this type are produced by the reduction to *> generalized upper Hessenberg form of a complex matrix pair (A,B): -*> +*> *> A = Q1*H*Z1**H, B = Q1*T*Z1**H, -*> +*> *> as computed by ZGGHRD. -*> +*> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**H, T = Q*P*Z**H, -*> +*> *> where Q and Z are unitary matrices and S and P are upper triangular. -*> +*> *> Optionally, the unitary matrix Q from the generalized Schur *> factorization may be postmultiplied into an input matrix Q1, and the *> unitary matrix Z may be postmultiplied into an input matrix Z1. @@ -63,9 +63,9 @@ *> the matrix pair (A,B) to generalized Hessenberg form, then the output *> matrices Q1*Q and Z1*Z are the unitary factors from the generalized *> Schur factorization of (A,B): -*> +*> *> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) *> (equivalently, of (A,B)) are computed as a pair of complex values *> (alpha,beta). If beta is nonzero, lambda = alpha / beta is an @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zhpcon.f b/SRC/zhpcon.f index 4b2058ddb3..8572a110f9 100644 --- a/SRC/zhpcon.f +++ b/SRC/zhpcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpev.f b/SRC/zhpev.f index ecab968b83..adf55da4de 100644 --- a/SRC/zhpev.f +++ b/SRC/zhpev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpevd.f b/SRC/zhpevd.f index c2e9fcd73c..b6ca7163e9 100644 --- a/SRC/zhpevd.f +++ b/SRC/zhpevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpevx.f b/SRC/zhpevx.f index a7a6abc4d5..3475110912 100644 --- a/SRC/zhpevx.f +++ b/SRC/zhpevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zhpgst.f b/SRC/zhpgst.f index cb83693488..1b006d5cc1 100644 --- a/SRC/zhpgst.f +++ b/SRC/zhpgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpgv.f b/SRC/zhpgv.f index 848279cc3c..ff369c942e 100644 --- a/SRC/zhpgv.f +++ b/SRC/zhpgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zhpgvd.f b/SRC/zhpgvd.f index a12036ea8b..080a6ceb1c 100644 --- a/SRC/zhpgvd.f +++ b/SRC/zhpgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zhpgvx.f b/SRC/zhpgvx.f index ef7e119776..aadc80c894 100644 --- a/SRC/zhpgvx.f +++ b/SRC/zhpgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -331,7 +331,7 @@ SUBROUTINE ZHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, INFO = -4 ELSE IF( N.LT.0 ) THEN INFO = -5 - ELSE + ELSE IF( VALEIG ) THEN IF( N.GT.0 .AND. VU.LE.VL ) THEN INFO = -9 diff --git a/SRC/zhprfs.f b/SRC/zhprfs.f index 29dc3393aa..c929585be8 100644 --- a/SRC/zhprfs.f +++ b/SRC/zhprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpsv.f b/SRC/zhpsv.f index d05a2f9ec2..e547054991 100644 --- a/SRC/zhpsv.f +++ b/SRC/zhpsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhpsvx.f b/SRC/zhpsvx.f index c34cade007..0a6475cda6 100644 --- a/SRC/zhpsvx.f +++ b/SRC/zhpsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zhptrd.f b/SRC/zhptrd.f index b844bbb5b7..693f647b58 100644 --- a/SRC/zhptrd.f +++ b/SRC/zhptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 AP( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhptrf.f b/SRC/zhptrf.f index 53876b9a43..a9c2aee7f1 100644 --- a/SRC/zhptrf.f +++ b/SRC/zhptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhptri.f b/SRC/zhptri.f index b58e1677b5..fd9ef7c20c 100644 --- a/SRC/zhptri.f +++ b/SRC/zhptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhptrs.f b/SRC/zhptrs.f index 76e01fdb22..2c5c727af8 100644 --- a/SRC/zhptrs.f +++ b/SRC/zhptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zhsein.f b/SRC/zhsein.f index 57c99dbea6..6ff75d3638 100644 --- a/SRC/zhsein.f +++ b/SRC/zhsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX*16 H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/zhseqr.f b/SRC/zhseqr.f index 994843688b..c420ba1d7c 100644 --- a/SRC/zhseqr.f +++ b/SRC/zhseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/zla_gbamv.f b/SRC/zla_gbamv.f index 0e38cf61f7..7bb86ea005 100644 --- a/SRC/zla_gbamv.f +++ b/SRC/zla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -29,7 +29,7 @@ * COMPLEX*16 AB( LDAB, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -400,7 +400,7 @@ SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, TEMP = CABS1( AB( KE-I+J, I ) ) SYMB_ZERO = SYMB_ZERO .AND. $ ( X( JX ) .EQ. ZERO .OR. TEMP .EQ. ZERO ) - + Y( IY ) = Y( IY ) + ALPHA*CABS1( X( JX ) )*TEMP JX = JX + INCX END DO @@ -412,9 +412,9 @@ SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, IY = IY + INCY END DO END IF - + END IF -* +* RETURN * * End of ZLA_GBAMV diff --git a/SRC/zla_gbrcond_c.f b/SRC/zla_gbrcond_c.f index 2b21daae26..d8b4bfa770 100644 --- a/SRC/zla_gbrcond_c.f +++ b/SRC/zla_gbrcond_c.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, +* DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, * LDAB, AFB, LDAFB, IPIV, * C, CAPPLY, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,8 +32,8 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) -* -* +* +* * *> \par Purpose: * ============= @@ -148,17 +148,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16GBcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, + DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, $ LDAB, AFB, LDAFB, IPIV, $ C, CAPPLY, INFO, WORK, $ RWORK ) diff --git a/SRC/zla_gbrcond_x.f b/SRC/zla_gbrcond_x.f index 10b7f6ab54..4e32b0a28b 100644 --- a/SRC/zla_gbrcond_x.f +++ b/SRC/zla_gbrcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_GBRCOND_X( TRANS, N, KL, KU, AB, * LDAB, AFB, LDAFB, IPIV, * X, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO @@ -31,8 +31,8 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ X( * ) * DOUBLE PRECISION RWORK( * ) -* -* +* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_gbrfsx_extended.f b/SRC/zla_gbrfsx_extended.f index 7707efd376..d07b8ea5f3 100644 --- a/SRC/zla_gbrfsx_extended.f +++ b/SRC/zla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_gbrpvgrw.f b/SRC/zla_gbrpvgrw.f index 20cac93643..5e8112a0d4 100644 --- a/SRC/zla_gbrpvgrw.f +++ b/SRC/zla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, * LDAB, AFB, LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index 845375e163..eb23c76e0c 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_gercond_c.f b/SRC/zla_gercond_c.f index 367d7902c7..52bf491e3c 100644 --- a/SRC/zla_gercond_c.f +++ b/SRC/zla_gercond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Aguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,17 +129,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16GEcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * diff --git a/SRC/zla_gercond_x.f b/SRC/zla_gercond_x.f index 44dc9ddc3f..9df39f349e 100644 --- a/SRC/zla_gercond_x.f +++ b/SRC/zla_gercond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_GERCOND_X( TRANS, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_gerfsx_extended.f b/SRC/zla_gerfsx_extended.f index 4c1fd7829f..e242806c16 100644 --- a/SRC/zla_gerfsx_extended.f +++ b/SRC/zla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS @@ -39,7 +39,7 @@ * DOUBLE PRECISION C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -381,10 +381,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zla_gerpvgrw.f b/SRC/zla_gerpvgrw.f index 096ab37330..68ef5e4361 100644 --- a/SRC/zla_gerpvgrw.f +++ b/SRC/zla_gerpvgrw.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, * LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zla_heamv.f b/SRC/zla_heamv.f index 3729c8d706..54599ff709 100644 --- a/SRC/zla_heamv.f +++ b/SRC/zla_heamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_hercond_c.f b/SRC/zla_hercond_c.f index 81dfebf895..10a49f3bb6 100644 --- a/SRC/zla_hercond_c.f +++ b/SRC/zla_hercond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C ( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,17 +126,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16HEcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * diff --git a/SRC/zla_hercond_x.f b/SRC/zla_hercond_x.f index 0dd80dc6a1..22331f2a61 100644 --- a/SRC/zla_hercond_x.f +++ b/SRC/zla_hercond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_HERCOND_X( UPLO, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_herfsx_extended.f b/SRC/zla_herfsx_extended.f index fadd0d9530..301c020850 100644 --- a/SRC/zla_herfsx_extended.f +++ b/SRC/zla_herfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_herpvgrw.f b/SRC/zla_herpvgrw.f index 8d9e2a23f8..acdb1fa546 100644 --- a/SRC/zla_herpvgrw.f +++ b/SRC/zla_herpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * DOUBLE PRECISION WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_HERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zla_lin_berr.f b/SRC/zla_lin_berr.f index 212c3582f4..df5b24e5f8 100644 --- a/SRC/zla_lin_berr.f +++ b/SRC/zla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) * COMPLEX*16 RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see zla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is DOUBLE PRECISION array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zla_porcond_c.f b/SRC/zla_porcond_c.f index 1c82321cd7..c3bcdfab86 100644 --- a/SRC/zla_porcond_c.f +++ b/SRC/zla_porcond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, * LDAF, C, CAPPLY, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,17 +118,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16POcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) * diff --git a/SRC/zla_porcond_x.f b/SRC/zla_porcond_x.f index 0a374cca6b..630de27019 100644 --- a/SRC/zla_porcond_x.f +++ b/SRC/zla_porcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_PORCOND_X( UPLO, N, A, LDA, AF, * LDAF, X, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_porfsx_extended.f b/SRC/zla_porfsx_extended.f index 40ffa9fca1..e5e8ebef77 100644 --- a/SRC/zla_porfsx_extended.f +++ b/SRC/zla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_porpvgrw.f b/SRC/zla_porpvgrw.f index 1cf63cdba8..5c850a8f41 100644 --- a/SRC/zla_porpvgrw.f +++ b/SRC/zla_porpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, * LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -29,14 +29,14 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * DOUBLE PRECISION WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -94,17 +94,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup complex16POcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * * -- LAPACK computational routine (version 3.6.1) -- diff --git a/SRC/zla_syamv.f b/SRC/zla_syamv.f index 43871dc594..b34b0c1918 100644 --- a/SRC/zla_syamv.f +++ b/SRC/zla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_syrcond_c.f b/SRC/zla_syrcond_c.f index 2cd65e922e..86fe58bf70 100644 --- a/SRC/zla_syrcond_c.f +++ b/SRC/zla_syrcond_c.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_SYRCOND_C( UPLO, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_syrcond_x.f b/SRC/zla_syrcond_x.f index 20cd0fd62a..78c63f9496 100644 --- a/SRC/zla_syrcond_x.f +++ b/SRC/zla_syrcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_syrfsx_extended.f b/SRC/zla_syrfsx_extended.f index 2f4966fd56..98373e1ca3 100644 --- a/SRC/zla_syrfsx_extended.f +++ b/SRC/zla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zla_syrpvgrw.f b/SRC/zla_syrpvgrw.f index 5359ca9bd5..ac983ea945 100644 --- a/SRC/zla_syrpvgrw.f +++ b/SRC/zla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * DOUBLE PRECISION WORK( * ) * INTEGER IPIV( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zla_wwaddw.f b/SRC/zla_wwaddw.f index 2cd9aef9a5..802c8d7668 100644 --- a/SRC/zla_wwaddw.f +++ b/SRC/zla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * COMPLEX*16 X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlabrd.f b/SRC/zlabrd.f index 24fa76ba33..b91bca9fa8 100644 --- a/SRC/zlabrd.f +++ b/SRC/zlabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacgv.f b/SRC/zlacgv.f index 315c4de5ce..c9bdef2b1f 100644 --- a/SRC/zlacgv.f +++ b/SRC/zlacgv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACGV( N, X, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacn2.f b/SRC/zlacn2.f index 391546f400..57a5628349 100644 --- a/SRC/zlacn2.f +++ b/SRC/zlacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISAVE( 3 ) * COMPLEX*16 V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,7 +70,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to ZLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacon.f b/SRC/zlacon.f index f1d36c08b3..d64bd00ab6 100644 --- a/SRC/zlacon.f +++ b/SRC/zlacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACON( N, V, X, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 V( N ), X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -69,7 +69,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to ZLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacp2.f b/SRC/zlacp2.f index 1593af3c1c..850360cb9e 100644 --- a/SRC/zlacp2.f +++ b/SRC/zlacp2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ) * COMPLEX*16 B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacpy.f b/SRC/zlacpy.f index 73f0e57042..d53de77685 100644 --- a/SRC/zlacpy.f +++ b/SRC/zlacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacrm.f b/SRC/zlacrm.f index 6e4ffe4c85..d09bdf39f4 100644 --- a/SRC/zlacrm.f +++ b/SRC/zlacrm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACRM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACRM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION B( LDB, * ), RWORK( * ) * COMPLEX*16 A( LDA, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlacrt.f b/SRC/zlacrt.f index 922509a684..38b2e77929 100644 --- a/SRC/zlacrt.f +++ b/SRC/zlacrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * COMPLEX*16 C, S @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zladiv.f b/SRC/zladiv.f index 8f01fe3e63..4d5ab7529c 100644 --- a/SRC/zladiv.f +++ b/SRC/zladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLADIV( X, Y ) -* +* * .. Scalar Arguments .. * COMPLEX*16 X, Y * .. -* +* * *> \par Purpose: * ============= @@ -52,10 +52,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaed0.f b/SRC/zlaed0.f index f10185bf5f..8f65c18d80 100644 --- a/SRC/zlaed0.f +++ b/SRC/zlaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 Q( LDQ, * ), QSTORE( LDQS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaed7.f b/SRC/zlaed7.f index 26a0534f63..96c361556e 100644 --- a/SRC/zlaed7.f +++ b/SRC/zlaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, * GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, * $ TLVLS @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), GIVNUM( 2, * ), QSTORE( * ), RWORK( * ) * COMPLEX*16 Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlaed8.f b/SRC/zlaed8.f index 6716b1720c..f57cc25c0a 100644 --- a/SRC/zlaed8.f +++ b/SRC/zlaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, * Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, * GIVCOL, GIVNUM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ * DOUBLE PRECISION RHO @@ -33,7 +33,7 @@ * $ Z( * ) * COMPLEX*16 Q( LDQ, * ), Q2( LDQ2, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -291,8 +291,8 @@ SUBROUTINE ZLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/SRC/zlaein.f b/SRC/zlaein.f index 5ce96cff67..e31d50d398 100644 --- a/SRC/zlaein.f +++ b/SRC/zlaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, * EPS3, SMLNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -31,7 +31,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 B( LDB, * ), H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaesy.f b/SRC/zlaesy.f index 3a42ff6acf..4b7eea6d04 100644 --- a/SRC/zlaesy.f +++ b/SRC/zlaesy.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAESY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAESY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) -* +* * .. Scalar Arguments .. * COMPLEX*16 A, B, C, CS1, EVSCAL, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaev2.f b/SRC/zlaev2.f index 502dbfa814..0ca3283dc0 100644 --- a/SRC/zlaev2.f +++ b/SRC/zlaev2.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS1, RT1, RT2 * COMPLEX*16 A, B, C, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlag2c.f b/SRC/zlag2c.f index 7ff69d02bc..e9e22e48b7 100644 --- a/SRC/zlag2c.f +++ b/SRC/zlag2c.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAG2C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAG2C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlags2.f b/SRC/zlags2.f index 4c59246cb6..b7d2062e9e 100644 --- a/SRC/zlags2.f +++ b/SRC/zlags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * DOUBLE PRECISION A1, A3, B1, B3, CSQ, CSU, CSV * COMPLEX*16 A2, B2, SNQ, SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,8 +176,8 @@ SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, - $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, + DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, + $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, $ SNL, SNR, UA11R, UA22R, VB11R, VB22R COMPLEX*16 B, C, D1, R, T, UA11, UA12, UA21, UA22, VB11, $ VB12, VB21, VB22 diff --git a/SRC/zlagtm.f b/SRC/zlagtm.f index a02ce734ca..e6b757a595 100644 --- a/SRC/zlagtm.f +++ b/SRC/zlagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlahef.f b/SRC/zlahef.f index 36b9b73ce9..38668412b8 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHEF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHEF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KB, LDA, LDW, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/zlahqr.f b/SRC/zlahqr.f index e554f8a037..54cb03164a 100644 --- a/SRC/zlahqr.f +++ b/SRC/zlahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -313,7 +313,7 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * * ITMAX is the total number of QR iterations allowed. * - ITMAX = 30 * MAX( 10, NH ) + ITMAX = 30 * MAX( 10, NH ) * * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works diff --git a/SRC/zlahr2.f b/SRC/zlahr2.f index ed64243b6a..bbff6b5ced 100644 --- a/SRC/zlahr2.f +++ b/SRC/zlahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX*16 A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * .. Parameters .. COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), + PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), $ ONE = ( 1.0D+0, 0.0D+0 ) ) * .. * .. Local Scalars .. @@ -226,10 +226,10 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Update I-th column of A - Y * V**H * - CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, Y(K+1,1), LDY, $ A( K+I-1, 1 ), LDA, ONE, A( K+1, I ), 1 ) - CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) * * Apply I - V * T**H * V**H to this column (call it b) from the * left, using the last column of T as workspace @@ -242,31 +242,31 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * w := V1**H * b1 * CALL ZCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL ZTRMV( 'Lower', 'Conjugate transpose', 'UNIT', + CALL ZTRMV( 'Lower', 'Conjugate transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**H * b2 * - CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**H * w * - CALL ZTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', + CALL ZTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL ZGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL ZGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL ZTRMV( 'Lower', 'NO TRANSPOSE', + CALL ZTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL ZAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -284,13 +284,13 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * * Compute Y(K+1:N,I) * - CALL ZGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL ZGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL ZSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -298,7 +298,7 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute T(1:I,I) * CALL ZSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL ZTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL ZTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -309,15 +309,15 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * Compute Y(1:K,1:NB) * CALL ZLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL ZTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL ZTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL ZGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL ZGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL ZTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL ZTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/SRC/zlaic1.f b/SRC/zlaic1.f index 14b6f126c9..e2f272b56d 100644 --- a/SRC/zlaic1.f +++ b/SRC/zlaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * DOUBLE PRECISION SEST, SESTPR @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlals0.f b/SRC/zlals0.f index 13da3c3ef4..22c6788213 100644 --- a/SRC/zlals0.f +++ b/SRC/zlals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -34,7 +34,7 @@ * $ RWORK( * ), Z( * ) * COMPLEX*16 B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zlalsa.f b/SRC/zlalsa.f index 9cd7a1844f..0ff2d76753 100644 --- a/SRC/zlalsa.f +++ b/SRC/zlalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -35,7 +35,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), Z( LDU, * ) * COMPLEX*16 B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlalsd.f b/SRC/zlalsd.f index 592af30634..7cd0e792a8 100644 --- a/SRC/zlalsd.f +++ b/SRC/zlalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlangb.f b/SRC/zlangb.f index 65c1eaefae..a75a332a6e 100644 --- a/SRC/zlangb.f +++ b/SRC/zlangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlange.f b/SRC/zlange.f index c49555b151..b42922e6f7 100644 --- a/SRC/zlange.f +++ b/SRC/zlange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlangt.f b/SRC/zlangt.f index 91b20a7316..c027ab4d19 100644 --- a/SRC/zlangt.f +++ b/SRC/zlangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/SRC/zlanhb.f b/SRC/zlanhb.f index 39e6475ec5..86133f1bea 100644 --- a/SRC/zlanhb.f +++ b/SRC/zlanhb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlanhe.f b/SRC/zlanhe.f index 3093a151af..2c8174c541 100644 --- a/SRC/zlanhe.f +++ b/SRC/zlanhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlanhf.f b/SRC/zlanhf.f index 6c37f3e4c3..5d0c630efd 100644 --- a/SRC/zlanhf.f +++ b/SRC/zlanhf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( 0: * ) * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -339,11 +339,11 @@ DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) J = 0 * -> L(0,0) TEMP = ABS( DBLE( A( J+J*LDA ) ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP DO I = 1, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO DO J = 1, K - 1 @@ -726,7 +726,7 @@ DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE diff --git a/SRC/zlanhp.f b/SRC/zlanhp.f index ce14895067..d54dd7d247 100644 --- a/SRC/zlanhp.f +++ b/SRC/zlanhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlanhs.f b/SRC/zlanhs.f index f20cd74f92..fdc3189859 100644 --- a/SRC/zlanhs.f +++ b/SRC/zlanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlanht.f b/SRC/zlanht.f index a6b8b2b752..fd65b1cbc3 100644 --- a/SRC/zlanht.f +++ b/SRC/zlanht.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlansb.f b/SRC/zlansb.f index 776038b590..eaa65f50e6 100644 --- a/SRC/zlansb.f +++ b/SRC/zlansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlansp.f b/SRC/zlansp.f index 07db74acf8..5453baca36 100644 --- a/SRC/zlansp.f +++ b/SRC/zlansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlansy.f b/SRC/zlansy.f index 45a8b1b22c..f2142b236a 100644 --- a/SRC/zlansy.f +++ b/SRC/zlansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zlantb.f b/SRC/zlantb.f index 64c0e3c704..9d9a624dc5 100644 --- a/SRC/zlantb.f +++ b/SRC/zlantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlantp.f b/SRC/zlantp.f index 07d51edd4c..344759aa64 100644 --- a/SRC/zlantp.f +++ b/SRC/zlantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlantr.f b/SRC/zlantr.f index fb9553b322..b2f8a7dd29 100644 --- a/SRC/zlantr.f +++ b/SRC/zlantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlapll.f b/SRC/zlapll.f index 684837a736..e0e57bb8ea 100644 --- a/SRC/zlapll.f +++ b/SRC/zlapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlapmr.f b/SRC/zlapmr.f index 6d2317b363..fb7c353873 100644 --- a/SRC/zlapmr.f +++ b/SRC/zlapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlapmt.f b/SRC/zlapmt.f index 35a43d392b..5ed749fbbd 100644 --- a/SRC/zlapmt.f +++ b/SRC/zlapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqgb.f b/SRC/zlaqgb.f index db9b7f2d8f..f7d4351361 100644 --- a/SRC/zlaqgb.f +++ b/SRC/zlaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqge.f b/SRC/zlaqge.f index bce3e20d05..ffad804e33 100644 --- a/SRC/zlaqge.f +++ b/SRC/zlaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqhb.f b/SRC/zlaqhb.f index 498ac6271f..9e79ec980c 100644 --- a/SRC/zlaqhb.f +++ b/SRC/zlaqhb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,14 +29,14 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZLAQHB equilibrates a Hermitian band matrix A +*> ZLAQHB equilibrates a Hermitian band matrix A *> using the scaling factors in the vector S. *> \endverbatim * @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqhe.f b/SRC/zlaqhe.f index a7b5563fef..daea3b3b25 100644 --- a/SRC/zlaqhe.f +++ b/SRC/zlaqhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqhp.f b/SRC/zlaqhp.f index cac99264d2..cc7bbec671 100644 --- a/SRC/zlaqhp.f +++ b/SRC/zlaqhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqp2.f b/SRC/zlaqp2.f index a8947370c2..65d8b7e5d7 100644 --- a/SRC/zlaqp2.f +++ b/SRC/zlaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION VN1( * ), VN2( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/SRC/zlaqps.f b/SRC/zlaqps.f index b18fa9ebfd..2ef4dce9a1 100644 --- a/SRC/zlaqps.f +++ b/SRC/zlaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION VN1( * ), VN2( * ) * COMPLEX*16 A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,8 +170,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -354,9 +354,9 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = DZNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/SRC/zlaqr0.f b/SRC/zlaqr0.f index 3dc4fcc5c8..14b9b71d8e 100644 --- a/SRC/zlaqr0.f +++ b/SRC/zlaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqr1.f b/SRC/zlaqr1.f index 8240bb7ae4..e6a4eef531 100644 --- a/SRC/zlaqr1.f +++ b/SRC/zlaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) -* +* * .. Scalar Arguments .. * COMPLEX*16 S1, S2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f index 8a3cc3da47..833c407c77 100644 --- a/SRC/zlaqr2.f +++ b/SRC/zlaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f index b09c3ef7cb..46381f11af 100644 --- a/SRC/zlaqr3.f +++ b/SRC/zlaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlaqr4.f b/SRC/zlaqr4.f index dd2bcdf282..b41ea322fa 100644 --- a/SRC/zlaqr4.f +++ b/SRC/zlaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f index 66f550fcec..b22b81c80c 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, * H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, * WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), S( * ), U( LDU, * ), V( LDV, * ), * $ WH( LDWH, * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlaqsb.f b/SRC/zlaqsb.f index 5555f39348..bea1fede8c 100644 --- a/SRC/zlaqsb.f +++ b/SRC/zlaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqsp.f b/SRC/zlaqsp.f index 5bd2b3839f..6dd3561f96 100644 --- a/SRC/zlaqsp.f +++ b/SRC/zlaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaqsy.f b/SRC/zlaqsy.f index 4244785765..179dfa3d0b 100644 --- a/SRC/zlaqsy.f +++ b/SRC/zlaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlar1v.f b/SRC/zlar1v.f index 9f3a87d21f..f639d87b80 100644 --- a/SRC/zlar1v.f +++ b/SRC/zlar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * COMPLEX*16 Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlar2v.f b/SRC/zlar2v.f index b7fd888d03..cf0ca8879d 100644 --- a/SRC/zlar2v.f +++ b/SRC/zlar2v.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarcm.f b/SRC/zlarcm.f index 90af72ef74..28688736c6 100644 --- a/SRC/zlarcm.f +++ b/SRC/zlarcm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARCM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARCM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), RWORK( * ) * COMPLEX*16 B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlarf.f b/SRC/zlarf.f index f51e1d7383..a5b3d7265c 100644 --- a/SRC/zlarf.f +++ b/SRC/zlarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarfb.f b/SRC/zlarfb.f index 480f543fa8..65942a1dbd 100644 --- a/SRC/zlarfb.f +++ b/SRC/zlarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX*16 C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/SRC/zlarfg.f b/SRC/zlarfg.f index e37c683fc9..b2d7b2a8ce 100644 --- a/SRC/zlarfg.f +++ b/SRC/zlarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX*16 ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarfgp.f b/SRC/zlarfgp.f index 90e376c2d0..8af9c1dc01 100644 --- a/SRC/zlarfgp.f +++ b/SRC/zlarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX*16 ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -222,7 +222,7 @@ SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO (or TWO or whatever makes a nonnegative real number for BETA). * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -249,7 +249,7 @@ SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) BETA = XNORM END IF * - ELSE + ELSE * * This is the general case. * diff --git a/SRC/zlarft.f b/SRC/zlarft.f index 7e1013f2fe..6b7d829b85 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -222,13 +222,13 @@ SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**H * V(i:j,i) * CALL ZGEMV( 'Conjugate transpose', J-I, I-1, - $ -TAU( I ), V( I+1, 1 ), LDV, + $ -TAU( I ), V( I+1, 1 ), LDV, $ V( I+1, I ), 1, ONE, T( 1, I ), 1 ) ELSE * Skip any trailing zeros. @@ -237,14 +237,14 @@ SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H * CALL ZGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ), $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, - $ ONE, T( 1, I ), LDT ) + $ ONE, T( 1, I ), LDT ) END IF * * T(1:i-1,i) := T(1:i-1,1:i-1) * T(1:i-1,i) @@ -281,7 +281,7 @@ SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i) @@ -296,7 +296,7 @@ SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H diff --git a/SRC/zlarfx.f b/SRC/zlarfx.f index 3551b9b4a6..4ab1d27de1 100644 --- a/SRC/zlarfx.f +++ b/SRC/zlarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlargv.f b/SRC/zlargv.f index eac86f938a..4356394e2e 100644 --- a/SRC/zlargv.f +++ b/SRC/zlargv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarnv.f b/SRC/zlarnv.f index d6501a7be9..37fe7fbf36 100644 --- a/SRC/zlarnv.f +++ b/SRC/zlarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f index c29dda1bcc..5105344939 100644 --- a/SRC/zlarrv.f +++ b/SRC/zlarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * DOUBLE PRECISION MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlarscl2.f b/SRC/zlarscl2.f index 2b47d6ba29..f56eef6144 100644 --- a/SRC/zlarscl2.f +++ b/SRC/zlarscl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * COMPLEX*16 X( LDX, * ) * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlartg.f b/SRC/zlartg.f index 3e2260223e..c249eb0cd1 100644 --- a/SRC/zlartg.f +++ b/SRC/zlartg.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS * COMPLEX*16 F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/zlartv.f b/SRC/zlartv.f index f6e6c142b6..8282465317 100644 --- a/SRC/zlartv.f +++ b/SRC/zlartv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarz.f b/SRC/zlarz.f index a06e711062..6fa89359a3 100644 --- a/SRC/zlarz.f +++ b/SRC/zlarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarzb.f b/SRC/zlarzb.f index 19d5eb93e9..4d5bf45997 100644 --- a/SRC/zlarzb.f +++ b/SRC/zlarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX*16 C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlarzt.f b/SRC/zlarzt.f index eb1131ca80..fcb24cc8ae 100644 --- a/SRC/zlarzt.f +++ b/SRC/zlarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlascl.f b/SRC/zlascl.f index 1618fdbaa5..3ca1eb2943 100644 --- a/SRC/zlascl.f +++ b/SRC/zlascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlascl2.f b/SRC/zlascl2.f index 78b94b3d51..49f08a4eea 100644 --- a/SRC/zlascl2.f +++ b/SRC/zlascl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlaset.f b/SRC/zlaset.f index fb72e7c425..025f9945f2 100644 --- a/SRC/zlaset.f +++ b/SRC/zlaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zlasr.f b/SRC/zlasr.f index 5243d8304a..e36d5cc442 100644 --- a/SRC/zlasr.f +++ b/SRC/zlasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION C( * ), S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -49,23 +49,23 @@ *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -74,13 +74,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -89,12 +89,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -103,7 +103,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlassq.f b/SRC/zlassq.f index 5b7e66c30b..e9514ab641 100644 --- a/SRC/zlassq.f +++ b/SRC/zlassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlaswp.f b/SRC/zlaswp.f index 76d7a422bd..82244efb8c 100644 --- a/SRC/zlaswp.f +++ b/SRC/zlaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlat2c.f b/SRC/zlat2c.f index 7d60c125da..e021c287cc 100644 --- a/SRC/zlat2c.f +++ b/SRC/zlat2c.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAT2C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAT2C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDSA, N @@ -28,7 +28,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlatbs.f b/SRC/zlatbs.f index 2277282b96..d5aa0e51ed 100644 --- a/SRC/zlatbs.f +++ b/SRC/zlatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AB( LDAB, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlatdf.f b/SRC/zlatdf.f index 8551ca4f18..14960f0934 100644 --- a/SRC/zlatdf.f +++ b/SRC/zlatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * DOUBLE PRECISION RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zlatps.f b/SRC/zlatps.f index e5e3cf05f2..a2f4655f25 100644 --- a/SRC/zlatps.f +++ b/SRC/zlatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlatrd.f b/SRC/zlatrd.f index 619d7280c4..12ed6e0056 100644 --- a/SRC/zlatrd.f +++ b/SRC/zlatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -28,7 +28,7 @@ * DOUBLE PRECISION E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlatrs.f b/SRC/zlatrs.f index 91ab9dc36b..7e48d15646 100644 --- a/SRC/zlatrs.f +++ b/SRC/zlatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlatrz.f b/SRC/zlatrz.f index 996cc538ba..198e316675 100644 --- a/SRC/zlatrz.f +++ b/SRC/zlatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlauu2.f b/SRC/zlauu2.f index 92792cd2de..734eaeb400 100644 --- a/SRC/zlauu2.f +++ b/SRC/zlauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zlauum.f b/SRC/zlauum.f index d152819716..b6e706dc87 100644 --- a/SRC/zlauum.f +++ b/SRC/zlauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpbcon.f b/SRC/zpbcon.f index 03e48cad3e..7d27742be2 100644 --- a/SRC/zpbcon.f +++ b/SRC/zpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpbequ.f b/SRC/zpbequ.f index ae0c3a948d..5cb8e50f10 100644 --- a/SRC/zpbequ.f +++ b/SRC/zpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpbrfs.f b/SRC/zpbrfs.f index a47cd17a74..98e2930a96 100644 --- a/SRC/zpbrfs.f +++ b/SRC/zpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zpbstf.f b/SRC/zpbstf.f index 016840733e..288b6708e3 100644 --- a/SRC/zpbstf.f +++ b/SRC/zpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpbsv.f b/SRC/zpbsv.f index 8df5915de1..ab8cd0bfee 100644 --- a/SRC/zpbsv.f +++ b/SRC/zpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpbsvx.f b/SRC/zpbsvx.f index 5f20719445..6627465a96 100644 --- a/SRC/zpbsvx.f +++ b/SRC/zpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -296,10 +296,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zpbtf2.f b/SRC/zpbtf2.f index 64792e5066..9d434b5862 100644 --- a/SRC/zpbtf2.f +++ b/SRC/zpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpbtrf.f b/SRC/zpbtrf.f index acc448df24..a07229dcee 100644 --- a/SRC/zpbtrf.f +++ b/SRC/zpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpbtrs.f b/SRC/zpbtrs.f index e2a44aa2f8..33b392f31b 100644 --- a/SRC/zpbtrs.f +++ b/SRC/zpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpftrf.f b/SRC/zpftrf.f index de07310a6c..d43d0ab4d3 100644 --- a/SRC/zpftrf.f +++ b/SRC/zpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * COMPLEX*16 A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zpftri.f b/SRC/zpftri.f index f827328de1..4fe391a8fa 100644 --- a/SRC/zpftri.f +++ b/SRC/zpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpftrs.f b/SRC/zpftrs.f index 4e9009a4ae..40977c1e61 100644 --- a/SRC/zpftrs.f +++ b/SRC/zpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpocon.f b/SRC/zpocon.f index 32ec72f1b3..fd5bf2588a 100644 --- a/SRC/zpocon.f +++ b/SRC/zpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpoequ.f b/SRC/zpoequ.f index cb3079666a..a3464ca6ee 100644 --- a/SRC/zpoequ.f +++ b/SRC/zpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpoequb.f b/SRC/zpoequb.f index d0dd0d93d4..c0d180c945 100644 --- a/SRC/zpoequb.f +++ b/SRC/zpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zporfs.f b/SRC/zporfs.f index d27d689447..fc76d9c4c8 100644 --- a/SRC/zporfs.f +++ b/SRC/zporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f index 4a8ae903b8..691a02f5bd 100644 --- a/SRC/zporfsx.f +++ b/SRC/zporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zposv.f b/SRC/zposv.f index ec85ee0808..c2a90a899a 100644 --- a/SRC/zposv.f +++ b/SRC/zposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zposvx.f b/SRC/zposvx.f index cb95cc50ba..221c53e067 100644 --- a/SRC/zposvx.f +++ b/SRC/zposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f index c6a77065cf..b7924b570b 100644 --- a/SRC/zposvxx.f +++ b/SRC/zposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zpotf2.f b/SRC/zpotf2.f index 959314b820..78b3b7dd1e 100644 --- a/SRC/zpotf2.f +++ b/SRC/zpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpotrf.f b/SRC/zpotrf.f index a4da7e7328..310ab1ec5a 100644 --- a/SRC/zpotrf.f +++ b/SRC/zpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zpotrf2.f b/SRC/zpotrf2.f index c2a0829101..4110a35875 100644 --- a/SRC/zpotrf2.f +++ b/SRC/zpotrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,7 +41,7 @@ *> *> The subroutine calls itself to factor A11. Update and scale A21 *> or A12, update A22 then call itself to factor A22. -*> +*> *> \endverbatim * * Arguments: @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -128,7 +128,7 @@ RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) PARAMETER ( CONE = (1.0D+0, 0.0D+0) ) * .. * .. Local Scalars .. - LOGICAL UPPER + LOGICAL UPPER INTEGER N1, N2, IINFO DOUBLE PRECISION AJJ * .. @@ -193,7 +193,7 @@ RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) IF ( IINFO.NE.0 ) THEN INFO = IINFO RETURN - END IF + END IF * * Compute the Cholesky factorization A = U**H*U * @@ -205,7 +205,7 @@ RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) $ A( 1, 1 ), LDA, A( 1, N1+1 ), LDA ) * * Update and factor A22 -* +* CALL ZHERK( UPLO, 'C', N2, N1, -ONE, A( 1, N1+1 ), LDA, $ ONE, A( N1+1, N1+1 ), LDA ) CALL ZPOTRF2( UPLO, N2, A( N1+1, N1+1 ), LDA, IINFO ) diff --git a/SRC/zpotri.f b/SRC/zpotri.f index ce6312e744..d61e811b78 100644 --- a/SRC/zpotri.f +++ b/SRC/zpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpotrs.f b/SRC/zpotrs.f index 897d68c24a..5e3c262205 100644 --- a/SRC/zpotrs.f +++ b/SRC/zpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zppcon.f b/SRC/zppcon.f index 3d014b8154..b00d56c37c 100644 --- a/SRC/zppcon.f +++ b/SRC/zppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zppequ.f b/SRC/zppequ.f index 112017c7e8..5d53725fc6 100644 --- a/SRC/zppequ.f +++ b/SRC/zppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpprfs.f b/SRC/zpprfs.f index 2755a0f664..c08171e409 100644 --- a/SRC/zpprfs.f +++ b/SRC/zpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zppsv.f b/SRC/zppsv.f index 0d0786bbe0..eabc9abe6a 100644 --- a/SRC/zppsv.f +++ b/SRC/zppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zppsvx.f b/SRC/zppsvx.f index 8b65562147..50ce2fedab 100644 --- a/SRC/zppsvx.f +++ b/SRC/zppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zpptrf.f b/SRC/zpptrf.f index c34aff332a..e8989e23ba 100644 --- a/SRC/zpptrf.f +++ b/SRC/zpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpptri.f b/SRC/zpptri.f index 0946797450..906d7e4caa 100644 --- a/SRC/zpptri.f +++ b/SRC/zpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpptrs.f b/SRC/zpptrs.f index 9e3e556108..856a33147d 100644 --- a/SRC/zpptrs.f +++ b/SRC/zpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zpstf2.f b/SRC/zpstf2.f index 6f2ba2731e..f57d53374b 100644 --- a/SRC/zpstf2.f +++ b/SRC/zpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * DOUBLE PRECISION WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -252,7 +252,7 @@ SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) DO 130 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ DBLE( DCONJG( A( J-1, I ) )* $ A( J-1, I ) ) END IF @@ -324,7 +324,7 @@ SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) DO 160 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ DBLE( DCONJG( A( I, J-1 ) )* $ A( I, J-1 ) ) END IF diff --git a/SRC/zpstrf.f b/SRC/zpstrf.f index c9be199812..ac61e28c96 100644 --- a/SRC/zpstrf.f +++ b/SRC/zpstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * DOUBLE PRECISION WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zptcon.f b/SRC/zptcon.f index fe966658a2..649e1d794d 100644 --- a/SRC/zptcon.f +++ b/SRC/zptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION ANORM, RCOND @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), RWORK( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpteqr.f b/SRC/zpteqr.f index 544f38d699..17706a78d8 100644 --- a/SRC/zpteqr.f +++ b/SRC/zpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zptrfs.f b/SRC/zptrfs.f index a1ab332f67..0c3b4795a6 100644 --- a/SRC/zptrfs.f +++ b/SRC/zptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zptsv.f b/SRC/zptsv.f index 037e6e350c..72fe137f95 100644 --- a/SRC/zptsv.f +++ b/SRC/zptsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zptsvx.f b/SRC/zptsvx.f index 613321cdfa..93f8950be3 100644 --- a/SRC/zptsvx.f +++ b/SRC/zptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpttrf.f b/SRC/zpttrf.f index 2f7b630d6e..be5efffdfc 100644 --- a/SRC/zpttrf.f +++ b/SRC/zpttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zpttrs.f b/SRC/zpttrs.f index 4940b3e00d..42ed05c075 100644 --- a/SRC/zpttrs.f +++ b/SRC/zpttrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zptts2.f b/SRC/zptts2.f index 434dbcedae..92c700d743 100644 --- a/SRC/zptts2.f +++ b/SRC/zptts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER IUPLO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zrot.f b/SRC/zrot.f index 3f45090152..4975db2277 100644 --- a/SRC/zrot.f +++ b/SRC/zrot.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZROT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZROT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION C @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zspcon.f b/SRC/zspcon.f index 320c1345b9..371019e553 100644 --- a/SRC/zspcon.f +++ b/SRC/zspcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zspmv.f b/SRC/zspmv.f index 5208d6dfeb..849620e52e 100644 --- a/SRC/zspmv.f +++ b/SRC/zspmv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zspr.f b/SRC/zspr.f index 9c8fe95c25..30319243e5 100644 --- a/SRC/zspr.f +++ b/SRC/zspr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zsprfs.f b/SRC/zsprfs.f index 5c3e7015f9..404eaf89b2 100644 --- a/SRC/zsprfs.f +++ b/SRC/zsprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zspsv.f b/SRC/zspsv.f index bc79b478b2..1e8c5e2f74 100644 --- a/SRC/zspsv.f +++ b/SRC/zspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zspsvx.f b/SRC/zspsvx.f index 63d66ffeb1..bb6e79a886 100644 --- a/SRC/zspsvx.f +++ b/SRC/zspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zsptrf.f b/SRC/zsptrf.f index 0711550a47..0f5f707b15 100644 --- a/SRC/zsptrf.f +++ b/SRC/zsptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsptri.f b/SRC/zsptri.f index 82c215f9f7..71538792c1 100644 --- a/SRC/zsptri.f +++ b/SRC/zsptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsptrs.f b/SRC/zsptrs.f index e888aa15e5..fbbf7326aa 100644 --- a/SRC/zsptrs.f +++ b/SRC/zsptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zstedc.f b/SRC/zstedc.f index b831bc25a1..0c5289d37b 100644 --- a/SRC/zstedc.f +++ b/SRC/zstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -194,10 +194,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zstegr.f b/SRC/zstegr.f index b68a4c4479..00fa8f291c 100644 --- a/SRC/zstegr.f +++ b/SRC/zstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/zstein.f b/SRC/zstein.f index 012c6743ae..01c85226eb 100644 --- a/SRC/zstein.f +++ b/SRC/zstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zstemr.f b/SRC/zstemr.f index 0de0852718..79ca025372 100644 --- a/SRC/zstemr.f +++ b/SRC/zstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -418,7 +418,7 @@ SUBROUTINE ZSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, IIL = 0 IIU = 0 NSPLIT = 0 - + IF( VALEIG ) THEN * We do not reference VL, VU in the cases RANGE = 'I','A' * The interval (WL, WU] contains all the wanted eigenvalues. diff --git a/SRC/zsteqr.f b/SRC/zsteqr.f index 33af78e854..01a4dafaae 100644 --- a/SRC/zsteqr.f +++ b/SRC/zsteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsycon.f b/SRC/zsycon.f index e0d5009527..0400cfcfdb 100644 --- a/SRC/zsycon.f +++ b/SRC/zsycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsycon_rook.f b/SRC/zsycon_rook.f index 0828698d35..530899f404 100644 --- a/SRC/zsycon_rook.f +++ b/SRC/zsycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zsyconv.f b/SRC/zsyconv.f index 68e5ee9c51..891f784497 100644 --- a/SRC/zsyconv.f +++ b/SRC/zsyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> ZSYCONV converts A given by ZHETRF into L and D or vice-versa. -*> Get nondiagonal elements of D (returned in workspace) and +*> Get nondiagonal elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -195,7 +195,7 @@ SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -226,7 +226,7 @@ SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * Revert A (A is upper) * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/zsyequb.f b/SRC/zsyequb.f index 71b41baa36..059676d3d9 100644 --- a/SRC/zsyequb.f +++ b/SRC/zsyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), WORK( * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -130,7 +130,7 @@ *> *> Livne, O.E. and Golub, G.H., "Scaling by Binormalization", \n *> Numerical Algorithms, vol. 35, no. 1, pp. 97-120, January 2004. \n -*> DOI 10.1023/B:NUMA.0000016606.32820.69 \n +*> DOI 10.1023/B:NUMA.0000016606.32820.69 \n *> Tech report version: http://ruready.utah.edu/archive/papers/bin.pdf *> * ===================================================================== diff --git a/SRC/zsymv.f b/SRC/zsymv.f index 0924b2ce27..18c97b523c 100644 --- a/SRC/zsymv.f +++ b/SRC/zsymv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zsyr.f b/SRC/zsyr.f index 3f772eb108..326f5743e8 100644 --- a/SRC/zsyr.f +++ b/SRC/zsyr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zsyrfs.f b/SRC/zsyrfs.f index 4f9e3f2f54..a8475232f1 100644 --- a/SRC/zsyrfs.f +++ b/SRC/zsyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsyrfsx.f b/SRC/zsyrfsx.f index 4f48630b50..a61792f98e 100644 --- a/SRC/zsyrfsx.f +++ b/SRC/zsyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zsysv.f b/SRC/zsysv.f index 717824b4ba..1e0e644c83 100644 --- a/SRC/zsysv.f +++ b/SRC/zsysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsysv_rook.f b/SRC/zsysv_rook.f index 00ba305472..ff44f40bf8 100644 --- a/SRC/zsysv_rook.f +++ b/SRC/zsysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,13 +47,13 @@ *> A = L * D * L**T, if UPLO = 'L', *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and D is symmetric and block diagonal with -*> 1-by-1 and 2-by-2 diagonal blocks. +*> 1-by-1 and 2-by-2 diagonal blocks. *> *> ZSYTRF_ROOK is called to compute the factorization of a complex *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling ZSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> ZSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zsysvx.f b/SRC/zsysvx.f index 475a03b5c7..a187bacbcf 100644 --- a/SRC/zsysvx.f +++ b/SRC/zsysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index c2f2f8d7bd..3a8aa215cd 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -491,10 +491,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zsyswapr.f b/SRC/zsyswapr.f index 712de9d63a..b973556ffb 100644 --- a/SRC/zsyswapr.f +++ b/SRC/zsyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -136,12 +136,12 @@ SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/SRC/zsytf2.f b/SRC/zsytf2.f index f244ba6b59..6231fc2985 100644 --- a/SRC/zsytf2.f +++ b/SRC/zsytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/SRC/zsytrf.f b/SRC/zsytrf.f index a8888da3c8..5667802ebe 100644 --- a/SRC/zsytrf.f +++ b/SRC/zsytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsytrf_rook.f b/SRC/zsytrf_rook.f index 9ba446abc0..258d043fdf 100644 --- a/SRC/zsytrf_rook.f +++ b/SRC/zsytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -321,7 +321,7 @@ SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/SRC/zsytri.f b/SRC/zsytri.f index 204ed047b1..3a4404bebc 100644 --- a/SRC/zsytri.f +++ b/SRC/zsytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsytri2.f b/SRC/zsytri2.f index 51abfc6371..19844fe51f 100644 --- a/SRC/zsytri2.f +++ b/SRC/zsytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -192,7 +192,7 @@ SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/SRC/zsytri2x.f b/SRC/zsytri2x.f index 86e282dd4f..18080b2234 100644 --- a/SRC/zsytri2x.f +++ b/SRC/zsytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -229,7 +229,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -246,8 +246,8 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -263,7 +263,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -273,7 +273,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -336,7 +336,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL ZTRMM('L','U','T','U',NNB, NNB, @@ -346,7 +346,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * @@ -380,7 +380,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL ZSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL ZSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL ZTRMM('L',UPLO,'T','U',NNB, NNB, @@ -526,7 +526,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * CALL ZGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -564,7 +564,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/SRC/zsytri_rook.f b/SRC/zsytri_rook.f index b6f15b6735..fc105a245f 100644 --- a/SRC/zsytri_rook.f +++ b/SRC/zsytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -301,7 +301,7 @@ SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) IF( KP.GT.1 ) $ CALL ZSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -392,7 +392,7 @@ SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) $ ZDOTU( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/SRC/zsytrs.f b/SRC/zsytrs.f index d873eed2e5..06e2477f72 100644 --- a/SRC/zsytrs.f +++ b/SRC/zsytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zsytrs2.f b/SRC/zsytrs2.f index 890c07a978..b8dadbb178 100644 --- a/SRC/zsytrs2.f +++ b/SRC/zsytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,17 +119,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * *> \ingroup complex16SYcomputational * * ===================================================================== - SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.6.1) -- @@ -200,7 +200,7 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -225,7 +225,7 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL ZTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -277,7 +277,7 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -302,7 +302,7 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, CALL ZTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -324,7 +324,7 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL ZTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/SRC/zsytrs_rook.f b/SRC/zsytrs_rook.f index b745b23687..65ed649bf4 100644 --- a/SRC/zsytrs_rook.f +++ b/SRC/zsytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ztbcon.f b/SRC/ztbcon.f index a34d1e8600..e9e1f6008f 100644 --- a/SRC/ztbcon.f +++ b/SRC/ztbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztbrfs.f b/SRC/ztbrfs.f index a09bc81e0c..5a6102e380 100644 --- a/SRC/ztbrfs.f +++ b/SRC/ztbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztbtrs.f b/SRC/ztbtrs.f index 940a4a8576..0d5cd627b3 100644 --- a/SRC/ztbtrs.f +++ b/SRC/ztbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztfsm.f b/SRC/ztfsm.f index b0807340ec..d0d3ec3108 100644 --- a/SRC/ztfsm.f +++ b/SRC/ztfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztftri.f b/SRC/ztftri.f index 377d9d0f8d..49473ff17a 100644 --- a/SRC/ztftri.f +++ b/SRC/ztftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztfttp.f b/SRC/ztfttp.f index 839a42569a..cd8c290199 100644 --- a/SRC/ztfttp.f +++ b/SRC/ztfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztfttr.f b/SRC/ztfttr.f index 7c38295c69..3506d3971c 100644 --- a/SRC/ztfttr.f +++ b/SRC/ztfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztgevc.f b/SRC/ztgevc.f index 86879640a3..d0dff75af8 100644 --- a/SRC/ztgevc.f +++ b/SRC/ztgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -31,8 +31,8 @@ * COMPLEX*16 P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -43,20 +43,20 @@ *> a pair of complex matrices (S,P), where S and P are upper triangular. *> Matrix pairs of this type are produced by the generalized Schur *> factorization of a complex matrix pair (A,B): -*> +*> *> A = Q*S*Z**H, B = Q*P*Z**H -*> +*> *> as computed by ZGGHRD + ZHGEQZ. -*> +*> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal elements of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztgex2.f b/SRC/ztgex2.f index c8ecff20ad..28c7cf0828 100644 --- a/SRC/ztgex2.f +++ b/SRC/ztgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,16 +142,16 @@ *> =0: Successful exit. *> =1: The transformed matrix pair (A, B) would be too far *> from generalized Schur form; the problem is ill- -*> conditioned. +*> conditioned. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -266,7 +266,7 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/SRC/ztgexc.f b/SRC/ztgexc.f index d9c88bbf2a..0d44b3d454 100644 --- a/SRC/ztgexc.f +++ b/SRC/ztgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztgsen.f b/SRC/ztgsen.f index 87e0f99ac7..3d345e989c 100644 --- a/SRC/ztgsen.f +++ b/SRC/ztgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, * WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * COMPLEX*16 A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), Q( LDQ, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/SRC/ztgsja.f b/SRC/ztgsja.f index a21a2d6fb2..17487b91fc 100644 --- a/SRC/ztgsja.f +++ b/SRC/ztgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztgsna.f b/SRC/ztgsna.f index 95c90b9437..79c89a3857 100644 --- a/SRC/ztgsna.f +++ b/SRC/ztgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztgsy2.f b/SRC/ztgsy2.f index cd2f3ef68a..65a761f371 100644 --- a/SRC/ztgsy2.f +++ b/SRC/ztgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/ztgsyl.f b/SRC/ztgsyl.f index ab41c7e1ab..df3feb3f5e 100644 --- a/SRC/ztgsyl.f +++ b/SRC/ztgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztpcon.f b/SRC/ztpcon.f index 21f100b47a..0168d2800a 100644 --- a/SRC/ztpcon.f +++ b/SRC/ztpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f index 87ae54172f..9ba2732a0c 100644 --- a/SRC/ztpmqrt.f +++ b/SRC/ztpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPMQRT applies a complex orthogonal matrix Q obtained from a +*> ZTPMQRT applies a complex orthogonal matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**H*C or C*Q or C*Q**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The complex orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-M+L-I+1 END IF - CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, ELSE LB = MB-N+L-I+1 END IF - CALL ZTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL ZTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL ZTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, LB = MB-N+L-I+1 END IF CALL ZTPRFB( 'R', 'C', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/SRC/ztpqrt.f b/SRC/ztpqrt.f index 05fc88448a..9ff97ddca0 100644 --- a/SRC/ztpqrt.f +++ b/SRC/ztpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPQRT computes a blocked QR factorization of a complex -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> ZTPQRT computes a blocked QR factorization of a complex +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX*16 array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, LB = MB-M+L-I+1 END IF * - CALL ZTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL ZTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of ZTPQRT * END diff --git a/SRC/ztpqrt2.f b/SRC/ztpqrt2.f index 01e744d8e4..a1f26edaca 100644 --- a/SRC/ztpqrt2.f +++ b/SRC/ztpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> ZTPQRT2 computes a QR factorization of a complex "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX*16 array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**H @@ -227,7 +227,7 @@ SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) DO J = 1, N-I T( J, N ) = CONJG(A( I, I+J )) END DO - CALL ZGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL ZGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)**H * - ALPHA = -CONJG(T( I, 1 )) + ALPHA = -CONJG(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*CONJG(T( J, N )) END DO - CALL ZGERC( P, N-I, ALPHA, B( 1, I ), 1, + CALL ZGERC( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * * Rectangular part of B2 * - CALL ZGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL ZGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL ZGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL ZGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of ZTPQRT2 * diff --git a/SRC/ztprfb.f b/SRC/ztprfb.f index c46c2ef23c..de6acdbab8 100644 --- a/SRC/ztprfb.f +++ b/SRC/ztprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPRFB applies a complex "triangular-pentagonal" block reflector H or its -*> conjugate transpose H**H to a complex matrix C, which is composed of two +*> ZTPRFB applies a complex "triangular-pentagonal" block reflector H or its +*> conjugate transpose H**H to a complex matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is COMPLEX*16 array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**H*C or C*H or C*H**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -325,7 +325,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -339,34 +339,34 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL ZTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -376,7 +376,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL ZGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -386,7 +386,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -405,7 +405,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -413,20 +413,20 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL ZTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -446,7 +446,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -460,7 +460,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * @@ -475,10 +475,10 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL ZTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -486,16 +486,16 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -508,7 +508,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -527,7 +527,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -535,20 +535,20 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO CALL ZTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -568,7 +568,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -581,7 +581,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -592,12 +592,12 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL ZTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL ZGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL ZGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL ZGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -606,7 +606,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -617,7 +617,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL ZGEMM( 'C', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -628,7 +628,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -656,7 +656,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ WORK, LDWORK ) CALL ZGEMM( 'N', 'C', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -665,7 +665,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -674,10 +674,10 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL ZGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL ZTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -687,7 +687,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -700,7 +700,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -736,10 +736,10 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * CALL ZGEMM( 'C', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, + CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL ZTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -747,7 +747,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -776,7 +776,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, CALL ZGEMM( 'N', 'C', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -784,7 +784,7 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -793,9 +793,9 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, END DO END DO * - CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL ZGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL ZTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/SRC/ztprfs.f b/SRC/ztprfs.f index 7db0cef885..64f498157d 100644 --- a/SRC/ztprfs.f +++ b/SRC/ztprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -29,7 +29,7 @@ * DOUBLE PRECISION BERR( * ), FERR( * ), RWORK( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztptri.f b/SRC/ztptri.f index 187c9ccac1..202639655e 100644 --- a/SRC/ztptri.f +++ b/SRC/ztptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztptrs.f b/SRC/ztptrs.f index 8f0338a2c3..ec0143ea38 100644 --- a/SRC/ztptrs.f +++ b/SRC/ztptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztpttf.f b/SRC/ztpttf.f index 35228135f3..8f894c5702 100644 --- a/SRC/ztpttf.f +++ b/SRC/ztpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * COMPLEX*16 AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztpttr.f b/SRC/ztpttr.f index 3009e10bbb..4228efb7f3 100644 --- a/SRC/ztpttr.f +++ b/SRC/ztpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztrcon.f b/SRC/ztrcon.f index bc6029bd97..34fad1133f 100644 --- a/SRC/ztrcon.f +++ b/SRC/ztrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrevc.f b/SRC/ztrevc.f index 630a551329..0139687ec1 100644 --- a/SRC/ztrevc.f +++ b/SRC/ztrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -31,7 +31,7 @@ * COMPLEX*16 T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,16 +42,16 @@ *> a complex upper triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a complex general matrix: A = Q*T*Q**H, as computed by ZHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**H)*T = w*(y**H) -*> +*> *> where y**H denotes the conjugate transpose of the vector y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the unitary factor that reduces a matrix A to @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrevc3.f b/SRC/ztrevc3.f index 22654856a2..ad23ae7f8f 100644 --- a/SRC/ztrevc3.f +++ b/SRC/ztrevc3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTREVC3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTREVC3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== diff --git a/SRC/ztrexc.f b/SRC/ztrexc.f index 83bfb5271c..f495988081 100644 --- a/SRC/ztrexc.f +++ b/SRC/ztrexc.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 Q( LDQ, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrrfs.f b/SRC/ztrrfs.f index 7ab7ee5192..e91c882944 100644 --- a/SRC/ztrrfs.f +++ b/SRC/ztrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrsen.f b/SRC/ztrsen.f index 9ad4aac6d0..eae81e0726 100644 --- a/SRC/ztrsen.f +++ b/SRC/ztrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, * SEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LWORK, M, N @@ -30,7 +30,7 @@ * LOGICAL SELECT( * ) * COMPLEX*16 Q( LDQ, * ), T( LDT, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrsna.f b/SRC/ztrsna.f index 634f6646e9..bb6c027aba 100644 --- a/SRC/ztrsna.f +++ b/SRC/ztrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * COMPLEX*16 T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrsyl.f b/SRC/ztrsyl.f index 6941ecfee3..eebf3c9df7 100644 --- a/SRC/ztrsyl.f +++ b/SRC/ztrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrti2.f b/SRC/ztrti2.f index 3b617b6488..7e2c5b3d14 100644 --- a/SRC/ztrti2.f +++ b/SRC/ztrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztrtri.f b/SRC/ztrtri.f index 808fe78ac0..6111e2b49c 100644 --- a/SRC/ztrtri.f +++ b/SRC/ztrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrtrs.f b/SRC/ztrtrs.f index 701d0ca3e0..6221028d95 100644 --- a/SRC/ztrtrs.f +++ b/SRC/ztrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/ztrttf.f b/SRC/ztrttf.f index be83bcc40a..f2ca105e69 100644 --- a/SRC/ztrttf.f +++ b/SRC/ztrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztrttp.f b/SRC/ztrttp.f index 9abd14b412..3f348404b3 100644 --- a/SRC/ztrttp.f +++ b/SRC/ztrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/ztzrzf.f b/SRC/ztzrzf.f index edc9f93d8b..d9d676c6c5 100644 --- a/SRC/ztzrzf.f +++ b/SRC/ztzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/SRC/zunbdb.f b/SRC/zunbdb.f index 618c0a0d45..fc190b9f55 100644 --- a/SRC/zunbdb.f +++ b/SRC/zunbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -396,7 +396,7 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -427,7 +427,7 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, END IF X11(I,I) = ONE IF ( M-P .GT. I ) THEN - CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, + CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, $ TAUP2(I) ) ELSE IF ( M-P .EQ. I ) THEN CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I,I), 1, @@ -436,7 +436,7 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, X21(I,I) = ONE * IF ( Q .GT. I ) THEN - CALL ZLARF( 'L', P-I+1, Q-I, X11(I,I), 1, + CALL ZLARF( 'L', P-I+1, Q-I, X11(I,I), 1, $ DCONJG(TAUP1(I)), X11(I,I+1), LDX11, WORK ) CALL ZLARF( 'L', M-P-I+1, Q-I, X21(I,I), 1, $ DCONJG(TAUP2(I)), X21(I,I+1), LDX21, WORK ) diff --git a/SRC/zunbdb1.f b/SRC/zunbdb1.f index 02375224eb..8f867baf60 100644 --- a/SRC/zunbdb1.f +++ b/SRC/zunbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -308,7 +308,7 @@ SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, CALL ZLARF( 'R', M-P-I, Q-I, X21(I,I+1), LDX21, TAUQ1(I), $ X21(I+1,I+1), LDX21, WORK(ILARF) ) CALL ZLACGV( Q-I, X21(I,I+1), LDX21 ) - C = SQRT( DZNRM2( P-I, X11(I+1,I+1), 1 )**2 + C = SQRT( DZNRM2( P-I, X11(I+1,I+1), 1 )**2 $ + DZNRM2( M-P-I, X21(I+1,I+1), 1 )**2 ) PHI(I) = ATAN2( S, C ) CALL ZUNBDB5( P-I, M-P-I, Q-I-1, X11(I+1,I+1), 1, diff --git a/SRC/zunbdb2.f b/SRC/zunbdb2.f index 65508ec1e4..0b08d77943 100644 --- a/SRC/zunbdb2.f +++ b/SRC/zunbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL ZDROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, $ S ) diff --git a/SRC/zunbdb3.f b/SRC/zunbdb3.f index c1336c48c7..8b7fc1705a 100644 --- a/SRC/zunbdb3.f +++ b/SRC/zunbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL ZDROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, $ S ) diff --git a/SRC/zunbdb4.f b/SRC/zunbdb4.f index 17f529ee86..e4fefd3cd2 100644 --- a/SRC/zunbdb4.f +++ b/SRC/zunbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE ZUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * COMPLEX*16 PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/SRC/zunbdb5.f b/SRC/zunbdb5.f index f777324b74..ec46ca3ea1 100644 --- a/SRC/zunbdb5.f +++ b/SRC/zunbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX*16 Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, RETURN * * End of ZUNBDB5 -* +* END diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 931710d06f..c78ac5c5d2 100644 --- a/SRC/zunbdb6.f +++ b/SRC/zunbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX*16 Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -261,7 +261,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -306,7 +306,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, END IF * RETURN -* +* * End of ZUNBDB6 * END diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 18982f8ffd..f9054cbd6d 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, RWORK, LRWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -39,7 +39,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -303,10 +303,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -621,7 +621,7 @@ RECURSIVE SUBROUTINE ZUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/SRC/zuncsd2by1.f b/SRC/zuncsd2by1.f index d4ab1eef5b..a322f2a1c8 100644 --- a/SRC/zuncsd2by1.f +++ b/SRC/zuncsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNCSD2BY1 + dependencies @@ -22,7 +22,7 @@ * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -36,8 +36,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -54,7 +54,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The unitary matrices U1, U2, and V1 are P-by-P, *> (M-P)-by-(M-P), and Q-by-Q, respectively. C and S are R-by-R *> nonnegative diagonal matrices satisfying C^2 + S^2 = I, in which @@ -208,7 +208,7 @@ *> \verbatim *> LRWORK is INTEGER *> The dimension of the array RWORK. -*> +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the RWORK array, returns *> this value as the first entry of the work array, and no error @@ -238,10 +238,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -271,7 +271,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -556,16 +556,16 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL ZUNGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -610,16 +610,16 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL ZUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ RWORK(IPHI), V1T, LDV1T, CDUM, 1, U1, LDU1, U2, $ LDU2, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -665,16 +665,16 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL ZUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, RWORK(IPHI), CDUM, 1, V1T, LDV1T, U2, LDU2, $ U1, LDU1, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -734,16 +734,16 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, CALL ZUNGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, RWORK(IPHI), U2, LDU2, U1, LDU1, CDUM, 1, $ V1T, LDV1T, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/SRC/zung2l.f b/SRC/zung2l.f index f8fd3667d2..6c9d5721f9 100644 --- a/SRC/zung2l.f +++ b/SRC/zung2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zung2r.f b/SRC/zung2r.f index 63783ac01b..72ca91ad21 100644 --- a/SRC/zung2r.f +++ b/SRC/zung2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungbr.f b/SRC/zungbr.f index f09100bcb4..50dac4345b 100644 --- a/SRC/zungbr.f +++ b/SRC/zungbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/SRC/zunghr.f b/SRC/zunghr.f index b287fcd1b9..57a18a84d9 100644 --- a/SRC/zunghr.f +++ b/SRC/zunghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungl2.f b/SRC/zungl2.f index 44acba12a6..f05ac7ce8c 100644 --- a/SRC/zungl2.f +++ b/SRC/zungl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunglq.f b/SRC/zunglq.f index 8c6128f706..8ba3832a28 100644 --- a/SRC/zunglq.f +++ b/SRC/zunglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungql.f b/SRC/zungql.f index 5c77abbd46..3ef8c6e032 100644 --- a/SRC/zungql.f +++ b/SRC/zungql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungqr.f b/SRC/zungqr.f index 6b3e9220cd..4c32efb898 100644 --- a/SRC/zungqr.f +++ b/SRC/zungqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungr2.f b/SRC/zungr2.f index 5e3afcf526..b4907f384c 100644 --- a/SRC/zungr2.f +++ b/SRC/zungr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zungrq.f b/SRC/zungrq.f index 0ad07de009..9df0dc7cd4 100644 --- a/SRC/zungrq.f +++ b/SRC/zungrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zungtr.f b/SRC/zungtr.f index 422a55a921..8798278404 100644 --- a/SRC/zungtr.f +++ b/SRC/zungtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zunm2l.f b/SRC/zunm2l.f index 113887c2e4..b39d724f08 100644 --- a/SRC/zunm2l.f +++ b/SRC/zunm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunm2r.f b/SRC/zunm2r.f index d1e2d7690a..5e07c9c12e 100644 --- a/SRC/zunm2r.f +++ b/SRC/zunm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunmbr.f b/SRC/zunmbr.f index fe6a12cd69..c3604f7436 100644 --- a/SRC/zunmbr.f +++ b/SRC/zunmbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -183,10 +183,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zunmhr.f b/SRC/zunmhr.f index 7b7c690b0c..bad51939e3 100644 --- a/SRC/zunmhr.f +++ b/SRC/zunmhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zunml2.f b/SRC/zunml2.f index 3860c3df23..a93f06e6e0 100644 --- a/SRC/zunml2.f +++ b/SRC/zunml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunmlq.f b/SRC/zunmlq.f index c5e6056387..180916985e 100644 --- a/SRC/zunmlq.f +++ b/SRC/zunmlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zunmql.f b/SRC/zunmql.f index b6d4cca2d2..5574c16e60 100644 --- a/SRC/zunmql.f +++ b/SRC/zunmql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zunmqr.f b/SRC/zunmqr.f index 7159b17a0a..71c815eef1 100644 --- a/SRC/zunmqr.f +++ b/SRC/zunmqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zunmr2.f b/SRC/zunmr2.f index 46e5a26a80..104cc076d2 100644 --- a/SRC/zunmr2.f +++ b/SRC/zunmr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunmr3.f b/SRC/zunmr3.f index edc68ea7ec..319ed20386 100644 --- a/SRC/zunmr3.f +++ b/SRC/zunmr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/SRC/zunmrq.f b/SRC/zunmrq.f index 2ac11a62de..e1502a9653 100644 --- a/SRC/zunmrq.f +++ b/SRC/zunmrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zunmrz.f b/SRC/zunmrz.f index 17fc559e15..56a3182b9c 100644 --- a/SRC/zunmrz.f +++ b/SRC/zunmrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/SRC/zunmtr.f b/SRC/zunmtr.f index 1d0765b1b6..658eda931a 100644 --- a/SRC/zunmtr.f +++ b/SRC/zunmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zupgtr.f b/SRC/zupgtr.f index 07f8231c72..5cc5b61f42 100644 --- a/SRC/zupgtr.f +++ b/SRC/zupgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/SRC/zupmtr.f b/SRC/zupmtr.f index 397d663069..526292100e 100644 --- a/SRC/zupmtr.f +++ b/SRC/zupmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/CMakeLists.txt b/TESTING/CMakeLists.txt index 203ad517b6..b7e5db97a2 100644 --- a/TESTING/CMakeLists.txt +++ b/TESTING/CMakeLists.txt @@ -15,8 +15,8 @@ macro(add_lapack_test output input target) if(EXISTS "${TEST_INPUT}") add_test(NAME LAPACK-${testName} COMMAND "${CMAKE_COMMAND}" -DTEST=$ - -DINPUT=${TEST_INPUT} - -DOUTPUT=${TEST_OUTPUT} + -DINPUT=${TEST_INPUT} + -DOUTPUT=${TEST_OUTPUT} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 3e93990c58..612bf1f394 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -33,23 +33,23 @@ # ######################################################################## -set(AEIGTST - alahdg.f - alasum.f - alasvm.f - alareq.f - ilaenv.f - xerbla.f - xlaenv.f +set(AEIGTST + alahdg.f + alasum.f + alasvm.f + alareq.f + ilaenv.f + xerbla.f + xlaenv.f chkxer.f) -set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f +set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f ssvdch.f ssvdct.f ssxt1.f) -set(SEIGTST schkee.f +set(SEIGTST schkee.f sbdt01.f sbdt02.f sbdt03.f sbdt04.f sbdt05.f - schkbb.f schkbd.f schkbk.f schkbl.f schkec.f - schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f + schkbb.f schkbd.f schkbk.f schkbl.f schkec.f + schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f sdrges.f sdrgev.f sdrges3.f sdrgev3.f sdrgsx.f sdrgvx.f sdrvbd.f sdrves.f sdrvev.f sdrvsg.f @@ -63,10 +63,10 @@ set(SEIGTST schkee.f sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f sstt22.f ssyt21.f ssyt22.f) -set(CEIGTST cchkee.f +set(CEIGTST cchkee.f cbdt01.f cbdt02.f cbdt03.f cbdt05.f - cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f - cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f + cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f + cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f cdrges.f cdrgev.f cdrges3.f cdrgev3.f cdrgsx.f cdrgvx.f cdrvbd.f cdrves.f cdrvev.f cdrvsg.f @@ -80,13 +80,13 @@ set(CEIGTST cchkee.f csgt01.f cslect.f cstt21.f cstt22.f cunt01.f cunt03.f) -set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f +set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f dsvdch.f dsvdct.f dsxt1.f) -set(DEIGTST dchkee.f - dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f - dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f - dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f +set(DEIGTST dchkee.f + dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f + dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f + dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f ddrges.f ddrgev.f ddrges3.f ddrgev3.f ddrgsx.f ddrgvx.f ddrvbd.f ddrves.f ddrvev.f ddrvsg.f @@ -100,10 +100,10 @@ set(DEIGTST dchkee.f dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f dstt22.f dsyt21.f dsyt22.f) -set(ZEIGTST zchkee.f - zbdt01.f zbdt02.f zbdt03.f zbdt05.f - zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f - zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f +set(ZEIGTST zchkee.f + zbdt01.f zbdt02.f zbdt03.f zbdt05.f + zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f + zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f zdrges.f zdrgev.f zdrges3.f zdrgev3.f zdrgsx.f zdrgvx.f zdrvbd.f zdrves.f zdrvev.f zdrvsg.f @@ -123,7 +123,7 @@ macro(add_eig_executable name ) endmacro(add_eig_executable) if (BUILD_SINGLE) -add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} +add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} ${SECOND_SRC} ) endif() @@ -133,7 +133,7 @@ add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST} endif() if (BUILD_DOUBLE) -add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} +add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} ${DSECOND_SRC} ) endif() diff --git a/TESTING/EIG/alahdg.f b/TESTING/EIG/alahdg.f index 51959416c6..566ddb1024 100644 --- a/TESTING/EIG/alahdg.f +++ b/TESTING/EIG/alahdg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAHDG( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alareq.f b/TESTING/EIG/alareq.f index 2da40772de..566986f395 100644 --- a/TESTING/EIG/alareq.f +++ b/TESTING/EIG/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alarqg.f b/TESTING/EIG/alarqg.f index 3dbb7fd1b2..3eadd70a75 100644 --- a/TESTING/EIG/alarqg.f +++ b/TESTING/EIG/alarqg.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasmg.f b/TESTING/EIG/alasmg.f index 13c6aaebfd..fafe044174 100644 --- a/TESTING/EIG/alasmg.f +++ b/TESTING/EIG/alasmg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasum.f b/TESTING/EIG/alasum.f index e94604c9a6..2b91db7f3f 100644 --- a/TESTING/EIG/alasum.f +++ b/TESTING/EIG/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasvm.f b/TESTING/EIG/alasvm.f index 78b967c4f4..3b1550a42f 100644 --- a/TESTING/EIG/alasvm.f +++ b/TESTING/EIG/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt01.f b/TESTING/EIG/cbdt01.f index 39d7f694b3..423bef547d 100644 --- a/TESTING/EIG/cbdt01.f +++ b/TESTING/EIG/cbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt02.f b/TESTING/EIG/cbdt02.f index fcad0e93e4..5e743d526d 100644 --- a/TESTING/EIG/cbdt02.f +++ b/TESTING/EIG/cbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt03.f b/TESTING/EIG/cbdt03.f index 589ab8a8a5..b1cbcb920a 100644 --- a/TESTING/EIG/cbdt03.f +++ b/TESTING/EIG/cbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ) * COMPLEX U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index c01c986981..5358652ab4 100644 --- a/TESTING/EIG/cbdt05.f +++ b/TESTING/EIG/cbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * REAL RESID @@ -61,14 +61,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -110,17 +110,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/cchkbb.f b/TESTING/EIG/cchkbb.f index 158b470ecc..3aa18d93d0 100644 --- a/TESTING/EIG/cchkbb.f +++ b/TESTING/EIG/cchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkbd.f b/TESTING/EIG/cchkbd.f index 1d85866dc1..27087fcb4c 100644 --- a/TESTING/EIG/cchkbd.f +++ b/TESTING/EIG/cchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -467,7 +467,7 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * .. * .. External Subroutines .. EXTERNAL ALASUM, CBDSQR, CBDT01, CBDT02, CBDT03, - $ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR, + $ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR, $ CLATMS, CUNGBR, CUNT01, SCOPY, SLABAD, $ SLAHD2, SSVDCH, XERBLA * .. diff --git a/TESTING/EIG/cchkbk.f b/TESTING/EIG/cchkbk.f index d1ad89672d..b940b4cee8 100644 --- a/TESTING/EIG/cchkbk.f +++ b/TESTING/EIG/cchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkbl.f b/TESTING/EIG/cchkbl.f index 9c6cb07000..b0642360e9 100644 --- a/TESTING/EIG/cchkbl.f +++ b/TESTING/EIG/cchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkec.f b/TESTING/EIG/cchkec.f index b0b044b973..6d695b2072 100644 --- a/TESTING/EIG/cchkec.f +++ b/TESTING/EIG/cchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkee.f b/TESTING/EIG/cchkee.f index edea33b651..d5f3f729e5 100644 --- a/TESTING/EIG/cchkee.f +++ b/TESTING/EIG/cchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKEE -* +* * *> \par Purpose: * ============= @@ -1022,10 +1022,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -1071,7 +1071,7 @@ PROGRAM CCHKEE CHARACTER*80 LINE INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, - $ VERS_MAJOR, VERS_MINOR, VERS_PATCH + $ VERS_MAJOR, VERS_MINOR, VERS_PATCH REAL EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1252,7 +1252,7 @@ PROGRAM CCHKEE WRITE( NOUT, FMT = 9992 )PATH GO TO 380 END IF - CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) + CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) WRITE( NOUT, FMT = 9972 ) VERS_MAJOR, VERS_MINOR, VERS_PATCH WRITE( NOUT, FMT = 9984 ) * @@ -1866,7 +1866,7 @@ PROGRAM CCHKEE $ DR( 1, 7 ), DR( 1, 8 ), DR( 1, 9 ), $ DR( 1, 10 ), DR( 1, 11 ), A( 1, 3 ), NMAX, $ A( 1, 4 ), A( 1, 5 ), DC( 1, 1 ), A( 1, 6 ), - $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, + $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, $ RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CCHKST', INFO @@ -2155,9 +2155,9 @@ PROGRAM CCHKEE * IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CDRGES', INFO -* +* * Blocked version -* +* CALL XLAENV(16,2) CALL CDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2222,9 +2222,9 @@ PROGRAM CCHKEE $ RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CDRGEV', INFO -* +* * Blocked version -* +* CALL XLAENV(16,2) CALL CDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2463,7 +2463,7 @@ PROGRAM CCHKEE 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver CGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/cchkgg.f b/TESTING/EIG/cchkgg.f index 400d5b2e62..55e9d82bd1 100644 --- a/TESTING/EIG/cchkgg.f +++ b/TESTING/EIG/cchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cchkgk.f b/TESTING/EIG/cchkgk.f index cb8ca7dc31..004bb23011 100644 --- a/TESTING/EIG/cchkgk.f +++ b/TESTING/EIG/cchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkgl.f b/TESTING/EIG/cchkgl.f index 95cb9433a5..9ab7bd7bc9 100644 --- a/TESTING/EIG/cchkgl.f +++ b/TESTING/EIG/cchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkhb.f b/TESTING/EIG/cchkhb.f index a05d4344af..d7e14f984b 100644 --- a/TESTING/EIG/cchkhb.f +++ b/TESTING/EIG/cchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkhs.f b/TESTING/EIG/cchkhs.f index 2f9f634b5a..d3c73394f3 100644 --- a/TESTING/EIG/cchkhs.f +++ b/TESTING/EIG/cchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkst.f b/TESTING/EIG/cchkst.f index b34b1271ca..c41854a6cc 100644 --- a/TESTING/EIG/cchkst.f +++ b/TESTING/EIG/cchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f index a4146c7435..eb252c5e31 100644 --- a/TESTING/EIG/cckcsd.f +++ b/TESTING/EIG/cckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckglm.f b/TESTING/EIG/cckglm.f index 24db1f875c..7c22a5ce9b 100644 --- a/TESTING/EIG/cckglm.f +++ b/TESTING/EIG/cckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckgqr.f b/TESTING/EIG/cckgqr.f index b2d2e3fe99..6778caf79f 100644 --- a/TESTING/EIG/cckgqr.f +++ b/TESTING/EIG/cckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckgsv.f b/TESTING/EIG/cckgsv.f index 48e36ebd15..9d6118e229 100644 --- a/TESTING/EIG/cckgsv.f +++ b/TESTING/EIG/cckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/ccklse.f b/TESTING/EIG/ccklse.f index 7196b31dd3..3b37bb1d7c 100644 --- a/TESTING/EIG/ccklse.f +++ b/TESTING/EIG/ccklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ccsdts.f b/TESTING/EIG/ccsdts.f index b47097bd35..e68582b271 100644 --- a/TESTING/EIG/ccsdts.f +++ b/TESTING/EIG/ccsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL CHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL CHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, END DO * RETURN -* +* * End of CCSDTS * END diff --git a/TESTING/EIG/cdrges.f b/TESTING/EIG/cdrges.f index 67f83faeaf..c854b901d8 100644 --- a/TESTING/EIG/cdrges.f +++ b/TESTING/EIG/cdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgev.f b/TESTING/EIG/cdrgev.f index fcee801190..1b6c136d7b 100644 --- a/TESTING/EIG/cdrgev.f +++ b/TESTING/EIG/cdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index 54a407f83a..e0f27deb71 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, * LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index 1e6d8bdc64..3849d0fa09 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,32 +205,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -283,10 +283,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvbd.f b/TESTING/EIG/cdrvbd.f index bd8a263a57..6ee172e9d8 100644 --- a/TESTING/EIG/cdrvbd.f +++ b/TESTING/EIG/cdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,7 +132,7 @@ *> *> (7) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for CGESVDX( 'V', 'V', 'I' ) *> *> (8) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -140,7 +140,7 @@ *> (9) | I - U'U | / ( M ulp ) *> *> (10) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for CGESVDX( 'V', 'V', 'V' ) *> *> (11) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -428,7 +428,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, $ NTESTF, NTESTT, LRWORK - REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, + REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, $ UNFL, VL, VU * .. * .. Local Arrays .. @@ -858,7 +858,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, CALL CLACPY( 'F', M, N, ASAV, LDA, USAV, LDA ) SRNAMT = 'CGESVJ' CALL CGESVJ( 'G', 'U', 'V', M, N, USAV, LDA, SSAV, - & 0, A, LDVT, WORK, LWORK, RWORK, + & 0, A, LDVT, WORK, LWORK, RWORK, & LRWORK, IINFO ) * * CGESVJ retuns V not VT, so we transpose to use the same @@ -920,7 +920,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, SRNAMT = 'CGEJSV' CALL CGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', & M, N, VTSAV, LDA, SSAV, USAV, LDU, A, LDVT, - & WORK, LWORK, RWORK, + & WORK, LWORK, RWORK, & LRWORK, IWORK, IINFO ) * * CGEJSV retuns V not VT, so we transpose to use the same @@ -968,8 +968,8 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + CALL CGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, $ VTSAV, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN @@ -1018,8 +1018,8 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, RANGE = CJOBR( 1 ) CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, U, LDU, + CALL CGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) * @@ -1079,15 +1079,15 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IU = IL IL = ITEMP END IF - END IF + END IF CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, + CALL CGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1109,11 +1109,11 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1130,15 +1130,15 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, ELSE VL = ZERO VU = ONE - END IF + END IF CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, + CALL CGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1221,7 +1221,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ' decreasing order, else 1/ulp', $ / '12 = | U - Upartial | / ( M ulp )', $ / '13 = | VT - VTpartial | / ( N ulp )', - $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / ' CGESVJ: ', / $ / '15 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ) ', $ / '16 = | I - U**T U | / ( M ulp ) ', @@ -1231,7 +1231,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / ' CGESJV: ', / $ / '19 = | A - U diag(S) VT | / ( |A| max(M,N) ulp )', $ / '20 = | I - U**T U | / ( M ulp ) ', - $ / '21 = | I - VT VT**T | / ( N ulp ) ', + $ / '21 = | I - VT VT**T | / ( N ulp ) ', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / ' CGESVDX(V,V,A): ', / @@ -1250,7 +1250,7 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / ' CGESVDX(V,V,V) ', $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp )', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/cdrves.f b/TESTING/EIG/cdrves.f index ccbf61efe3..3dfc7cecab 100644 --- a/TESTING/EIG/cdrves.f +++ b/TESTING/EIG/cdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvev.f b/TESTING/EIG/cdrvev.f index 92aaf35f13..2746b1ac2f 100644 --- a/TESTING/EIG/cdrvev.f +++ b/TESTING/EIG/cdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvsg.f b/TESTING/EIG/cdrvsg.f index 74ff1f8281..f6cd769d24 100644 --- a/TESTING/EIG/cdrvsg.f +++ b/TESTING/EIG/cdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvst.f b/TESTING/EIG/cdrvst.f index 6ee38e0b23..9a688d308c 100644 --- a/TESTING/EIG/cdrvst.f +++ b/TESTING/EIG/cdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvsx.f b/TESTING/EIG/cdrvsx.f index f2979da866..0739b95ddf 100644 --- a/TESTING/EIG/cdrvsx.f +++ b/TESTING/EIG/cdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvvx.f b/TESTING/EIG/cdrvvx.f index 265df145ac..175a3ba2b1 100644 --- a/TESTING/EIG/cdrvvx.f +++ b/TESTING/EIG/cdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cerrbd.f b/TESTING/EIG/cerrbd.f index 35b389f1c4..2370b888e3 100644 --- a/TESTING/EIG/cerrbd.f +++ b/TESTING/EIG/cerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index e50484a215..90ada2f7c5 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f index 578d9f1f47..1f339590f4 100644 --- a/TESTING/EIG/cerred.f +++ b/TESTING/EIG/cerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -441,51 +441,51 @@ SUBROUTINE CERRED( PATH, NUNIT ) * SRNAMT = 'CGESVDX' INFOT = 1 - CALL CGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL CGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/cerrgg.f b/TESTING/EIG/cerrgg.f index 100bd82d04..42a126b08f 100644 --- a/TESTING/EIG/cerrgg.f +++ b/TESTING/EIG/cerrgg.f @@ -22,7 +22,7 @@ *> \verbatim *> *> CERRGG tests the error exits for CGGES, CGGESX, CGGEV, CGGEVX, -*> CGGES3, CGGEV3, CGGGLM, CGGHRD, CGGLSE, CGGQRF, CGGRQF, +*> CGGES3, CGGEV3, CGGGLM, CGGHRD, CGGLSE, CGGQRF, CGGRQF, *> CGGSVD3, CGGSVP3, CHGEQZ, CTGEVC, CTGEXC, CTGSEN, CTGSJA, *> CTGSNA, CTGSYL, and CUNCSD. *> \endverbatim diff --git a/TESTING/EIG/cerrhs.f b/TESTING/EIG/cerrhs.f index 5203ba0175..491c39dc94 100644 --- a/TESTING/EIG/cerrhs.f +++ b/TESTING/EIG/cerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f index 99b7ef3144..14e4bfbedd 100644 --- a/TESTING/EIG/cerrst.f +++ b/TESTING/EIG/cerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget02.f b/TESTING/EIG/cget02.f index 0e0541df65..3e46ac66f7 100644 --- a/TESTING/EIG/cget02.f +++ b/TESTING/EIG/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget10.f b/TESTING/EIG/cget10.f index 0f86aefeb0..0d8d445a00 100644 --- a/TESTING/EIG/cget10.f +++ b/TESTING/EIG/cget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -18,7 +18,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget22.f b/TESTING/EIG/cget22.f index c34c2fe27f..c419c00f36 100644 --- a/TESTING/EIG/cget22.f +++ b/TESTING/EIG/cget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget23.f b/TESTING/EIG/cget23.f index b295acbaad..c30655c1ab 100644 --- a/TESTING/EIG/cget23.f +++ b/TESTING/EIG/cget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget24.f b/TESTING/EIG/cget24.f index ddb3d92181..8a7f0c8358 100644 --- a/TESTING/EIG/cget24.f +++ b/TESTING/EIG/cget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget35.f b/TESTING/EIG/cget35.f index fe24b8c10a..64047a4d2d 100644 --- a/TESTING/EIG/cget35.f +++ b/TESTING/EIG/cget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget36.f b/TESTING/EIG/cget36.f index 8e8dcf5534..621f91d366 100644 --- a/TESTING/EIG/cget36.f +++ b/TESTING/EIG/cget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget37.f b/TESTING/EIG/cget37.f index 71467bf4b8..f75b4e02d5 100644 --- a/TESTING/EIG/cget37.f +++ b/TESTING/EIG/cget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget38.f b/TESTING/EIG/cget38.f index be94c1d869..76c21cc2f6 100644 --- a/TESTING/EIG/cget38.f +++ b/TESTING/EIG/cget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget51.f b/TESTING/EIG/cget51.f index 216894730e..eb5d59d172 100644 --- a/TESTING/EIG/cget51.f +++ b/TESTING/EIG/cget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget52.f b/TESTING/EIG/cget52.f index fd558cd616..15eff0f07a 100644 --- a/TESTING/EIG/cget52.f +++ b/TESTING/EIG/cget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget54.f b/TESTING/EIG/cget54.f index a16848fc99..481c8bf11e 100644 --- a/TESTING/EIG/cget54.f +++ b/TESTING/EIG/cget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cglmts.f b/TESTING/EIG/cglmts.f index dc5759413c..6902fe0958 100644 --- a/TESTING/EIG/cglmts.f +++ b/TESTING/EIG/cglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), D( * ), DF( * ), U( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgqrts.f b/TESTING/EIG/cgqrts.f index db23db75c6..f90680588e 100644 --- a/TESTING/EIG/cgqrts.f +++ b/TESTING/EIG/cgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgrqts.f b/TESTING/EIG/cgrqts.f index 7c56c6e33c..8a21ed3cea 100644 --- a/TESTING/EIG/cgrqts.f +++ b/TESTING/EIG/cgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgsvts3.f b/TESTING/EIG/cgsvts3.f index db57a0bcca..8f5b3a6684 100644 --- a/TESTING/EIG/cgsvts3.f +++ b/TESTING/EIG/cgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/chbt21.f b/TESTING/EIG/chbt21.f index badb6052d3..a76bd54794 100644 --- a/TESTING/EIG/chbt21.f +++ b/TESTING/EIG/chbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chet21.f b/TESTING/EIG/chet21.f index 976f19ffec..5fb2eb4fb5 100644 --- a/TESTING/EIG/chet21.f +++ b/TESTING/EIG/chet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chet22.f b/TESTING/EIG/chet22.f index 7b67169457..2a91733558 100644 --- a/TESTING/EIG/chet22.f +++ b/TESTING/EIG/chet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chkxer.f b/TESTING/EIG/chkxer.f index eb187defe0..6faeb3c8d4 100644 --- a/TESTING/EIG/chkxer.f +++ b/TESTING/EIG/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chpt21.f b/TESTING/EIG/chpt21.f index 00456e02a4..dd8a75ba04 100644 --- a/TESTING/EIG/chpt21.f +++ b/TESTING/EIG/chpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chst01.f b/TESTING/EIG/chst01.f index 0f5f8702e8..131c13dae3 100644 --- a/TESTING/EIG/chst01.f +++ b/TESTING/EIG/chst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clarfy.f b/TESTING/EIG/clarfy.f index da74f56978..572a47231e 100644 --- a/TESTING/EIG/clarfy.f +++ b/TESTING/EIG/clarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clarhs.f b/TESTING/EIG/clarhs.f index 3bcba27239..cbc2686441 100644 --- a/TESTING/EIG/clarhs.f +++ b/TESTING/EIG/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clatm4.f b/TESTING/EIG/clatm4.f index 56378ef497..2f8c1dc56f 100644 --- a/TESTING/EIG/clatm4.f +++ b/TESTING/EIG/clatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clctes.f b/TESTING/EIG/clctes.f index 5b66c53956..f008b327ef 100644 --- a/TESTING/EIG/clctes.f +++ b/TESTING/EIG/clctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/clctsx.f b/TESTING/EIG/clctsx.f index 047b46de12..928aa78683 100644 --- a/TESTING/EIG/clctsx.f +++ b/TESTING/EIG/clctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clsets.f b/TESTING/EIG/clsets.f index 91fc485073..868153e7a1 100644 --- a/TESTING/EIG/clsets.f +++ b/TESTING/EIG/clsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), C( * ), D( * ), CF( * ), * $ DF( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/csbmv.f b/TESTING/EIG/csbmv.f index 7a9033e695..8ae32a57ae 100644 --- a/TESTING/EIG/csbmv.f +++ b/TESTING/EIG/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/csgt01.f b/TESTING/EIG/csgt01.f index 0dd0ad6920..5bb6549327 100644 --- a/TESTING/EIG/csgt01.f +++ b/TESTING/EIG/csgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cslect.f b/TESTING/EIG/cslect.f index 8c80e7af7d..f4bbdfd26c 100644 --- a/TESTING/EIG/cslect.f +++ b/TESTING/EIG/cslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cstt21.f b/TESTING/EIG/cstt21.f index c1320fed13..802b09d5ce 100644 --- a/TESTING/EIG/cstt21.f +++ b/TESTING/EIG/cstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cstt22.f b/TESTING/EIG/cstt22.f index dca37f6468..880f449d61 100644 --- a/TESTING/EIG/cstt22.f +++ b/TESTING/EIG/cstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cunt01.f b/TESTING/EIG/cunt01.f index 7c6d56ab97..e1683ff7dd 100644 --- a/TESTING/EIG/cunt01.f +++ b/TESTING/EIG/cunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cunt03.f b/TESTING/EIG/cunt03.f index a0dc7e4c76..9dc2163731 100644 --- a/TESTING/EIG/cunt03.f +++ b/TESTING/EIG/cunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt01.f b/TESTING/EIG/dbdt01.f index c9d23a021e..90b35b6e12 100644 --- a/TESTING/EIG/dbdt01.f +++ b/TESTING/EIG/dbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt02.f b/TESTING/EIG/dbdt02.f index 3c3ad98ceb..429096bbff 100644 --- a/TESTING/EIG/dbdt02.f +++ b/TESTING/EIG/dbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt03.f b/TESTING/EIG/dbdt03.f index 7ad2ac4327..19beac6e29 100644 --- a/TESTING/EIG/dbdt03.f +++ b/TESTING/EIG/dbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt04.f b/TESTING/EIG/dbdt04.f index f90e121d63..43db0ae8ce 100644 --- a/TESTING/EIG/dbdt04.f +++ b/TESTING/EIG/dbdt04.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, +* SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDU, LDVT, N, NS @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,14 +68,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index ef5a2cbc08..4ab86d0cbf 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,14 +62,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -111,17 +111,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/dchkbb.f b/TESTING/EIG/dchkbb.f index 47cdc57042..f81c775193 100644 --- a/TESTING/EIG/dchkbb.f +++ b/TESTING/EIG/dchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index b093e871ba..4c1f5af2da 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,7 +64,7 @@ *> singular vectors are not computed. *> *> DBDSVDX computes the singular value decomposition of the bidiagonal -*> matrix B as B = U S V' using bisection and inverse iteration. It is +*> matrix B as B = U S V' using bisection and inverse iteration. It is *> called six times to compute *> 1) B = U S1 V', RANGE='A', where S1 is the diagonal matrix of singular *> values and the columns of the matrices U and V are the left @@ -147,43 +147,43 @@ *> (19) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. *> Test DBDSVDX on bidiagonal matrix B -*> +*> *> (20) | B - U S1 VT | / ( |B| min(M,N) ulp ), VT = V' -*> +*> *> (21) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (22) | I - VT VT' | / ( min(M,N) ulp ) -*> +*> *> (23) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (24) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (25) | S1 - U' B VT' | / ( |S| n ulp ) DBDSVDX('V', 'I') -*> +*> *> (26) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (27) | I - VT VT' | / ( min(M,N) ulp ) *> *> (28) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (29) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (30) | S1 - U' B VT' | / ( |S1| n ulp ) DBDSVDX('V', 'V') -*> +*> *> (31) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (32) | I - VT VT' | / ( min(M,N) ulp ) *> *> (33) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (34) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> The possible matrix types are *> *> (1) The zero matrix. @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -525,18 +525,18 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, LOGICAL BADMM, BADNN, BIDIAG CHARACTER UPLO CHARACTER*3 PATH - INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, + INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, $ IWBE, IWBS, IWBZ, IWWORK, J, JCOL, JSIZE, - $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, - $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, + $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, + $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST - DOUBLE PRECISION ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + DOUBLE PRECISION ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, + $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, + $ UNFL, VL, VU * .. * .. Local Arrays .. - INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), - $ KMAGN( MAXTYP ), KMODE( MAXTYP ), + INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), + $ KMAGN( MAXTYP ), KMODE( MAXTYP ), $ KTYPE( MAXTYP ) DOUBLE PRECISION DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. @@ -545,9 +545,9 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, + EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, $ DBDT02, DBDT03, DBDT04, DCOPY, DGEBRD, - $ DGEMM, DLABAD, DLACPY, DLAHD2, DLASET, + $ DGEMM, DLABAD, DLACPY, DLAHD2, DLASET, $ DLATMR, DLATMS, DORGBR, DORT01, XERBLA * .. * .. Intrinsic Functions .. @@ -1151,10 +1151,10 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'A', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) -* +* * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN @@ -1190,17 +1190,17 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) - $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) -* + $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) +* CALL DBDSVDX( UPLO, 'N', 'A', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'DBDSVDX(values,A)', IINFO, + WRITE( NOUT, FMT = 9998 )'DBDSVDX(values,A)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1224,11 +1224,11 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL DBDT03( UPLO, MNMIN, 1, BD, BE, U, LDPT, S1, VT, $ LDPT, WORK( IWBS+MNMIN ), RESULT( 20 ) ) - CALL DORT01( 'Columns', MNMIN, MNMIN, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Columns', MNMIN, MNMIN, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 21 ) ) - CALL DORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 22) ) * RESULT( 23 ) = ZERO @@ -1272,14 +1272,14 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, IL = ITEMP END IF END IF -* +* CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'I', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) * * Check error code from DBDSVDX. @@ -1313,7 +1313,7 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL DBDSVDX( UPLO, 'N', 'I', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. @@ -1337,13 +1337,13 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * non-increasing order and are non-negative * 29: Compare DBDSVDX with and without singular vectors * - CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 25 ) ) - CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 26 ) ) - CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 27 ) ) * @@ -1368,8 +1368,8 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, 230 CONTINUE RESULT( 29 ) = TEMP2 * -* Use DBDSVDX with RANGE='V': determine the values VL and VU -* of the IL-th and IU-th singular values and ask for all +* Use DBDSVDX with RANGE='V': determine the values VL and VU +* of the IL-th and IU-th singular values and ask for all * singular values in this range. * CALL DCOPY( MNMIN, WORK( IWBS ), 1, S1, 1 ) @@ -1395,21 +1395,21 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, ELSE VL = ZERO VU = ONE - END IF -* + END IF +* CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'V', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'DBDSVDX(vects,V)', IINFO, + WRITE( NOUT, FMT = 9998 )'DBDSVDX(vects,V)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1437,7 +1437,7 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL DBDSVDX( UPLO, 'N', 'V', MNMIN, WORK( IWBD ), $ WORK( IWBE ), VL, VU, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. @@ -1461,13 +1461,13 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * non-increasing order and are non-negative * 34: Compare DBDSVDX with and without singular vectors * - CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 30 ) ) - CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, + CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 31 ) ) - CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 32 ) ) * diff --git a/TESTING/EIG/dchkbk.f b/TESTING/EIG/dchkbk.f index 1d61fde656..71b057b57f 100644 --- a/TESTING/EIG/dchkbk.f +++ b/TESTING/EIG/dchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkbl.f b/TESTING/EIG/dchkbl.f index bb10fd54c0..b0f6e432cd 100644 --- a/TESTING/EIG/dchkbl.f +++ b/TESTING/EIG/dchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkec.f b/TESTING/EIG/dchkec.f index 1681215e93..d6c32416f6 100644 --- a/TESTING/EIG/dchkec.f +++ b/TESTING/EIG/dchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkgg.f b/TESTING/EIG/dchkgg.f index 3848e7c9e7..120ba621fa 100644 --- a/TESTING/EIG/dchkgg.f +++ b/TESTING/EIG/dchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dchkgk.f b/TESTING/EIG/dchkgk.f index 1f827a5361..9375b92c8d 100644 --- a/TESTING/EIG/dchkgk.f +++ b/TESTING/EIG/dchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkgl.f b/TESTING/EIG/dchkgl.f index aebc7183dd..efeae19ca6 100644 --- a/TESTING/EIG/dchkgl.f +++ b/TESTING/EIG/dchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkhs.f b/TESTING/EIG/dchkhs.f index 928856b853..d4ae806212 100644 --- a/TESTING/EIG/dchkhs.f +++ b/TESTING/EIG/dchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, EVECTY, * EVECTX, UU, TAU, WORK, NWORK, IWORK, SELECT, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI2( * ), WI3( * ), WORK( * ), * $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dchksb.f b/TESTING/EIG/dchksb.f index b4ba2a89ef..d661400b12 100644 --- a/TESTING/EIG/dchksb.f +++ b/TESTING/EIG/dchksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkst.f b/TESTING/EIG/dchkst.f index ec90e13655..601e21f571 100644 --- a/TESTING/EIG/dchkst.f +++ b/TESTING/EIG/dchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckcsd.f b/TESTING/EIG/dckcsd.f index 219ebafcfe..a0ffdda4d8 100644 --- a/TESTING/EIG/dckcsd.f +++ b/TESTING/EIG/dckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckglm.f b/TESTING/EIG/dckglm.f index 2b2a929533..e70045bb01 100644 --- a/TESTING/EIG/dckglm.f +++ b/TESTING/EIG/dckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckgqr.f b/TESTING/EIG/dckgqr.f index 595aed9778..626f6da979 100644 --- a/TESTING/EIG/dckgqr.f +++ b/TESTING/EIG/dckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckgsv.f b/TESTING/EIG/dckgsv.f index 1ef805adcf..da9e240f07 100644 --- a/TESTING/EIG/dckgsv.f +++ b/TESTING/EIG/dckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dcklse.f b/TESTING/EIG/dcklse.f index a9853c46ef..36cbe44d48 100644 --- a/TESTING/EIG/dcklse.f +++ b/TESTING/EIG/dcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dcsdts.f b/TESTING/EIG/dcsdts.f index 528092a1d1..7ca2b15321 100644 --- a/TESTING/EIG/dcsdts.f +++ b/TESTING/EIG/dcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL DSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL DSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF( M.GT.0 ) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, END DO * RETURN -* +* * End of DCSDTS * END diff --git a/TESTING/EIG/ddrges.f b/TESTING/EIG/ddrges.f index c4b83e5904..22982fdef0 100644 --- a/TESTING/EIG/ddrges.f +++ b/TESTING/EIG/ddrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgev.f b/TESTING/EIG/ddrgev.f index e4d483623b..7c3ae8cfda 100644 --- a/TESTING/EIG/ddrgev.f +++ b/TESTING/EIG/ddrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index aca715e905..c0ecdf499b 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 970a3ccde3..046f1a38e8 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ LSCALE( * ), RESULT( 4 ), RSCALE( * ), S( * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,32 +212,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/EIG/ddrvbd.f b/TESTING/EIG/ddrvbd.f index fbe26a5de9..16e60d0598 100644 --- a/TESTING/EIG/ddrvbd.f +++ b/TESTING/EIG/ddrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,7 +131,7 @@ *> *> (29) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for DGESVDX( 'V', 'V', 'I' ) *> *> (30) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -139,7 +139,7 @@ *> (31) | I - U'U | / ( M ulp ) *> *> (32) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for DGESVDX( 'V', 'V', 'V' ) *> *> (33) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -386,16 +386,16 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE CHARACTER*3 PATH - INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, - $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, - $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, + $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, + $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, $ NMAX, NS, NSI, NSV, NTEST - DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, + DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, $ ULPINV, UNFL, VL, VU * .. * .. Local Arrays .. CHARACTER CJOB( 4 ), CJOBR( 3 ), CJOBV( 2 ) - INTEGER IOLDSD( 4 ), ISEED2( 4 ) + INTEGER IOLDSD( 4 ), ISEED2( 4 ) DOUBLE PRECISION RESULT( 40 ) * .. * .. External Functions .. @@ -403,7 +403,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL DLAMCH, DLARND * .. * .. External Subroutines .. - EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, + EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, $ DGESVDX, DGESVJ, DLABAD, DLACPY, DLASET, $ DLATMS, DORT01, DORT03, XERBLA * .. @@ -904,12 +904,12 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * Test DGESVDX * CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, - $ VTSAV, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + $ VTSAV, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -953,11 +953,11 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, JOBVT = CJOBV( IJVT+1 ) RANGE = CJOBR( 1 ) CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, - $ VL, VU, IL, IU, NS, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, + $ VL, VU, IL, IU, NS, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) -* +* * Compare U * DIF = ZERO @@ -976,7 +976,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IF( M.GT.0 .AND. N.GT.0 ) THEN IF( IJVT.EQ.1 ) THEN CALL DORT03( 'R', N, MNMIN, N, MNMIN, VTSAV, - $ LDVT, VT, LDVT, WORK, LWORK, + $ LDVT, VT, LDVT, WORK, LWORK, $ DIF, IINFO ) END IF END IF @@ -1013,14 +1013,14 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IU = IL IL = ITEMP END IF - END IF + END IF CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1040,11 +1040,11 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1061,14 +1061,14 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, ELSE VL = ZERO VU = ONE - END IF + END IF CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1087,7 +1087,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * End of Loop -- Check for RESULT(j) > THRESH * DO 210 J = 1, 35 - IF( RESULT( J ).GE.THRESH ) THEN + IF( RESULT( J ).GE.THRESH ) THEN IF( NFAIL.EQ.0 ) THEN WRITE( NOUT, FMT = 9999 ) WRITE( NOUT, FMT = 9998 ) @@ -1138,7 +1138,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ' decreasing order, else 1/ulp', $ / '19 = | U - Upartial | / ( M ulp )', $ / '20 = | VT - VTpartial | / ( N ulp )', - $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / '23 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ),', @@ -1157,7 +1157,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp ),', $ ' DGESVDX(V,V,V) ', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/ddrves.f b/TESTING/EIG/ddrves.f index 7275fe2a4e..2e6405a5a5 100644 --- a/TESTING/EIG/ddrves.f +++ b/TESTING/EIG/ddrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrvev.f b/TESTING/EIG/ddrvev.f index 8b5fc3ef31..3534fadbe4 100644 --- a/TESTING/EIG/ddrvev.f +++ b/TESTING/EIG/ddrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvsg.f b/TESTING/EIG/ddrvsg.f index 9f89d383ff..1a8b6a86f0 100644 --- a/TESTING/EIG/ddrvsg.f +++ b/TESTING/EIG/ddrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvst.f b/TESTING/EIG/ddrvst.f index ebe04b1c28..de57daa1c8 100644 --- a/TESTING/EIG/ddrvst.f +++ b/TESTING/EIG/ddrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvsx.f b/TESTING/EIG/ddrvsx.f index 66df933982..5d8a3d2a3b 100644 --- a/TESTING/EIG/ddrvsx.f +++ b/TESTING/EIG/ddrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrvvx.f b/TESTING/EIG/ddrvvx.f index 85ad62473a..87d36c2a13 100644 --- a/TESTING/EIG/ddrvvx.f +++ b/TESTING/EIG/ddrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -505,10 +505,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/derrbd.f b/TESTING/EIG/derrbd.f index 6d47bd8695..39c720b05d 100644 --- a/TESTING/EIG/derrbd.f +++ b/TESTING/EIG/derrbd.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DERRBD tests the error exits for DGEBD2, DGEBRD, DORGBR, DORMBR, +*> DERRBD tests the error exits for DGEBD2, DGEBRD, DORGBR, DORMBR, *> DBDSQR, DBDSDC and DBDSVDX. *> \endverbatim * @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -80,8 +80,8 @@ SUBROUTINE DERRBD( PATH, NUNIT ) * .. Local Arrays .. INTEGER IQ( NMAX, NMAX ), IW( NMAX ) DOUBLE PRECISION A( NMAX, NMAX ), D( NMAX ), E( NMAX ), - $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), - $ TQ( NMAX ), U( NMAX, NMAX ), + $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), + $ TQ( NMAX ), U( NMAX, NMAX ), $ V( NMAX, NMAX ), W( LW ) * .. * .. External Functions .. @@ -309,51 +309,51 @@ SUBROUTINE DERRBD( PATH, NUNIT ) * SRNAMT = 'DBDSVDX' INFOT = 1 - CALL DBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, + CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, + CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, + CALL DBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 0, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 2, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) NT = NT + 12 diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index 428fb49f01..9fc539c861 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index c5bf6ea495..77592e56f0 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -432,51 +432,51 @@ SUBROUTINE DERRED( PATH, NUNIT ) * SRNAMT = 'DGESVDX' INFOT = 1 - CALL DGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL DGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/derrgg.f b/TESTING/EIG/derrgg.f index 4edd472dc3..0ee7b79a75 100644 --- a/TESTING/EIG/derrgg.f +++ b/TESTING/EIG/derrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -547,56 +547,56 @@ SUBROUTINE DERRGG( PATH, NUNIT ) $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, IW, INFO ) + $ -1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * @@ -869,7 +869,7 @@ SUBROUTINE DERRGG( PATH, NUNIT ) $ 1, INFO ) CALL CHKXER( 'DGGEV ', INFOT, NOUT, LERR, OK ) NT = NT + 10 -* +* * DGGEV3 * SRNAMT = 'DGGEV3 ' diff --git a/TESTING/EIG/derrhs.f b/TESTING/EIG/derrhs.f index b67082bf46..a8c65cc4c2 100644 --- a/TESTING/EIG/derrhs.f +++ b/TESTING/EIG/derrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/derrst.f b/TESTING/EIG/derrst.f index 76439de6d0..dfb3452e72 100644 --- a/TESTING/EIG/derrst.f +++ b/TESTING/EIG/derrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget02.f b/TESTING/EIG/dget02.f index 199c5745bf..f8dfb8fdcf 100644 --- a/TESTING/EIG/dget02.f +++ b/TESTING/EIG/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget10.f b/TESTING/EIG/dget10.f index 510949a8d4..8bb015ee6b 100644 --- a/TESTING/EIG/dget10.f +++ b/TESTING/EIG/dget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget22.f b/TESTING/EIG/dget22.f index 9175b417a8..3ed76d0c21 100644 --- a/TESTING/EIG/dget22.f +++ b/TESTING/EIG/dget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget23.f b/TESTING/EIG/dget23.f index 9a641afddf..1a1983446e 100644 --- a/TESTING/EIG/dget23.f +++ b/TESTING/EIG/dget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget24.f b/TESTING/EIG/dget24.f index ce1c5b20a8..a1855fabfe 100644 --- a/TESTING/EIG/dget24.f +++ b/TESTING/EIG/dget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget31.f b/TESTING/EIG/dget31.f index fe2aefede0..c1e293f324 100644 --- a/TESTING/EIG/dget31.f +++ b/TESTING/EIG/dget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget32.f b/TESTING/EIG/dget32.f index b6db206bff..29182de2c2 100644 --- a/TESTING/EIG/dget32.f +++ b/TESTING/EIG/dget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget33.f b/TESTING/EIG/dget33.f index a7c8f46bee..663cc849d6 100644 --- a/TESTING/EIG/dget33.f +++ b/TESTING/EIG/dget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget34.f b/TESTING/EIG/dget34.f index 8bf1b8b622..a4fff64a4b 100644 --- a/TESTING/EIG/dget34.f +++ b/TESTING/EIG/dget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget35.f b/TESTING/EIG/dget35.f index b0aa091187..e07ec97057 100644 --- a/TESTING/EIG/dget35.f +++ b/TESTING/EIG/dget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget36.f b/TESTING/EIG/dget36.f index 4bba768df2..3e92c9d2fa 100644 --- a/TESTING/EIG/dget36.f +++ b/TESTING/EIG/dget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget37.f b/TESTING/EIG/dget37.f index 5bdc2db554..a2de870c04 100644 --- a/TESTING/EIG/dget37.f +++ b/TESTING/EIG/dget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget38.f b/TESTING/EIG/dget38.f index f8cd809365..112b0b2a12 100644 --- a/TESTING/EIG/dget38.f +++ b/TESTING/EIG/dget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget39.f b/TESTING/EIG/dget39.f index 2d726ddf35..7d85ecd86f 100644 --- a/TESTING/EIG/dget39.f +++ b/TESTING/EIG/dget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget51.f b/TESTING/EIG/dget51.f index 5776bd7dd8..656097a059 100644 --- a/TESTING/EIG/dget51.f +++ b/TESTING/EIG/dget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget52.f b/TESTING/EIG/dget52.f index 763071324f..c164ac34f0 100644 --- a/TESTING/EIG/dget52.f +++ b/TESTING/EIG/dget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget53.f b/TESTING/EIG/dget53.f index 0cc1c8cd64..69e33ed285 100644 --- a/TESTING/EIG/dget53.f +++ b/TESTING/EIG/dget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * DOUBLE PRECISION RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget54.f b/TESTING/EIG/dget54.f index 480635aeae..ea8fddab8f 100644 --- a/TESTING/EIG/dget54.f +++ b/TESTING/EIG/dget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dglmts.f b/TESTING/EIG/dglmts.f index accdbf7e77..a1c40c37bb 100644 --- a/TESTING/EIG/dglmts.f +++ b/TESTING/EIG/dglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgqrts.f b/TESTING/EIG/dgqrts.f index 836c856798..596422c1f2 100644 --- a/TESTING/EIG/dgqrts.f +++ b/TESTING/EIG/dgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgrqts.f b/TESTING/EIG/dgrqts.f index 9f06241c54..b86f954751 100644 --- a/TESTING/EIG/dgrqts.f +++ b/TESTING/EIG/dgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgsvts3.f b/TESTING/EIG/dgsvts3.f index d7ceeb65e3..29d5ef6b2d 100644 --- a/TESTING/EIG/dgsvts3.f +++ b/TESTING/EIG/dgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/dhst01.f b/TESTING/EIG/dhst01.f index af5b4ea147..5b86896256 100644 --- a/TESTING/EIG/dhst01.f +++ b/TESTING/EIG/dhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlafts.f b/TESTING/EIG/dlafts.f index 6c35f9881a..dc78e33daa 100644 --- a/TESTING/EIG/dlafts.f +++ b/TESTING/EIG/dlafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlahd2.f b/TESTING/EIG/dlahd2.f index b55236258d..f85ed29656 100644 --- a/TESTING/EIG/dlahd2.f +++ b/TESTING/EIG/dlahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dlarfy.f b/TESTING/EIG/dlarfy.f index 717af4b10c..089aa94e1f 100644 --- a/TESTING/EIG/dlarfy.f +++ b/TESTING/EIG/dlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlarhs.f b/TESTING/EIG/dlarhs.f index 4b0441e569..5f5dbc3f78 100644 --- a/TESTING/EIG/dlarhs.f +++ b/TESTING/EIG/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlasum.f b/TESTING/EIG/dlasum.f index 27187d0235..8c90b59a22 100644 --- a/TESTING/EIG/dlasum.f +++ b/TESTING/EIG/dlasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlatb9.f b/TESTING/EIG/dlatb9.f index 85c08be05e..9a76812e12 100644 --- a/TESTING/EIG/dlatb9.f +++ b/TESTING/EIG/dlatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE DLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, * ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, * DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KLB, KUA, KUB, M, MODEA, MODEB, N, P * DOUBLE PRECISION ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlatm4.f b/TESTING/EIG/dlatm4.f index bf661f9647..1a3d03b10f 100644 --- a/TESTING/EIG/dlatm4.f +++ b/TESTING/EIG/dlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * DOUBLE PRECISION AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlctes.f b/TESTING/EIG/dlctes.f index 908bd091da..2391338d03 100644 --- a/TESTING/EIG/dlctes.f +++ b/TESTING/EIG/dlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dlctsx.f b/TESTING/EIG/dlctsx.f index 1521ca14ad..f7210b3c42 100644 --- a/TESTING/EIG/dlctsx.f +++ b/TESTING/EIG/dlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlsets.f b/TESTING/EIG/dlsets.f index 6ec0e69b9f..3d69c67fb4 100644 --- a/TESTING/EIG/dlsets.f +++ b/TESTING/EIG/dlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dort01.f b/TESTING/EIG/dort01.f index cab1c99565..b41c6ab799 100644 --- a/TESTING/EIG/dort01.f +++ b/TESTING/EIG/dort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dort03.f b/TESTING/EIG/dort03.f index eb8cf3d5fb..54ca284f85 100644 --- a/TESTING/EIG/dort03.f +++ b/TESTING/EIG/dort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsbt21.f b/TESTING/EIG/dsbt21.f index 03f2dd3595..5881d5be3c 100644 --- a/TESTING/EIG/dsbt21.f +++ b/TESTING/EIG/dsbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsgt01.f b/TESTING/EIG/dsgt01.f index c63c0eeb52..0655818f04 100644 --- a/TESTING/EIG/dsgt01.f +++ b/TESTING/EIG/dsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dslect.f b/TESTING/EIG/dslect.f index a7a0e09478..e317c34e4e 100644 --- a/TESTING/EIG/dslect.f +++ b/TESTING/EIG/dslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dspt21.f b/TESTING/EIG/dspt21.f index 8c6060ed6e..d7fd5cccb3 100644 --- a/TESTING/EIG/dspt21.f +++ b/TESTING/EIG/dspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstech.f b/TESTING/EIG/dstech.f index 4de8e42a17..02866716f3 100644 --- a/TESTING/EIG/dstech.f +++ b/TESTING/EIG/dstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstect.f b/TESTING/EIG/dstect.f index 016e280d96..24bf1a0d8c 100644 --- a/TESTING/EIG/dstect.f +++ b/TESTING/EIG/dstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstt21.f b/TESTING/EIG/dstt21.f index c0df3a1689..368b7de518 100644 --- a/TESTING/EIG/dstt21.f +++ b/TESTING/EIG/dstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstt22.f b/TESTING/EIG/dstt22.f index 07bfa161a2..9ce2e4e038 100644 --- a/TESTING/EIG/dstt22.f +++ b/TESTING/EIG/dstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsvdch.f b/TESTING/EIG/dsvdch.f index 758225b333..e4f0fc9d7c 100644 --- a/TESTING/EIG/dsvdch.f +++ b/TESTING/EIG/dsvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsvdct.f b/TESTING/EIG/dsvdct.f index 72d4b63d2c..2627c1f484 100644 --- a/TESTING/EIG/dsvdct.f +++ b/TESTING/EIG/dsvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsxt1.f b/TESTING/EIG/dsxt1.f index 09b2037d73..a14002cdf7 100644 --- a/TESTING/EIG/dsxt1.f +++ b/TESTING/EIG/dsxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * DOUBLE PRECISION ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsyt21.f b/TESTING/EIG/dsyt21.f index 74f084f989..4875b9eb12 100644 --- a/TESTING/EIG/dsyt21.f +++ b/TESTING/EIG/dsyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsyt22.f b/TESTING/EIG/dsyt22.f index 275b702eee..cae6f4ecca 100644 --- a/TESTING/EIG/dsyt22.f +++ b/TESTING/EIG/dsyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ilaenv.f b/TESTING/EIG/ilaenv.f index 135ac099bf..cd81062965 100644 --- a/TESTING/EIG/ilaenv.f +++ b/TESTING/EIG/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -223,7 +223,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * ELSE IF(( ISPEC.GE.12 ) .AND. (ISPEC.LE.16)) THEN * -* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. +* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. * ILAENV = IPARMS( ISPEC ) * WRITE(*,*) 'ISPEC = ',ISPEC,' ILAENV =',ILAENV diff --git a/TESTING/EIG/sbdt01.f b/TESTING/EIG/sbdt01.f index fa9ad51ffa..f38edcfb82 100644 --- a/TESTING/EIG/sbdt01.f +++ b/TESTING/EIG/sbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt02.f b/TESTING/EIG/sbdt02.f index 72900fe314..e83b2e5ef2 100644 --- a/TESTING/EIG/sbdt02.f +++ b/TESTING/EIG/sbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -18,7 +18,7 @@ * REAL B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt03.f b/TESTING/EIG/sbdt03.f index 4e7f349449..f197de5ea7 100644 --- a/TESTING/EIG/sbdt03.f +++ b/TESTING/EIG/sbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt04.f b/TESTING/EIG/sbdt04.f index 59d113415f..31ce843af6 100644 --- a/TESTING/EIG/sbdt04.f +++ b/TESTING/EIG/sbdt04.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, +* SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDU, LDVT, N, NS @@ -18,7 +18,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,14 +68,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index 53cae36ba0..dc2ba5e995 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * REAL RESID @@ -17,7 +17,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,14 +62,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -111,17 +111,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/schkbb.f b/TESTING/EIG/schkbb.f index 749f60d260..1db7394fb3 100644 --- a/TESTING/EIG/schkbb.f +++ b/TESTING/EIG/schkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 5569e0e60a..28cd3352e9 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,7 +64,7 @@ *> singular vectors are not computed. *> *> SBDSVDX computes the singular value decomposition of the bidiagonal -*> matrix B as B = U S V' using bisection and inverse iteration. It is +*> matrix B as B = U S V' using bisection and inverse iteration. It is *> called six times to compute *> 1) B = U S1 V', RANGE='A', where S1 is the diagonal matrix of singular *> values and the columns of the matrices U and V are the left @@ -147,43 +147,43 @@ *> (19) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. *> Test SBDSVDX on bidiagonal matrix B -*> +*> *> (20) | B - U S1 VT | / ( |B| min(M,N) ulp ), VT = V' -*> +*> *> (21) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (22) | I - VT VT' | / ( min(M,N) ulp ) -*> +*> *> (23) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (24) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (25) | S1 - U' B VT' | / ( |S| n ulp ) SBDSVDX('V', 'I') -*> +*> *> (26) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (27) | I - VT VT' | / ( min(M,N) ulp ) *> *> (28) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (29) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (30) | S1 - U' B VT' | / ( |S1| n ulp ) SBDSVDX('V', 'V') -*> +*> *> (31) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (32) | I - VT VT' | / ( min(M,N) ulp ) *> *> (33) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (34) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> The possible matrix types are *> *> (1) The zero matrix. @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -525,18 +525,18 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, LOGICAL BADMM, BADNN, BIDIAG CHARACTER UPLO CHARACTER*3 PATH - INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, + INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, $ IWBE, IWBS, IWBZ, IWWORK, J, JCOL, JSIZE, $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, - $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, + $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST - REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, + $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, + $ UNFL, VL, VU * .. * .. Local Arrays .. - INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), - $ KMAGN( MAXTYP ), KMODE( MAXTYP ), + INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), + $ KMAGN( MAXTYP ), KMODE( MAXTYP ), $ KTYPE( MAXTYP ) REAL DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. @@ -545,8 +545,8 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, EXTERNAL SLAMCH, SLARND, SSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, - $ SBDT02, SBDT03, SBDT04, SCOPY, SGEBRD, + EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, + $ SBDT02, SBDT03, SBDT04, SCOPY, SGEBRD, $ SGEMM, SLABAD, SLACPY, SLAHD2, SLASET, $ SLATMR, SLATMS, SORGBR, SORT01, XERBLA * .. @@ -1151,10 +1151,10 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'A', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) -* +* * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN @@ -1190,17 +1190,17 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) - $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) -* + $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) +* CALL SBDSVDX( UPLO, 'N', 'A', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'SBDSVDX(values,A)', IINFO, + WRITE( NOUT, FMT = 9998 )'SBDSVDX(values,A)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1224,11 +1224,11 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL SBDT03( UPLO, MNMIN, 1, BD, BE, U, LDPT, S1, VT, $ LDPT, WORK( IWBS+MNMIN ), RESULT( 20 ) ) - CALL SORT01( 'Columns', MNMIN, MNMIN, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Columns', MNMIN, MNMIN, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 21 ) ) - CALL SORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 22) ) * RESULT( 23 ) = ZERO @@ -1272,14 +1272,14 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, IL = ITEMP END IF END IF -* +* CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'I', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) * * Check error code from SBDSVDX. @@ -1313,7 +1313,7 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL SBDSVDX( UPLO, 'N', 'I', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. @@ -1337,13 +1337,13 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * non-increasing order and are non-negative * 29: Compare SBDSVDX with and without singular vectors * - CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 25 ) ) - CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 26 ) ) - CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 27 ) ) * @@ -1368,8 +1368,8 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, 230 CONTINUE RESULT( 29 ) = TEMP2 * -* Use SBDSVDX with RANGE='V': determine the values VL and VU -* of the IL-th and IU-th singular values and ask for all +* Use SBDSVDX with RANGE='V': determine the values VL and VU +* of the IL-th and IU-th singular values and ask for all * singular values in this range. * CALL SCOPY( MNMIN, WORK( IWBS ), 1, S1, 1 ) @@ -1395,21 +1395,21 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, ELSE VL = ZERO VU = ONE - END IF -* + END IF +* CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'V', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'SBDSVDX(vects,V)', IINFO, + WRITE( NOUT, FMT = 9998 )'SBDSVDX(vects,V)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1437,7 +1437,7 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * CALL SBDSVDX( UPLO, 'N', 'V', MNMIN, WORK( IWBD ), $ WORK( IWBE ), VL, VU, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. @@ -1461,13 +1461,13 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, * non-increasing order and are non-negative * 34: Compare SBDSVDX with and without singular vectors * - CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 30 ) ) - CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, + CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 31 ) ) - CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 32 ) ) * diff --git a/TESTING/EIG/schkbk.f b/TESTING/EIG/schkbk.f index 195210126c..d45ad18669 100644 --- a/TESTING/EIG/schkbk.f +++ b/TESTING/EIG/schkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkbl.f b/TESTING/EIG/schkbl.f index 6584cef67e..ea056b8153 100644 --- a/TESTING/EIG/schkbl.f +++ b/TESTING/EIG/schkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkec.f b/TESTING/EIG/schkec.f index 8d3e5d354a..d1079df058 100644 --- a/TESTING/EIG/schkec.f +++ b/TESTING/EIG/schkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkee.f b/TESTING/EIG/schkee.f index ecbef3c10d..99d717e04b 100644 --- a/TESTING/EIG/schkee.f +++ b/TESTING/EIG/schkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKEE -* +* * *> \par Purpose: * ============= @@ -1028,10 +1028,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -1883,8 +1883,8 @@ PROGRAM SCHKEE CALL SDRVST( NN, NVAL, 18, DOTYPE, ISEED, THRESH, $ NOUT, A( 1, 1 ), NMAX, D( 1, 3 ), D( 1, 4 ), $ D( 1, 5 ), D( 1, 6 ), D( 1, 8 ), D( 1, 9 ), - $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, - $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, + $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, + $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRVST', INFO @@ -2163,9 +2163,9 @@ PROGRAM SCHKEE * IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRGES', INFO -* +* * Blocked version -* +* CALL XLAENV(16,1) CALL SDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2229,7 +2229,7 @@ PROGRAM SCHKEE $ WORK, LWORK, RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRGEV', INFO -* +* * Blocked version * CALL SDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, @@ -2468,7 +2468,7 @@ PROGRAM SCHKEE 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver SGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/schkgg.f b/TESTING/EIG/schkgg.f index 3772340e60..a1a786021f 100644 --- a/TESTING/EIG/schkgg.f +++ b/TESTING/EIG/schkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/schkgk.f b/TESTING/EIG/schkgk.f index 944cf0e05e..f5b7216689 100644 --- a/TESTING/EIG/schkgk.f +++ b/TESTING/EIG/schkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkgl.f b/TESTING/EIG/schkgl.f index fc41e48f36..6c3a9ee99b 100644 --- a/TESTING/EIG/schkgl.f +++ b/TESTING/EIG/schkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkhs.f b/TESTING/EIG/schkhs.f index 7543093ef0..e7ded662e2 100644 --- a/TESTING/EIG/schkhs.f +++ b/TESTING/EIG/schkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, EVECTY, * EVECTX, UU, TAU, WORK, NWORK, IWORK, SELECT, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI2( * ), WI3( * ), WORK( * ), * $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/schksb.f b/TESTING/EIG/schksb.f index 8bcb9b9cde..a79943f23c 100644 --- a/TESTING/EIG/schksb.f +++ b/TESTING/EIG/schksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkst.f b/TESTING/EIG/schkst.f index 39cb7d7a74..4931a2f770 100644 --- a/TESTING/EIG/schkst.f +++ b/TESTING/EIG/schkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckcsd.f b/TESTING/EIG/sckcsd.f index 20ba3d66fe..79d27e4f72 100644 --- a/TESTING/EIG/sckcsd.f +++ b/TESTING/EIG/sckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckglm.f b/TESTING/EIG/sckglm.f index 7280abfb76..eeaca4e9d6 100644 --- a/TESTING/EIG/sckglm.f +++ b/TESTING/EIG/sckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckgqr.f b/TESTING/EIG/sckgqr.f index 819cc6fd74..54f88deb90 100644 --- a/TESTING/EIG/sckgqr.f +++ b/TESTING/EIG/sckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckgsv.f b/TESTING/EIG/sckgsv.f index 3b2676d2a8..cecf75ccd5 100644 --- a/TESTING/EIG/sckgsv.f +++ b/TESTING/EIG/sckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/scklse.f b/TESTING/EIG/scklse.f index b28d72d989..d206e4203f 100644 --- a/TESTING/EIG/scklse.f +++ b/TESTING/EIG/scklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/scsdts.f b/TESTING/EIG/scsdts.f index a326f356cf..ca00bd2d17 100644 --- a/TESTING/EIG/scsdts.f +++ b/TESTING/EIG/scsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL SSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL SSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, END DO * RETURN -* +* * End of SCSDTS * END diff --git a/TESTING/EIG/sdrges.f b/TESTING/EIG/sdrges.f index 73f0cb14cc..7ef348b42d 100644 --- a/TESTING/EIG/sdrges.f +++ b/TESTING/EIG/sdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgev.f b/TESTING/EIG/sdrgev.f index 05c3afe947..61135a5791 100644 --- a/TESTING/EIG/sdrgev.f +++ b/TESTING/EIG/sdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index 58c61f08de..4d4816a316 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index 06b94c9f1d..3359f75f24 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ STRU( * ), VL( LDA, * ), VR( LDA, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,32 +213,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -286,10 +286,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvbd.f b/TESTING/EIG/sdrvbd.f index e8bf7ea5b8..ca3451d6ca 100644 --- a/TESTING/EIG/sdrvbd.f +++ b/TESTING/EIG/sdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,7 +131,7 @@ *> *> (29) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for SGESVDX( 'V', 'V', 'I' ) *> *> (30) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -139,7 +139,7 @@ *> (31) | I - U'U | / ( M ulp ) *> *> (32) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for SGESVDX( 'V', 'V', 'V' ) *> *> (33) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -386,16 +386,16 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE CHARACTER*3 PATH - INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, - $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, - $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, + $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, + $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, $ NMAX, NS, NSI, NSV, NTEST - REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, + REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, $ ULPINV, UNFL, VL, VU * .. * .. Local Arrays .. CHARACTER CJOB( 4 ), CJOBR( 3 ), CJOBV( 2 ) - INTEGER IOLDSD( 4 ), ISEED2( 4 ) + INTEGER IOLDSD( 4 ), ISEED2( 4 ) REAL RESULT( 40 ) * .. * .. External Functions .. @@ -403,7 +403,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL SLAMCH, SLARND * .. * .. External Subroutines .. - EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, + EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, $ SGESVDX, SGESVJ, SLABAD, SLACPY, SLASET, $ SLATMS, SORT01, SORT03, XERBLA * .. @@ -904,12 +904,12 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * Test SGESVDX * CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, - $ VTSAV, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + $ VTSAV, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -953,11 +953,11 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, JOBVT = CJOBV( IJVT+1 ) RANGE = CJOBR( 1 ) CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, - $ VL, VU, IL, IU, NS, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, + $ VL, VU, IL, IU, NS, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) -* +* * Compare U * DIF = ZERO @@ -976,7 +976,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IF( M.GT.0 .AND. N.GT.0 ) THEN IF( IJVT.EQ.1 ) THEN CALL SORT03( 'R', N, MNMIN, N, MNMIN, VTSAV, - $ LDVT, VT, LDVT, WORK, LWORK, + $ LDVT, VT, LDVT, WORK, LWORK, $ DIF, IINFO ) END IF END IF @@ -1013,14 +1013,14 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IU = IL IL = ITEMP END IF - END IF + END IF CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1040,11 +1040,11 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1061,14 +1061,14 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, ELSE VL = ZERO VU = ONE - END IF + END IF CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1087,7 +1087,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * End of Loop -- Check for RESULT(j) > THRESH * DO 210 J = 1, 35 - IF( RESULT( J ).GE.THRESH ) THEN + IF( RESULT( J ).GE.THRESH ) THEN IF( NFAIL.EQ.0 ) THEN WRITE( NOUT, FMT = 9999 ) WRITE( NOUT, FMT = 9998 ) @@ -1138,7 +1138,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ' decreasing order, else 1/ulp', $ / '19 = | U - Upartial | / ( M ulp )', $ / '20 = | VT - VTpartial | / ( N ulp )', - $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ ' SGESVDX(V,V,A) ', @@ -1157,7 +1157,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp ),', $ ' SGESVDX(V,V,V) ', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/sdrves.f b/TESTING/EIG/sdrves.f index f6493ea0f2..f443d1354a 100644 --- a/TESTING/EIG/sdrves.f +++ b/TESTING/EIG/sdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvev.f b/TESTING/EIG/sdrvev.f index f728cb4fba..d08cc78417 100644 --- a/TESTING/EIG/sdrvev.f +++ b/TESTING/EIG/sdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvsg.f b/TESTING/EIG/sdrvsg.f index 5cbf775cca..1d397cb807 100644 --- a/TESTING/EIG/sdrvsg.f +++ b/TESTING/EIG/sdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvst.f b/TESTING/EIG/sdrvst.f index 1dea83b0d0..2436e69cc0 100644 --- a/TESTING/EIG/sdrvst.f +++ b/TESTING/EIG/sdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvsx.f b/TESTING/EIG/sdrvsx.f index 9599e54f40..90cfebe285 100644 --- a/TESTING/EIG/sdrvsx.f +++ b/TESTING/EIG/sdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvvx.f b/TESTING/EIG/sdrvvx.f index 64951fe23f..2526c306af 100644 --- a/TESTING/EIG/sdrvvx.f +++ b/TESTING/EIG/sdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -504,10 +504,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/serrbd.f b/TESTING/EIG/serrbd.f index 757825a2da..b9a84b9219 100644 --- a/TESTING/EIG/serrbd.f +++ b/TESTING/EIG/serrbd.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SERRBD tests the error exits for SGEBD2, SGEBRD, SORGBR, SORMBR, +*> SERRBD tests the error exits for SGEBD2, SGEBRD, SORGBR, SORMBR, *> SBDSQR, SBDSDC and SBDSVDX. *> \endverbatim * @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -80,8 +80,8 @@ SUBROUTINE SERRBD( PATH, NUNIT ) * .. Local Arrays .. INTEGER IQ( NMAX, NMAX ), IW( NMAX ) REAL A( NMAX, NMAX ), D( NMAX ), E( NMAX ), - $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), - $ TQ( NMAX ), U( NMAX, NMAX ), + $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), + $ TQ( NMAX ), U( NMAX, NMAX ), $ V( NMAX, NMAX ), W( LW ) * .. * .. External Functions .. @@ -309,51 +309,51 @@ SUBROUTINE SERRBD( PATH, NUNIT ) * SRNAMT = 'SBDSVDX' INFOT = 1 - CALL SBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL SBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL SBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, + CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, + CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, + CALL SBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 0, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 2, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) NT = NT + 12 diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index f99632fa29..25980ad9bd 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index ecd811195c..f4b63ea59a 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -432,51 +432,51 @@ SUBROUTINE SERRED( PATH, NUNIT ) * SRNAMT = 'SGESVDX' INFOT = 1 - CALL SGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL SGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL SGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL SGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL SGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL SGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/serrhs.f b/TESTING/EIG/serrhs.f index c4e3fc3884..dc7c722e0f 100644 --- a/TESTING/EIG/serrhs.f +++ b/TESTING/EIG/serrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/serrst.f b/TESTING/EIG/serrst.f index 7155ff6aad..266e9ec107 100644 --- a/TESTING/EIG/serrst.f +++ b/TESTING/EIG/serrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget02.f b/TESTING/EIG/sget02.f index 8d2a9fba49..3f47f6c4ae 100644 --- a/TESTING/EIG/sget02.f +++ b/TESTING/EIG/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget10.f b/TESTING/EIG/sget10.f index d8fc1fa098..04cd1a32d9 100644 --- a/TESTING/EIG/sget10.f +++ b/TESTING/EIG/sget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget22.f b/TESTING/EIG/sget22.f index 58c60df4bc..257ebd51da 100644 --- a/TESTING/EIG/sget22.f +++ b/TESTING/EIG/sget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget23.f b/TESTING/EIG/sget23.f index 2178296fed..3a9011af2b 100644 --- a/TESTING/EIG/sget23.f +++ b/TESTING/EIG/sget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget24.f b/TESTING/EIG/sget24.f index 33ead76ef5..0c7052eaee 100644 --- a/TESTING/EIG/sget24.f +++ b/TESTING/EIG/sget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget31.f b/TESTING/EIG/sget31.f index 365bb8e2e9..2228666d95 100644 --- a/TESTING/EIG/sget31.f +++ b/TESTING/EIG/sget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget32.f b/TESTING/EIG/sget32.f index a7f5f5781b..ef96088142 100644 --- a/TESTING/EIG/sget32.f +++ b/TESTING/EIG/sget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget33.f b/TESTING/EIG/sget33.f index c7d256fdcf..60e4d1d9cc 100644 --- a/TESTING/EIG/sget33.f +++ b/TESTING/EIG/sget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget34.f b/TESTING/EIG/sget34.f index b7f6fcbd0d..94284c4e5c 100644 --- a/TESTING/EIG/sget34.f +++ b/TESTING/EIG/sget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget35.f b/TESTING/EIG/sget35.f index d9b2c57577..1a19d15ad3 100644 --- a/TESTING/EIG/sget35.f +++ b/TESTING/EIG/sget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget36.f b/TESTING/EIG/sget36.f index 825c6305b1..f5de6ea759 100644 --- a/TESTING/EIG/sget36.f +++ b/TESTING/EIG/sget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget37.f b/TESTING/EIG/sget37.f index 320df9fa85..f140068798 100644 --- a/TESTING/EIG/sget37.f +++ b/TESTING/EIG/sget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget38.f b/TESTING/EIG/sget38.f index 44fea40443..9089b28e4f 100644 --- a/TESTING/EIG/sget38.f +++ b/TESTING/EIG/sget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget39.f b/TESTING/EIG/sget39.f index c934499e35..3531f2804f 100644 --- a/TESTING/EIG/sget39.f +++ b/TESTING/EIG/sget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget51.f b/TESTING/EIG/sget51.f index 22feacbede..cfe933b88f 100644 --- a/TESTING/EIG/sget51.f +++ b/TESTING/EIG/sget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget52.f b/TESTING/EIG/sget52.f index f3debdbdf4..92c4f66e38 100644 --- a/TESTING/EIG/sget52.f +++ b/TESTING/EIG/sget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,7 +62,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(j)=b(j)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget53.f b/TESTING/EIG/sget53.f index 74f4056ebe..91ac1b970c 100644 --- a/TESTING/EIG/sget53.f +++ b/TESTING/EIG/sget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * REAL RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget54.f b/TESTING/EIG/sget54.f index 48324eaacf..24815af973 100644 --- a/TESTING/EIG/sget54.f +++ b/TESTING/EIG/sget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sglmts.f b/TESTING/EIG/sglmts.f index 2e8988a42d..3de44a4133 100644 --- a/TESTING/EIG/sglmts.f +++ b/TESTING/EIG/sglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), RWORK( * ), D( * ), DF( * ), * $ U( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgqrts.f b/TESTING/EIG/sgqrts.f index 725ab258a0..c1815174e5 100644 --- a/TESTING/EIG/sgqrts.f +++ b/TESTING/EIG/sgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ TAUA( * ), TAUB( * ), RESULT( 4 ), * $ RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgrqts.f b/TESTING/EIG/sgrqts.f index b2d692b5d4..8d26936959 100644 --- a/TESTING/EIG/sgrqts.f +++ b/TESTING/EIG/sgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -22,7 +22,7 @@ * $ TAUA( * ), TAUB( * ), * $ RESULT( 4 ), RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgsvts3.f b/TESTING/EIG/sgsvts3.f index 23aa62c77c..f6701e9dd0 100644 --- a/TESTING/EIG/sgsvts3.f +++ b/TESTING/EIG/sgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/shst01.f b/TESTING/EIG/shst01.f index b1c9dbd1f6..067b7c71c8 100644 --- a/TESTING/EIG/shst01.f +++ b/TESTING/EIG/shst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slafts.f b/TESTING/EIG/slafts.f index 0b1c089fc2..f62336a675 100644 --- a/TESTING/EIG/slafts.f +++ b/TESTING/EIG/slafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slahd2.f b/TESTING/EIG/slahd2.f index bdfc510fff..47c5434620 100644 --- a/TESTING/EIG/slahd2.f +++ b/TESTING/EIG/slahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/slarfy.f b/TESTING/EIG/slarfy.f index 461393e92a..19a7fa6dd0 100644 --- a/TESTING/EIG/slarfy.f +++ b/TESTING/EIG/slarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slarhs.f b/TESTING/EIG/slarhs.f index 6cabe40984..44826c775b 100644 --- a/TESTING/EIG/slarhs.f +++ b/TESTING/EIG/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slasum.f b/TESTING/EIG/slasum.f index d673954a70..3ac751a60d 100644 --- a/TESTING/EIG/slasum.f +++ b/TESTING/EIG/slasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * Purpose * ======= * @@ -28,10 +28,10 @@ * Authors: * ======== * -* \author Univ. of Tennessee -* \author Univ. of California Berkeley -* \author Univ. of Colorado Denver -* \author NAG Ltd. +* \author Univ. of Tennessee +* \author Univ. of California Berkeley +* \author Univ. of Colorado Denver +* \author NAG Ltd. * * \date November 2011 * diff --git a/TESTING/EIG/slatb9.f b/TESTING/EIG/slatb9.f index ad612073c2..1fda5c1055 100644 --- a/TESTING/EIG/slatb9.f +++ b/TESTING/EIG/slatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, * KLB, KUB, ANORM, BNORM, MODEA, MODEB, * CNDNMA, CNDNMB, DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KUA, KLB, KUB, M, P, MODEA, MODEB, N * REAL ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -276,7 +276,7 @@ SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, ELSE * * A: general dense, B: general dense -* +* KLA = MAX( M-1, 0 ) KUA = MAX( N-1, 0 ) KLB = MAX( P-1, 0 ) diff --git a/TESTING/EIG/slatm4.f b/TESTING/EIG/slatm4.f index d2e52d4f92..787b5bc493 100644 --- a/TESTING/EIG/slatm4.f +++ b/TESTING/EIG/slatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * REAL AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slctes.f b/TESTING/EIG/slctes.f index 9be9e3df90..325841c7c0 100644 --- a/TESTING/EIG/slctes.f +++ b/TESTING/EIG/slctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * REAL D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/slctsx.f b/TESTING/EIG/slctsx.f index d17064514f..e8bd23c511 100644 --- a/TESTING/EIG/slctsx.f +++ b/TESTING/EIG/slctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * REAL AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slsets.f b/TESTING/EIG/slsets.f index 50a8a6c742..b4eee11102 100644 --- a/TESTING/EIG/slsets.f +++ b/TESTING/EIG/slsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * $ BF( LDB, * ), RESULT( 2 ), RWORK( * ), * $ C( * ), D( * ), CF( * ), DF( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sort01.f b/TESTING/EIG/sort01.f index 4e7b0b04e8..f59b1fb116 100644 --- a/TESTING/EIG/sort01.f +++ b/TESTING/EIG/sort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sort03.f b/TESTING/EIG/sort03.f index ade9a4f335..12f0b51cf2 100644 --- a/TESTING/EIG/sort03.f +++ b/TESTING/EIG/sort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssbt21.f b/TESTING/EIG/ssbt21.f index 88dd0a876c..a47f5a7218 100644 --- a/TESTING/EIG/ssbt21.f +++ b/TESTING/EIG/ssbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssgt01.f b/TESTING/EIG/ssgt01.f index f60a28baa1..b0795c2d59 100644 --- a/TESTING/EIG/ssgt01.f +++ b/TESTING/EIG/ssgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sslect.f b/TESTING/EIG/sslect.f index 5127df3d20..b8c3df53d4 100644 --- a/TESTING/EIG/sslect.f +++ b/TESTING/EIG/sslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * REAL ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sspt21.f b/TESTING/EIG/sspt21.f index 69dc683587..7e45ab8445 100644 --- a/TESTING/EIG/sspt21.f +++ b/TESTING/EIG/sspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * REAL AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstech.f b/TESTING/EIG/sstech.f index 3ed8cb12e8..37fe2985a7 100644 --- a/TESTING/EIG/sstech.f +++ b/TESTING/EIG/sstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstect.f b/TESTING/EIG/sstect.f index 9033a4eaa7..54e3a292b4 100644 --- a/TESTING/EIG/sstect.f +++ b/TESTING/EIG/sstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstt21.f b/TESTING/EIG/sstt21.f index 08fcf9faef..e9d7386267 100644 --- a/TESTING/EIG/sstt21.f +++ b/TESTING/EIG/sstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstt22.f b/TESTING/EIG/sstt22.f index 607e8532ff..1ee63d98fd 100644 --- a/TESTING/EIG/sstt22.f +++ b/TESTING/EIG/sstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssvdch.f b/TESTING/EIG/ssvdch.f index 1bee8001e4..5261bdabce 100644 --- a/TESTING/EIG/ssvdch.f +++ b/TESTING/EIG/ssvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssvdct.f b/TESTING/EIG/ssvdct.f index 60af26fa4d..ed52fb6032 100644 --- a/TESTING/EIG/ssvdct.f +++ b/TESTING/EIG/ssvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssxt1.f b/TESTING/EIG/ssxt1.f index 164633cc74..0fb3aee43b 100644 --- a/TESTING/EIG/ssxt1.f +++ b/TESTING/EIG/ssxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * REAL ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssyt21.f b/TESTING/EIG/ssyt21.f index d2ce8bf643..0b260f41cb 100644 --- a/TESTING/EIG/ssyt21.f +++ b/TESTING/EIG/ssyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssyt22.f b/TESTING/EIG/ssyt22.f index dbc0438a54..065af46fbd 100644 --- a/TESTING/EIG/ssyt22.f +++ b/TESTING/EIG/ssyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/xerbla.f b/TESTING/EIG/xerbla.f index 8694ff1ff7..821d5a5b79 100644 --- a/TESTING/EIG/xerbla.f +++ b/TESTING/EIG/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/xlaenv.f b/TESTING/EIG/xlaenv.f index 66705f8563..d8a87077aa 100644 --- a/TESTING/EIG/xlaenv.f +++ b/TESTING/EIG/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt01.f b/TESTING/EIG/zbdt01.f index 419f1642cb..cd4154a34a 100644 --- a/TESTING/EIG/zbdt01.f +++ b/TESTING/EIG/zbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt02.f b/TESTING/EIG/zbdt02.f index e517c871ca..2da9d905f8 100644 --- a/TESTING/EIG/zbdt02.f +++ b/TESTING/EIG/zbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt03.f b/TESTING/EIG/zbdt03.f index 6f1d443f9f..00fc4009fe 100644 --- a/TESTING/EIG/zbdt03.f +++ b/TESTING/EIG/zbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ) * COMPLEX*16 U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index e64c93b0d9..b525e37c2b 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * DOUBLE PRECISION RESID @@ -61,14 +61,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -110,17 +110,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/zchkbb.f b/TESTING/EIG/zchkbb.f index 3563f5fdee..d641d47ae5 100644 --- a/TESTING/EIG/zchkbb.f +++ b/TESTING/EIG/zchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkbd.f b/TESTING/EIG/zchkbd.f index 493b7804ce..fa68d60a94 100644 --- a/TESTING/EIG/zchkbd.f +++ b/TESTING/EIG/zchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zchkbk.f b/TESTING/EIG/zchkbk.f index 9ee7746403..2d66ec1948 100644 --- a/TESTING/EIG/zchkbk.f +++ b/TESTING/EIG/zchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkbl.f b/TESTING/EIG/zchkbl.f index 66af6713b0..b17f931e40 100644 --- a/TESTING/EIG/zchkbl.f +++ b/TESTING/EIG/zchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkec.f b/TESTING/EIG/zchkec.f index ed2229451c..c3e1ffd067 100644 --- a/TESTING/EIG/zchkec.f +++ b/TESTING/EIG/zchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/TESTING/EIG/zchkee.f b/TESTING/EIG/zchkee.f index 2588060bac..9ca71ceefb 100644 --- a/TESTING/EIG/zchkee.f +++ b/TESTING/EIG/zchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKEE -* +* * *> \par Purpose: * ============= @@ -1022,10 +1022,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -2157,7 +2157,7 @@ PROGRAM ZCHKEE $ WRITE( NOUT, FMT = 9980 )'ZDRGES', INFO * * Blocked version -* +* CALL ZDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), @@ -2222,7 +2222,7 @@ PROGRAM ZCHKEE $ WRITE( NOUT, FMT = 9980 )'ZDRGEV', INFO * * Blocked version -* +* CALL XLAENV(16,2) CALL ZDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2461,7 +2461,7 @@ PROGRAM ZCHKEE 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver ZGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/zchkgg.f b/TESTING/EIG/zchkgg.f index 53bd07a1a0..5e16afbf87 100644 --- a/TESTING/EIG/zchkgg.f +++ b/TESTING/EIG/zchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zchkgk.f b/TESTING/EIG/zchkgk.f index 37a72f6a12..4201048c0b 100644 --- a/TESTING/EIG/zchkgk.f +++ b/TESTING/EIG/zchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkgl.f b/TESTING/EIG/zchkgl.f index c0845868cc..97e134a001 100644 --- a/TESTING/EIG/zchkgl.f +++ b/TESTING/EIG/zchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkhb.f b/TESTING/EIG/zchkhb.f index f923496e7c..39bd829996 100644 --- a/TESTING/EIG/zchkhb.f +++ b/TESTING/EIG/zchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f index a2433944e7..c0a4707486 100644 --- a/TESTING/EIG/zchkhs.f +++ b/TESTING/EIG/zchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkst.f b/TESTING/EIG/zchkst.f index d62ce26aaf..562d80296e 100644 --- a/TESTING/EIG/zchkst.f +++ b/TESTING/EIG/zchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckcsd.f b/TESTING/EIG/zckcsd.f index 99ed5bd5de..734922ed76 100644 --- a/TESTING/EIG/zckcsd.f +++ b/TESTING/EIG/zckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckglm.f b/TESTING/EIG/zckglm.f index ed05544f72..00a5914e6d 100644 --- a/TESTING/EIG/zckglm.f +++ b/TESTING/EIG/zckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckgqr.f b/TESTING/EIG/zckgqr.f index fccac22164..c12edc9f8e 100644 --- a/TESTING/EIG/zckgqr.f +++ b/TESTING/EIG/zckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckgsv.f b/TESTING/EIG/zckgsv.f index ace98cee0f..d5bfe2b125 100644 --- a/TESTING/EIG/zckgsv.f +++ b/TESTING/EIG/zckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/zcklse.f b/TESTING/EIG/zcklse.f index a3cfa033cd..79212b3167 100644 --- a/TESTING/EIG/zcklse.f +++ b/TESTING/EIG/zcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zcsdts.f b/TESTING/EIG/zcsdts.f index bc6afb417a..d411c85d6f 100644 --- a/TESTING/EIG/zcsdts.f +++ b/TESTING/EIG/zcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL ZHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, CALL ZHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, END DO * RETURN -* +* * End of ZCSDTS * END diff --git a/TESTING/EIG/zdrges.f b/TESTING/EIG/zdrges.f index a0a76b9589..b90764e483 100644 --- a/TESTING/EIG/zdrges.f +++ b/TESTING/EIG/zdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgev.f b/TESTING/EIG/zdrgev.f index 6f745d1807..7a7d2a00c8 100644 --- a/TESTING/EIG/zdrgev.f +++ b/TESTING/EIG/zdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index 3714b705a4..2c26b8d1e8 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, * RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index f36007b3bf..9c2ba3a1e0 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,32 +204,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -261,7 +261,7 @@ *> Leading dimension of IWORK. LIWORK >= N+2. *> \endverbatim *> -*> \param[out] RESULT +*> \param[out] RESULT *> \verbatim *> RESULT is DOUBLE PRECISION array, dimension (4) *> \endverbatim @@ -282,10 +282,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvbd.f b/TESTING/EIG/zdrvbd.f index d8388eed7c..c4457e284c 100644 --- a/TESTING/EIG/zdrvbd.f +++ b/TESTING/EIG/zdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,7 +132,7 @@ *> *> (7) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for ZGESVDX( 'V', 'V', 'I' ) *> *> (8) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -140,7 +140,7 @@ *> (9) | I - U'U | / ( M ulp ) *> *> (10) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for ZGESVDX( 'V', 'V', 'V' ) *> *> (11) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -423,12 +423,12 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. Local Scalars .. LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE - INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, - $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, - $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, - $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, + $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, + $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, + $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, $ NTESTF, NTESTT, LRWORK - DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, + DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, $ UNFL, VL, VU * .. * .. Local Arrays .. @@ -442,7 +442,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZBDT01, ZBDT05, ZGESDD, - $ ZGESVD, ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, + $ ZGESVD, ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, $ ZLASET, ZLATMS, ZUNT01, ZUNT03 * .. * .. Intrinsic Functions .. @@ -858,7 +858,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, CALL ZLACPY( 'F', M, N, ASAV, LDA, USAV, LDA ) SRNAMT = 'ZGESVJ' CALL ZGESVJ( 'G', 'U', 'V', M, N, USAV, LDA, SSAV, - & 0, A, LDVT, WORK, LWORK, RWORK, + & 0, A, LDVT, WORK, LWORK, RWORK, & LRWORK, IINFO ) * * ZGESVJ retuns V not VT, so we transpose to use the same @@ -920,7 +920,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, SRNAMT = 'ZGEJSV' CALL ZGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', & M, N, VTSAV, LDA, SSAV, USAV, LDU, A, LDVT, - & WORK, LWORK, RWORK, + & WORK, LWORK, RWORK, & LRWORK, IWORK, IINFO ) * * ZGEJSV retuns V not VT, so we transpose to use the same @@ -968,8 +968,8 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + CALL ZGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, $ VTSAV, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN @@ -1018,8 +1018,8 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, RANGE = CJOBR( 1 ) CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, U, LDU, + CALL ZGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) * @@ -1079,15 +1079,15 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, IU = IL IL = ITEMP END IF - END IF + END IF CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, + CALL ZGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1109,11 +1109,11 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1130,15 +1130,15 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, ELSE VL = ZERO VU = ONE - END IF + END IF CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, + CALL ZGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1221,7 +1221,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ' decreasing order, else 1/ulp', $ / '12 = | U - Upartial | / ( M ulp )', $ / '13 = | VT - VTpartial | / ( N ulp )', - $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / ' ZGESVJ: ', / $ / '15 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ) ', $ / '16 = | I - U**T U | / ( M ulp ) ', @@ -1231,7 +1231,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / ' ZGESJV: ', / $ / '19 = | A - U diag(S) VT | / ( |A| max(M,N) ulp )', $ / '20 = | I - U**T U | / ( M ulp ) ', - $ / '21 = | I - VT VT**T | / ( N ulp ) ', + $ / '21 = | I - VT VT**T | / ( N ulp ) ', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / ' ZGESVDX(V,V,A): ', / @@ -1250,7 +1250,7 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ / ' ZGESVDX(V,V,V) ', $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp )', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/zdrves.f b/TESTING/EIG/zdrves.f index 15f5debcb1..4590f36d66 100644 --- a/TESTING/EIG/zdrves.f +++ b/TESTING/EIG/zdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvev.f b/TESTING/EIG/zdrvev.f index de5a03b291..f2a72d352e 100644 --- a/TESTING/EIG/zdrvev.f +++ b/TESTING/EIG/zdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvsg.f b/TESTING/EIG/zdrvsg.f index f2c791e8c1..79f34b08cb 100644 --- a/TESTING/EIG/zdrvsg.f +++ b/TESTING/EIG/zdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvst.f b/TESTING/EIG/zdrvst.f index aee691fea7..333f6622ea 100644 --- a/TESTING/EIG/zdrvst.f +++ b/TESTING/EIG/zdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvsx.f b/TESTING/EIG/zdrvsx.f index 96cb236538..7265b7b528 100644 --- a/TESTING/EIG/zdrvsx.f +++ b/TESTING/EIG/zdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvvx.f b/TESTING/EIG/zdrvvx.f index 00c91fec6f..8fd1c4d2fd 100644 --- a/TESTING/EIG/zdrvvx.f +++ b/TESTING/EIG/zdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zerrbd.f b/TESTING/EIG/zerrbd.f index 17c20fb560..ee8b87d358 100644 --- a/TESTING/EIG/zerrbd.f +++ b/TESTING/EIG/zerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 91a81f3e79..7ea308b225 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index 9179b1df0f..66ed5965e1 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -100,7 +100,7 @@ SUBROUTINE ZERRED( PATH, NUNIT ) $ VT( NMAX, NMAX ), W( 10*NMAX ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, + EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, $ ZGESDD, ZGESVD * .. * .. External Functions .. @@ -441,51 +441,51 @@ SUBROUTINE ZERRED( PATH, NUNIT ) * SRNAMT = 'ZGESVDX' INFOT = 1 - CALL ZGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL ZGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL ZGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL ZGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL ZGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/zerrgg.f b/TESTING/EIG/zerrgg.f index a913633241..057a397c1f 100644 --- a/TESTING/EIG/zerrgg.f +++ b/TESTING/EIG/zerrgg.f @@ -214,7 +214,7 @@ SUBROUTINE ZERRGG( PATH, NUNIT ) $ INFO ) CALL CHKXER( 'ZGGHD3', INFOT, NOUT, LERR, OK ) NT = NT + 9 -* +* * ZHGEQZ * SRNAMT = 'ZHGEQZ' diff --git a/TESTING/EIG/zerrhs.f b/TESTING/EIG/zerrhs.f index ab36b649cb..2f1e728c52 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerrst.f b/TESTING/EIG/zerrst.f index a3e992e27c..92c9e52cb0 100644 --- a/TESTING/EIG/zerrst.f +++ b/TESTING/EIG/zerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget02.f b/TESTING/EIG/zget02.f index 5479139319..415b0bc24f 100644 --- a/TESTING/EIG/zget02.f +++ b/TESTING/EIG/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget10.f b/TESTING/EIG/zget10.f index 53765d4e25..6d5b268bdf 100644 --- a/TESTING/EIG/zget10.f +++ b/TESTING/EIG/zget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget22.f b/TESTING/EIG/zget22.f index 570d25bb06..05e33e5ccc 100644 --- a/TESTING/EIG/zget22.f +++ b/TESTING/EIG/zget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget23.f b/TESTING/EIG/zget23.f index 773cb5714d..aa8f693ce0 100644 --- a/TESTING/EIG/zget23.f +++ b/TESTING/EIG/zget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget24.f b/TESTING/EIG/zget24.f index ea2241304e..9446fc4cc6 100644 --- a/TESTING/EIG/zget24.f +++ b/TESTING/EIG/zget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget35.f b/TESTING/EIG/zget35.f index c4ed5c1f5b..8e49267370 100644 --- a/TESTING/EIG/zget35.f +++ b/TESTING/EIG/zget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget36.f b/TESTING/EIG/zget36.f index f5dff9496c..9dcf0b8d87 100644 --- a/TESTING/EIG/zget36.f +++ b/TESTING/EIG/zget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget37.f b/TESTING/EIG/zget37.f index 4bc8d3c93a..a2946dec32 100644 --- a/TESTING/EIG/zget37.f +++ b/TESTING/EIG/zget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget38.f b/TESTING/EIG/zget38.f index 347681fbe6..84d71e4247 100644 --- a/TESTING/EIG/zget38.f +++ b/TESTING/EIG/zget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget51.f b/TESTING/EIG/zget51.f index 628914ca79..7bd0c4c23c 100644 --- a/TESTING/EIG/zget51.f +++ b/TESTING/EIG/zget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget52.f b/TESTING/EIG/zget52.f index 8dc4d91f90..5a284bfbb6 100644 --- a/TESTING/EIG/zget52.f +++ b/TESTING/EIG/zget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> If a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget54.f b/TESTING/EIG/zget54.f index 2ca0389d3b..b5427d2e23 100644 --- a/TESTING/EIG/zget54.f +++ b/TESTING/EIG/zget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zglmts.f b/TESTING/EIG/zglmts.f index 469f8d26a4..aa2e6572ae 100644 --- a/TESTING/EIG/zglmts.f +++ b/TESTING/EIG/zglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgqrts.f b/TESTING/EIG/zgqrts.f index 1e00659b68..303bde7ccb 100644 --- a/TESTING/EIG/zgqrts.f +++ b/TESTING/EIG/zgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgrqts.f b/TESTING/EIG/zgrqts.f index 9575ba3f62..f56dad7c57 100644 --- a/TESTING/EIG/zgrqts.f +++ b/TESTING/EIG/zgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgsvts3.f b/TESTING/EIG/zgsvts3.f index 8a5c2d4cc5..b9f682b7a3 100644 --- a/TESTING/EIG/zgsvts3.f +++ b/TESTING/EIG/zgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/zhbt21.f b/TESTING/EIG/zhbt21.f index 0933d72671..3c61a4b043 100644 --- a/TESTING/EIG/zhbt21.f +++ b/TESTING/EIG/zhbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhet21.f b/TESTING/EIG/zhet21.f index 680d4044bc..8987bd197a 100644 --- a/TESTING/EIG/zhet21.f +++ b/TESTING/EIG/zhet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhet22.f b/TESTING/EIG/zhet22.f index 82137bdd0a..7c3bc4b6f5 100644 --- a/TESTING/EIG/zhet22.f +++ b/TESTING/EIG/zhet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhpt21.f b/TESTING/EIG/zhpt21.f index a840c164d8..ff55b105a9 100644 --- a/TESTING/EIG/zhpt21.f +++ b/TESTING/EIG/zhpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhst01.f b/TESTING/EIG/zhst01.f index da55e2a47f..fc2293ed63 100644 --- a/TESTING/EIG/zhst01.f +++ b/TESTING/EIG/zhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlarfy.f b/TESTING/EIG/zlarfy.f index 9b9b80b60e..39b795f069 100644 --- a/TESTING/EIG/zlarfy.f +++ b/TESTING/EIG/zlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlarhs.f b/TESTING/EIG/zlarhs.f index 6180d632f9..b144b764cf 100644 --- a/TESTING/EIG/zlarhs.f +++ b/TESTING/EIG/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlatm4.f b/TESTING/EIG/zlatm4.f index d0b39e2be5..42ea5fda6d 100644 --- a/TESTING/EIG/zlatm4.f +++ b/TESTING/EIG/zlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlctes.f b/TESTING/EIG/zlctes.f index e0acd882f6..f4feec30a4 100644 --- a/TESTING/EIG/zlctes.f +++ b/TESTING/EIG/zlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX*16 D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zlctsx.f b/TESTING/EIG/zlctsx.f index 11be2dd14e..2534cb867b 100644 --- a/TESTING/EIG/zlctsx.f +++ b/TESTING/EIG/zlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlsets.f b/TESTING/EIG/zlsets.f index 06b11ffd7f..685e0068c6 100644 --- a/TESTING/EIG/zlsets.f +++ b/TESTING/EIG/zlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zsbmv.f b/TESTING/EIG/zsbmv.f index 6b8dbb45bb..8da30f03bd 100644 --- a/TESTING/EIG/zsbmv.f +++ b/TESTING/EIG/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zsgt01.f b/TESTING/EIG/zsgt01.f index b89f8c867c..193ff50149 100644 --- a/TESTING/EIG/zsgt01.f +++ b/TESTING/EIG/zsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zslect.f b/TESTING/EIG/zslect.f index 1d6ef4d56c..14d4ad2b5e 100644 --- a/TESTING/EIG/zslect.f +++ b/TESTING/EIG/zslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX*16 Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zstt21.f b/TESTING/EIG/zstt21.f index 562a5a2c37..370c92f208 100644 --- a/TESTING/EIG/zstt21.f +++ b/TESTING/EIG/zstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zstt22.f b/TESTING/EIG/zstt22.f index 546562f427..e0d2494db1 100644 --- a/TESTING/EIG/zstt22.f +++ b/TESTING/EIG/zstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zunt01.f b/TESTING/EIG/zunt01.f index e440463b08..4312f3a103 100644 --- a/TESTING/EIG/zunt01.f +++ b/TESTING/EIG/zunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zunt03.f b/TESTING/EIG/zunt03.f index fa1dfb8d4a..b63adeaf92 100644 --- a/TESTING/EIG/zunt03.f +++ b/TESTING/EIG/zunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index 7c36ab3a9e..50d16cab31 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -1,39 +1,39 @@ -set(ALINTST - aladhd.f alaerh.f alaesm.f alahd.f alareq.f +set(ALINTST + aladhd.f alaerh.f alaesm.f alahd.f alareq.f alasum.f alasvm.f chkxer.f icopy.f ilaenv.f xlaenv.f xerbla.f) set(SCLNTST slaord.f) set(DZLNTST dlaord.f ) -set(SLINTST schkaa.f - schkeq.f schkgb.f schkge.f schkgt.f - schklq.f schkpb.f schkpo.f schkps.f schkpp.f - schkpt.f schkq3.f schkql.f schkqr.f schkrq.f - schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f - schktz.f - sdrvgt.f sdrvls.f sdrvpb.f +set(SLINTST schkaa.f + schkeq.f schkgb.f schkge.f schkgt.f + schklq.f schkpb.f schkpo.f schkps.f schkpp.f + schkpt.f schkq3.f schkql.f schkqr.f schkrq.f + schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f + schktz.f + sdrvgt.f sdrvls.f sdrvpb.f sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy.f sdrvsy_rook.f - serrgt.f serrlq.f serrls.f - serrpo.f serrps.f serrql.f serrqp.f serrqr.f - serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f - sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f - sgerqs.f sget01.f sget02.f - sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f - sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f - slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f - slqt03.f spbt01.f spbt02.f spbt05.f spot01.f - spot02.f spot03.f spot05.f spst01.f sppt01.f - sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f - sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f - sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f - sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f - srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f + serrgt.f serrlq.f serrls.f + serrpo.f serrps.f serrql.f serrqp.f serrqr.f + serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f + sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f + sgerqs.f sget01.f sget02.f + sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f + sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f + slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f + slqt03.f spbt01.f spbt02.f spbt05.f spot01.f + spot02.f spot03.f spot05.f spst01.f sppt01.f + sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f + sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f + sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f + sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f + srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f sspt01.f ssyt01.f ssyt01_rook.f - stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f - stpt02.f stpt03.f stpt05.f stpt06.f strt01.f - strt02.f strt03.f strt05.f strt06.f - sgennd.f + stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f + stpt02.f stpt03.f stpt05.f stpt06.f strt01.f + strt02.f strt03.f strt05.f strt06.f + sgennd.f sqrt04.f sqrt05.f schkqrt.f serrqrt.f schkqrtp.f serrqrtp.f) if(USEXBLAS) @@ -42,116 +42,116 @@ else() list(APPEND SLINTST sdrvge.f serrge.f sdrvgb.f sdrvpo.f) endif() -set(CLINTST cchkaa.f - cchkeq.f cchkgb.f cchkge.f cchkgt.f - cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f - cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f - cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f - cchktp.f cchktr.f cchktz.f - cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f - cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f +set(CLINTST cchkaa.f + cchkeq.f cchkgb.f cchkge.f cchkgt.f + cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f + cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f + cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f + cchktp.f cchktr.f cchktz.f + cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f + cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f cdrvsp.f cdrvsy.f cdrvsy_rook.f - cerrgt.f cerrhe.f cerrlq.f - cerrls.f cerrps.f cerrql.f cerrqp.f - cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f - cerrvx.f - cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f - cgerqs.f cget01.f cget02.f - cget03.f cget04.f cget07.f cgtt01.f cgtt02.f - cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f - clatsp.f clatsy.f clattb.f clattp.f clattr.f - clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f - clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f - cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f - cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f - cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f - cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f - cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f - cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f - csbmv.f cspt01.f - cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f - ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f - ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f - ctrt02.f ctrt03.f ctrt05.f ctrt06.f + cerrgt.f cerrhe.f cerrlq.f + cerrls.f cerrps.f cerrql.f cerrqp.f + cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f + cerrvx.f + cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f + cgerqs.f cget01.f cget02.f + cget03.f cget04.f cget07.f cgtt01.f cgtt02.f + cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f + clatsp.f clatsy.f clattb.f clattp.f clattr.f + clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f + clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f + cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f + cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f + cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f + cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f + cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f + cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f + csbmv.f cspt01.f + cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f + ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f + ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f + ctrt02.f ctrt03.f ctrt05.f ctrt06.f sget06.f cgennd.f cqrt04.f cqrt05.f cchkqrt.f cerrqrt.f cchkqrtp.f cerrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND CLINTST cdrvgex.f cdrvgbx.f cerrgex.f cdrvpox.f cerrpox.f cebchvxx.f) else() list(APPEND CLINTST cdrvge.f cdrvgb.f cerrge.f cdrvpo.f cerrpo.f) endif() -set(DLINTST dchkaa.f - dchkeq.f dchkgb.f dchkge.f dchkgt.f - dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f - dchkpt.f dchkq3.f dchkql.f dchkqr.f dchkrq.f - dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f - dchktz.f - ddrvgt.f ddrvls.f ddrvpb.f +set(DLINTST dchkaa.f + dchkeq.f dchkgb.f dchkge.f dchkgt.f + dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f + dchkpt.f dchkq3.f dchkql.f dchkqr.f dchkrq.f + dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f + dchktz.f + ddrvgt.f ddrvls.f ddrvpb.f ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy.f ddrvsy_rook.f - derrgt.f derrlq.f derrls.f - derrps.f derrql.f derrqp.f derrqr.f - derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f - dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f - dgerqs.f dget01.f dget02.f - dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f - dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f - dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f - dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f - dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f - dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f - dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f - dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f - dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f - drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f + derrgt.f derrlq.f derrls.f + derrps.f derrql.f derrqp.f derrqr.f + derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f + dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f + dgerqs.f dget01.f dget02.f + dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f + dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f + dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f + dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f + dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f + dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f + dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f + dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f + dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f + drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f dspt01.f dsyt01.f dsyt01_rook.f - dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f - dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f - dtrt02.f dtrt03.f dtrt05.f dtrt06.f + dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f + dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f + dtrt02.f dtrt03.f dtrt05.f dtrt06.f dgennd.f dqrt04.f dqrt05.f dchkqrt.f derrqrt.f dchkqrtp.f derrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND DLINTST ddrvgex.f ddrvgbx.f derrgex.f ddrvpox.f derrpox.f debchvxx.f) else() list(APPEND DLINTST ddrvge.f ddrvgb.f derrge.f ddrvpo.f derrpo.f) endif() -set(ZLINTST zchkaa.f - zchkeq.f zchkgb.f zchkge.f zchkgt.f - zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f - zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f - zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f - zchktp.f zchktr.f zchktz.f - zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f - zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f - zdrvsp.f zdrvsy.f zdrvsy_rook.f - zerrgt.f zerrhe.f zerrlq.f - zerrls.f zerrps.f zerrql.f zerrqp.f - zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f - zerrvx.f - zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f - zgerqs.f zget01.f zget02.f - zget03.f zget04.f zget07.f zgtt01.f zgtt02.f - zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f - zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f - zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f - zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f - zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f - zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f - zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f - zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f - zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f - zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f - zsbmv.f zspt01.f - zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f - ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f - ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f - ztrt02.f ztrt03.f ztrt05.f ztrt06.f +set(ZLINTST zchkaa.f + zchkeq.f zchkgb.f zchkge.f zchkgt.f + zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f + zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f + zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f + zchktp.f zchktr.f zchktz.f + zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f + zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f + zdrvsp.f zdrvsy.f zdrvsy_rook.f + zerrgt.f zerrhe.f zerrlq.f + zerrls.f zerrps.f zerrql.f zerrqp.f + zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f + zerrvx.f + zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f + zgerqs.f zget01.f zget02.f + zget03.f zget04.f zget07.f zgtt01.f zgtt02.f + zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f + zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f + zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f + zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f + zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f + zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f + zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f + zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f + zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f + zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f + zsbmv.f zspt01.f + zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f + ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f + ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f + ztrt02.f ztrt03.f ztrt05.f ztrt06.f dget06.f zgennd.f zqrt04.f zqrt05.f zchkqrt.f zerrqrt.f zchkqrtp.f zerrqrtp.f ) @@ -163,32 +163,32 @@ else() ZLINTST zdrvge.f zdrvgb.f zerrge.f zdrvpo.f zerrpo.f) endif() -set(DSLINTST dchkab.f - ddrvab.f ddrvac.f derrab.f derrac.f dget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f dlarhs.f dlatb4.f xerbla.f +set(DSLINTST dchkab.f + ddrvab.f ddrvac.f derrab.f derrac.f dget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f dlarhs.f dlatb4.f xerbla.f dget02.f dpot06.f) -set(ZCLINTST zchkab.f - zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f zget02.f zlarhs.f zlatb4.f +set(ZCLINTST zchkab.f + zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f zget02.f zlarhs.f zlatb4.f zsbmv.f xerbla.f zpot06.f zlaipd.f) -set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f - slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f +set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f + slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f - dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f +set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f + dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f - claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f +set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f + claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f - zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f +set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f + zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) macro(add_lin_executable name ) diff --git a/TESTING/LIN/Makefile b/TESTING/LIN/Makefile index 9db8b38af6..57d4fe25ad 100644 --- a/TESTING/LIN/Makefile +++ b/TESTING/LIN/Makefile @@ -45,7 +45,7 @@ ALINTST = \ SCLNTST= slaord.o -DZLNTST= dlaord.o +DZLNTST= dlaord.o SLINTST = schkaa.o \ schkeq.o schkgb.o schkge.o schkgt.o \ @@ -218,26 +218,26 @@ ZCLINTST = zchkab.o \ SLINTSTRFP = schkrfp.o sdrvrfp.o sdrvrf1.o sdrvrf2.o sdrvrf3.o sdrvrf4.o serrrfp.o \ slatb4.o slarhs.o sget04.o spot01.o spot03.o spot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o DLINTSTRFP = dchkrfp.o ddrvrfp.o ddrvrf1.o ddrvrf2.o ddrvrf3.o ddrvrf4.o derrrfp.o \ dlatb4.o dlarhs.o dget04.o dpot01.o dpot03.o dpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o CLINTSTRFP = cchkrfp.o cdrvrfp.o cdrvrf1.o cdrvrf2.o cdrvrf3.o cdrvrf4.o cerrrfp.o \ claipd.o clatb4.o clarhs.o csbmv.o cget04.o cpot01.o cpot03.o cpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o ZLINTSTRFP = zchkrfp.o zdrvrfp.o zdrvrf1.o zdrvrf2.o zdrvrf3.o zdrvrf4.o zerrrfp.o \ zlatb4.o zlaipd.o zlarhs.o zsbmv.o zget04.o zpot01.o zpot03.o zpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o all: single double complex complex16 proto-single proto-double proto-complex proto-complex16 single: ../xlintsts -double: ../xlintstd +double: ../xlintstd complex: ../xlintstc -complex16: ../xlintstz +complex16: ../xlintstz proto-single: ../xlintstrfs proto-double: ../xlintstds ../xlintstrfd @@ -251,39 +251,39 @@ xlintsts : $(ALINTST) $(SLINTST) $(SCLNTST) ../../$(LAPACKLIB) xlintstc : $(ALINTST) $(CLINTST) $(SCLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ALINTST) $(SCLNTST) $(CLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstd : $(ALINTST) $(DLINTST) $(DZLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $^ \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstz : $(ALINTST) $(ZLINTST) $(DZLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ALINTST) $(DZLNTST) $(ZLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstds : $(DSLINTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(DSLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstzc : $(ZCLINTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ZCLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfs : $(SLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(SLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfd : $(DLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(DLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfc : $(CLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(CLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfz : $(ZLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ZLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + ../xlintsts: xlintsts mv xlintsts $@ @@ -324,7 +324,7 @@ $(ZLINTST): $(FRC) FRC: @FRC=$(FRC) - + clean: rm -f *.o @@ -336,8 +336,8 @@ cchkaa.o: cchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ zchkaa.o: zchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ .NOTPARALLEL: diff --git a/TESTING/LIN/alaerh.f b/TESTING/LIN/alaerh.f index 2f58e85c81..2f45b1d27c 100644 --- a/TESTING/LIN/alaerh.f +++ b/TESTING/LIN/alaerh.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, * N5, IMAT, NFAIL, NERRS, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * CHARACTER*( * ) SUBNAM @@ -18,7 +18,7 @@ * INTEGER IMAT, INFO, INFOE, KL, KU, M, N, N5, NERRS, * $ NFAIL, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/alaesm.f b/TESTING/LIN/alaesm.f index 3af32da83b..536c222e80 100644 --- a/TESTING/LIN/alaesm.f +++ b/TESTING/LIN/alaesm.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAESM( PATH, OK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL OK * CHARACTER*3 PATH * INTEGER NOUT * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alareq.f b/TESTING/LIN/alareq.f index 4bbef51e0c..eccace25a6 100644 --- a/TESTING/LIN/alareq.f +++ b/TESTING/LIN/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alasum.f b/TESTING/LIN/alasum.f index 16c9564204..fad44944e1 100644 --- a/TESTING/LIN/alasum.f +++ b/TESTING/LIN/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alasvm.f b/TESTING/LIN/alasvm.f index 0594232545..29b732f516 100644 --- a/TESTING/LIN/alasvm.f +++ b/TESTING/LIN/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkaa.f b/TESTING/LIN/cchkaa.f index 2f4a961ade..8a97fbb52c 100644 --- a/TESTING/LIN/cchkaa.f +++ b/TESTING/LIN/cchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -950,7 +950,7 @@ PROGRAM CCHKAA * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -961,7 +961,7 @@ PROGRAM CCHKAA * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/cchkeq.f b/TESTING/LIN/cchkeq.f index db86afa354..11edf81d96 100644 --- a/TESTING/LIN/cchkeq.f +++ b/TESTING/LIN/cchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkgb.f b/TESTING/LIN/cchkgb.f index a8d2dc04c1..869ed9a391 100644 --- a/TESTING/LIN/cchkgb.f +++ b/TESTING/LIN/cchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkge.f b/TESTING/LIN/cchkge.f index c2c5a185f7..f206c57724 100644 --- a/TESTING/LIN/cchkge.f +++ b/TESTING/LIN/cchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkgt.f b/TESTING/LIN/cchkgt.f index 13677b45f7..8d897c93fb 100644 --- a/TESTING/LIN/cchkgt.f +++ b/TESTING/LIN/cchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkhp.f b/TESTING/LIN/cchkhp.f index 5f41f6610d..7160eb900e 100644 --- a/TESTING/LIN/cchkhp.f +++ b/TESTING/LIN/cchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchklq.f b/TESTING/LIN/cchklq.f index 38a915fec8..0b40223dce 100644 --- a/TESTING/LIN/cchklq.f +++ b/TESTING/LIN/cchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpb.f b/TESTING/LIN/cchkpb.f index f3af6f7cc9..04ccb94b57 100644 --- a/TESTING/LIN/cchkpb.f +++ b/TESTING/LIN/cchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpo.f b/TESTING/LIN/cchkpo.f index 19aa43ffda..1cd80ffc4e 100644 --- a/TESTING/LIN/cchkpo.f +++ b/TESTING/LIN/cchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpp.f b/TESTING/LIN/cchkpp.f index 0b73adf5ae..6a3da83b7a 100644 --- a/TESTING/LIN/cchkpp.f +++ b/TESTING/LIN/cchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkps.f b/TESTING/LIN/cchkps.f index f268afcd06..a216c7d7d0 100644 --- a/TESTING/LIN/cchkps.f +++ b/TESTING/LIN/cchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpt.f b/TESTING/LIN/cchkpt.f index c53bc9d2e0..da86bdf708 100644 --- a/TESTING/LIN/cchkpt.f +++ b/TESTING/LIN/cchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkq3.f b/TESTING/LIN/cchkq3.f index 02f178d2fc..0023c2562b 100644 --- a/TESTING/LIN/cchkq3.f +++ b/TESTING/LIN/cchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkql.f b/TESTING/LIN/cchkql.f index f2313552a7..0f2e6319e8 100644 --- a/TESTING/LIN/cchkql.f +++ b/TESTING/LIN/cchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkqr.f b/TESTING/LIN/cchkqr.f index 7be02950f9..f8e557c5d2 100644 --- a/TESTING/LIN/cchkqr.f +++ b/TESTING/LIN/cchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f index 407e452a07..e132578fc5 100644 --- a/TESTING/LIN/cchkqrt.f +++ b/TESTING/LIN/cchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NB = NBVAL( K ) * * Test CGEQRT and CGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL CQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/cchkqrtp.f b/TESTING/LIN/cchkqrtp.f index 9bc2c72bf4..745046515e 100644 --- a/TESTING/LIN/cchkqrtp.f +++ b/TESTING/LIN/cchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,7 +172,7 @@ SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * @@ -180,7 +180,7 @@ SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NB = NBVAL( K ) * * Test CTPQRT and CTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL CQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index df871426fc..1e43b5c377 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cchkrq.f b/TESTING/LIN/cchkrq.f index 79c05cc045..8547f0893a 100644 --- a/TESTING/LIN/cchkrq.f +++ b/TESTING/LIN/cchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchksp.f b/TESTING/LIN/cchksp.f index cd8b9d90c0..8d23834707 100644 --- a/TESTING/LIN/cchksp.f +++ b/TESTING/LIN/cchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktb.f b/TESTING/LIN/cchktb.f index b4af070849..a16a3aa1e4 100644 --- a/TESTING/LIN/cchktb.f +++ b/TESTING/LIN/cchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktp.f b/TESTING/LIN/cchktp.f index b3b8ea092d..8454ec0144 100644 --- a/TESTING/LIN/cchktp.f +++ b/TESTING/LIN/cchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktr.f b/TESTING/LIN/cchktr.f index d599a49056..5d40064cfb 100644 --- a/TESTING/LIN/cchktr.f +++ b/TESTING/LIN/cchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktz.f b/TESTING/LIN/cchktz.f index b2871bf74b..9a403d6a77 100644 --- a/TESTING/LIN/cchktz.f +++ b/TESTING/LIN/cchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgb.f b/TESTING/LIN/cdrvgb.f index 8a76261888..199354244f 100644 --- a/TESTING/LIN/cdrvgb.f +++ b/TESTING/LIN/cdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgbx.f b/TESTING/LIN/cdrvgbx.f index a7d3009d12..ac5b295f99 100644 --- a/TESTING/LIN/cdrvgbx.f +++ b/TESTING/LIN/cdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvge.f b/TESTING/LIN/cdrvge.f index 9fa8e00dff..0bd8c104a9 100644 --- a/TESTING/LIN/cdrvge.f +++ b/TESTING/LIN/cdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgex.f b/TESTING/LIN/cdrvgex.f index 5320205322..cbf9577d43 100644 --- a/TESTING/LIN/cdrvgex.f +++ b/TESTING/LIN/cdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cdrvgt.f b/TESTING/LIN/cdrvgt.f index 737983f407..7bb40dc0eb 100644 --- a/TESTING/LIN/cdrvgt.f +++ b/TESTING/LIN/cdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f index 8a88c0999a..5b455f438c 100644 --- a/TESTING/LIN/cdrvhex.f +++ b/TESTING/LIN/cdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cdrvhp.f b/TESTING/LIN/cdrvhp.f index 1e9d0b2302..e46d844360 100644 --- a/TESTING/LIN/cdrvhp.f +++ b/TESTING/LIN/cdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index 94f515477a..623d94e341 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -26,7 +26,7 @@ * COMPLEX A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -263,7 +263,7 @@ SUBROUTINE CDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASVM, CERRLS, CGELS, CGELSD, $ CGELSS, CGELSY, CGEMM, CLACPY, CLARNV, - $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, + $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, $ XLAENV * .. * .. Intrinsic Functions .. diff --git a/TESTING/LIN/cdrvpb.f b/TESTING/LIN/cdrvpb.f index 779d4cf28d..354178ac34 100644 --- a/TESTING/LIN/cdrvpb.f +++ b/TESTING/LIN/cdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpo.f b/TESTING/LIN/cdrvpo.f index 862e3462df..c931fccfac 100644 --- a/TESTING/LIN/cdrvpo.f +++ b/TESTING/LIN/cdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpox.f b/TESTING/LIN/cdrvpox.f index b763d6d9bf..5b20137802 100644 --- a/TESTING/LIN/cdrvpox.f +++ b/TESTING/LIN/cdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/cdrvpp.f b/TESTING/LIN/cdrvpp.f index 3fdce2a79e..fcb3aee20b 100644 --- a/TESTING/LIN/cdrvpp.f +++ b/TESTING/LIN/cdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpt.f b/TESTING/LIN/cdrvpt.f index c2ec0dfb3b..02b6baa1d2 100644 --- a/TESTING/LIN/cdrvpt.f +++ b/TESTING/LIN/cdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvrf1.f b/TESTING/LIN/cdrvrf1.f index b700503209..092d31d086 100644 --- a/TESTING/LIN/cdrvrf1.f +++ b/TESTING/LIN/cdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -19,7 +19,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CLANHF', + WRITE( NOUT, FMT = 9997 ) 'CLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/cdrvrf2.f b/TESTING/LIN/cdrvrf2.f index bdfb0a537a..28ee5cd484 100644 --- a/TESTING/LIN/cdrvrf2.f +++ b/TESTING/LIN/cdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index 538b462ae5..f58366c6b3 100644 --- a/TESTING/LIN/cdrvrf3.f +++ b/TESTING/LIN/cdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX C_WORK_CGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CTFSM', + WRITE( NOUT, FMT = 9997 ) 'CTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, FMT = 9995 ) 'CTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/cdrvrf4.f b/TESTING/LIN/cdrvrf4.f index dc97de4f63..a043b15a27 100644 --- a/TESTING/LIN/cdrvrf4.f +++ b/TESTING/LIN/cdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_CLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = CLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * RESULT(1) = CLANGE( 'I', N, N, C1, LDC, + S_WORK_CLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA * NORMA + + ABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CHFRK', + WRITE( NOUT, FMT = 9997 ) 'CHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, FMT = 9995 ) 'CHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/cdrvrfp.f b/TESTING/LIN/cdrvrfp.f index 6357177a7d..ea7c140820 100644 --- a/TESTING/LIN/cdrvrfp.f +++ b/TESTING/LIN/cdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + C_WORK_CLATMS, C_WORK_CPOT02, * + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, * + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -40,7 +40,7 @@ * REAL S_WORK_CPOT02( * ) * REAL S_WORK_CPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines CTRTTF and *> CTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ SUBROUTINE CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL CLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/TESTING/LIN/cdrvsp.f b/TESTING/LIN/cdrvsp.f index b346092e34..3443488001 100644 --- a/TESTING/LIN/cdrvsp.f +++ b/TESTING/LIN/cdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvsyx.f b/TESTING/LIN/cdrvsyx.f index 6d9b6a54e6..ce8d883393 100644 --- a/TESTING/LIN/cdrvsyx.f +++ b/TESTING/LIN/cdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cebchvxx.f b/TESTING/LIN/cebchvxx.f index 283ffe3d42..e34f0a86fe 100644 --- a/TESTING/LIN/cebchvxx.f +++ b/TESTING/LIN/cebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrge.f b/TESTING/LIN/cerrge.f index 732c3a4de1..3d8fbd85aa 100644 --- a/TESTING/LIN/cerrge.f +++ b/TESTING/LIN/cerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrgex.f b/TESTING/LIN/cerrgex.f index add54d6e0d..db2f2fb453 100644 --- a/TESTING/LIN/cerrgex.f +++ b/TESTING/LIN/cerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrgt.f b/TESTING/LIN/cerrgt.f index 13a745670d..d77c873b0c 100644 --- a/TESTING/LIN/cerrgt.f +++ b/TESTING/LIN/cerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrhex.f b/TESTING/LIN/cerrhex.f index ad0c2147f7..a6ee9fa9e2 100644 --- a/TESTING/LIN/cerrhex.f +++ b/TESTING/LIN/cerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrlq.f b/TESTING/LIN/cerrlq.f index 5415d3eff1..e9800772eb 100644 --- a/TESTING/LIN/cerrlq.f +++ b/TESTING/LIN/cerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrls.f b/TESTING/LIN/cerrls.f index 5376fa6bf6..6c1b86fdec 100644 --- a/TESTING/LIN/cerrls.f +++ b/TESTING/LIN/cerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrpo.f b/TESTING/LIN/cerrpo.f index a4fe376fd0..1ca40ca56c 100644 --- a/TESTING/LIN/cerrpo.f +++ b/TESTING/LIN/cerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f index 54af152729..b224084972 100644 --- a/TESTING/LIN/cerrpox.f +++ b/TESTING/LIN/cerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrps.f b/TESTING/LIN/cerrps.f index 047b6a371b..e67834cf26 100644 --- a/TESTING/LIN/cerrps.f +++ b/TESTING/LIN/cerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrql.f b/TESTING/LIN/cerrql.f index 4bdb4ddfda..b31e0702ba 100644 --- a/TESTING/LIN/cerrql.f +++ b/TESTING/LIN/cerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrqp.f b/TESTING/LIN/cerrqp.f index 00415c0c17..b59f840c29 100644 --- a/TESTING/LIN/cerrqp.f +++ b/TESTING/LIN/cerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrqr.f b/TESTING/LIN/cerrqr.f index 70dc705280..a55a08ba94 100644 --- a/TESTING/LIN/cerrqr.f +++ b/TESTING/LIN/cerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrqrt.f b/TESTING/LIN/cerrqrt.f index d2ebf0c443..b7797f4dbe 100644 --- a/TESTING/LIN/cerrqrt.f +++ b/TESTING/LIN/cerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE CERRQRT( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CGEQRT2, CGEQRT3, CGEQRT, - $ CGEMQRT + $ CGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cerrqrtp.f b/TESTING/LIN/cerrqrtp.f index 7d4c05db3c..601509d024 100644 --- a/TESTING/LIN/cerrqrtp.f +++ b/TESTING/LIN/cerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE CERRQRTP( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CTPQRT2, CTPQRT, - $ CTPMQRT + $ CTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ SUBROUTINE CERRQRTP( PATH, NUNIT ) * SRNAMT = 'CTPMQRT' INFOT = 1 - CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/cerrrfp.f b/TESTING/LIN/cerrrfp.f index 254dc94bd3..a183f4457e 100644 --- a/TESTING/LIN/cerrrfp.f +++ b/TESTING/LIN/cerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrrq.f b/TESTING/LIN/cerrrq.f index 87987c2dd0..c3ff4a080f 100644 --- a/TESTING/LIN/cerrrq.f +++ b/TESTING/LIN/cerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f index f3fb817101..b9e43855b5 100644 --- a/TESTING/LIN/cerrsy.f +++ b/TESTING/LIN/cerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/cerrsyx.f b/TESTING/LIN/cerrsyx.f index 63c83ee5bd..b0cc0d34b2 100644 --- a/TESTING/LIN/cerrsyx.f +++ b/TESTING/LIN/cerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -250,7 +250,7 @@ SUBROUTINE CERRSY( PATH, NUNIT ) NPARAMS = 0 SRNAMT = 'CSYRFSX' INFOT = 1 - CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) @@ -266,27 +266,27 @@ SUBROUTINE CERRSY( PATH, NUNIT ) $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 6 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 12 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/cerrtr.f b/TESTING/LIN/cerrtr.f index 2c07bfec5f..b55de7c17c 100644 --- a/TESTING/LIN/cerrtr.f +++ b/TESTING/LIN/cerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrtz.f b/TESTING/LIN/cerrtz.f index b7cc912af4..f8e6cdc961 100644 --- a/TESTING/LIN/cerrtz.f +++ b/TESTING/LIN/cerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index 6134bf3398..82a93a5e03 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cgbt01.f b/TESTING/LIN/cgbt01.f index 748ba15335..f3c99bc919 100644 --- a/TESTING/LIN/cgbt01.f +++ b/TESTING/LIN/cgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgbt02.f b/TESTING/LIN/cgbt02.f index 1335f134bc..f6ea52fe14 100644 --- a/TESTING/LIN/cgbt02.f +++ b/TESTING/LIN/cgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgbt05.f b/TESTING/LIN/cgbt05.f index d97d94eb58..557d26138b 100644 --- a/TESTING/LIN/cgbt05.f +++ b/TESTING/LIN/cgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgelqs.f b/TESTING/LIN/cgelqs.f index 91d00dd693..8cefc05869 100644 --- a/TESTING/LIN/cgelqs.f +++ b/TESTING/LIN/cgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgennd.f b/TESTING/LIN/cgennd.f index 6a35dc59b8..5d618ad959 100644 --- a/TESTING/LIN/cgennd.f +++ b/TESTING/LIN/cgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgeqls.f b/TESTING/LIN/cgeqls.f index e8c1503c2a..b88c94e9f4 100644 --- a/TESTING/LIN/cgeqls.f +++ b/TESTING/LIN/cgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgeqrs.f b/TESTING/LIN/cgeqrs.f index 165a2cb9a8..59a39e2bd1 100644 --- a/TESTING/LIN/cgeqrs.f +++ b/TESTING/LIN/cgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgerqs.f b/TESTING/LIN/cgerqs.f index 00b3cc40e8..56800fcefe 100644 --- a/TESTING/LIN/cgerqs.f +++ b/TESTING/LIN/cgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget01.f b/TESTING/LIN/cget01.f index 4196342b8b..eb34dcc219 100644 --- a/TESTING/LIN/cget01.f +++ b/TESTING/LIN/cget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -177,7 +177,7 @@ SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, IF( K+1.LE.M ) THEN CALL CSCAL( M-K, T, AFAC( K+1, K ), 1 ) CALL CGEMV( 'No transpose', M-K, K-1, CONE, - $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, + $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, $ CONE, AFAC( K+1, K ), 1 ) END IF * diff --git a/TESTING/LIN/cget02.f b/TESTING/LIN/cget02.f index 0a26a3d63f..7746787e2d 100644 --- a/TESTING/LIN/cget02.f +++ b/TESTING/LIN/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cget03.f b/TESTING/LIN/cget03.f index 5457d1b2e3..bde3bff9e6 100644 --- a/TESTING/LIN/cget03.f +++ b/TESTING/LIN/cget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget04.f b/TESTING/LIN/cget04.f index 4a9d052443..c8c56e2b5b 100644 --- a/TESTING/LIN/cget04.f +++ b/TESTING/LIN/cget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget07.f b/TESTING/LIN/cget07.f index 2b2479cf8b..c89fc6460b 100644 --- a/TESTING/LIN/cget07.f +++ b/TESTING/LIN/cget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt01.f b/TESTING/LIN/cgtt01.f index 4bc800b80b..17afc7648e 100644 --- a/TESTING/LIN/cgtt01.f +++ b/TESTING/LIN/cgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * COMPLEX D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt02.f b/TESTING/LIN/cgtt02.f index 3071e20632..ee40022902 100644 --- a/TESTING/LIN/cgtt02.f +++ b/TESTING/LIN/cgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt05.f b/TESTING/LIN/cgtt05.f index 1996ccfa40..8411f226b6 100644 --- a/TESTING/LIN/cgtt05.f +++ b/TESTING/LIN/cgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/chkxer.f b/TESTING/LIN/chkxer.f index 85f0cb1528..019d915600 100644 --- a/TESTING/LIN/chkxer.f +++ b/TESTING/LIN/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -26,12 +26,12 @@ * END IF * LERR = .FALSE. * RETURN -* +* * 9999 FORMAT( ' *** Illegal value of parameter number ', I2, * $ ' not detected by ', A6, ' ***' ) -* +* * End of CHKXER. -* +* * END * *> \par Purpose: @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/chpt01.f b/TESTING/LIN/chpt01.f index 898a57c435..86a6e26938 100644 --- a/TESTING/LIN/chpt01.f +++ b/TESTING/LIN/chpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clahilb.f b/TESTING/LIN/clahilb.f index 95b437214c..b46c3d15d6 100644 --- a/TESTING/LIN/clahilb.f +++ b/TESTING/LIN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER T, N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.4.0) -- @@ -165,10 +165,10 @@ SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -250,14 +250,14 @@ SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO -* +* * If we are testing SY routines, take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -272,4 +272,4 @@ SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, END DO END IF END - + diff --git a/TESTING/LIN/claipd.f b/TESTING/LIN/claipd.f index 7d041f3531..e952d19247 100644 --- a/TESTING/LIN/claipd.f +++ b/TESTING/LIN/claipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/claptm.f b/TESTING/LIN/claptm.f index 48f94dadb6..628f08b66c 100644 --- a/TESTING/LIN/claptm.f +++ b/TESTING/LIN/claptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clarhs.f b/TESTING/LIN/clarhs.f index 4bf27d7bdb..ea13d2b005 100644 --- a/TESTING/LIN/clarhs.f +++ b/TESTING/LIN/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatb4.f b/TESTING/LIN/clatb4.f index f98cf24f98..274179b646 100644 --- a/TESTING/LIN/clatb4.f +++ b/TESTING/LIN/clatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/clatb5.f b/TESTING/LIN/clatb5.f index 883eb6ba09..e024453b3b 100644 --- a/TESTING/LIN/clatb5.f +++ b/TESTING/LIN/clatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatsp.f b/TESTING/LIN/clatsp.f index e474197582..ae55b7081f 100644 --- a/TESTING/LIN/clatsp.f +++ b/TESTING/LIN/clatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatsy.f b/TESTING/LIN/clatsy.f index a4553a6234..53cb192942 100644 --- a/TESTING/LIN/clatsy.f +++ b/TESTING/LIN/clatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattb.f b/TESTING/LIN/clattb.f index ba186deb2f..f3573224a9 100644 --- a/TESTING/LIN/clattb.f +++ b/TESTING/LIN/clattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattp.f b/TESTING/LIN/clattp.f index 14da642c75..7cee41bcdf 100644 --- a/TESTING/LIN/clattp.f +++ b/TESTING/LIN/clattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattr.f b/TESTING/LIN/clattr.f index 55503e50b1..5148edea11 100644 --- a/TESTING/LIN/clattr.f +++ b/TESTING/LIN/clattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clavhp.f b/TESTING/LIN/clavhp.f index b57731dcc9..b52f880ed7 100644 --- a/TESTING/LIN/clavhp.f +++ b/TESTING/LIN/clavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clavsp.f b/TESTING/LIN/clavsp.f index 1fe2cedc93..26c08b0665 100644 --- a/TESTING/LIN/clavsp.f +++ b/TESTING/LIN/clavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt01.f b/TESTING/LIN/clqt01.f index 63a9ecec35..0330a06b50 100644 --- a/TESTING/LIN/clqt01.f +++ b/TESTING/LIN/clqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt02.f b/TESTING/LIN/clqt02.f index f556723659..1ca440f42e 100644 --- a/TESTING/LIN/clqt02.f +++ b/TESTING/LIN/clqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt03.f b/TESTING/LIN/clqt03.f index 0f8f2b3b74..a4aa637add 100644 --- a/TESTING/LIN/clqt03.f +++ b/TESTING/LIN/clqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt01.f b/TESTING/LIN/cpbt01.f index cefbcdd23b..9b106ebc04 100644 --- a/TESTING/LIN/cpbt01.f +++ b/TESTING/LIN/cpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt02.f b/TESTING/LIN/cpbt02.f index 3413aa03e4..c68731a24f 100644 --- a/TESTING/LIN/cpbt02.f +++ b/TESTING/LIN/cpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt05.f b/TESTING/LIN/cpbt05.f index 2c41fe21c0..d9c5762660 100644 --- a/TESTING/LIN/cpbt05.f +++ b/TESTING/LIN/cpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot01.f b/TESTING/LIN/cpot01.f index 25764e8f2f..2a06f60596 100644 --- a/TESTING/LIN/cpot01.f +++ b/TESTING/LIN/cpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot02.f b/TESTING/LIN/cpot02.f index 57fb556f01..19d81548e1 100644 --- a/TESTING/LIN/cpot02.f +++ b/TESTING/LIN/cpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot03.f b/TESTING/LIN/cpot03.f index fe45e0d163..ff99b1c011 100644 --- a/TESTING/LIN/cpot03.f +++ b/TESTING/LIN/cpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot05.f b/TESTING/LIN/cpot05.f index 3bec0258f7..4b5b26be1b 100644 --- a/TESTING/LIN/cpot05.f +++ b/TESTING/LIN/cpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt01.f b/TESTING/LIN/cppt01.f index 5ebefb68f8..e877773bd8 100644 --- a/TESTING/LIN/cppt01.f +++ b/TESTING/LIN/cppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt02.f b/TESTING/LIN/cppt02.f index 6e27e1b582..70b89bf561 100644 --- a/TESTING/LIN/cppt02.f +++ b/TESTING/LIN/cppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt03.f b/TESTING/LIN/cppt03.f index 8c18d523ee..c8def708eb 100644 --- a/TESTING/LIN/cppt03.f +++ b/TESTING/LIN/cppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt05.f b/TESTING/LIN/cppt05.f index 4ac25de3a6..042f44599e 100644 --- a/TESTING/LIN/cppt05.f +++ b/TESTING/LIN/cppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpst01.f b/TESTING/LIN/cpst01.f index d5d54f6dda..10ccba296d 100644 --- a/TESTING/LIN/cpst01.f +++ b/TESTING/LIN/cpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * REAL RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt01.f b/TESTING/LIN/cptt01.f index d37bc108e5..10733ac33b 100644 --- a/TESTING/LIN/cptt01.f +++ b/TESTING/LIN/cptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -18,7 +18,7 @@ * REAL D( * ), DF( * ) * COMPLEX E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt02.f b/TESTING/LIN/cptt02.f index 2d947a98a0..681ec5d1ba 100644 --- a/TESTING/LIN/cptt02.f +++ b/TESTING/LIN/cptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt05.f b/TESTING/LIN/cptt05.f index 133ca51ce6..c1c3c1035f 100644 --- a/TESTING/LIN/cptt05.f +++ b/TESTING/LIN/cptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt01.f b/TESTING/LIN/cqlt01.f index e2f497b733..8e84ef2baf 100644 --- a/TESTING/LIN/cqlt01.f +++ b/TESTING/LIN/cqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt02.f b/TESTING/LIN/cqlt02.f index 5cfa042f60..a726a7de25 100644 --- a/TESTING/LIN/cqlt02.f +++ b/TESTING/LIN/cqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt03.f b/TESTING/LIN/cqlt03.f index cc06746753..cd6a0ecb0e 100644 --- a/TESTING/LIN/cqlt03.f +++ b/TESTING/LIN/cqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqpt01.f b/TESTING/LIN/cqpt01.f index 3e60214988..25a0acf0e2 100644 --- a/TESTING/LIN/cqpt01.f +++ b/TESTING/LIN/cqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt01.f b/TESTING/LIN/cqrt01.f index b5cdbac265..83e879f8b9 100644 --- a/TESTING/LIN/cqrt01.f +++ b/TESTING/LIN/cqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt01p.f b/TESTING/LIN/cqrt01p.f index d9a4069576..be5047bb73 100644 --- a/TESTING/LIN/cqrt01p.f +++ b/TESTING/LIN/cqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt02.f b/TESTING/LIN/cqrt02.f index 94b775a969..6c78e96d45 100644 --- a/TESTING/LIN/cqrt02.f +++ b/TESTING/LIN/cqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt03.f b/TESTING/LIN/cqrt03.f index 9293f9f98c..b07c70864e 100644 --- a/TESTING/LIN/cqrt03.f +++ b/TESTING/LIN/cqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f index 3176a0a024..cf86cf2a07 100644 --- a/TESTING/LIN/cqrt04.f +++ b/TESTING/LIN/cqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) REAL, ALLOCATABLE :: RWORK(:) * @@ -106,17 +106,17 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -124,8 +124,8 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -143,7 +143,7 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * Generate the m-by-m matrix Q * CALL CLASET( 'Full', M, M, CZERO, ONE, Q, M ) - CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -179,7 +179,7 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * * Apply Q to C as Q*C * - CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -198,7 +198,7 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * * Apply Q to C as QT*C * - CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -209,7 +209,7 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -221,8 +221,8 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * * Apply Q to D as D*Q * - CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -240,8 +240,8 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * * Apply Q to D as D*QT * - CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/cqrt05.f b/TESTING/LIN/cqrt05.f index 31d9d3b922..eefef4b4e1 100644 --- a/TESTING/LIN/cqrt05.f +++ b/TESTING/LIN/cqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) REAL, ALLOCATABLE :: RWORK(:) * @@ -113,14 +113,14 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -134,7 +134,7 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -189,7 +189,7 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * Compute |I - Q'*Q| and store in RESULT(2) * CALL CLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), + CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), $ R, M2 ) RESID = CLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -224,7 +224,7 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * Apply Q to C as QT*C * CALL CTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -234,7 +234,7 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -266,8 +266,8 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * Apply Q to D as D*QT * CALL CTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/cqrt11.f b/TESTING/LIN/cqrt11.f index 07e007f4d3..b97729bb76 100644 --- a/TESTING/LIN/cqrt11.f +++ b/TESTING/LIN/cqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt12.f b/TESTING/LIN/cqrt12.f index 181c27f0c0..52e1196b91 100644 --- a/TESTING/LIN/cqrt12.f +++ b/TESTING/LIN/cqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt13.f b/TESTING/LIN/cqrt13.f index be9130fbc8..97eeb82f83 100644 --- a/TESTING/LIN/cqrt13.f +++ b/TESTING/LIN/cqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt14.f b/TESTING/LIN/cqrt14.f index 5428d38465..f53cef7fa3 100644 --- a/TESTING/LIN/cqrt14.f +++ b/TESTING/LIN/cqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt15.f b/TESTING/LIN/cqrt15.f index a86662a9fa..cb32b92288 100644 --- a/TESTING/LIN/cqrt15.f +++ b/TESTING/LIN/cqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -20,7 +20,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt16.f b/TESTING/LIN/cqrt16.f index 701e1f4656..30436d13a8 100644 --- a/TESTING/LIN/cqrt16.f +++ b/TESTING/LIN/cqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt17.f b/TESTING/LIN/cqrt17.f index 1e16df9c77..8436e348d1 100644 --- a/TESTING/LIN/cqrt17.f +++ b/TESTING/LIN/cqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/crqt01.f b/TESTING/LIN/crqt01.f index 03548898ba..ddaabffac8 100644 --- a/TESTING/LIN/crqt01.f +++ b/TESTING/LIN/crqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crqt02.f b/TESTING/LIN/crqt02.f index a59e752d72..d889eb5c08 100644 --- a/TESTING/LIN/crqt02.f +++ b/TESTING/LIN/crqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crqt03.f b/TESTING/LIN/crqt03.f index d8e6c04635..963003eb1e 100644 --- a/TESTING/LIN/crqt03.f +++ b/TESTING/LIN/crqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crzt01.f b/TESTING/LIN/crzt01.f index c93fe21cb3..2e2ed39d51 100644 --- a/TESTING/LIN/crzt01.f +++ b/TESTING/LIN/crzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crzt02.f b/TESTING/LIN/crzt02.f index 953f1791d2..74717b4fcb 100644 --- a/TESTING/LIN/crzt02.f +++ b/TESTING/LIN/crzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csbmv.f b/TESTING/LIN/csbmv.f index ae5f3ea4fe..53e224b282 100644 --- a/TESTING/LIN/csbmv.f +++ b/TESTING/LIN/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt01.f b/TESTING/LIN/cspt01.f index c373f90708..b40456b9c0 100644 --- a/TESTING/LIN/cspt01.f +++ b/TESTING/LIN/cspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt02.f b/TESTING/LIN/cspt02.f index 758d5e18c4..fd402b12fc 100644 --- a/TESTING/LIN/cspt02.f +++ b/TESTING/LIN/cspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt03.f b/TESTING/LIN/cspt03.f index 154584b760..b6af56c24a 100644 --- a/TESTING/LIN/cspt03.f +++ b/TESTING/LIN/cspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csyt02.f b/TESTING/LIN/csyt02.f index 86d39eb23b..49fea7a9b2 100644 --- a/TESTING/LIN/csyt02.f +++ b/TESTING/LIN/csyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csyt03.f b/TESTING/LIN/csyt03.f index dd9298c627..54f22290ba 100644 --- a/TESTING/LIN/csyt03.f +++ b/TESTING/LIN/csyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt02.f b/TESTING/LIN/ctbt02.f index 576dbc3bc8..60e1abcdc4 100644 --- a/TESTING/LIN/ctbt02.f +++ b/TESTING/LIN/ctbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt03.f b/TESTING/LIN/ctbt03.f index afb63a70dd..191a1a1fc7 100644 --- a/TESTING/LIN/ctbt03.f +++ b/TESTING/LIN/ctbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt05.f b/TESTING/LIN/ctbt05.f index fdd9745eee..dd2401a5be 100644 --- a/TESTING/LIN/ctbt05.f +++ b/TESTING/LIN/ctbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt06.f b/TESTING/LIN/ctbt06.f index 0692b8d346..d45cd459ac 100644 --- a/TESTING/LIN/ctbt06.f +++ b/TESTING/LIN/ctbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt01.f b/TESTING/LIN/ctpt01.f index 40a2c2ca0d..e3df566f7c 100644 --- a/TESTING/LIN/ctpt01.f +++ b/TESTING/LIN/ctpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt02.f b/TESTING/LIN/ctpt02.f index 9216ab623f..e6e047a3a9 100644 --- a/TESTING/LIN/ctpt02.f +++ b/TESTING/LIN/ctpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt03.f b/TESTING/LIN/ctpt03.f index da1c916b9c..9516357dfc 100644 --- a/TESTING/LIN/ctpt03.f +++ b/TESTING/LIN/ctpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL CNORM( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt05.f b/TESTING/LIN/ctpt05.f index 80d0dbf79f..38403eab7a 100644 --- a/TESTING/LIN/ctpt05.f +++ b/TESTING/LIN/ctpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt06.f b/TESTING/LIN/ctpt06.f index a6a06c774f..30d5d8f6ac 100644 --- a/TESTING/LIN/ctpt06.f +++ b/TESTING/LIN/ctpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt01.f b/TESTING/LIN/ctrt01.f index a0fed9cff7..e99f2738c8 100644 --- a/TESTING/LIN/ctrt01.f +++ b/TESTING/LIN/ctrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt02.f b/TESTING/LIN/ctrt02.f index 19dd230a65..21cdd7ac71 100644 --- a/TESTING/LIN/ctrt02.f +++ b/TESTING/LIN/ctrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt03.f b/TESTING/LIN/ctrt03.f index 69d6684799..282db2bdfd 100644 --- a/TESTING/LIN/ctrt03.f +++ b/TESTING/LIN/ctrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt05.f b/TESTING/LIN/ctrt05.f index 515c7aabb1..682c751118 100644 --- a/TESTING/LIN/ctrt05.f +++ b/TESTING/LIN/ctrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt06.f b/TESTING/LIN/ctrt06.f index e11db59711..1f00317735 100644 --- a/TESTING/LIN/ctrt06.f +++ b/TESTING/LIN/ctrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkaa.f b/TESTING/LIN/dchkaa.f index 9e5c5b15d3..49478c93f9 100644 --- a/TESTING/LIN/dchkaa.f +++ b/TESTING/LIN/dchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -862,13 +862,13 @@ PROGRAM DCHKAA ELSE WRITE( NOUT, FMT = 9989 )PATH END IF -* +* ELSE IF( LSAMEN( 2, C2, 'QT' ) ) THEN * * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -879,7 +879,7 @@ PROGRAM DCHKAA * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/dchkab.f b/TESTING/LIN/dchkab.f index 9d01bcd920..dfe80639af 100644 --- a/TESTING/LIN/dchkab.f +++ b/TESTING/LIN/dchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAB -* +* * *> \par Purpose: * ============= @@ -32,7 +32,7 @@ *> 2 Values of NRHS (number of right hand sides) *> 20.0 Threshold value of test ratio *> T Put T to test the LAPACK routines -*> T Put T to test the error exits +*> T Put T to test the error exits *> DGE 11 List types on next line if 0 < NTYPES < 11 *> DPO 9 List types on next line if 0 < NTYPES < 9 *> \endverbatim @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -101,7 +101,7 @@ PROGRAM DCHKAB CHARACTER*3 PATH CHARACTER*10 INTSTR CHARACTER*72 ALINE - INTEGER I, IC, K, LDA, NM, NMATS, + INTEGER I, IC, K, LDA, NM, NMATS, $ NNS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH DOUBLE PRECISION EPS, S1, S2, THRESH @@ -307,7 +307,7 @@ PROGRAM DCHKAB ELSE WRITE( NOUT, FMT = 9989 )'DSGESV' END IF -* +* ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN * * PO: positive definite matrices @@ -323,7 +323,7 @@ PROGRAM DCHKAB IF( TSTDRV ) THEN CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, $ THRESH, LDA, A( 1, 1 ), A( 1, 2 ), - $ B( 1, 1 ), B( 1, 2 ), + $ B( 1, 1 ), B( 1, 2 ), $ WORK, RWORK, SWORK, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -351,7 +351,7 @@ PROGRAM DCHKAB $ I6 ) 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) - 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', + 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', $ ' routines ', $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, $ / / ' The following parameter values will be used:' ) diff --git a/TESTING/LIN/dchkeq.f b/TESTING/LIN/dchkeq.f index 94577fdbe4..616e311bd4 100644 --- a/TESTING/LIN/dchkeq.f +++ b/TESTING/LIN/dchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkgb.f b/TESTING/LIN/dchkgb.f index 611388892e..0066a8baff 100644 --- a/TESTING/LIN/dchkgb.f +++ b/TESTING/LIN/dchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkge.f b/TESTING/LIN/dchkge.f index 35a93d3dbe..878dc1ecf9 100644 --- a/TESTING/LIN/dchkge.f +++ b/TESTING/LIN/dchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkgt.f b/TESTING/LIN/dchkgt.f index 24b625606b..5606fc6c79 100644 --- a/TESTING/LIN/dchkgt.f +++ b/TESTING/LIN/dchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchklq.f b/TESTING/LIN/dchklq.f index c8cfc8fc64..50754c8159 100644 --- a/TESTING/LIN/dchklq.f +++ b/TESTING/LIN/dchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpb.f b/TESTING/LIN/dchkpb.f index 8286f3ea5c..664268876c 100644 --- a/TESTING/LIN/dchkpb.f +++ b/TESTING/LIN/dchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpo.f b/TESTING/LIN/dchkpo.f index f7bbcfb05a..1a15d3b60c 100644 --- a/TESTING/LIN/dchkpo.f +++ b/TESTING/LIN/dchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpp.f b/TESTING/LIN/dchkpp.f index 3362f1b85c..316f6772f6 100644 --- a/TESTING/LIN/dchkpp.f +++ b/TESTING/LIN/dchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkps.f b/TESTING/LIN/dchkps.f index c07320f746..51618869dc 100644 --- a/TESTING/LIN/dchkps.f +++ b/TESTING/LIN/dchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpt.f b/TESTING/LIN/dchkpt.f index df50a62ada..2a29c3bca1 100644 --- a/TESTING/LIN/dchkpt.f +++ b/TESTING/LIN/dchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkq3.f b/TESTING/LIN/dchkq3.f index 2170e2b21f..ec6194e7b3 100644 --- a/TESTING/LIN/dchkq3.f +++ b/TESTING/LIN/dchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkql.f b/TESTING/LIN/dchkql.f index c35ca5c529..099dcc8a91 100644 --- a/TESTING/LIN/dchkql.f +++ b/TESTING/LIN/dchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dchkqr.f b/TESTING/LIN/dchkqr.f index b4a1642e2c..22c949e456 100644 --- a/TESTING/LIN/dchkqr.f +++ b/TESTING/LIN/dchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -248,7 +248,7 @@ SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, DERRQR, DGEQRS, DGET02, - $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, + $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, $ DQRT01P, DQRT02, DQRT03, XLAENV * .. * .. Intrinsic Functions .. diff --git a/TESTING/LIN/dchkqrt.f b/TESTING/LIN/dchkqrt.f index a4825a2fcf..7e12027f08 100644 --- a/TESTING/LIN/dchkqrt.f +++ b/TESTING/LIN/dchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NB = NBVAL( K ) * * Test DGEQRT and DGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL DQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/dchkqrtp.f b/TESTING/LIN/dchkqrtp.f index fdb31f2482..22bfd80ba0 100644 --- a/TESTING/LIN/dchkqrtp.f +++ b/TESTING/LIN/dchkqrtp.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * * .. Scalar Arguments .. @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test DTPQRT and DTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL DQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index 757df28c11..86719c4a9c 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/dchkrq.f b/TESTING/LIN/dchkrq.f index da553d603e..afd682694b 100644 --- a/TESTING/LIN/dchkrq.f +++ b/TESTING/LIN/dchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchksp.f b/TESTING/LIN/dchksp.f index 96b5442f3a..171b785d2f 100644 --- a/TESTING/LIN/dchksp.f +++ b/TESTING/LIN/dchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktb.f b/TESTING/LIN/dchktb.f index a90d588c91..44c468f6bb 100644 --- a/TESTING/LIN/dchktb.f +++ b/TESTING/LIN/dchktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktp.f b/TESTING/LIN/dchktp.f index e3a7db84e9..0413302bf1 100644 --- a/TESTING/LIN/dchktp.f +++ b/TESTING/LIN/dchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktr.f b/TESTING/LIN/dchktr.f index cc2554c012..79998e784f 100644 --- a/TESTING/LIN/dchktr.f +++ b/TESTING/LIN/dchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktz.f b/TESTING/LIN/dchktz.f index a674636219..584ba690e1 100644 --- a/TESTING/LIN/dchktz.f +++ b/TESTING/LIN/dchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index 437255f95d..1f65ca9fb8 100644 --- a/TESTING/LIN/ddrvab.f +++ b/TESTING/LIN/ddrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -211,7 +211,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -319,7 +319,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, CALL DLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from DSGESV. This should be the same as +* Check error code from DSGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -353,7 +353,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -423,7 +423,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f index 2b056bd03a..28578a9699 100644 --- a/TESTING/LIN/ddrvac.f +++ b/TESTING/LIN/ddrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,7 +176,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -194,7 +194,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * .. * .. External Subroutines .. EXTERNAL ALAERH, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, + $ DLARHS, DLASET, DLATB4, DLATMS, $ DPOT06, DSPOSV * .. * .. Intrinsic Functions .. @@ -331,7 +331,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, SRNAMT = 'DSPOSV ' KASE = KASE + 1 * - CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL DSPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, ITER, INFO ) @@ -372,7 +372,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -450,7 +450,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DPOTRF' ) - + RETURN * * End of DDRVAC diff --git a/TESTING/LIN/ddrvgb.f b/TESTING/LIN/ddrvgb.f index d97857dd47..ede52c3b50 100644 --- a/TESTING/LIN/ddrvgb.f +++ b/TESTING/LIN/ddrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvgbx.f b/TESTING/LIN/ddrvgbx.f index ad0b1f6f05..0da7f63d5f 100644 --- a/TESTING/LIN/ddrvgbx.f +++ b/TESTING/LIN/ddrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvge.f b/TESTING/LIN/ddrvge.f index efb592acf3..9c48a22dfa 100644 --- a/TESTING/LIN/ddrvge.f +++ b/TESTING/LIN/ddrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvgex.f b/TESTING/LIN/ddrvgex.f index 98099ed873..996c1d83de 100644 --- a/TESTING/LIN/ddrvgex.f +++ b/TESTING/LIN/ddrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/ddrvgt.f b/TESTING/LIN/ddrvgt.f index 81d7dcf78a..15f75279be 100644 --- a/TESTING/LIN/ddrvgt.f +++ b/TESTING/LIN/ddrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvls.f b/TESTING/LIN/ddrvls.f index 8f35caba42..f92f3455d1 100644 --- a/TESTING/LIN/ddrvls.f +++ b/TESTING/LIN/ddrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -234,9 +234,9 @@ SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK DOUBLE PRECISION EPS, NORMA, NORMB, RCOND * .. @@ -637,7 +637,7 @@ SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/TESTING/LIN/ddrvpb.f b/TESTING/LIN/ddrvpb.f index b44ae38546..06d7f59db8 100644 --- a/TESTING/LIN/ddrvpb.f +++ b/TESTING/LIN/ddrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpo.f b/TESTING/LIN/ddrvpo.f index 92a71edeca..de518190dd 100644 --- a/TESTING/LIN/ddrvpo.f +++ b/TESTING/LIN/ddrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpox.f b/TESTING/LIN/ddrvpox.f index a3ab104833..5df8f04195 100644 --- a/TESTING/LIN/ddrvpox.f +++ b/TESTING/LIN/ddrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/ddrvpp.f b/TESTING/LIN/ddrvpp.f index aa549c198e..69174aba33 100644 --- a/TESTING/LIN/ddrvpp.f +++ b/TESTING/LIN/ddrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpt.f b/TESTING/LIN/ddrvpt.f index 5cf5aa6cc9..332f0e4923 100644 --- a/TESTING/LIN/ddrvpt.f +++ b/TESTING/LIN/ddrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvrf1.f b/TESTING/LIN/ddrvrf1.f index d5a20e9a6c..16a6d26612 100644 --- a/TESTING/LIN/ddrvrf1.f +++ b/TESTING/LIN/ddrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,7 +161,7 @@ SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN @@ -241,7 +241,7 @@ SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DLANSF', + WRITE( NOUT, FMT = 9997 ) 'DLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/ddrvrf2.f b/TESTING/LIN/ddrvrf2.f index 03487f50e7..8102f0d8bb 100644 --- a/TESTING/LIN/ddrvrf2.f +++ b/TESTING/LIN/ddrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index 26e59d1fe0..5b0a959f80 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), D_WORK_DGEQRF( * ), * + D_WORK_DLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DTFSM', + WRITE( NOUT, FMT = 9997 ) 'DTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, FMT = 9995 ) 'DTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/ddrvrf4.f b/TESTING/LIN/ddrvrf4.f index 62a20d483e..429ae370e9 100644 --- a/TESTING/LIN/ddrvrf4.f +++ b/TESTING/LIN/ddrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_DLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), D_WORK_DLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, NORMA = DLANGE( 'I', N, K, A, LDA, + D_WORK_DLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = DLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * RESULT(1) = DLANGE( 'I', N, N, C1, LDC, + D_WORK_DLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DSFRK', + WRITE( NOUT, FMT = 9997 ) 'DSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, FMT = 9995 ) 'DSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/ddrvrfp.f b/TESTING/LIN/ddrvrfp.f index 9bb5d7c071..f37de1a8b2 100644 --- a/TESTING/LIN/ddrvrfp.f +++ b/TESTING/LIN/ddrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + D_WORK_DLATMS, D_WORK_DPOT01, D_TEMP_DPOT02, * + D_TEMP_DPOT03, D_WORK_DLANSY, * + D_WORK_DPOT02, D_WORK_DPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -39,7 +39,7 @@ * DOUBLE PRECISION D_WORK_DPOT02( * ) * DOUBLE PRECISION D_WORK_DPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines DTRTTF and *> DTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -515,7 +515,7 @@ SUBROUTINE DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL DLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -550,7 +550,7 @@ SUBROUTINE DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL DGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/TESTING/LIN/ddrvsp.f b/TESTING/LIN/ddrvsp.f index a96c6ab8b6..27b0617309 100644 --- a/TESTING/LIN/ddrvsp.f +++ b/TESTING/LIN/ddrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvsyx.f b/TESTING/LIN/ddrvsyx.f index b09699bf73..a852cfad5a 100644 --- a/TESTING/LIN/ddrvsyx.f +++ b/TESTING/LIN/ddrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/debchvxx.f b/TESTING/LIN/debchvxx.f index 6e954b8d52..d2122253e9 100644 --- a/TESTING/LIN/debchvxx.f +++ b/TESTING/LIN/debchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrab.f b/TESTING/LIN/derrab.f index 605cd52667..dce34bcaa8 100644 --- a/TESTING/LIN/derrab.f +++ b/TESTING/LIN/derrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrac.f b/TESTING/LIN/derrac.f index 75ef2049ae..b5d2b5b859 100644 --- a/TESTING/LIN/derrac.f +++ b/TESTING/LIN/derrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrge.f b/TESTING/LIN/derrge.f index d9ddf13fcb..7920f16d2f 100644 --- a/TESTING/LIN/derrge.f +++ b/TESTING/LIN/derrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrgex.f b/TESTING/LIN/derrgex.f index 8a286ef9be..f14fcab6d4 100644 --- a/TESTING/LIN/derrgex.f +++ b/TESTING/LIN/derrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrgt.f b/TESTING/LIN/derrgt.f index 5b12f9e85c..e5adafcdb7 100644 --- a/TESTING/LIN/derrgt.f +++ b/TESTING/LIN/derrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrlq.f b/TESTING/LIN/derrlq.f index 9a5d41abf9..1d4857a7a2 100644 --- a/TESTING/LIN/derrlq.f +++ b/TESTING/LIN/derrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrls.f b/TESTING/LIN/derrls.f index a21f75554b..54f3fa9e53 100644 --- a/TESTING/LIN/derrls.f +++ b/TESTING/LIN/derrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrpo.f b/TESTING/LIN/derrpo.f index e600d9ead8..27a834ece8 100644 --- a/TESTING/LIN/derrpo.f +++ b/TESTING/LIN/derrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index 7c7405a2dc..480cb2f441 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrps.f b/TESTING/LIN/derrps.f index 91e1e4b1d4..60a831969e 100644 --- a/TESTING/LIN/derrps.f +++ b/TESTING/LIN/derrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrql.f b/TESTING/LIN/derrql.f index b4177c5e33..868ea8a913 100644 --- a/TESTING/LIN/derrql.f +++ b/TESTING/LIN/derrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrqp.f b/TESTING/LIN/derrqp.f index f3d79cfa93..d534044bcc 100644 --- a/TESTING/LIN/derrqp.f +++ b/TESTING/LIN/derrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrqr.f b/TESTING/LIN/derrqr.f index ee3472ffbf..afe593130b 100644 --- a/TESTING/LIN/derrqr.f +++ b/TESTING/LIN/derrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrqrt.f b/TESTING/LIN/derrqrt.f index d7f30694b3..00b0e2833f 100644 --- a/TESTING/LIN/derrqrt.f +++ b/TESTING/LIN/derrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE DERRQRT( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DGEQRT2, DGEQRT3, DGEQRT, - $ DGEMQRT + $ DGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/derrqrtp.f b/TESTING/LIN/derrqrtp.f index 3e74e66684..ae51541ca6 100644 --- a/TESTING/LIN/derrqrtp.f +++ b/TESTING/LIN/derrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE DERRQRTP( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DTPQRT2, DTPQRT, - $ DTPMQRT + $ DTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ SUBROUTINE DERRQRTP( PATH, NUNIT ) * SRNAMT = 'DTPMQRT' INFOT = 1 - CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/derrrfp.f b/TESTING/LIN/derrrfp.f index a97b53d7e1..830419a641 100644 --- a/TESTING/LIN/derrrfp.f +++ b/TESTING/LIN/derrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrrq.f b/TESTING/LIN/derrrq.f index 0eed147140..71a14b7454 100644 --- a/TESTING/LIN/derrrq.f +++ b/TESTING/LIN/derrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrsy.f b/TESTING/LIN/derrsy.f index d537a62cfb..8523fc8c7e 100644 --- a/TESTING/LIN/derrsy.f +++ b/TESTING/LIN/derrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrsyx.f b/TESTING/LIN/derrsyx.f index 8bd2886eb8..635868df46 100644 --- a/TESTING/LIN/derrsyx.f +++ b/TESTING/LIN/derrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrtr.f b/TESTING/LIN/derrtr.f index bf2071c8b8..f75de4b36c 100644 --- a/TESTING/LIN/derrtr.f +++ b/TESTING/LIN/derrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrtz.f b/TESTING/LIN/derrtz.f index 072c006e4f..def750db98 100644 --- a/TESTING/LIN/derrtz.f +++ b/TESTING/LIN/derrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrvx.f b/TESTING/LIN/derrvx.f index ea9a7d0d5a..36eb8d6ab3 100644 --- a/TESTING/LIN/derrvx.f +++ b/TESTING/LIN/derrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index ef4029e7d8..b28e01cbcf 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dgbt01.f b/TESTING/LIN/dgbt01.f index 90211b6d13..bf5db6a03d 100644 --- a/TESTING/LIN/dgbt01.f +++ b/TESTING/LIN/dgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgbt02.f b/TESTING/LIN/dgbt02.f index 3d1f8690b6..abd5cb32ba 100644 --- a/TESTING/LIN/dgbt02.f +++ b/TESTING/LIN/dgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgbt05.f b/TESTING/LIN/dgbt05.f index 831526f201..0a37889d80 100644 --- a/TESTING/LIN/dgbt05.f +++ b/TESTING/LIN/dgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgelqs.f b/TESTING/LIN/dgelqs.f index aa1d45443b..cd59e0a349 100644 --- a/TESTING/LIN/dgelqs.f +++ b/TESTING/LIN/dgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgennd.f b/TESTING/LIN/dgennd.f index c475f31d7e..056df84f27 100644 --- a/TESTING/LIN/dgennd.f +++ b/TESTING/LIN/dgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgeqls.f b/TESTING/LIN/dgeqls.f index cc5a4dbf5f..5896fba808 100644 --- a/TESTING/LIN/dgeqls.f +++ b/TESTING/LIN/dgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgeqrs.f b/TESTING/LIN/dgeqrs.f index d1ccb9de50..70ac6107e6 100644 --- a/TESTING/LIN/dgeqrs.f +++ b/TESTING/LIN/dgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgerqs.f b/TESTING/LIN/dgerqs.f index 7daaeb72af..f33e4abd66 100644 --- a/TESTING/LIN/dgerqs.f +++ b/TESTING/LIN/dgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget01.f b/TESTING/LIN/dget01.f index 4f2544d22b..76431e9f7b 100644 --- a/TESTING/LIN/dget01.f +++ b/TESTING/LIN/dget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget02.f b/TESTING/LIN/dget02.f index 6e3f181019..65869ba015 100644 --- a/TESTING/LIN/dget02.f +++ b/TESTING/LIN/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dget03.f b/TESTING/LIN/dget03.f index afc1d72479..5aca18e3eb 100644 --- a/TESTING/LIN/dget03.f +++ b/TESTING/LIN/dget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget04.f b/TESTING/LIN/dget04.f index 7f059c93a2..3852a9dc2b 100644 --- a/TESTING/LIN/dget04.f +++ b/TESTING/LIN/dget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget06.f b/TESTING/LIN/dget06.f index 7ad082e166..77755bd58a 100644 --- a/TESTING/LIN/dget06.f +++ b/TESTING/LIN/dget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget07.f b/TESTING/LIN/dget07.f index bf0e02f173..a4d5631a1b 100644 --- a/TESTING/LIN/dget07.f +++ b/TESTING/LIN/dget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget08.f b/TESTING/LIN/dget08.f index bd5e5c0725..ae232e6d11 100644 --- a/TESTING/LIN/dget08.f +++ b/TESTING/LIN/dget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt01.f b/TESTING/LIN/dgtt01.f index b869d5ec63..81b8f18902 100644 --- a/TESTING/LIN/dgtt01.f +++ b/TESTING/LIN/dgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt02.f b/TESTING/LIN/dgtt02.f index 0b54502abe..10e7852d3a 100644 --- a/TESTING/LIN/dgtt02.f +++ b/TESTING/LIN/dgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt05.f b/TESTING/LIN/dgtt05.f index 02b46c342b..6ee3d67879 100644 --- a/TESTING/LIN/dgtt05.f +++ b/TESTING/LIN/dgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlahilb.f b/TESTING/LIN/dlahilb.f index 2f909dd4d4..23d10d48cd 100644 --- a/TESTING/LIN/dlahilb.f +++ b/TESTING/LIN/dlahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlaord.f b/TESTING/LIN/dlaord.f index 13e3a03028..b5e3cd7bc3 100644 --- a/TESTING/LIN/dlaord.f +++ b/TESTING/LIN/dlaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlaptm.f b/TESTING/LIN/dlaptm.f index 89322614c1..3f4a75388f 100644 --- a/TESTING/LIN/dlaptm.f +++ b/TESTING/LIN/dlaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlarhs.f b/TESTING/LIN/dlarhs.f index 75f8d4b8a0..3288879461 100644 --- a/TESTING/LIN/dlarhs.f +++ b/TESTING/LIN/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlatb4.f b/TESTING/LIN/dlatb4.f index 7983bd5657..e1638b08f1 100644 --- a/TESTING/LIN/dlatb4.f +++ b/TESTING/LIN/dlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlatb5.f b/TESTING/LIN/dlatb5.f index 962094131d..7758725e11 100644 --- a/TESTING/LIN/dlatb5.f +++ b/TESTING/LIN/dlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattb.f b/TESTING/LIN/dlattb.f index 7bf0d8a223..43014ac83d 100644 --- a/TESTING/LIN/dlattb.f +++ b/TESTING/LIN/dlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattp.f b/TESTING/LIN/dlattp.f index 031d17814b..a275d72c60 100644 --- a/TESTING/LIN/dlattp.f +++ b/TESTING/LIN/dlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattr.f b/TESTING/LIN/dlattr.f index 4daea8fd5b..1b854b2e71 100644 --- a/TESTING/LIN/dlattr.f +++ b/TESTING/LIN/dlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlavsp.f b/TESTING/LIN/dlavsp.f index 31235322a6..9affa980c9 100644 --- a/TESTING/LIN/dlavsp.f +++ b/TESTING/LIN/dlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt01.f b/TESTING/LIN/dlqt01.f index 517fbe8e0c..36ae5f5040 100644 --- a/TESTING/LIN/dlqt01.f +++ b/TESTING/LIN/dlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt02.f b/TESTING/LIN/dlqt02.f index 1783b93048..9eb3ee60c3 100644 --- a/TESTING/LIN/dlqt02.f +++ b/TESTING/LIN/dlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt03.f b/TESTING/LIN/dlqt03.f index 2e6cb005e3..ea0b69ea24 100644 --- a/TESTING/LIN/dlqt03.f +++ b/TESTING/LIN/dlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt01.f b/TESTING/LIN/dpbt01.f index b0eeaf2a07..59b46119b4 100644 --- a/TESTING/LIN/dpbt01.f +++ b/TESTING/LIN/dpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt02.f b/TESTING/LIN/dpbt02.f index fdd6401a74..00fa83eb6d 100644 --- a/TESTING/LIN/dpbt02.f +++ b/TESTING/LIN/dpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt05.f b/TESTING/LIN/dpbt05.f index dfc70f5f17..07eb77b3f9 100644 --- a/TESTING/LIN/dpbt05.f +++ b/TESTING/LIN/dpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot01.f b/TESTING/LIN/dpot01.f index f11174f4e0..023a2bb1c6 100644 --- a/TESTING/LIN/dpot01.f +++ b/TESTING/LIN/dpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot02.f b/TESTING/LIN/dpot02.f index 672eb06723..bf8a2bbd7a 100644 --- a/TESTING/LIN/dpot02.f +++ b/TESTING/LIN/dpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot03.f b/TESTING/LIN/dpot03.f index 7fbd05e028..779aea24a5 100644 --- a/TESTING/LIN/dpot03.f +++ b/TESTING/LIN/dpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot05.f b/TESTING/LIN/dpot05.f index 4ebbd030b7..d6b84bd765 100644 --- a/TESTING/LIN/dpot05.f +++ b/TESTING/LIN/dpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot06.f b/TESTING/LIN/dpot06.f index d2dc1fe21d..7aa0133c0b 100644 --- a/TESTING/LIN/dpot06.f +++ b/TESTING/LIN/dpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt01.f b/TESTING/LIN/dppt01.f index 6dcae7261d..027860dc62 100644 --- a/TESTING/LIN/dppt01.f +++ b/TESTING/LIN/dppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt02.f b/TESTING/LIN/dppt02.f index f7c94074a8..fb83756dd0 100644 --- a/TESTING/LIN/dppt02.f +++ b/TESTING/LIN/dppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt03.f b/TESTING/LIN/dppt03.f index f11ee16fdd..480d460b27 100644 --- a/TESTING/LIN/dppt03.f +++ b/TESTING/LIN/dppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt05.f b/TESTING/LIN/dppt05.f index cd1a8c94c9..4128d49a81 100644 --- a/TESTING/LIN/dppt05.f +++ b/TESTING/LIN/dppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpst01.f b/TESTING/LIN/dpst01.f index b5eb7d1065..3b8a045ba8 100644 --- a/TESTING/LIN/dpst01.f +++ b/TESTING/LIN/dpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt01.f b/TESTING/LIN/dptt01.f index 304079b1e9..523e0ed8cf 100644 --- a/TESTING/LIN/dptt01.f +++ b/TESTING/LIN/dptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt02.f b/TESTING/LIN/dptt02.f index 7641c3320d..733c2ebcb6 100644 --- a/TESTING/LIN/dptt02.f +++ b/TESTING/LIN/dptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt05.f b/TESTING/LIN/dptt05.f index 5b816620d5..592045b17f 100644 --- a/TESTING/LIN/dptt05.f +++ b/TESTING/LIN/dptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt01.f b/TESTING/LIN/dqlt01.f index 7f38c1a142..25cb01bccc 100644 --- a/TESTING/LIN/dqlt01.f +++ b/TESTING/LIN/dqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt02.f b/TESTING/LIN/dqlt02.f index c810d160f8..5359400019 100644 --- a/TESTING/LIN/dqlt02.f +++ b/TESTING/LIN/dqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt03.f b/TESTING/LIN/dqlt03.f index e425f80b97..bba8a56549 100644 --- a/TESTING/LIN/dqlt03.f +++ b/TESTING/LIN/dqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqpt01.f b/TESTING/LIN/dqpt01.f index fba9d0d455..c4759347eb 100644 --- a/TESTING/LIN/dqpt01.f +++ b/TESTING/LIN/dqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt01.f b/TESTING/LIN/dqrt01.f index bc27e6eb80..622bef46a7 100644 --- a/TESTING/LIN/dqrt01.f +++ b/TESTING/LIN/dqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt01p.f b/TESTING/LIN/dqrt01p.f index 1cc8479cbf..a48bd11e54 100644 --- a/TESTING/LIN/dqrt01p.f +++ b/TESTING/LIN/dqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt02.f b/TESTING/LIN/dqrt02.f index ac584a33e2..4f1efec77e 100644 --- a/TESTING/LIN/dqrt02.f +++ b/TESTING/LIN/dqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt03.f b/TESTING/LIN/dqrt03.f index b4ca482b8a..71383217e0 100644 --- a/TESTING/LIN/dqrt03.f +++ b/TESTING/LIN/dqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dqrt04.f b/TESTING/LIN/dqrt04.f index 04a400f0f7..cc060ae507 100644 --- a/TESTING/LIN/dqrt04.f +++ b/TESTING/LIN/dqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -109,11 +109,11 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -121,8 +121,8 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -140,7 +140,7 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * Generate the m-by-m matrix Q * CALL DLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -176,7 +176,7 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * * Apply Q to C as Q*C * - CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -195,7 +195,7 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * * Apply Q to C as QT*C * - CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -206,7 +206,7 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -218,8 +218,8 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * * Apply Q to D as D*Q * - CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -237,8 +237,8 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * * Apply Q to D as D*QT * - CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/dqrt05.f b/TESTING/LIN/dqrt05.f index 1aba348586..7339791958 100644 --- a/TESTING/LIN/dqrt05.f +++ b/TESTING/LIN/dqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -117,7 +117,7 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -131,7 +131,7 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -220,7 +220,7 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * Apply Q to C as QT*C * CALL DTPMQRT( 'L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -230,7 +230,7 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -262,8 +262,8 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * Apply Q to D as D*QT * CALL DTPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/dqrt11.f b/TESTING/LIN/dqrt11.f index 0dcfac0017..8311ec2b00 100644 --- a/TESTING/LIN/dqrt11.f +++ b/TESTING/LIN/dqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt12.f b/TESTING/LIN/dqrt12.f index 948bd2d849..fa41c74eb0 100644 --- a/TESTING/LIN/dqrt12.f +++ b/TESTING/LIN/dqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt13.f b/TESTING/LIN/dqrt13.f index fa781f4cdb..798996bbfd 100644 --- a/TESTING/LIN/dqrt13.f +++ b/TESTING/LIN/dqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt14.f b/TESTING/LIN/dqrt14.f index 9892b9d76f..1890a2efe8 100644 --- a/TESTING/LIN/dqrt14.f +++ b/TESTING/LIN/dqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt15.f b/TESTING/LIN/dqrt15.f index c7f711aa85..f6a6c9d89c 100644 --- a/TESTING/LIN/dqrt15.f +++ b/TESTING/LIN/dqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt16.f b/TESTING/LIN/dqrt16.f index afc7b4f76e..a5202c1f92 100644 --- a/TESTING/LIN/dqrt16.f +++ b/TESTING/LIN/dqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt17.f b/TESTING/LIN/dqrt17.f index f71f30222b..2da2d37639 100644 --- a/TESTING/LIN/dqrt17.f +++ b/TESTING/LIN/dqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/drqt01.f b/TESTING/LIN/drqt01.f index a74cb74848..c45934ecc0 100644 --- a/TESTING/LIN/drqt01.f +++ b/TESTING/LIN/drqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drqt02.f b/TESTING/LIN/drqt02.f index 153c5bf704..91541136ff 100644 --- a/TESTING/LIN/drqt02.f +++ b/TESTING/LIN/drqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drqt03.f b/TESTING/LIN/drqt03.f index 655b443571..3e76dad2b2 100644 --- a/TESTING/LIN/drqt03.f +++ b/TESTING/LIN/drqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drzt01.f b/TESTING/LIN/drzt01.f index 49ebff9c3f..a469a44b3c 100644 --- a/TESTING/LIN/drzt01.f +++ b/TESTING/LIN/drzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drzt02.f b/TESTING/LIN/drzt02.f index f9677696ff..3967a1db22 100644 --- a/TESTING/LIN/drzt02.f +++ b/TESTING/LIN/drzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dspt01.f b/TESTING/LIN/dspt01.f index 50e32c3fb0..19597fd747 100644 --- a/TESTING/LIN/dspt01.f +++ b/TESTING/LIN/dspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt02.f b/TESTING/LIN/dtbt02.f index a06e773c88..53912c7494 100644 --- a/TESTING/LIN/dtbt02.f +++ b/TESTING/LIN/dtbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt03.f b/TESTING/LIN/dtbt03.f index 4b732b7850..1c95013d30 100644 --- a/TESTING/LIN/dtbt03.f +++ b/TESTING/LIN/dtbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt05.f b/TESTING/LIN/dtbt05.f index 951e07312f..507d8c92e3 100644 --- a/TESTING/LIN/dtbt05.f +++ b/TESTING/LIN/dtbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt06.f b/TESTING/LIN/dtbt06.f index ded24c9731..0fa00c78f8 100644 --- a/TESTING/LIN/dtbt06.f +++ b/TESTING/LIN/dtbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt01.f b/TESTING/LIN/dtpt01.f index 82754bd00b..f201cfa955 100644 --- a/TESTING/LIN/dtpt01.f +++ b/TESTING/LIN/dtpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt02.f b/TESTING/LIN/dtpt02.f index cec60142c5..933cadffa7 100644 --- a/TESTING/LIN/dtpt02.f +++ b/TESTING/LIN/dtpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt03.f b/TESTING/LIN/dtpt03.f index 4832f8f589..72a6f34740 100644 --- a/TESTING/LIN/dtpt03.f +++ b/TESTING/LIN/dtpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt05.f b/TESTING/LIN/dtpt05.f index a416751cf3..ba8117773a 100644 --- a/TESTING/LIN/dtpt05.f +++ b/TESTING/LIN/dtpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt06.f b/TESTING/LIN/dtpt06.f index 4013d38de8..7318f02748 100644 --- a/TESTING/LIN/dtpt06.f +++ b/TESTING/LIN/dtpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt01.f b/TESTING/LIN/dtrt01.f index 6515763324..23547abfc9 100644 --- a/TESTING/LIN/dtrt01.f +++ b/TESTING/LIN/dtrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt02.f b/TESTING/LIN/dtrt02.f index b94af80553..70bf454f32 100644 --- a/TESTING/LIN/dtrt02.f +++ b/TESTING/LIN/dtrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt03.f b/TESTING/LIN/dtrt03.f index 46926bdb91..d5782a8c9c 100644 --- a/TESTING/LIN/dtrt03.f +++ b/TESTING/LIN/dtrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt05.f b/TESTING/LIN/dtrt05.f index 949868caae..1377c1fe6a 100644 --- a/TESTING/LIN/dtrt05.f +++ b/TESTING/LIN/dtrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt06.f b/TESTING/LIN/dtrt06.f index d91ac2b4d4..297fc9376e 100644 --- a/TESTING/LIN/dtrt06.f +++ b/TESTING/LIN/dtrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/icopy.f b/TESTING/LIN/icopy.f index 1a94b36189..1db0217c98 100644 --- a/TESTING/LIN/icopy.f +++ b/TESTING/LIN/icopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * .. * .. Array Arguments .. * INTEGER SX( * ), SY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ilaenv.f b/TESTING/LIN/ilaenv.f index 3433576440..80479382c7 100644 --- a/TESTING/LIN/ilaenv.f +++ b/TESTING/LIN/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkaa.f b/TESTING/LIN/schkaa.f index ded959766c..821710cef1 100644 --- a/TESTING/LIN/schkaa.f +++ b/TESTING/LIN/schkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -868,7 +868,7 @@ PROGRAM SCHKAA * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -879,7 +879,7 @@ PROGRAM SCHKAA * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/schkeq.f b/TESTING/LIN/schkeq.f index 60a3bd86ac..01eceaa151 100644 --- a/TESTING/LIN/schkeq.f +++ b/TESTING/LIN/schkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkgb.f b/TESTING/LIN/schkgb.f index 3caf049134..818893be27 100644 --- a/TESTING/LIN/schkgb.f +++ b/TESTING/LIN/schkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkge.f b/TESTING/LIN/schkge.f index 560f259d3e..6ccb8a7e8a 100644 --- a/TESTING/LIN/schkge.f +++ b/TESTING/LIN/schkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/schkgt.f b/TESTING/LIN/schkgt.f index 783d85f33d..4ef9c99553 100644 --- a/TESTING/LIN/schkgt.f +++ b/TESTING/LIN/schkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index 016fa2a5f6..763afb453a 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schkpb.f b/TESTING/LIN/schkpb.f index 09fa0611a8..29a16bf508 100644 --- a/TESTING/LIN/schkpb.f +++ b/TESTING/LIN/schkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkpo.f b/TESTING/LIN/schkpo.f index afeb176ecf..58a8989d68 100644 --- a/TESTING/LIN/schkpo.f +++ b/TESTING/LIN/schkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkpp.f b/TESTING/LIN/schkpp.f index 9bee8ef1ee..8d0ca0dab7 100644 --- a/TESTING/LIN/schkpp.f +++ b/TESTING/LIN/schkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkps.f b/TESTING/LIN/schkps.f index b62f881a04..64cc637138 100644 --- a/TESTING/LIN/schkps.f +++ b/TESTING/LIN/schkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -282,7 +282,7 @@ SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * IF( INFO.NE.0 ) THEN CALL ALAERH( PATH, 'SLATMT', INFO, 0, UPLO, N, - $ N, -1, -1, -1, IMAT, NFAIL, NERRS, + $ N, -1, -1, -1, IMAT, NFAIL, NERRS, $ NOUT ) GO TO 120 END IF diff --git a/TESTING/LIN/schkpt.f b/TESTING/LIN/schkpt.f index 6f6c0fab6c..0e68cbb03b 100644 --- a/TESTING/LIN/schkpt.f +++ b/TESTING/LIN/schkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkq3.f b/TESTING/LIN/schkq3.f index 6a184e8d79..7d21750919 100644 --- a/TESTING/LIN/schkq3.f +++ b/TESTING/LIN/schkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkql.f b/TESTING/LIN/schkql.f index 4379673e61..31fb84e3c4 100644 --- a/TESTING/LIN/schkql.f +++ b/TESTING/LIN/schkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkqr.f b/TESTING/LIN/schkqr.f index 70027a5cad..c00de16fa9 100644 --- a/TESTING/LIN/schkqr.f +++ b/TESTING/LIN/schkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schkqrt.f b/TESTING/LIN/schkqrt.f index 0d6368af6e..c3a0c90f6e 100644 --- a/TESTING/LIN/schkqrt.f +++ b/TESTING/LIN/schkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -87,17 +87,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -122,7 +122,7 @@ SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * .. * .. Local Scalars .. CHARACTER*3 PATH - INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, + INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, $ MINMN * .. * .. Local Arrays .. @@ -173,7 +173,7 @@ SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN * * Test SGEQRT and SGEMQRT -* +* CALL SQRT04( M, N, NB, RESULT ) * * Print information about the tests that did not diff --git a/TESTING/LIN/schkqrtp.f b/TESTING/LIN/schkqrtp.f index 68ba96feed..7f107a0ff1 100644 --- a/TESTING/LIN/schkqrtp.f +++ b/TESTING/LIN/schkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test STPQRT and STPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL SQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index f092f68510..4bdef73852 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/schkrq.f b/TESTING/LIN/schkrq.f index 8508774568..c83a779269 100644 --- a/TESTING/LIN/schkrq.f +++ b/TESTING/LIN/schkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schksp.f b/TESTING/LIN/schksp.f index 782facc0ab..fe6b52f2af 100644 --- a/TESTING/LIN/schksp.f +++ b/TESTING/LIN/schksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktb.f b/TESTING/LIN/schktb.f index 0f417f9524..45277849fc 100644 --- a/TESTING/LIN/schktb.f +++ b/TESTING/LIN/schktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktp.f b/TESTING/LIN/schktp.f index 8bfdedd03e..a728126720 100644 --- a/TESTING/LIN/schktp.f +++ b/TESTING/LIN/schktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktr.f b/TESTING/LIN/schktr.f index 0b12baa70c..b279701148 100644 --- a/TESTING/LIN/schktr.f +++ b/TESTING/LIN/schktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktz.f b/TESTING/LIN/schktz.f index 74406453bd..367e347f9a 100644 --- a/TESTING/LIN/schktz.f +++ b/TESTING/LIN/schktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgb.f b/TESTING/LIN/sdrvgb.f index 1d9bbadd31..e2f6be3e05 100644 --- a/TESTING/LIN/sdrvgb.f +++ b/TESTING/LIN/sdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgbx.f b/TESTING/LIN/sdrvgbx.f index d291f5b5f3..587a172194 100644 --- a/TESTING/LIN/sdrvgbx.f +++ b/TESTING/LIN/sdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvge.f b/TESTING/LIN/sdrvge.f index 8627e23680..7865faa47c 100644 --- a/TESTING/LIN/sdrvge.f +++ b/TESTING/LIN/sdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgex.f b/TESTING/LIN/sdrvgex.f index cf8d07031a..b51619ad07 100644 --- a/TESTING/LIN/sdrvgex.f +++ b/TESTING/LIN/sdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/sdrvgt.f b/TESTING/LIN/sdrvgt.f index 3eee04841c..3198137b57 100644 --- a/TESTING/LIN/sdrvgt.f +++ b/TESTING/LIN/sdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvls.f b/TESTING/LIN/sdrvls.f index 2d4afa5235..4db6f88759 100644 --- a/TESTING/LIN/sdrvls.f +++ b/TESTING/LIN/sdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -234,9 +234,9 @@ SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK REAL EPS, NORMA, NORMB, RCOND * .. @@ -635,7 +635,7 @@ SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/TESTING/LIN/sdrvpb.f b/TESTING/LIN/sdrvpb.f index 69c48a4737..12be9ba53a 100644 --- a/TESTING/LIN/sdrvpb.f +++ b/TESTING/LIN/sdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpo.f b/TESTING/LIN/sdrvpo.f index 12ae86e6a4..c8b04d4274 100644 --- a/TESTING/LIN/sdrvpo.f +++ b/TESTING/LIN/sdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpox.f b/TESTING/LIN/sdrvpox.f index 565b6c3820..4a0520a3e2 100644 --- a/TESTING/LIN/sdrvpox.f +++ b/TESTING/LIN/sdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/sdrvpp.f b/TESTING/LIN/sdrvpp.f index 43b663c036..b3ba76c2b3 100644 --- a/TESTING/LIN/sdrvpp.f +++ b/TESTING/LIN/sdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpt.f b/TESTING/LIN/sdrvpt.f index a906ddc23a..44f43f3d1c 100644 --- a/TESTING/LIN/sdrvpt.f +++ b/TESTING/LIN/sdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvrf1.f b/TESTING/LIN/sdrvrf1.f index 60c1649bed..404bbf3239 100644 --- a/TESTING/LIN/sdrvrf1.f +++ b/TESTING/LIN/sdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,17 +161,17 @@ SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT - + * Quick Return if possible IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SLANSF', + WRITE( NOUT, FMT = 9997 ) 'SLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/sdrvrf2.f b/TESTING/LIN/sdrvrf2.f index 921065ac50..515da5c659 100644 --- a/TESTING/LIN/sdrvrf2.f +++ b/TESTING/LIN/sdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f index 3aa628606d..faecc1c242 100644 --- a/TESTING/LIN/sdrvrf3.f +++ b/TESTING/LIN/sdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), S_WORK_SGEQRF( * ), * + S_WORK_SLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'STFSM', + WRITE( NOUT, FMT = 9997 ) 'STFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, FMT = 9995 ) 'STFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/sdrvrf4.f b/TESTING/LIN/sdrvrf4.f index 23e28d3cb3..be35f05b85 100644 --- a/TESTING/LIN/sdrvrf4.f +++ b/TESTING/LIN/sdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_SLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -20,7 +20,7 @@ * REAL A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), S_WORK_SLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, NORMA = SLANGE( 'I', N, K, A, LDA, + S_WORK_SLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = SLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * RESULT(1) = SLANGE( 'I', N, N, C1, LDC, + S_WORK_SLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SSFRK', + WRITE( NOUT, FMT = 9997 ) 'SSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, FMT = 9995 ) 'SSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/sdrvrfp.f b/TESTING/LIN/sdrvrfp.f index 04737e770c..9b0eed7355 100644 --- a/TESTING/LIN/sdrvrfp.f +++ b/TESTING/LIN/sdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + S_WORK_SLATMS, S_WORK_SPOT01, S_TEMP_SPOT02, * + S_TEMP_SPOT03, S_WORK_SLANSY, * + S_WORK_SPOT02, S_WORK_SPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -39,7 +39,7 @@ * REAL S_WORK_SPOT02( * ) * REAL S_WORK_SPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines STRTTF and *> STFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -514,7 +514,7 @@ SUBROUTINE SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL SLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -549,7 +549,7 @@ SUBROUTINE SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL SGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/TESTING/LIN/sdrvsp.f b/TESTING/LIN/sdrvsp.f index 6792dd9e0d..2f6b5ec94f 100644 --- a/TESTING/LIN/sdrvsp.f +++ b/TESTING/LIN/sdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvsyx.f b/TESTING/LIN/sdrvsyx.f index b3fc76f5cb..0fef48cd2d 100644 --- a/TESTING/LIN/sdrvsyx.f +++ b/TESTING/LIN/sdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sebchvxx.f b/TESTING/LIN/sebchvxx.f index 9fa72df208..7455c558e7 100644 --- a/TESTING/LIN/sebchvxx.f +++ b/TESTING/LIN/sebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrge.f b/TESTING/LIN/serrge.f index ff200a4b8a..56a5ecce08 100644 --- a/TESTING/LIN/serrge.f +++ b/TESTING/LIN/serrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrgex.f b/TESTING/LIN/serrgex.f index e6afd3fcdb..b394c67f44 100644 --- a/TESTING/LIN/serrgex.f +++ b/TESTING/LIN/serrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrgt.f b/TESTING/LIN/serrgt.f index 65e0404c8a..294de48cad 100644 --- a/TESTING/LIN/serrgt.f +++ b/TESTING/LIN/serrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrlq.f b/TESTING/LIN/serrlq.f index 931dd7c6c9..3c2d19d35d 100644 --- a/TESTING/LIN/serrlq.f +++ b/TESTING/LIN/serrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrls.f b/TESTING/LIN/serrls.f index fe3ab0c325..0312e5549a 100644 --- a/TESTING/LIN/serrls.f +++ b/TESTING/LIN/serrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrpo.f b/TESTING/LIN/serrpo.f index 91f7b683ca..8394bf15c3 100644 --- a/TESTING/LIN/serrpo.f +++ b/TESTING/LIN/serrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrpox.f b/TESTING/LIN/serrpox.f index 88f34c0f60..686b545ca0 100644 --- a/TESTING/LIN/serrpox.f +++ b/TESTING/LIN/serrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrps.f b/TESTING/LIN/serrps.f index ea05b82476..57a2bfe83e 100644 --- a/TESTING/LIN/serrps.f +++ b/TESTING/LIN/serrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrql.f b/TESTING/LIN/serrql.f index 1ffdb93f59..4fe8061cd7 100644 --- a/TESTING/LIN/serrql.f +++ b/TESTING/LIN/serrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrqp.f b/TESTING/LIN/serrqp.f index 30499202b5..23601f652a 100644 --- a/TESTING/LIN/serrqp.f +++ b/TESTING/LIN/serrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrqr.f b/TESTING/LIN/serrqr.f index 93709123d5..8afe225686 100644 --- a/TESTING/LIN/serrqr.f +++ b/TESTING/LIN/serrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrqrt.f b/TESTING/LIN/serrqrt.f index c8650d3560..3e0d60cc35 100644 --- a/TESTING/LIN/serrqrt.f +++ b/TESTING/LIN/serrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE SERRQRT( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, SGEQRT2, SGEQRT3, SGEQRT, - $ SGEMQRT + $ SGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/serrqrtp.f b/TESTING/LIN/serrqrtp.f index 2550cae799..888b2037ee 100644 --- a/TESTING/LIN/serrqrtp.f +++ b/TESTING/LIN/serrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE SERRQRTP( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, STPQRT2, STPQRT, - $ STPMQRT + $ STPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ SUBROUTINE SERRQRTP( PATH, NUNIT ) * SRNAMT = 'STPMQRT' INFOT = 1 - CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/serrrfp.f b/TESTING/LIN/serrrfp.f index 98159bbd5a..cde542e7b7 100644 --- a/TESTING/LIN/serrrfp.f +++ b/TESTING/LIN/serrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrrq.f b/TESTING/LIN/serrrq.f index 46b01b2c4d..63bf588a4d 100644 --- a/TESTING/LIN/serrrq.f +++ b/TESTING/LIN/serrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f index 7e0829eb7b..5326612a4e 100644 --- a/TESTING/LIN/serrsy.f +++ b/TESTING/LIN/serrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrsyx.f b/TESTING/LIN/serrsyx.f index e2d41d1438..9d5baaedc6 100644 --- a/TESTING/LIN/serrsyx.f +++ b/TESTING/LIN/serrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrtr.f b/TESTING/LIN/serrtr.f index 961bd98450..669e565105 100644 --- a/TESTING/LIN/serrtr.f +++ b/TESTING/LIN/serrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrtz.f b/TESTING/LIN/serrtz.f index 2e328f1357..23fa9d70ad 100644 --- a/TESTING/LIN/serrtz.f +++ b/TESTING/LIN/serrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrvx.f b/TESTING/LIN/serrvx.f index c09ca39982..7d999c4a5b 100644 --- a/TESTING/LIN/serrvx.f +++ b/TESTING/LIN/serrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index a05a8ab626..146e8b3707 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sgbt01.f b/TESTING/LIN/sgbt01.f index e2db4516c5..c32a1f59da 100644 --- a/TESTING/LIN/sgbt01.f +++ b/TESTING/LIN/sgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgbt02.f b/TESTING/LIN/sgbt02.f index b274caffe0..981676dab2 100644 --- a/TESTING/LIN/sgbt02.f +++ b/TESTING/LIN/sgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgbt05.f b/TESTING/LIN/sgbt05.f index 150cf117db..d301f831e2 100644 --- a/TESTING/LIN/sgbt05.f +++ b/TESTING/LIN/sgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgelqs.f b/TESTING/LIN/sgelqs.f index 8e7ea3b96e..4921950413 100644 --- a/TESTING/LIN/sgelqs.f +++ b/TESTING/LIN/sgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgennd.f b/TESTING/LIN/sgennd.f index 78c8f1ee60..1dfa0f4e0f 100644 --- a/TESTING/LIN/sgennd.f +++ b/TESTING/LIN/sgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgeqls.f b/TESTING/LIN/sgeqls.f index 1fe0ab650d..88d81fdf74 100644 --- a/TESTING/LIN/sgeqls.f +++ b/TESTING/LIN/sgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgeqrs.f b/TESTING/LIN/sgeqrs.f index cbab20e5d9..de62a1860c 100644 --- a/TESTING/LIN/sgeqrs.f +++ b/TESTING/LIN/sgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgerqs.f b/TESTING/LIN/sgerqs.f index 0e3fa9c1c8..454d82edfe 100644 --- a/TESTING/LIN/sgerqs.f +++ b/TESTING/LIN/sgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget01.f b/TESTING/LIN/sget01.f index 93e2831df2..8e9ecfc47d 100644 --- a/TESTING/LIN/sget01.f +++ b/TESTING/LIN/sget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget02.f b/TESTING/LIN/sget02.f index 4e61bc7517..dd3c92fd72 100644 --- a/TESTING/LIN/sget02.f +++ b/TESTING/LIN/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sget03.f b/TESTING/LIN/sget03.f index 0ac0d93899..9af421e7fe 100644 --- a/TESTING/LIN/sget03.f +++ b/TESTING/LIN/sget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget04.f b/TESTING/LIN/sget04.f index 4ff383e3fb..e7484932e2 100644 --- a/TESTING/LIN/sget04.f +++ b/TESTING/LIN/sget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget06.f b/TESTING/LIN/sget06.f index 1500f2ccc4..80852fdb0c 100644 --- a/TESTING/LIN/sget06.f +++ b/TESTING/LIN/sget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * REAL RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget07.f b/TESTING/LIN/sget07.f index ca12ec5e28..649940802c 100644 --- a/TESTING/LIN/sget07.f +++ b/TESTING/LIN/sget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt01.f b/TESTING/LIN/sgtt01.f index 6cd1e3e0f2..30f9e668af 100644 --- a/TESTING/LIN/sgtt01.f +++ b/TESTING/LIN/sgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt02.f b/TESTING/LIN/sgtt02.f index 708a82e2b3..6a3fe7941a 100644 --- a/TESTING/LIN/sgtt02.f +++ b/TESTING/LIN/sgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt05.f b/TESTING/LIN/sgtt05.f index 74a28c7f1e..fd759341dc 100644 --- a/TESTING/LIN/sgtt05.f +++ b/TESTING/LIN/sgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slahilb.f b/TESTING/LIN/slahilb.f index 66cb300917..7aef88a0a9 100644 --- a/TESTING/LIN/slahilb.f +++ b/TESTING/LIN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slaord.f b/TESTING/LIN/slaord.f index a6cfeec4d9..29a29e09bf 100644 --- a/TESTING/LIN/slaord.f +++ b/TESTING/LIN/slaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slaptm.f b/TESTING/LIN/slaptm.f index 00189cedb1..fe347788e2 100644 --- a/TESTING/LIN/slaptm.f +++ b/TESTING/LIN/slaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slarhs.f b/TESTING/LIN/slarhs.f index 5d05b12743..e5a7fc21d0 100644 --- a/TESTING/LIN/slarhs.f +++ b/TESTING/LIN/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slatb4.f b/TESTING/LIN/slatb4.f index c2e2021998..4ead31d132 100644 --- a/TESTING/LIN/slatb4.f +++ b/TESTING/LIN/slatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slatb5.f b/TESTING/LIN/slatb5.f index 1bd65daa1e..737e32ea80 100644 --- a/TESTING/LIN/slatb5.f +++ b/TESTING/LIN/slatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattb.f b/TESTING/LIN/slattb.f index b62232b56d..7ddb91f5d8 100644 --- a/TESTING/LIN/slattb.f +++ b/TESTING/LIN/slattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattp.f b/TESTING/LIN/slattp.f index 22d0a9e691..20a06ca96f 100644 --- a/TESTING/LIN/slattp.f +++ b/TESTING/LIN/slattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattr.f b/TESTING/LIN/slattr.f index 1b9059dffb..e94300191e 100644 --- a/TESTING/LIN/slattr.f +++ b/TESTING/LIN/slattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slavsp.f b/TESTING/LIN/slavsp.f index c7eae92bf5..f73ffdfb1b 100644 --- a/TESTING/LIN/slavsp.f +++ b/TESTING/LIN/slavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt01.f b/TESTING/LIN/slqt01.f index 919fc982cf..99b22efcbe 100644 --- a/TESTING/LIN/slqt01.f +++ b/TESTING/LIN/slqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt02.f b/TESTING/LIN/slqt02.f index 7de2f1da2f..5d21138785 100644 --- a/TESTING/LIN/slqt02.f +++ b/TESTING/LIN/slqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt03.f b/TESTING/LIN/slqt03.f index 1dd1c92a09..bc8e24f17a 100644 --- a/TESTING/LIN/slqt03.f +++ b/TESTING/LIN/slqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt01.f b/TESTING/LIN/spbt01.f index 63b26f55d3..dcc39f6ec4 100644 --- a/TESTING/LIN/spbt01.f +++ b/TESTING/LIN/spbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt02.f b/TESTING/LIN/spbt02.f index bc2791366e..c514c7d5b6 100644 --- a/TESTING/LIN/spbt02.f +++ b/TESTING/LIN/spbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt05.f b/TESTING/LIN/spbt05.f index 05eed7c446..e34723ffb8 100644 --- a/TESTING/LIN/spbt05.f +++ b/TESTING/LIN/spbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot01.f b/TESTING/LIN/spot01.f index 980db18438..646d41b408 100644 --- a/TESTING/LIN/spot01.f +++ b/TESTING/LIN/spot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot02.f b/TESTING/LIN/spot02.f index fe7c5c3aba..d9c3b92dc0 100644 --- a/TESTING/LIN/spot02.f +++ b/TESTING/LIN/spot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot03.f b/TESTING/LIN/spot03.f index 565c19bef5..9b65dd62cf 100644 --- a/TESTING/LIN/spot03.f +++ b/TESTING/LIN/spot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot05.f b/TESTING/LIN/spot05.f index ea2c810a39..3fe8736d9e 100644 --- a/TESTING/LIN/spot05.f +++ b/TESTING/LIN/spot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt01.f b/TESTING/LIN/sppt01.f index 072e39bc64..0a37c47d60 100644 --- a/TESTING/LIN/sppt01.f +++ b/TESTING/LIN/sppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt02.f b/TESTING/LIN/sppt02.f index fa298de761..44aa204813 100644 --- a/TESTING/LIN/sppt02.f +++ b/TESTING/LIN/sppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt03.f b/TESTING/LIN/sppt03.f index bf756d08dd..fa3073f9e4 100644 --- a/TESTING/LIN/sppt03.f +++ b/TESTING/LIN/sppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt05.f b/TESTING/LIN/sppt05.f index cd2a23fc03..ce491f0426 100644 --- a/TESTING/LIN/sppt05.f +++ b/TESTING/LIN/sppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spst01.f b/TESTING/LIN/spst01.f index 10b7745c40..2507456e43 100644 --- a/TESTING/LIN/spst01.f +++ b/TESTING/LIN/spst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt01.f b/TESTING/LIN/sptt01.f index 8d10a49420..7b92c1b99f 100644 --- a/TESTING/LIN/sptt01.f +++ b/TESTING/LIN/sptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt02.f b/TESTING/LIN/sptt02.f index d622016d69..ebf8318462 100644 --- a/TESTING/LIN/sptt02.f +++ b/TESTING/LIN/sptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt05.f b/TESTING/LIN/sptt05.f index a74e239e92..8939fc027b 100644 --- a/TESTING/LIN/sptt05.f +++ b/TESTING/LIN/sptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt01.f b/TESTING/LIN/sqlt01.f index 51bb584e54..69a89709a2 100644 --- a/TESTING/LIN/sqlt01.f +++ b/TESTING/LIN/sqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt02.f b/TESTING/LIN/sqlt02.f index 4ea284cae5..9cdabde212 100644 --- a/TESTING/LIN/sqlt02.f +++ b/TESTING/LIN/sqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt03.f b/TESTING/LIN/sqlt03.f index e8ef762f29..638317e70d 100644 --- a/TESTING/LIN/sqlt03.f +++ b/TESTING/LIN/sqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqpt01.f b/TESTING/LIN/sqpt01.f index f7f471f45b..c0217967a3 100644 --- a/TESTING/LIN/sqpt01.f +++ b/TESTING/LIN/sqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt01.f b/TESTING/LIN/sqrt01.f index d45497abc6..16a97fc259 100644 --- a/TESTING/LIN/sqrt01.f +++ b/TESTING/LIN/sqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt01p.f b/TESTING/LIN/sqrt01p.f index 054f352822..99f637fcfb 100644 --- a/TESTING/LIN/sqrt01p.f +++ b/TESTING/LIN/sqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt02.f b/TESTING/LIN/sqrt02.f index 0442407b83..d386daed75 100644 --- a/TESTING/LIN/sqrt02.f +++ b/TESTING/LIN/sqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt03.f b/TESTING/LIN/sqrt03.f index 6af6ff1d34..81639fdef0 100644 --- a/TESTING/LIN/sqrt03.f +++ b/TESTING/LIN/sqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sqrt04.f b/TESTING/LIN/sqrt04.f index 9a1dc3560d..e186cc07a0 100644 --- a/TESTING/LIN/sqrt04.f +++ b/TESTING/LIN/sqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -104,17 +104,17 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -122,8 +122,8 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -141,7 +141,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * Generate the m-by-m matrix Q * CALL SLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -177,7 +177,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * * Apply Q to C as Q*C * - CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -196,7 +196,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * * Apply Q to C as QT*C * - CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -207,7 +207,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -219,8 +219,8 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * * Apply Q to D as D*Q * - CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -238,8 +238,8 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * * Apply Q to D as D*QT * - CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/sqrt05.f b/TESTING/LIN/sqrt05.f index 420f4889f4..28184cdfab 100644 --- a/TESTING/LIN/sqrt05.f +++ b/TESTING/LIN/sqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -111,14 +111,14 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -132,7 +132,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -187,7 +187,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * Compute |I - Q'*Q| and store in RESULT(2) * CALL SLASET( 'Full', M2, M2, ZERO, ONE, R, M2 ) - CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, + CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, $ R, M2 ) RESID = SLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -222,7 +222,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * Apply Q to C as QT*C * CALL STPMQRT('L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -232,7 +232,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -264,8 +264,8 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * Apply Q to D as D*QT * CALL STPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/sqrt11.f b/TESTING/LIN/sqrt11.f index 6bf6889795..c8bd135bf8 100644 --- a/TESTING/LIN/sqrt11.f +++ b/TESTING/LIN/sqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt12.f b/TESTING/LIN/sqrt12.f index 7bd601dc61..6964622612 100644 --- a/TESTING/LIN/sqrt12.f +++ b/TESTING/LIN/sqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt13.f b/TESTING/LIN/sqrt13.f index 594715069a..593d5e9645 100644 --- a/TESTING/LIN/sqrt13.f +++ b/TESTING/LIN/sqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt14.f b/TESTING/LIN/sqrt14.f index 7d1680409d..ecbcc8566f 100644 --- a/TESTING/LIN/sqrt14.f +++ b/TESTING/LIN/sqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt15.f b/TESTING/LIN/sqrt15.f index cd7e30071b..eed6cb86b6 100644 --- a/TESTING/LIN/sqrt15.f +++ b/TESTING/LIN/sqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt16.f b/TESTING/LIN/sqrt16.f index 405f7ff3c1..0995c4b983 100644 --- a/TESTING/LIN/sqrt16.f +++ b/TESTING/LIN/sqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt17.f b/TESTING/LIN/sqrt17.f index dc7c01d26d..75611c0efb 100644 --- a/TESTING/LIN/sqrt17.f +++ b/TESTING/LIN/sqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/srqt01.f b/TESTING/LIN/srqt01.f index 5747b6ea61..8592f2defc 100644 --- a/TESTING/LIN/srqt01.f +++ b/TESTING/LIN/srqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srqt02.f b/TESTING/LIN/srqt02.f index 63b8884245..ee750f5075 100644 --- a/TESTING/LIN/srqt02.f +++ b/TESTING/LIN/srqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srqt03.f b/TESTING/LIN/srqt03.f index cf4a637a5a..b81f5f9b4d 100644 --- a/TESTING/LIN/srqt03.f +++ b/TESTING/LIN/srqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srzt01.f b/TESTING/LIN/srzt01.f index fce9af1286..7fd50ef88f 100644 --- a/TESTING/LIN/srzt01.f +++ b/TESTING/LIN/srzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srzt02.f b/TESTING/LIN/srzt02.f index 831a54f691..577296a4e4 100644 --- a/TESTING/LIN/srzt02.f +++ b/TESTING/LIN/srzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sspt01.f b/TESTING/LIN/sspt01.f index 07ef88ffd1..03981b6571 100644 --- a/TESTING/LIN/sspt01.f +++ b/TESTING/LIN/sspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt02.f b/TESTING/LIN/stbt02.f index da57abe182..046dedc647 100644 --- a/TESTING/LIN/stbt02.f +++ b/TESTING/LIN/stbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt03.f b/TESTING/LIN/stbt03.f index 7104541d31..ce93e1b5ec 100644 --- a/TESTING/LIN/stbt03.f +++ b/TESTING/LIN/stbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt05.f b/TESTING/LIN/stbt05.f index 60b6c7d824..d6c8026637 100644 --- a/TESTING/LIN/stbt05.f +++ b/TESTING/LIN/stbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt06.f b/TESTING/LIN/stbt06.f index 452c40a183..c8b7f733d9 100644 --- a/TESTING/LIN/stbt06.f +++ b/TESTING/LIN/stbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt01.f b/TESTING/LIN/stpt01.f index d8da0ce32f..9291a20aea 100644 --- a/TESTING/LIN/stpt01.f +++ b/TESTING/LIN/stpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt02.f b/TESTING/LIN/stpt02.f index 88943fb992..d3a1c35808 100644 --- a/TESTING/LIN/stpt02.f +++ b/TESTING/LIN/stpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt03.f b/TESTING/LIN/stpt03.f index ce2a57848d..5705e8c028 100644 --- a/TESTING/LIN/stpt03.f +++ b/TESTING/LIN/stpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt05.f b/TESTING/LIN/stpt05.f index 94934154a5..78a7a9e19a 100644 --- a/TESTING/LIN/stpt05.f +++ b/TESTING/LIN/stpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt06.f b/TESTING/LIN/stpt06.f index 28bffcfcc9..1106595a2d 100644 --- a/TESTING/LIN/stpt06.f +++ b/TESTING/LIN/stpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt01.f b/TESTING/LIN/strt01.f index 5eb4f55d50..8deafd5a2a 100644 --- a/TESTING/LIN/strt01.f +++ b/TESTING/LIN/strt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt02.f b/TESTING/LIN/strt02.f index e2d9d08319..d6ca1d7a85 100644 --- a/TESTING/LIN/strt02.f +++ b/TESTING/LIN/strt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt03.f b/TESTING/LIN/strt03.f index 118d1b4aec..188939cea7 100644 --- a/TESTING/LIN/strt03.f +++ b/TESTING/LIN/strt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt05.f b/TESTING/LIN/strt05.f index 4e87918112..84d60c1589 100644 --- a/TESTING/LIN/strt05.f +++ b/TESTING/LIN/strt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt06.f b/TESTING/LIN/strt06.f index 491019759b..bc691141c7 100644 --- a/TESTING/LIN/strt06.f +++ b/TESTING/LIN/strt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/xerbla.f b/TESTING/LIN/xerbla.f index 8694ff1ff7..821d5a5b79 100644 --- a/TESTING/LIN/xerbla.f +++ b/TESTING/LIN/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/xlaenv.f b/TESTING/LIN/xlaenv.f index 19a54eb0bd..ea4ea43a9a 100644 --- a/TESTING/LIN/xlaenv.f +++ b/TESTING/LIN/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkaa.f b/TESTING/LIN/zchkaa.f index 3841534204..9212afc9d7 100644 --- a/TESTING/LIN/zchkaa.f +++ b/TESTING/LIN/zchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -947,7 +947,7 @@ PROGRAM ZCHKAA * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -958,7 +958,7 @@ PROGRAM ZCHKAA * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/zchkab.f b/TESTING/LIN/zchkab.f index 82dbfa49bf..8d20d6acd3 100644 --- a/TESTING/LIN/zchkab.f +++ b/TESTING/LIN/zchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAB -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zchkeq.f b/TESTING/LIN/zchkeq.f index ac3ccf5bb7..ee850374ad 100644 --- a/TESTING/LIN/zchkeq.f +++ b/TESTING/LIN/zchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkgb.f b/TESTING/LIN/zchkgb.f index af3a599e3c..1fcd5c824d 100644 --- a/TESTING/LIN/zchkgb.f +++ b/TESTING/LIN/zchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkge.f b/TESTING/LIN/zchkge.f index e7a31cfe41..fce8077f29 100644 --- a/TESTING/LIN/zchkge.f +++ b/TESTING/LIN/zchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkgt.f b/TESTING/LIN/zchkgt.f index e8958e2494..713147bd7d 100644 --- a/TESTING/LIN/zchkgt.f +++ b/TESTING/LIN/zchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkhp.f b/TESTING/LIN/zchkhp.f index 7251592d25..bf0e475a4d 100644 --- a/TESTING/LIN/zchkhp.f +++ b/TESTING/LIN/zchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchklq.f b/TESTING/LIN/zchklq.f index 21adc67774..6ac2740954 100644 --- a/TESTING/LIN/zchklq.f +++ b/TESTING/LIN/zchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpb.f b/TESTING/LIN/zchkpb.f index 3f555b3bab..c2f0ee8ce9 100644 --- a/TESTING/LIN/zchkpb.f +++ b/TESTING/LIN/zchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpo.f b/TESTING/LIN/zchkpo.f index 1d1da6aafd..ec82db7092 100644 --- a/TESTING/LIN/zchkpo.f +++ b/TESTING/LIN/zchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpp.f b/TESTING/LIN/zchkpp.f index 4eac9ea52d..81d97f9a59 100644 --- a/TESTING/LIN/zchkpp.f +++ b/TESTING/LIN/zchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkps.f b/TESTING/LIN/zchkps.f index 5e406d601f..4a1683cb4d 100644 --- a/TESTING/LIN/zchkps.f +++ b/TESTING/LIN/zchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpt.f b/TESTING/LIN/zchkpt.f index 04be25ba62..3f97374d63 100644 --- a/TESTING/LIN/zchkpt.f +++ b/TESTING/LIN/zchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkq3.f b/TESTING/LIN/zchkq3.f index 7619188ae5..db234fde88 100644 --- a/TESTING/LIN/zchkq3.f +++ b/TESTING/LIN/zchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkql.f b/TESTING/LIN/zchkql.f index 56554c83fb..3b1ee01fde 100644 --- a/TESTING/LIN/zchkql.f +++ b/TESTING/LIN/zchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkqr.f b/TESTING/LIN/zchkqr.f index 9953bb333d..353dc8e120 100644 --- a/TESTING/LIN/zchkqr.f +++ b/TESTING/LIN/zchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zchkqrt.f b/TESTING/LIN/zchkqrt.f index 274c94f13a..e45f59552a 100644 --- a/TESTING/LIN/zchkqrt.f +++ b/TESTING/LIN/zchkqrt.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * .. Scalar Arguments .. * LOGICAL TSTERR @@ -88,20 +88,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE -* +* * -- LAPACK test routine (version 3.4.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -174,7 +174,7 @@ SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NB = NBVAL( K ) * * Test ZGEQRT and ZGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL ZQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/zchkqrtp.f b/TESTING/LIN/zchkqrtp.f index fc297b7cb6..9ba2a3f1f3 100644 --- a/TESTING/LIN/zchkqrtp.f +++ b/TESTING/LIN/zchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -126,7 +126,7 @@ SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * .. Local Scalars .. CHARACTER*3 PATH INTEGER I, J, K, T, L, M, N, NB, NFAIL, NERRS, NRUN, - $ MINMN + $ MINMN * .. * .. Local Arrays .. DOUBLE PRECISION RESULT( NTESTS ) @@ -172,14 +172,14 @@ SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test ZTPQRT and ZTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL ZQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index f010ca4a9c..1a7145141b 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -264,7 +264,7 @@ PROGRAM ZCHKRFP CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, + WORKAINV, WORKAFAC, D_WORK_ZLANHE, + Z_WORK_ZPOT03, Z_WORK_ZPOT02 ) - + * * Test the routine: zhfrk * diff --git a/TESTING/LIN/zchkrq.f b/TESTING/LIN/zchkrq.f index 5ff1133d2e..05eb695ee2 100644 --- a/TESTING/LIN/zchkrq.f +++ b/TESTING/LIN/zchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchksp.f b/TESTING/LIN/zchksp.f index 6eab6d270e..5d30110eee 100644 --- a/TESTING/LIN/zchksp.f +++ b/TESTING/LIN/zchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktb.f b/TESTING/LIN/zchktb.f index aebe9c031d..82b0f90b37 100644 --- a/TESTING/LIN/zchktb.f +++ b/TESTING/LIN/zchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktp.f b/TESTING/LIN/zchktp.f index 5888efc9b1..9cac6ba1c5 100644 --- a/TESTING/LIN/zchktp.f +++ b/TESTING/LIN/zchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktr.f b/TESTING/LIN/zchktr.f index a182cd6ab7..b93215e278 100644 --- a/TESTING/LIN/zchktr.f +++ b/TESTING/LIN/zchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktz.f b/TESTING/LIN/zchktz.f index e9045273ed..016f96b232 100644 --- a/TESTING/LIN/zchktz.f +++ b/TESTING/LIN/zchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index 6af545ad8f..7a7b2f7d66 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -321,7 +321,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, CALL ZLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from ZCGESV. This should be the same as +* Check error code from ZCGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -355,7 +355,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -425,7 +425,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f index a32866ee69..a4707d1281 100644 --- a/TESTING/LIN/zdrvac.f +++ b/TESTING/LIN/zdrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -178,7 +178,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -192,7 +192,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * .. * .. External Subroutines .. EXTERNAL ALAERH, ZLACPY, ZLAIPD, - $ ZLARHS, ZLATB4, ZLATMS, + $ ZLARHS, ZLATB4, ZLATMS, $ ZPOT06, ZCPOSV * .. * .. Intrinsic Functions .. @@ -333,7 +333,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, SRNAMT = 'ZCPOSV ' KASE = KASE + 1 * - CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL ZCPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, RWORK, ITER, INFO ) @@ -374,7 +374,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -452,7 +452,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if ZPOTRF' ) - + RETURN * * End of ZDRVAC diff --git a/TESTING/LIN/zdrvgb.f b/TESTING/LIN/zdrvgb.f index 19e4ad8d34..498af51d91 100644 --- a/TESTING/LIN/zdrvgb.f +++ b/TESTING/LIN/zdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvgbx.f b/TESTING/LIN/zdrvgbx.f index a8c4310f2c..73c403a8b5 100644 --- a/TESTING/LIN/zdrvgbx.f +++ b/TESTING/LIN/zdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvge.f b/TESTING/LIN/zdrvge.f index 4b724c208b..c4829ae3f2 100644 --- a/TESTING/LIN/zdrvge.f +++ b/TESTING/LIN/zdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvgex.f b/TESTING/LIN/zdrvgex.f index 9b7c3003fb..8a6b109f75 100644 --- a/TESTING/LIN/zdrvgex.f +++ b/TESTING/LIN/zdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zdrvgt.f b/TESTING/LIN/zdrvgt.f index 0f13764429..4dea68f636 100644 --- a/TESTING/LIN/zdrvgt.f +++ b/TESTING/LIN/zdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f index ed5c855697..1e693bfcf7 100644 --- a/TESTING/LIN/zdrvhex.f +++ b/TESTING/LIN/zdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zdrvhp.f b/TESTING/LIN/zdrvhp.f index 5fc46b0c81..2706a577c8 100644 --- a/TESTING/LIN/zdrvhp.f +++ b/TESTING/LIN/zdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index d729811d85..95a7ff351f 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvpb.f b/TESTING/LIN/zdrvpb.f index ea98aa48b1..69afa0ebae 100644 --- a/TESTING/LIN/zdrvpb.f +++ b/TESTING/LIN/zdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpo.f b/TESTING/LIN/zdrvpo.f index 24431e6cd3..34d7aa93c9 100644 --- a/TESTING/LIN/zdrvpo.f +++ b/TESTING/LIN/zdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpox.f b/TESTING/LIN/zdrvpox.f index 3242f08eb8..a2de868bf2 100644 --- a/TESTING/LIN/zdrvpox.f +++ b/TESTING/LIN/zdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zdrvpp.f b/TESTING/LIN/zdrvpp.f index 94550ddb74..84e9698c54 100644 --- a/TESTING/LIN/zdrvpp.f +++ b/TESTING/LIN/zdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpt.f b/TESTING/LIN/zdrvpt.f index 8d71be9d36..ec64e56c09 100644 --- a/TESTING/LIN/zdrvpt.f +++ b/TESTING/LIN/zdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvrf1.f b/TESTING/LIN/zdrvrf1.f index bfc7e66d7a..d8f364c471 100644 --- a/TESTING/LIN/zdrvrf1.f +++ b/TESTING/LIN/zdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -19,7 +19,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/zdrvrf2.f b/TESTING/LIN/zdrvrf2.f index 7279c2038d..11e92481c9 100644 --- a/TESTING/LIN/zdrvrf2.f +++ b/TESTING/LIN/zdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed (', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines:',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f index fa6fb61004..d577226228 100644 --- a/TESTING/LIN/zdrvrf3.f +++ b/TESTING/LIN/zdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX*16 Z_WORK_ZGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, WRITE( NOUT, FMT = 9995 ) 'ZTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/zdrvrf4.f b/TESTING/LIN/zdrvrf4.f index 6b6055e827..8974f07b2b 100644 --- a/TESTING/LIN/zdrvrf4.f +++ b/TESTING/LIN/zdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_ZLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = ZLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * RESULT(1) = ZLANGE( 'I', N, N, C1, LDC, + D_WORK_ZLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( DABS( ALPHA ) * NORMA * NORMA + + DABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, WRITE( NOUT, FMT = 9995 ) 'ZHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/zdrvrfp.f b/TESTING/LIN/zdrvrfp.f index 220f0cddfb..fcdb3fcf8d 100644 --- a/TESTING/LIN/zdrvrfp.f +++ b/TESTING/LIN/zdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + Z_WORK_ZLATMS, Z_WORK_ZPOT02, * + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, * + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -40,7 +40,7 @@ * DOUBLE PRECISION D_WORK_ZPOT02( * ) * DOUBLE PRECISION D_WORK_ZPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines ZTRTTF and *> ZTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ SUBROUTINE ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL ZLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/TESTING/LIN/zdrvsp.f b/TESTING/LIN/zdrvsp.f index 039b36e295..dd2091f279 100644 --- a/TESTING/LIN/zdrvsp.f +++ b/TESTING/LIN/zdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f index 0718a98388..795c42b4e2 100644 --- a/TESTING/LIN/zdrvsy_rook.f +++ b/TESTING/LIN/zdrvsy_rook.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zdrvsyx.f b/TESTING/LIN/zdrvsyx.f index d0dfba88fe..d8993b155f 100644 --- a/TESTING/LIN/zdrvsyx.f +++ b/TESTING/LIN/zdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zebchvxx.f b/TESTING/LIN/zebchvxx.f index 9b95563334..4f292d9a57 100644 --- a/TESTING/LIN/zebchvxx.f +++ b/TESTING/LIN/zebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrab.f b/TESTING/LIN/zerrab.f index 8862aabc03..04833b8459 100644 --- a/TESTING/LIN/zerrab.f +++ b/TESTING/LIN/zerrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrac.f b/TESTING/LIN/zerrac.f index 112b3fe573..e9f78b3865 100644 --- a/TESTING/LIN/zerrac.f +++ b/TESTING/LIN/zerrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrge.f b/TESTING/LIN/zerrge.f index 9b6cd4d95a..3d1df5df9e 100644 --- a/TESTING/LIN/zerrge.f +++ b/TESTING/LIN/zerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrgex.f b/TESTING/LIN/zerrgex.f index baaa0e5c10..00d3b48f72 100644 --- a/TESTING/LIN/zerrgex.f +++ b/TESTING/LIN/zerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrgt.f b/TESTING/LIN/zerrgt.f index 965b6e55b7..efb5ca5c30 100644 --- a/TESTING/LIN/zerrgt.f +++ b/TESTING/LIN/zerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrhex.f b/TESTING/LIN/zerrhex.f index bcaf1ed42c..81d61a3ca5 100644 --- a/TESTING/LIN/zerrhex.f +++ b/TESTING/LIN/zerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrlq.f b/TESTING/LIN/zerrlq.f index 5531f32aa5..a8706a4593 100644 --- a/TESTING/LIN/zerrlq.f +++ b/TESTING/LIN/zerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrls.f b/TESTING/LIN/zerrls.f index bfb1bd771d..4a76af6a02 100644 --- a/TESTING/LIN/zerrls.f +++ b/TESTING/LIN/zerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrpo.f b/TESTING/LIN/zerrpo.f index 143a21e2e1..8bb28d3c5c 100644 --- a/TESTING/LIN/zerrpo.f +++ b/TESTING/LIN/zerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrpox.f b/TESTING/LIN/zerrpox.f index 761029dd49..145d90d4cc 100644 --- a/TESTING/LIN/zerrpox.f +++ b/TESTING/LIN/zerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrps.f b/TESTING/LIN/zerrps.f index 805a5124d9..7c84ef69c2 100644 --- a/TESTING/LIN/zerrps.f +++ b/TESTING/LIN/zerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrql.f b/TESTING/LIN/zerrql.f index c59ac88060..7687383d48 100644 --- a/TESTING/LIN/zerrql.f +++ b/TESTING/LIN/zerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrqp.f b/TESTING/LIN/zerrqp.f index efd1d905ad..96d1a46e12 100644 --- a/TESTING/LIN/zerrqp.f +++ b/TESTING/LIN/zerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrqr.f b/TESTING/LIN/zerrqr.f index 8d086a6a19..49431c93e6 100644 --- a/TESTING/LIN/zerrqr.f +++ b/TESTING/LIN/zerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrqrt.f b/TESTING/LIN/zerrqrt.f index ea5b6c5469..420d47a8dc 100644 --- a/TESTING/LIN/zerrqrt.f +++ b/TESTING/LIN/zerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE ZERRQRT( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZGEQRT2, ZGEQRT3, ZGEQRT, - $ ZGEMQRT + $ ZGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zerrqrtp.f b/TESTING/LIN/zerrqrtp.f index 7a903f9ea0..4e05ec70ce 100644 --- a/TESTING/LIN/zerrqrtp.f +++ b/TESTING/LIN/zerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ SUBROUTINE ZERRQRTP( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZTPQRT2, ZTPQRT, - $ ZTPMQRT + $ ZTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ SUBROUTINE ZERRQRTP( PATH, NUNIT ) * SRNAMT = 'ZTPMQRT' INFOT = 1 - CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/zerrrfp.f b/TESTING/LIN/zerrrfp.f index 1fba4406ac..1ee9232cc9 100644 --- a/TESTING/LIN/zerrrfp.f +++ b/TESTING/LIN/zerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrrq.f b/TESTING/LIN/zerrrq.f index c775b27a4e..8c938f3029 100644 --- a/TESTING/LIN/zerrrq.f +++ b/TESTING/LIN/zerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index a9126a12fc..35361e6040 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zerrsyx.f b/TESTING/LIN/zerrsyx.f index 1512eb0464..f78ce0094b 100644 --- a/TESTING/LIN/zerrsyx.f +++ b/TESTING/LIN/zerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrtr.f b/TESTING/LIN/zerrtr.f index f0708fbbb9..50c74124e5 100644 --- a/TESTING/LIN/zerrtr.f +++ b/TESTING/LIN/zerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrtz.f b/TESTING/LIN/zerrtz.f index 579c3bf02a..0078937c1c 100644 --- a/TESTING/LIN/zerrtz.f +++ b/TESTING/LIN/zerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f index 057bf872be..11a35aa473 100644 --- a/TESTING/LIN/zerrvx.f +++ b/TESTING/LIN/zerrvx.f @@ -9,12 +9,12 @@ * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 52fd98b44b..747d84ad55 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zgbt01.f b/TESTING/LIN/zgbt01.f index 1c95fb606b..f81e4a995e 100644 --- a/TESTING/LIN/zgbt01.f +++ b/TESTING/LIN/zgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgbt02.f b/TESTING/LIN/zgbt02.f index 2fbbaaded4..b0b504202e 100644 --- a/TESTING/LIN/zgbt02.f +++ b/TESTING/LIN/zgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgbt05.f b/TESTING/LIN/zgbt05.f index 3556b9b6a8..7ff06643be 100644 --- a/TESTING/LIN/zgbt05.f +++ b/TESTING/LIN/zgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgelqs.f b/TESTING/LIN/zgelqs.f index 1514a1aa9b..a5e3ccffe8 100644 --- a/TESTING/LIN/zgelqs.f +++ b/TESTING/LIN/zgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgennd.f b/TESTING/LIN/zgennd.f index d6bd7ebec5..18dac84ed4 100644 --- a/TESTING/LIN/zgennd.f +++ b/TESTING/LIN/zgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgeqls.f b/TESTING/LIN/zgeqls.f index 5aae27c928..77b9221c5f 100644 --- a/TESTING/LIN/zgeqls.f +++ b/TESTING/LIN/zgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgeqrs.f b/TESTING/LIN/zgeqrs.f index d0d2f95dbf..615ede5e46 100644 --- a/TESTING/LIN/zgeqrs.f +++ b/TESTING/LIN/zgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgerqs.f b/TESTING/LIN/zgerqs.f index ebb58d9059..29f0e5e7a6 100644 --- a/TESTING/LIN/zgerqs.f +++ b/TESTING/LIN/zgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget01.f b/TESTING/LIN/zget01.f index e22c818159..40e57899ee 100644 --- a/TESTING/LIN/zget01.f +++ b/TESTING/LIN/zget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget02.f b/TESTING/LIN/zget02.f index cf25ec0263..69ffebe5d7 100644 --- a/TESTING/LIN/zget02.f +++ b/TESTING/LIN/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zget03.f b/TESTING/LIN/zget03.f index 28b2cbac94..fb9ff85879 100644 --- a/TESTING/LIN/zget03.f +++ b/TESTING/LIN/zget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget04.f b/TESTING/LIN/zget04.f index 55e91c01b6..f49d59cb28 100644 --- a/TESTING/LIN/zget04.f +++ b/TESTING/LIN/zget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget07.f b/TESTING/LIN/zget07.f index e154266c09..f3de3aef08 100644 --- a/TESTING/LIN/zget07.f +++ b/TESTING/LIN/zget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget08.f b/TESTING/LIN/zget08.f index 9b49442291..87a0111a2b 100644 --- a/TESTING/LIN/zget08.f +++ b/TESTING/LIN/zget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt01.f b/TESTING/LIN/zgtt01.f index a6c11063e2..8b6913fa1f 100644 --- a/TESTING/LIN/zgtt01.f +++ b/TESTING/LIN/zgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * COMPLEX*16 D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt02.f b/TESTING/LIN/zgtt02.f index 37170fa71c..c1983e2186 100644 --- a/TESTING/LIN/zgtt02.f +++ b/TESTING/LIN/zgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt05.f b/TESTING/LIN/zgtt05.f index ee9df4ac1f..d220b9f06e 100644 --- a/TESTING/LIN/zgtt05.f +++ b/TESTING/LIN/zgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zhpt01.f b/TESTING/LIN/zhpt01.f index a6f9a4a898..ec0ee6a471 100644 --- a/TESTING/LIN/zhpt01.f +++ b/TESTING/LIN/zhpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlahilb.f b/TESTING/LIN/zlahilb.f index e9e5199259..5706e8127e 100644 --- a/TESTING/LIN/zlahilb.f +++ b/TESTING/LIN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -168,7 +168,7 @@ SUBROUTINE ZLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -236,7 +236,7 @@ SUBROUTINE ZLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, END DO END DO END IF -* +* * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) diff --git a/TESTING/LIN/zlaipd.f b/TESTING/LIN/zlaipd.f index 918e2bdfff..85c4d27631 100644 --- a/TESTING/LIN/zlaipd.f +++ b/TESTING/LIN/zlaipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlaptm.f b/TESTING/LIN/zlaptm.f index cc9ff89bfe..d5f6821d78 100644 --- a/TESTING/LIN/zlaptm.f +++ b/TESTING/LIN/zlaptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlarhs.f b/TESTING/LIN/zlarhs.f index 19ac07c8a8..e1abfbbc3a 100644 --- a/TESTING/LIN/zlarhs.f +++ b/TESTING/LIN/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatb4.f b/TESTING/LIN/zlatb4.f index 44db6e8f18..bcfa2344f6 100644 --- a/TESTING/LIN/zlatb4.f +++ b/TESTING/LIN/zlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zlatb5.f b/TESTING/LIN/zlatb5.f index e2589ca480..c7fb814578 100644 --- a/TESTING/LIN/zlatb5.f +++ b/TESTING/LIN/zlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatsp.f b/TESTING/LIN/zlatsp.f index 337cb96b25..f9a4ee9a6a 100644 --- a/TESTING/LIN/zlatsp.f +++ b/TESTING/LIN/zlatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatsy.f b/TESTING/LIN/zlatsy.f index 95de42b1bd..b5e2dcc772 100644 --- a/TESTING/LIN/zlatsy.f +++ b/TESTING/LIN/zlatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattb.f b/TESTING/LIN/zlattb.f index 038adef5ba..02f6a6dacb 100644 --- a/TESTING/LIN/zlattb.f +++ b/TESTING/LIN/zlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattp.f b/TESTING/LIN/zlattp.f index b93b1694a7..1ee59fdde4 100644 --- a/TESTING/LIN/zlattp.f +++ b/TESTING/LIN/zlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattr.f b/TESTING/LIN/zlattr.f index 1ea6a1538d..c8c3c79c8a 100644 --- a/TESTING/LIN/zlattr.f +++ b/TESTING/LIN/zlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlavhp.f b/TESTING/LIN/zlavhp.f index b217c26349..5d175ade85 100644 --- a/TESTING/LIN/zlavhp.f +++ b/TESTING/LIN/zlavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlavsp.f b/TESTING/LIN/zlavsp.f index b491645c15..081dd9c310 100644 --- a/TESTING/LIN/zlavsp.f +++ b/TESTING/LIN/zlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt01.f b/TESTING/LIN/zlqt01.f index cf721e9ebd..b55ef66f2e 100644 --- a/TESTING/LIN/zlqt01.f +++ b/TESTING/LIN/zlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt02.f b/TESTING/LIN/zlqt02.f index dcf85001fe..0b02b3b1ba 100644 --- a/TESTING/LIN/zlqt02.f +++ b/TESTING/LIN/zlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt03.f b/TESTING/LIN/zlqt03.f index 4f38f7c87f..243accb5a7 100644 --- a/TESTING/LIN/zlqt03.f +++ b/TESTING/LIN/zlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt01.f b/TESTING/LIN/zpbt01.f index 695dd525e5..841cc7fe26 100644 --- a/TESTING/LIN/zpbt01.f +++ b/TESTING/LIN/zpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt02.f b/TESTING/LIN/zpbt02.f index 20f0375846..a4fe392a06 100644 --- a/TESTING/LIN/zpbt02.f +++ b/TESTING/LIN/zpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt05.f b/TESTING/LIN/zpbt05.f index 6f9521f489..354bb98f9a 100644 --- a/TESTING/LIN/zpbt05.f +++ b/TESTING/LIN/zpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot01.f b/TESTING/LIN/zpot01.f index a9d5f72f0a..a31d511807 100644 --- a/TESTING/LIN/zpot01.f +++ b/TESTING/LIN/zpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot02.f b/TESTING/LIN/zpot02.f index 6e521831f3..6a96ad940d 100644 --- a/TESTING/LIN/zpot02.f +++ b/TESTING/LIN/zpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot03.f b/TESTING/LIN/zpot03.f index b55d23d153..0887189c6f 100644 --- a/TESTING/LIN/zpot03.f +++ b/TESTING/LIN/zpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot05.f b/TESTING/LIN/zpot05.f index b5b549de07..c221c9b455 100644 --- a/TESTING/LIN/zpot05.f +++ b/TESTING/LIN/zpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f index 167e4a6411..f856377953 100644 --- a/TESTING/LIN/zpot06.f +++ b/TESTING/LIN/zpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt01.f b/TESTING/LIN/zppt01.f index 142bd74dd3..fded9b3a3c 100644 --- a/TESTING/LIN/zppt01.f +++ b/TESTING/LIN/zppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt02.f b/TESTING/LIN/zppt02.f index 796b24ea5b..ef4c46c662 100644 --- a/TESTING/LIN/zppt02.f +++ b/TESTING/LIN/zppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt03.f b/TESTING/LIN/zppt03.f index d412add14a..c5e3608216 100644 --- a/TESTING/LIN/zppt03.f +++ b/TESTING/LIN/zppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt05.f b/TESTING/LIN/zppt05.f index f795d1fca2..082a3d9ba2 100644 --- a/TESTING/LIN/zppt05.f +++ b/TESTING/LIN/zppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpst01.f b/TESTING/LIN/zpst01.f index ea7a298020..adad7e9659 100644 --- a/TESTING/LIN/zpst01.f +++ b/TESTING/LIN/zpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * DOUBLE PRECISION RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt01.f b/TESTING/LIN/zptt01.f index cd90a767e3..e5b1f5f83d 100644 --- a/TESTING/LIN/zptt01.f +++ b/TESTING/LIN/zptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ), DF( * ) * COMPLEX*16 E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt02.f b/TESTING/LIN/zptt02.f index df66f0fa70..0e2bfc3957 100644 --- a/TESTING/LIN/zptt02.f +++ b/TESTING/LIN/zptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt05.f b/TESTING/LIN/zptt05.f index d478670b8a..29b0023ff3 100644 --- a/TESTING/LIN/zptt05.f +++ b/TESTING/LIN/zptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt01.f b/TESTING/LIN/zqlt01.f index 4bf0ec3709..4259ada0ac 100644 --- a/TESTING/LIN/zqlt01.f +++ b/TESTING/LIN/zqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt02.f b/TESTING/LIN/zqlt02.f index ad2cffdb05..79932cf101 100644 --- a/TESTING/LIN/zqlt02.f +++ b/TESTING/LIN/zqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt03.f b/TESTING/LIN/zqlt03.f index 0edde76fc5..e235684567 100644 --- a/TESTING/LIN/zqlt03.f +++ b/TESTING/LIN/zqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqpt01.f b/TESTING/LIN/zqpt01.f index 54cabe10a7..9ccc99e44b 100644 --- a/TESTING/LIN/zqpt01.f +++ b/TESTING/LIN/zqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt01.f b/TESTING/LIN/zqrt01.f index c7b8617bb9..40629ecc7c 100644 --- a/TESTING/LIN/zqrt01.f +++ b/TESTING/LIN/zqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt01p.f b/TESTING/LIN/zqrt01p.f index 8fe6d81422..42e570d0e8 100644 --- a/TESTING/LIN/zqrt01p.f +++ b/TESTING/LIN/zqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt02.f b/TESTING/LIN/zqrt02.f index 619e4a0f44..a0bd6d4bd5 100644 --- a/TESTING/LIN/zqrt02.f +++ b/TESTING/LIN/zqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt03.f b/TESTING/LIN/zqrt03.f index ce5fe51c2c..8e81c2fc55 100644 --- a/TESTING/LIN/zqrt03.f +++ b/TESTING/LIN/zqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zqrt04.f b/TESTING/LIN/zqrt04.f index 714f3fbb3d..903e60d93b 100644 --- a/TESTING/LIN/zqrt04.f +++ b/TESTING/LIN/zqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * @@ -106,17 +106,17 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -124,8 +124,8 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -179,7 +179,7 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * * Apply Q to C as Q*C * - CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -198,7 +198,7 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * * Apply Q to C as QT*C * - CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -209,7 +209,7 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -221,8 +221,8 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * * Apply Q to D as D*Q * - CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -240,8 +240,8 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * * Apply Q to D as D*QT * - CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/zqrt05.f b/TESTING/LIN/zqrt05.f index c51c02fda6..47a0d33380 100644 --- a/TESTING/LIN/zqrt05.f +++ b/TESTING/LIN/zqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * @@ -113,14 +113,14 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -134,7 +134,7 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -189,7 +189,7 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * Compute |I - Q'*Q| and store in RESULT(2) * CALL ZLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), + CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), $ R, M2 ) RESID = ZLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -224,7 +224,7 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * Apply Q to C as QT*C * CALL ZTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -234,7 +234,7 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -266,8 +266,8 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * Apply Q to D as D*QT * CALL ZTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/zqrt11.f b/TESTING/LIN/zqrt11.f index efb9a6edb5..f242380056 100644 --- a/TESTING/LIN/zqrt11.f +++ b/TESTING/LIN/zqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt12.f b/TESTING/LIN/zqrt12.f index 08f5382348..df59b921f7 100644 --- a/TESTING/LIN/zqrt12.f +++ b/TESTING/LIN/zqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -195,7 +195,7 @@ DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, $ WORK( M*N+1 ), WORK( M*N+MN+1 ), $ WORK( M*N+2*MN+1 ), INFO ) CALL DBDSQR( 'Upper', MN, 0, 0, 0, RWORK( 1 ), RWORK( MN+1 ), - $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), + $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), $ INFO ) * IF( ISCL.EQ.1 ) THEN diff --git a/TESTING/LIN/zqrt13.f b/TESTING/LIN/zqrt13.f index edcbbdac17..c71927e0ab 100644 --- a/TESTING/LIN/zqrt13.f +++ b/TESTING/LIN/zqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt14.f b/TESTING/LIN/zqrt14.f index 8eea029b4f..fb4d064ba0 100644 --- a/TESTING/LIN/zqrt14.f +++ b/TESTING/LIN/zqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt15.f b/TESTING/LIN/zqrt15.f index 04ab8aca44..fa0a417766 100644 --- a/TESTING/LIN/zqrt15.f +++ b/TESTING/LIN/zqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -20,7 +20,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt16.f b/TESTING/LIN/zqrt16.f index 1b16c4cb6b..0ffbe436bc 100644 --- a/TESTING/LIN/zqrt16.f +++ b/TESTING/LIN/zqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt17.f b/TESTING/LIN/zqrt17.f index 37030904ef..c0fbf8bcda 100644 --- a/TESTING/LIN/zqrt17.f +++ b/TESTING/LIN/zqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zrqt01.f b/TESTING/LIN/zrqt01.f index 58db74dbdb..39b6738993 100644 --- a/TESTING/LIN/zrqt01.f +++ b/TESTING/LIN/zrqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrqt02.f b/TESTING/LIN/zrqt02.f index 1dbe3d5552..dab247cbf7 100644 --- a/TESTING/LIN/zrqt02.f +++ b/TESTING/LIN/zrqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrqt03.f b/TESTING/LIN/zrqt03.f index 9b74a6bb27..03ed1cf7ca 100644 --- a/TESTING/LIN/zrqt03.f +++ b/TESTING/LIN/zrqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrzt01.f b/TESTING/LIN/zrzt01.f index b67cb84fb2..9f5b1d48ee 100644 --- a/TESTING/LIN/zrzt01.f +++ b/TESTING/LIN/zrzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrzt02.f b/TESTING/LIN/zrzt02.f index 93c34cba31..fe9d1bf152 100644 --- a/TESTING/LIN/zrzt02.f +++ b/TESTING/LIN/zrzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsbmv.f b/TESTING/LIN/zsbmv.f index f36bfe5e57..c8985cc052 100644 --- a/TESTING/LIN/zsbmv.f +++ b/TESTING/LIN/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt01.f b/TESTING/LIN/zspt01.f index 31505d6be3..729a46c8bb 100644 --- a/TESTING/LIN/zspt01.f +++ b/TESTING/LIN/zspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt02.f b/TESTING/LIN/zspt02.f index 059236f8b8..80b62cb49c 100644 --- a/TESTING/LIN/zspt02.f +++ b/TESTING/LIN/zspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt03.f b/TESTING/LIN/zspt03.f index 28f5563234..8937797ec3 100644 --- a/TESTING/LIN/zspt03.f +++ b/TESTING/LIN/zspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsyt02.f b/TESTING/LIN/zsyt02.f index d8246b55ff..a3852f9738 100644 --- a/TESTING/LIN/zsyt02.f +++ b/TESTING/LIN/zsyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsyt03.f b/TESTING/LIN/zsyt03.f index fe164abc47..7040eb97ae 100644 --- a/TESTING/LIN/zsyt03.f +++ b/TESTING/LIN/zsyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt02.f b/TESTING/LIN/ztbt02.f index d3784e00d7..de020a5b79 100644 --- a/TESTING/LIN/ztbt02.f +++ b/TESTING/LIN/ztbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt03.f b/TESTING/LIN/ztbt03.f index e62eb17972..b989c3a288 100644 --- a/TESTING/LIN/ztbt03.f +++ b/TESTING/LIN/ztbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt05.f b/TESTING/LIN/ztbt05.f index 8765edb3f2..72fe332b86 100644 --- a/TESTING/LIN/ztbt05.f +++ b/TESTING/LIN/ztbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt06.f b/TESTING/LIN/ztbt06.f index f4156fa911..10f8238e2b 100644 --- a/TESTING/LIN/ztbt06.f +++ b/TESTING/LIN/ztbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt01.f b/TESTING/LIN/ztpt01.f index b34cfe4f23..141063c092 100644 --- a/TESTING/LIN/ztpt01.f +++ b/TESTING/LIN/ztpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt02.f b/TESTING/LIN/ztpt02.f index a7041bd91a..b32adde7c2 100644 --- a/TESTING/LIN/ztpt02.f +++ b/TESTING/LIN/ztpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt03.f b/TESTING/LIN/ztpt03.f index bc617f1a03..41ad8fe29a 100644 --- a/TESTING/LIN/ztpt03.f +++ b/TESTING/LIN/ztpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt05.f b/TESTING/LIN/ztpt05.f index da65cec95e..636a779b7d 100644 --- a/TESTING/LIN/ztpt05.f +++ b/TESTING/LIN/ztpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt06.f b/TESTING/LIN/ztpt06.f index 7458fa79be..a30e924337 100644 --- a/TESTING/LIN/ztpt06.f +++ b/TESTING/LIN/ztpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt01.f b/TESTING/LIN/ztrt01.f index bbf3edb923..59a5754304 100644 --- a/TESTING/LIN/ztrt01.f +++ b/TESTING/LIN/ztrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt02.f b/TESTING/LIN/ztrt02.f index 948a5d25b0..408f400ce8 100644 --- a/TESTING/LIN/ztrt02.f +++ b/TESTING/LIN/ztrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt03.f b/TESTING/LIN/ztrt03.f index 2f368c5826..99554636a8 100644 --- a/TESTING/LIN/ztrt03.f +++ b/TESTING/LIN/ztrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt05.f b/TESTING/LIN/ztrt05.f index 9082503f63..d341c38258 100644 --- a/TESTING/LIN/ztrt05.f +++ b/TESTING/LIN/ztrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt06.f b/TESTING/LIN/ztrt06.f index 7eecfec53b..8e7bfceccd 100644 --- a/TESTING/LIN/ztrt06.f +++ b/TESTING/LIN/ztrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 55258ddd0b..011aea15f2 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -30,25 +30,25 @@ # make single FRC=FRC # ####################################################################### - + set(SCATGEN slatm1.f slaran.f slarnd.f) -set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f - slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f +set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f + slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f slatm3.f slatm5.f slatm6.f slatm7.f slahilb.f) -set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f - clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f +set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f + clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f clatm1.f clarnd.f clatm2.f clatm3.f clatm5.f clatm6.f clahilb.f slatm7.f) set(DZATGEN dlatm1.f dlaran.f dlarnd.f) -set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f - dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f +set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f + dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f dlatm3.f dlatm5.f dlatm6.f dlatm7.f dlahilb.f) -set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f - zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f +set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f + zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f zlatm1.f zlarnd.f zlatm2.f zlatm3.f zlatm5.f zlatm6.f zlahilb.f dlatm7.f) if(BUILD_SINGLE) diff --git a/TESTING/MATGEN/Makefile b/TESTING/MATGEN/Makefile index ecd9aa5c16..49bc645f3a 100644 --- a/TESTING/MATGEN/Makefile +++ b/TESTING/MATGEN/Makefile @@ -32,7 +32,7 @@ include ../../make.inc # make single FRC=FRC # ####################################################################### - + SCATGEN = slatm1.o slaran.o slarnd.o SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \ @@ -84,7 +84,7 @@ $(CMATGEN): $(FRC) $(DZATGEN): $(FRC) $(DMATGEN): $(FRC) $(ZMATGEN): $(FRC) - + FRC: @FRC=$(FRC) diff --git a/TESTING/MATGEN/clagge.f b/TESTING/MATGEN/clagge.f index a11b636291..7db26c4d96 100644 --- a/TESTING/MATGEN/clagge.f +++ b/TESTING/MATGEN/clagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/claghe.f b/TESTING/MATGEN/claghe.f index 0e07ab5422..ec7d9e51d4 100644 --- a/TESTING/MATGEN/claghe.f +++ b/TESTING/MATGEN/claghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clagsy.f b/TESTING/MATGEN/clagsy.f index aa0d8fd4b5..f4872f5407 100644 --- a/TESTING/MATGEN/clagsy.f +++ b/TESTING/MATGEN/clagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clahilb.f b/TESTING/MATGEN/clahilb.f index f318ee53e4..bb4d92b848 100644 --- a/TESTING/MATGEN/clahilb.f +++ b/TESTING/MATGEN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * *> \ingroup complex_matgen * * ===================================================================== - SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.6.0) -- @@ -165,15 +165,15 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), $ (-.5,.5),(.5,.5),(.5,-.5)/ - + * .. * .. External Functions EXTERNAL CLASET, LSAMEN @@ -221,7 +221,7 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, END DO * Generate the scaled Hilbert matrix in A -* If we are testing SY routines, take +* If we are testing SY routines, take * D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, N @@ -252,15 +252,15 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - -* If we are testing SY routines, + +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -275,4 +275,4 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, END DO END IF END - + diff --git a/TESTING/MATGEN/clakf2.f b/TESTING/MATGEN/clakf2.f index 524d2c5355..93fbe941fe 100644 --- a/TESTING/MATGEN/clakf2.f +++ b/TESTING/MATGEN/clakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarge.f b/TESTING/MATGEN/clarge.f index 9a186353d7..5c7e6d77cf 100644 --- a/TESTING/MATGEN/clarge.f +++ b/TESTING/MATGEN/clarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarnd.f b/TESTING/MATGEN/clarnd.f index 0490597c86..30ecf86566 100644 --- a/TESTING/MATGEN/clarnd.f +++ b/TESTING/MATGEN/clarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/claror.f b/TESTING/MATGEN/claror.f index 9cabe136dc..8bb30a8a4c 100644 --- a/TESTING/MATGEN/claror.f +++ b/TESTING/MATGEN/claror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarot.f b/TESTING/MATGEN/clarot.f index db93b3d448..5752513244 100644 --- a/TESTING/MATGEN/clarot.f +++ b/TESTING/MATGEN/clarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatm1.f b/TESTING/MATGEN/clatm1.f index 2cc0c4d9c9..b9b5fedbc4 100644 --- a/TESTING/MATGEN/clatm1.f +++ b/TESTING/MATGEN/clatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f index f5d7395e6b..6493727763 100644 --- a/TESTING/MATGEN/clatm2.f +++ b/TESTING/MATGEN/clatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, * IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f index 1526e41282..2f4e48f20d 100644 --- a/TESTING/MATGEN/clatm3.f +++ b/TESTING/MATGEN/clatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX FUNCTION CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f index 8a3c96beae..bfac02b314 100644 --- a/TESTING/MATGEN/clatm5.f +++ b/TESTING/MATGEN/clatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm6.f b/TESTING/MATGEN/clatm6.f index d34d53c1b1..62ce57b13e 100644 --- a/TESTING/MATGEN/clatm6.f +++ b/TESTING/MATGEN/clatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatme.f b/TESTING/MATGEN/clatme.f index eaceaa9399..7e4d228d20 100644 --- a/TESTING/MATGEN/clatme.f +++ b/TESTING/MATGEN/clatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * REAL DS( * ) * COMPLEX A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f index 5af9118252..dab94f4a3a 100644 --- a/TESTING/MATGEN/clatmr.f +++ b/TESTING/MATGEN/clatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatms.f b/TESTING/MATGEN/clatms.f index 0b81865076..12872ffee9 100644 --- a/TESTING/MATGEN/clatms.f +++ b/TESTING/MATGEN/clatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatmt.f b/TESTING/MATGEN/clatmt.f index 3005439643..b0a1cfda41 100644 --- a/TESTING/MATGEN/clatmt.f +++ b/TESTING/MATGEN/clatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlagge.f b/TESTING/MATGEN/dlagge.f index fac06d98fe..5a3cfced43 100644 --- a/TESTING/MATGEN/dlagge.f +++ b/TESTING/MATGEN/dlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/dlagsy.f b/TESTING/MATGEN/dlagsy.f index b5c4881a11..a9b792433b 100644 --- a/TESTING/MATGEN/dlagsy.f +++ b/TESTING/MATGEN/dlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f index 53ce063f5d..788b69f110 100644 --- a/TESTING/MATGEN/dlahilb.f +++ b/TESTING/MATGEN/dlahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -212,7 +212,7 @@ SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/TESTING/MATGEN/dlakf2.f b/TESTING/MATGEN/dlakf2.f index 01da0bf547..421f774711 100644 --- a/TESTING/MATGEN/dlakf2.f +++ b/TESTING/MATGEN/dlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlaran.f b/TESTING/MATGEN/dlaran.f index 6dbb051802..48b10d9c06 100644 --- a/TESTING/MATGEN/dlaran.f +++ b/TESTING/MATGEN/dlaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -128,7 +128,7 @@ DOUBLE PRECISION FUNCTION DLARAN( ISEED ) * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which * will occur about once every 2**n calls), then DLARAN will -* be rounded to exactly 1.0. +* be rounded to exactly 1.0. * Since DLARAN is not supposed to return exactly 0.0 or 1.0 * (and some callers of DLARAN, such as CLARND, depend on that), * the statistically correct thing to do in this situation is diff --git a/TESTING/MATGEN/dlarge.f b/TESTING/MATGEN/dlarge.f index 075cdac510..032043891d 100644 --- a/TESTING/MATGEN/dlarge.f +++ b/TESTING/MATGEN/dlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlarnd.f b/TESTING/MATGEN/dlarnd.f index ee0f8302a6..0201e8db15 100644 --- a/TESTING/MATGEN/dlarnd.f +++ b/TESTING/MATGEN/dlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlaror.f b/TESTING/MATGEN/dlaror.f index 5be36bd149..2537f8b851 100644 --- a/TESTING/MATGEN/dlaror.f +++ b/TESTING/MATGEN/dlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlarot.f b/TESTING/MATGEN/dlarot.f index 3e5917cf46..f2f4edb7d8 100644 --- a/TESTING/MATGEN/dlarot.f +++ b/TESTING/MATGEN/dlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatm1.f b/TESTING/MATGEN/dlatm1.f index e95ac83adf..b18bafcf30 100644 --- a/TESTING/MATGEN/dlatm1.f +++ b/TESTING/MATGEN/dlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f index f12a737e58..485c45b1ea 100644 --- a/TESTING/MATGEN/dlatm2.f +++ b/TESTING/MATGEN/dlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f index 4ad342516b..e7b621901d 100644 --- a/TESTING/MATGEN/dlatm3.f +++ b/TESTING/MATGEN/dlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * DOUBLE PRECISION FUNCTION DLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f index 40d8360d40..7faf044b65 100644 --- a/TESTING/MATGEN/dlatm5.f +++ b/TESTING/MATGEN/dlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm6.f b/TESTING/MATGEN/dlatm6.f index 2a6823d7b2..0a37dbdf68 100644 --- a/TESTING/MATGEN/dlatm6.f +++ b/TESTING/MATGEN/dlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * DOUBLE PRECISION ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatm7.f b/TESTING/MATGEN/dlatm7.f index a8c1a0cce7..9cdf016b2c 100644 --- a/TESTING/MATGEN/dlatm7.f +++ b/TESTING/MATGEN/dlatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatme.f b/TESTING/MATGEN/dlatme.f index e1dce5fa3c..81efab8490 100644 --- a/TESTING/MATGEN/dlatme.f +++ b/TESTING/MATGEN/dlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_matgen * * ===================================================================== - SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/dlatmr.f b/TESTING/MATGEN/dlatmr.f index d38fddff73..92de9330d7 100644 --- a/TESTING/MATGEN/dlatmr.f +++ b/TESTING/MATGEN/dlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatms.f b/TESTING/MATGEN/dlatms.f index 38d2b96584..68ce79c6a8 100644 --- a/TESTING/MATGEN/dlatms.f +++ b/TESTING/MATGEN/dlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatmt.f b/TESTING/MATGEN/dlatmt.f index a2080a8c88..cab6f3faad 100644 --- a/TESTING/MATGEN/dlatmt.f +++ b/TESTING/MATGEN/dlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slagge.f b/TESTING/MATGEN/slagge.f index f93bb2c272..f9683ba8a5 100644 --- a/TESTING/MATGEN/slagge.f +++ b/TESTING/MATGEN/slagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/slagsy.f b/TESTING/MATGEN/slagsy.f index 6d80a9af21..4434df5e19 100644 --- a/TESTING/MATGEN/slagsy.f +++ b/TESTING/MATGEN/slagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slahilb.f b/TESTING/MATGEN/slahilb.f index fb9c837c66..ebcdeff488 100644 --- a/TESTING/MATGEN/slahilb.f +++ b/TESTING/MATGEN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -212,7 +212,7 @@ SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/TESTING/MATGEN/slakf2.f b/TESTING/MATGEN/slakf2.f index 6de710321a..335fbc09a4 100644 --- a/TESTING/MATGEN/slakf2.f +++ b/TESTING/MATGEN/slakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * REAL A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slaran.f b/TESTING/MATGEN/slaran.f index 9738d28e0b..d032742c0c 100644 --- a/TESTING/MATGEN/slaran.f +++ b/TESTING/MATGEN/slaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarge.f b/TESTING/MATGEN/slarge.f index 5184bb5254..42a6f525f1 100644 --- a/TESTING/MATGEN/slarge.f +++ b/TESTING/MATGEN/slarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarnd.f b/TESTING/MATGEN/slarnd.f index 126aa4ff01..9e1a56227b 100644 --- a/TESTING/MATGEN/slarnd.f +++ b/TESTING/MATGEN/slarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slaror.f b/TESTING/MATGEN/slaror.f index 2c9657e9a8..b369e7894c 100644 --- a/TESTING/MATGEN/slaror.f +++ b/TESTING/MATGEN/slaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarot.f b/TESTING/MATGEN/slarot.f index f243baf944..36b118fd89 100644 --- a/TESTING/MATGEN/slarot.f +++ b/TESTING/MATGEN/slarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatm1.f b/TESTING/MATGEN/slatm1.f index 461e34b0f2..ca411c4d39 100644 --- a/TESTING/MATGEN/slatm1.f +++ b/TESTING/MATGEN/slatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f index 9707096b47..ad0d53ed30 100644 --- a/TESTING/MATGEN/slatm2.f +++ b/TESTING/MATGEN/slatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f index 32301ca20d..0279afa3db 100644 --- a/TESTING/MATGEN/slatm3.f +++ b/TESTING/MATGEN/slatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * REAL FUNCTION SLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f index 7a1f260138..dd2d73494e 100644 --- a/TESTING/MATGEN/slatm5.f +++ b/TESTING/MATGEN/slatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm6.f b/TESTING/MATGEN/slatm6.f index 0138b01218..009b100836 100644 --- a/TESTING/MATGEN/slatm6.f +++ b/TESTING/MATGEN/slatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * REAL ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatm7.f b/TESTING/MATGEN/slatm7.f index 7e19541511..d76a16af84 100644 --- a/TESTING/MATGEN/slatm7.f +++ b/TESTING/MATGEN/slatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/TESTING/MATGEN/slatme.f b/TESTING/MATGEN/slatme.f index 88bfaae36c..c95b461409 100644 --- a/TESTING/MATGEN/slatme.f +++ b/TESTING/MATGEN/slatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup real_matgen * * ===================================================================== - SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/slatmr.f b/TESTING/MATGEN/slatmr.f index d53ddf847f..0a945c7307 100644 --- a/TESTING/MATGEN/slatmr.f +++ b/TESTING/MATGEN/slatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * REAL A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatms.f b/TESTING/MATGEN/slatms.f index 9480e40e4c..f9441794c1 100644 --- a/TESTING/MATGEN/slatms.f +++ b/TESTING/MATGEN/slatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatmt.f b/TESTING/MATGEN/slatmt.f index 7bdfeffdd9..7c4b6fc2ad 100644 --- a/TESTING/MATGEN/slatmt.f +++ b/TESTING/MATGEN/slatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * REAL A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlagge.f b/TESTING/MATGEN/zlagge.f index b175c4a9ea..16b0d06663 100644 --- a/TESTING/MATGEN/zlagge.f +++ b/TESTING/MATGEN/zlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/zlaghe.f b/TESTING/MATGEN/zlaghe.f index e3f0907192..5500893fb7 100644 --- a/TESTING/MATGEN/zlaghe.f +++ b/TESTING/MATGEN/zlaghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlagsy.f b/TESTING/MATGEN/zlagsy.f index 4a793a01cf..5ecbd707d4 100644 --- a/TESTING/MATGEN/zlagsy.f +++ b/TESTING/MATGEN/zlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f index f30835df26..7bf416a602 100644 --- a/TESTING/MATGEN/zlahilb.f +++ b/TESTING/MATGEN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -168,7 +168,7 @@ SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -237,7 +237,7 @@ SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, END DO END DO END IF - + * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) @@ -252,7 +252,7 @@ SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ * (N +J -1) END DO -* If we are testing SY routines, +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS diff --git a/TESTING/MATGEN/zlakf2.f b/TESTING/MATGEN/zlakf2.f index 7e8fc479dd..4fd62b4620 100644 --- a/TESTING/MATGEN/zlakf2.f +++ b/TESTING/MATGEN/zlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarge.f b/TESTING/MATGEN/zlarge.f index e44c2faba7..593eb00fbc 100644 --- a/TESTING/MATGEN/zlarge.f +++ b/TESTING/MATGEN/zlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarnd.f b/TESTING/MATGEN/zlarnd.f index 563a453e67..fe75055141 100644 --- a/TESTING/MATGEN/zlarnd.f +++ b/TESTING/MATGEN/zlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlaror.f b/TESTING/MATGEN/zlaror.f index 2fd1e63de1..6b9ed97dc6 100644 --- a/TESTING/MATGEN/zlaror.f +++ b/TESTING/MATGEN/zlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarot.f b/TESTING/MATGEN/zlarot.f index 0b2b9142db..4d69397d8c 100644 --- a/TESTING/MATGEN/zlarot.f +++ b/TESTING/MATGEN/zlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatm1.f b/TESTING/MATGEN/zlatm1.f index 409a4de57d..efcdabb82f 100644 --- a/TESTING/MATGEN/zlatm1.f +++ b/TESTING/MATGEN/zlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index 3719a685eb..8918c67501 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f index d7b10579db..93e9b3fa49 100644 --- a/TESTING/MATGEN/zlatm3.f +++ b/TESTING/MATGEN/zlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f index b0f1516fa8..2ad19b9035 100644 --- a/TESTING/MATGEN/zlatm5.f +++ b/TESTING/MATGEN/zlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm6.f b/TESTING/MATGEN/zlatm6.f index 8dc258ac2b..3736f2499a 100644 --- a/TESTING/MATGEN/zlatm6.f +++ b/TESTING/MATGEN/zlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX*16 ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f index eb52d14192..874ba4b846 100644 --- a/TESTING/MATGEN/zlatme.f +++ b/TESTING/MATGEN/zlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * DOUBLE PRECISION DS( * ) * COMPLEX*16 A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/zlatmr.f b/TESTING/MATGEN/zlatmr.f index ed85d36089..817f14eb8b 100644 --- a/TESTING/MATGEN/zlatmr.f +++ b/TESTING/MATGEN/zlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX*16 A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatms.f b/TESTING/MATGEN/zlatms.f index 04a5386e59..b49e34ac69 100644 --- a/TESTING/MATGEN/zlatms.f +++ b/TESTING/MATGEN/zlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatmt.f b/TESTING/MATGEN/zlatmt.f index 515d86b2a3..63c8a07a88 100644 --- a/TESTING/MATGEN/zlatmt.f +++ b/TESTING/MATGEN/zlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/cbak.in b/TESTING/cbak.in index c6073bdc7d..ef364dc8a1 100644 --- a/TESTING/cbak.in +++ b/TESTING/cbak.in @@ -3,76 +3,76 @@ CBK: Tests CGEBAK 0.1000E+01 0.2000E+01 0.3000E+01 0.4000E+01 0.5000E+01 (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) 6 4 6 0.4000E+01 0.3000E+01 0.5000E+01 0.1000E+03 0.1000E+00 0.1000E+01 @@ -107,26 +107,26 @@ CBK: Tests CGEBAK 0.1000E+03 0.1000E+00 0.1000E-01 0.1000E+01 0.1000E+02 (0.13663E-03,0.00000E+00) (-.68290E-04,0.00000E+00) (0.12516E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (-.27756E-16,0.00000E+00) -(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) +(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) (0.27355E+00,0.00000E+00) (-.13627E+00,0.00000E+00) (0.25030E+00,0.00000E+00) -(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) +(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+00,0.00000E+00) (-.20327E+00,0.00000E+00) (-.34200E+00,0.00000E+00) -(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) +(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) (0.13663E-01,0.00000E+00) (-.68290E-02,0.00000E+00) (0.12516E-01,0.00000E+00) -(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) +(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) (0.10000E+00,0.00000E+00) (0.10000E+00,0.00000E+00) (-.27756E-17,0.00000E+00) -(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) +(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) (0.27355E-02,0.00000E+00) (-.13627E-02,0.00000E+00) (0.25030E-02,0.00000E+00) -(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) +(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+01,0.00000E+00) (-.20327E+01,0.00000E+00) (-.34200E+01,0.00000E+00) -(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) +(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) 6 2 5 0.3000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.4000E+01 @@ -163,19 +163,19 @@ CBK: Tests CGEBAK (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E+00,0.00000E+00) (-.45447E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.46394E+00,0.00000E+00) (-.65116E+00,0.00000E+00) -(0.47808E+00,0.00000E+00) +(0.47808E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E+00,0.00000E+00) (-.79459E+00,0.00000E+00) (0.63028E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.62791E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.69389E-17,0.00000E+00) (0.42585E-01,0.00000E+00) (-.64954E+00,0.00000E+00) (-.55814E+00,0.00000E+00) -(-.64516E+00,0.00000E+00) +(-.64516E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E+00,0.00000E+00) (-.40294E+00,0.00000E+00) (-.16849E+00,0.00000E+00) (-.94294E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.93714E+00,0.00000E+00) +(-.93714E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) (0.33085E-03,0.00000E+00) @@ -185,24 +185,24 @@ CBK: Tests CGEBAK (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) -(0.33085E-03,0.00000E+00) +(0.33085E-03,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E-03,0.00000E+00) (-.45447E-03,0.00000E+00) (0.10000E-02,0.00000E+00) (0.46394E-03,0.00000E+00) (-.65116E-03,0.00000E+00) -(0.47808E-03,0.00000E+00) +(0.47808E-03,0.00000E+00) (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+02,0.00000E+00) (-.69389E-16,0.00000E+00) (0.42585E+00,0.00000E+00) (-.64954E+01,0.00000E+00) (-.55814E+01,0.00000E+00) -(-.64516E+01,0.00000E+00) +(-.64516E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E-01,0.00000E+00) (-.40294E-01,0.00000E+00) (-.16849E-01,0.00000E+00) (-.94294E-01,0.00000E+00) (0.10000E+00,0.00000E+00) -(-.93714E-01,0.00000E+00) +(-.93714E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(-.19851E-02,0.00000E+00) +(-.19851E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E-02,0.00000E+00) (-.79459E-02,0.00000E+00) (0.63028E-02,0.00000E+00) (0.10000E-01,0.00000E+00) (-.62791E-02,0.00000E+00) -(0.10000E-01,0.00000E+00) +(0.10000E-01,0.00000E+00) -0 0 0 +0 0 0 diff --git a/TESTING/cbal.in b/TESTING/cbal.in index 29b1459cba..909531c332 100644 --- a/TESTING/cbal.in +++ b/TESTING/cbal.in @@ -1,92 +1,92 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.40000E+01 0.50000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) +(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) 1 1 (0.50000E+01,0.50000E+01) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 4 (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+00,0.00000E+00) +(0.10000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) - +(0.00000E+00,0.00000E+00) + 1 4 (0.0000E+00,0.00000E+00) (0.2000E+01,0.00000E+00) (0.3200E+01,0.00000E+00) (0.000E+00,0.00000E+00) @@ -131,25 +131,25 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.81920E+04,0.00000E+00) -(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-03,0.00000E+00) (0.40000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10240E+04,0.10240E+01) -(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.81920E+04) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) 1 5 - ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 1.0240e+003,0.00000E+00) - ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) (256.0000e-003,0.00000E+00) ( 1.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 16.0000e+000,16.0000e-003) - ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003, 2.0480e+003) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 8.0000e+000,0.00000E+00) @@ -157,61 +157,61 @@ CBL: Tests CGEBAL 4 (0.10000E+01,0.10000E+01) (0.10000E+07,0.00000E+00) (0.10000E+07,0.00000E+00) -(0.10000E+07,0.00000E+00) +(0.10000E+07,0.00000E+00) (-.20000E+07,0.00000E+00) (0.30000E+01,0.10000E+01) (0.20000E-05,0.00000E+00) -(0.30000E-05,0.00000E+00) +(0.30000E-05,0.00000E+00) (-.30000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E-05,0.10000E+01) (0.20000E+01,0.00000E+00) (0.10000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E-05,0.00000E+00) -(0.40000E+07,0.10000E+01) +(0.40000E+07,0.10000E+01) 1 4 - ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) - ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) + ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 2.0000e+000 1.0000e+000 4 (0.10000E+01,0.00000E+00) (0.00000E+00,0.10000E+05) (0.00000E+00,0.10000E+05) -(0.00000E+00,0.10000E+05) +(0.00000E+00,0.10000E+05) (-.20000E+05,0.00000E+00) (0.30000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) -(0.30000E-02,0.00000E+00) +(0.30000E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(-.30000E+05,0.00000E+00) +(-.30000E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+05,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) 1 4 - ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) - (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) + (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 1.0000e+000 500.0000e-003 5 (0.10000E+01,0.00000E+00) (0.51200E+03,0.00000E+00) (0.40960E+04,0.00000E+00) -(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) +(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) +(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) 1 5 - ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) -( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) - ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) +( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) + ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) 128.0000e+000 16.0000e+000 2.0000e+000 250.0000e-003 31.2500e-003 @@ -249,25 +249,25 @@ CBL: Tests CGEBAL 7 (0.60000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E-01,0.00000E+00) -(0.12500E+00,0.00000E+00) +(0.12500E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.12800E+03,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.20000E+01,0.00000E+00) -(0.16000E+02,0.00000E+00) +(0.16000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.16384E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.40000E+03,0.00000E+00) (0.25600E+03,0.00000E+00) -(-.40000E+04,0.00000E+00) +(-.40000E+04,0.00000E+00) (-.20000E+01,0.00000E+00) (-.25600E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E+01,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.32000E+02,0.00000E+00) +(0.32000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E-02,0.00000E+00) (0.12500E+00,0.00000E+00) (-.20000E+00,0.00000E+00) -(0.30000E+01,0.00000E+00) +(0.30000E+01,0.00000E+00) 2 5 (6.4000E+01,0.00000E+00) (2.5000E-01,0.00000E+00) (5.00000E-01,0.00000E+00) @@ -296,40 +296,40 @@ CBL: Tests CGEBAL 5 (0.10000E+04,0.00000E+00) (0.20000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) -(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) (0.90000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.30000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.90000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) +(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) (0.60000E+01,0.00000E+00) (0.20000E+03,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) 1 5 - (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) + (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) (3.90625E+03,0.00000E+00) - (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) + (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) (1.0000E+00,0.00000E+00) (1.5000E+00,0.00000E+00) - (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) + (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) (1.2500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) - (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) + (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) (1.0000E+00,0.00000E+00) (-5.0000E+02,0.00000E+00) - (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) + (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) (1.2000E+03,0.00000E+00) (3.0000E+00,0.00000E+00) 1.2800E+02 2.0000E+00 1.6000E+01 2.0000E+00 1.0000E+00 5 -(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) +(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) +(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) 1 5 diff --git a/TESTING/ced.in b/TESTING/ced.in index dde30fa882..ef6c9e36e5 100644 --- a/TESTING/ced.in +++ b/TESTING/ced.in @@ -35,489 +35,489 @@ CSX 21 Use all matrix types 1.0000E+00 1.0000E+00 5 3 0 2 3 4 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 1.0000E+00 2.9582E-31 5 3 0 1 3 5 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 5 2 0 2 4 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 6 3 1 3 4 6 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 6 3 0 1 3 5 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 4 2 0 3 4 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 9.6350E-01 3.3122E-01 4 2 0 2 3 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) 8.4053E-01 7.4754E-01 3 2 0 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) 3.9550E-01 2.0464E+01 4 2 0 1 3 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 3.3333E-01 1.2569E-01 4 3 0 1 3 4 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 8.2843E-01 4 2 0 2 3 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) 9.8985E-01 4.1447E+00 5 2 1 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) 3.1088E-01 4.6912E+00 3 2 0 1 2 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 2.2361E-01 1.0000E+00 4 2 1 1 3 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 7.2803E-05 1.1947E-04 7 4 0 1 4 6 7 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 1.0000E+00, 4.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) 3.7241E-01 5.2080E-01 5 3 1 1 3 5 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) 1.0000E+00 4.5989E+00 8 4 1 1 2 3 4 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) ( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 4.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 4.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 4.0000E+00) ( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 9.5000E-01) 9.5269E-12 2.9360E-11 3 2 0 2 3 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 2.0000E+00 0 0 0 @@ -537,51 +537,51 @@ CVX 21 Use all matrix types ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.0000E+00 1.0000E+00 2 0 -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 0.0000E+00, 2.0000E+00) ( 3.0000E+00, 0.0000E+00) 3.0000E+00 2.0000E+00 1.0000E+00 4.0000E+00 3.0000E+00 -2.0000E+00 1.0000E+00 4.0000E+00 5 0 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -589,30 +589,30 @@ CVX 21 Use all matrix types 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -620,30 +620,30 @@ CVX 21 Use all matrix types 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 2.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 @@ -651,41 +651,41 @@ CVX 21 Use all matrix types 4.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -694,41 +694,41 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -737,148 +737,148 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 4 0 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 2.6014E-01 -1.7813E-01 8.5279E-01 3.2881E-01 2.8961E-01 2.0772E-01 8.4871E-01 3.2358E-01 7.3990E-01 -4.6522E-04 9.7398E-01 3.4994E-01 2.2242E+00 3.9709E+00 9.8325E-01 4.1429E+00 4 0 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) -6.2157E-01 6.0607E-01 8.7533E-01 8.1980E-01 2.8890E-01 -2.6354E-01 8.2538E-01 8.1086E-01 3.8017E-01 5.4217E-01 7.4771E-01 7.0323E-01 2.2487E+00 1.7368E+00 9.2372E-01 2.2178E+00 3 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) -7.4775E+00 6.8803E+00 3.9550E-01 1.6583E+01 6.7009E+00 -7.8760E+00 3.9828E-01 1.6312E+01 3.9777E+01 4.2996E+01 7.9686E-01 3.7399E+01 4 0 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 1.0000E+00 5.0000E+00 2.1822E-01 7.4651E-01 2.0000E+00 6.0000E+00 2.1822E-01 3.0893E-01 3.0000E+00 7.0000E+00 2.1822E-01 1.8315E-01 4.0000E+00 8.0000E+00 2.1822E-01 6.6350E-01 4 0 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -8.2843E-01 1.6979E-07 1.0000E+00 8.2843E-01 4.1744E-07 7.1526E-08 1.0000E+00 8.2843E-01 4.0000E+00 1.6690E-07 1.0000E+00 8.2843E-01 4.8284E+00 6.8633E-08 1.0000E+00 8.2843E-01 4 0 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) -8.0767E-03 -2.5211E-01 9.9864E-01 7.7961E+00 7.7723E+00 2.4349E-01 7.0272E-01 3.3337E-01 8.0000E+00 -3.4273E-07 7.0711E-01 3.3337E-01 1.2236E+01 8.6188E-03 9.9021E-01 3.9429E+00 5 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) -9.4600E+00 7.2802E+00 3.1053E-01 1.1937E+01 -7.7912E-06 -1.2743E-05 2.9408E-01 1.6030E-05 @@ -886,88 +886,88 @@ CVX 21 Use all matrix types 7.0733E+00 -9.5584E+00 3.0911E-01 1.1891E+01 1.2739E+02 1.3228E+02 9.2770E-01 1.2111E+02 3 0 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 1.0000E+00 1.0000E+00 3.0151E-01 0.0000E+00 1.0000E+00 1.0000E+00 3.1623E-01 0.0000E+00 2.0000E+00 1.0000E+00 2.2361E-01 1.0000E+00 4 1 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -9.9883E-01 -1.0006E+00 1.3180E-04 2.4106E-04 -1.0012E+00 -9.9945E-01 1.3140E-04 2.4041E-04 -9.9947E-01 -6.8325E-04 1.3989E-04 8.7487E-05 -1.0005E+00 6.8556E-04 1.4010E-04 8.7750E-05 7 0 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 1.0000E+00, 4.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) -2.7081E+00 -2.8029E+00 6.9734E-01 3.9279E+00 -1.1478E+00 8.0176E-01 6.5772E-01 9.4243E-01 @@ -977,30 +977,30 @@ CVX 21 Use all matrix types 5.3138E+00 1.2242E+00 3.0213E-01 7.1268E-01 8.2674E+00 3.7047E+00 2.8270E-01 3.2849E+00 5 1 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) -4.1735E-08 -1.0734E+01 1.0000E+00 7.7345E+00 -2.6397E-07 -2.9991E+00 1.0000E+00 4.5989E+00 @@ -1008,14 +1008,14 @@ CVX 21 Use all matrix types -4.4369E-07 9.3159E+00 1.0000E+00 7.7161E+00 4.0937E-09 1.7817E+01 1.0000E+00 8.5013E+00 3 0 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 2.0000E+00 3.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 diff --git a/TESTING/cgbak.in b/TESTING/cgbak.in index 970fb26d67..0f6a3f5808 100644 --- a/TESTING/cgbak.in +++ b/TESTING/cgbak.in @@ -443,4 +443,4 @@ CGK: Tests CGGBAK (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) -0 0 +0 0 diff --git a/TESTING/cgbal.in b/TESTING/cgbal.in index 6fa3155052..51ce6931cc 100644 --- a/TESTING/cgbal.in +++ b/TESTING/cgbal.in @@ -657,4 +657,4 @@ CGL: Tests CGGBAL 0.2000E+01 0.2000E+01 0.1000E+01 0.1000E+01 0.5000E+01 0.5000E+01 -0 +0 diff --git a/TESTING/cgd.in b/TESTING/cgd.in index da7d4a42e0..a030a78a4d 100644 --- a/TESTING/cgd.in +++ b/TESTING/cgd.in @@ -1,6 +1,6 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver CGV 26 Test all 26 matrix types CGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -50,7 +50,7 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -67,12 +67,12 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 8.0000E+00, 4.0000E+00) 7.6883E-02 2.1007E-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) @@ -112,7 +112,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -126,7 +126,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -144,11 +144,11 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000E+00, 4.0000E+00) 5.2612E+00 8.0058E-01 1.4032E+00 4.0073E+00 condition #'s for eigenvalues 1.1787E+00 3.3139E+00 1.1835E+00 2.0777E+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) diff --git a/TESTING/dbak.in b/TESTING/dbak.in index cb69cb34a2..fc93a32db7 100644 --- a/TESTING/dbak.in +++ b/TESTING/dbak.in @@ -127,4 +127,4 @@ DBK: Tests DGEBAK 0.0000D+00 -0.2734D-02 -0.7946D-02 0.6303D-02 0.1000D-01 -0.6279D-02 0.1000D-01 - 0 0 0 + 0 0 0 diff --git a/TESTING/dbal.in b/TESTING/dbal.in index 103d090538..94268a117b 100644 --- a/TESTING/dbal.in +++ b/TESTING/dbal.in @@ -106,9 +106,9 @@ DBL: Tests DGEBAL -2.0000D+06 3.0000D+00 4.0000D-06 3.0000D-06 -1.5000D+06 0.0000D-03 1.0000D-06 1.0000D+00 1.0000D+06 0.0000D-03 6.0000D-06 4.0000D+06 - + 1.0000D+00 1.0000D+00 2.0000D+00 1.0000D+00 - + 4 0.1000D+01 0.1000D+05 0.1000D+05 0.1000D+05 -0.2000D+05 0.3000D+01 0.2000D-02 0.3000D-02 @@ -122,7 +122,7 @@ DBL: Tests DGEBAL 0.0000D-03 0.0000D-03 20.0000D+03 0.0000D-03 1.0000D+00 1.0000D+00 1.0000D+00 500.0000D-03 - + 5 0.1000D+01 0.5120D+03 0.4096D+04 3.2768D+04 2.62144D+05 0.8000D+01 0.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 diff --git a/TESTING/dgbak.in b/TESTING/dgbak.in index 633ec77abb..edf304d8db 100644 --- a/TESTING/dgbak.in +++ b/TESTING/dgbak.in @@ -263,4 +263,4 @@ DGK: Tests DGGBAK 0.5000D+02 0.5000D+02 0.6000D+02 0.6000D+02 -0 0 +0 0 diff --git a/TESTING/dgd.in b/TESTING/dgd.in index 42ff716ab0..ca24dd2a04 100644 --- a/TESTING/dgd.in +++ b/TESTING/dgd.in @@ -1,6 +1,6 @@ DGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ DGS Data for the Real Nonsymmetric Schur Form Driver DGS 26 Test all 26 matrix types DGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed DGV 26 Test all 26 matrix types -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000D+00 4.0000D+00 -1.3000D+01 4.0000D+00 Input matrix A 0.0000D+00 7.0000D+00 -2.4000D+01 -3.0000D+00 @@ -37,7 +37,7 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 -1.1000D+01 6.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 4.0000D+00 2.5901D-01 1.7592D+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000D+00 2.0000D+00 3.0000D+00 4.0000D+00 Input matrix A 0.0000D+00 5.0000D+00 6.0000D+00 7.0000D+00 @@ -49,13 +49,13 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 9.8173D-01 6.3649D-01 Condition #'s for cluster selected from lower 2x2 0 -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/TESTING/glm.in b/TESTING/glm.in index 4fddc61c9d..f3fd54b7e2 100644 --- a/TESTING/glm.in +++ b/TESTING/glm.in @@ -1,9 +1,9 @@ GLM: Data file for testing Generalized Linear Regression Model routines 6 Number of values of M, P, and N -0 5 8 15 20 40 Values of M (row dimension) -9 0 15 12 15 30 Values of P (row dimension) +0 5 8 15 20 40 Values of M (row dimension) +9 0 15 12 15 30 Values of P (row dimension) 5 5 10 25 30 40 Values of N (col dimension), M <= N <= M+P 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GLM 8 List types on next line if 0 < NTYPES < 8 +GLM 8 List types on next line if 0 < NTYPES < 8 diff --git a/TESTING/gqr.in b/TESTING/gqr.in index ccd861caab..449d428890 100644 --- a/TESTING/gqr.in +++ b/TESTING/gqr.in @@ -1,9 +1,9 @@ GQR: Data file for testing Generalized QR and RQ routines 3 Number of values of M, P and N -0 3 10 Values of M -0 5 20 Values of P +0 3 10 Values of M +0 5 20 Values of P 0 3 30 Values of N 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GQR 8 List types on next line if 0 < NTYPES < 8 +GQR 8 List types on next line if 0 < NTYPES < 8 diff --git a/TESTING/lse.in b/TESTING/lse.in index 59598545e7..a1b5677cc1 100644 --- a/TESTING/lse.in +++ b/TESTING/lse.in @@ -1,7 +1,7 @@ LSE: Data file for testing Constrained Linear Least Squares routines 6 Number of values of M, P, and N -6 0 5 8 10 30 Values of M -0 5 5 5 8 20 Values of P +6 0 5 8 10 30 Values of M +0 5 5 5 8 20 Values of P 5 5 6 8 12 40 Values of N, note P<= N <= P+M 20.0 Threshold value of test ratio T Put T to test the error exits diff --git a/TESTING/runtest.cmake b/TESTING/runtest.cmake index 2c96a2b18e..30807c1a68 100644 --- a/TESTING/runtest.cmake +++ b/TESTING/runtest.cmake @@ -21,7 +21,7 @@ if(DEFINED INPUT) endif() message("Running: ${TEST}") message("ARGS= ${ARGS}") -execute_process(COMMAND "${TEST}" +execute_process(COMMAND "${TEST}" ${ARGS} RESULT_VARIABLE RET) if(DEFINED OUTPUT) diff --git a/TESTING/sbak.in b/TESTING/sbak.in index 8bfeda3299..0ec11c17c8 100644 --- a/TESTING/sbak.in +++ b/TESTING/sbak.in @@ -127,4 +127,4 @@ SBK: Tests SGEBAK 0.0000E+00 -0.2734E-02 -0.7946E-02 0.6303E-02 0.1000E-01 -0.6279E-02 0.1000E-01 - 0 0 0 + 0 0 0 diff --git a/TESTING/sbal.in b/TESTING/sbal.in index 9f7cfd5b35..fac6f8eaeb 100644 --- a/TESTING/sbal.in +++ b/TESTING/sbal.in @@ -105,9 +105,9 @@ SBL: Tests SGEBAL -2.0000E+06 3.0000E+00 4.0000E-06 3.0000E-06 -1.5000E+06 0.0000E-03 1.0000E-06 1.0000E+00 1.0000E+06 0.0000E-03 6.0000E-06 4.0000E+06 - + 1.0000E+00 1.0000E+00 2.0000E+00 1.0000E+00 - + 4 0.1000E+01 0.1000E+05 0.1000E+05 0.1000E+05 -0.2000E+05 0.3000E+01 0.2000E-02 0.3000E-02 @@ -121,7 +121,7 @@ SBL: Tests SGEBAL 0.0000E-03 0.0000E-03 20.0000E+03 0.0000E-03 1.0000E+00 1.0000E+00 1.0000E+00 500.0000E-03 - + 5 0.1000E+01 0.5120E+03 0.4096E+04 3.2768E+04 2.62144E+05 0.8000E+01 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 @@ -209,5 +209,5 @@ SBL: Tests SGEBAL 5.0706024E+30 3.6028797E+16 1.2800000E+02 2.2737368E-13 2.0194839E-28 - + 0 diff --git a/TESTING/sgbak.in b/TESTING/sgbak.in index 6e6622a8ec..cea16b4068 100644 --- a/TESTING/sgbak.in +++ b/TESTING/sgbak.in @@ -263,4 +263,4 @@ SGK: Tests SGGBAK 0.5000E+02 0.5000E+02 0.6000E+02 0.6000E+02 -0 0 +0 0 diff --git a/TESTING/sgd.in b/TESTING/sgd.in index 79a70bc07c..164b3cc35c 100644 --- a/TESTING/sgd.in +++ b/TESTING/sgd.in @@ -1,6 +1,6 @@ SGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ SGS Data for the Real Nonsymmetric Schur Form Driver SGS 26 Test all 26 matrix types SGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed SGV 26 Test all 26 matrix types -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000E+00 4.0000E+00 -1.3000E+01 4.0000E+00 Input matrix A 0.0000E+00 7.0000E+00 -2.4000E+01 -3.0000E+00 @@ -37,7 +37,7 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 -1.1000E+01 6.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 4.0000E+00 2.5901E-01 1.7592E+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000E+00 2.0000E+00 3.0000E+00 4.0000E+00 Input matrix A 0.0000E+00 5.0000E+00 6.0000E+00 7.0000E+00 @@ -49,13 +49,13 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 9.8173E-01 6.3649E-01 Condition #'s for cluster selected from lower 2x2 0 -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/TESTING/zbak.in b/TESTING/zbak.in index 624df47d00..6a98a89890 100644 --- a/TESTING/zbak.in +++ b/TESTING/zbak.in @@ -3,76 +3,76 @@ ZBK: Tests ZGEBAK 0.1000D+01 0.2000D+01 0.3000D+01 0.4000D+01 0.5000D+01 (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) 6 4 6 0.4000D+01 0.3000D+01 0.5000D+01 0.1000D+03 0.1000D+00 0.1000D+01 @@ -107,26 +107,26 @@ ZBK: Tests ZGEBAK 0.1000D+03 0.1000D+00 0.1000D-01 0.1000D+01 0.1000D+02 (0.13663D-03,0.00000D+00) (-.68290D-04,0.00000D+00) (0.12516D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (-.27756D-16,0.00000D+00) -(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) +(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) (0.27355D+00,0.00000D+00) (-.13627D+00,0.00000D+00) (0.25030D+00,0.00000D+00) -(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) +(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+00,0.00000D+00) (-.20327D+00,0.00000D+00) (-.34200D+00,0.00000D+00) -(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) +(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) (0.13663D-01,0.00000D+00) (-.68290D-02,0.00000D+00) (0.12516D-01,0.00000D+00) -(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) +(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) (0.10000D+00,0.00000D+00) (0.10000D+00,0.00000D+00) (-.27756D-17,0.00000D+00) -(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) +(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) (0.27355D-02,0.00000D+00) (-.13627D-02,0.00000D+00) (0.25030D-02,0.00000D+00) -(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) +(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+01,0.00000D+00) (-.20327D+01,0.00000D+00) (-.34200D+01,0.00000D+00) -(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) +(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) 6 2 5 0.3000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.4000D+01 @@ -163,19 +163,19 @@ ZBK: Tests ZGEBAK (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D+00,0.00000D+00) (-.45447D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.46394D+00,0.00000D+00) (-.65116D+00,0.00000D+00) -(0.47808D+00,0.00000D+00) +(0.47808D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D+00,0.00000D+00) (-.79459D+00,0.00000D+00) (0.63028D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.62791D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.69389D-17,0.00000D+00) (0.42585D-01,0.00000D+00) (-.64954D+00,0.00000D+00) (-.55814D+00,0.00000D+00) -(-.64516D+00,0.00000D+00) +(-.64516D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D+00,0.00000D+00) (-.40294D+00,0.00000D+00) (-.16849D+00,0.00000D+00) (-.94294D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.93714D+00,0.00000D+00) +(-.93714D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) (0.33085D-03,0.00000D+00) @@ -185,24 +185,24 @@ ZBK: Tests ZGEBAK (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) -(0.33085D-03,0.00000D+00) +(0.33085D-03,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D-03,0.00000D+00) (-.45447D-03,0.00000D+00) (0.10000D-02,0.00000D+00) (0.46394D-03,0.00000D+00) (-.65116D-03,0.00000D+00) -(0.47808D-03,0.00000D+00) +(0.47808D-03,0.00000D+00) (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+02,0.00000D+00) (-.69389D-16,0.00000D+00) (0.42585D+00,0.00000D+00) (-.64954D+01,0.00000D+00) (-.55814D+01,0.00000D+00) -(-.64516D+01,0.00000D+00) +(-.64516D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D-01,0.00000D+00) (-.40294D-01,0.00000D+00) (-.16849D-01,0.00000D+00) (-.94294D-01,0.00000D+00) (0.10000D+00,0.00000D+00) -(-.93714D-01,0.00000D+00) +(-.93714D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(-.19851D-02,0.00000D+00) +(-.19851D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D-02,0.00000D+00) (-.79459D-02,0.00000D+00) (0.63028D-02,0.00000D+00) (0.10000D-01,0.00000D+00) (-.62791D-02,0.00000D+00) -(0.10000D-01,0.00000D+00) +(0.10000D-01,0.00000D+00) -0 0 0 +0 0 0 diff --git a/TESTING/zbal.in b/TESTING/zbal.in index c742723ff5..1efb5f2fc7 100644 --- a/TESTING/zbal.in +++ b/TESTING/zbal.in @@ -1,91 +1,91 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.40000D+01 0.50000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) +(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) 1 1 (0.50000D+01,0.50000D+01) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 4 (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+00,0.00000D+00) +(0.10000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 (0.0000D+00,0.00000D+00) (0.2000D+01,0.00000D+00) (0.3200D+01,0.00000D+00) @@ -131,25 +131,25 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.81920D+04,0.00000D+00) -(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-03,0.00000D+00) (0.40000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10240D+04,0.10240D+01) -(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.81920D+04) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) 1 5 - ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 1.0240D+003,0.00000D+00) - ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) (256.0000D-003,0.00000D+00) ( 1.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 16.0000D+000,16.0000D-003) - ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003, 2.0480D+003) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 8.0000D+000,0.00000D+00) @@ -157,62 +157,62 @@ ZBL: Tests ZGEBAL 4 (0.10000D+01,0.10000D+01) (0.10000D+07,0.00000D+00) (0.10000D+07,0.00000D+00) -(0.10000D+07,0.00000D+00) +(0.10000D+07,0.00000D+00) (-.20000D+07,0.00000D+00) (0.30000D+01,0.10000D+01) (0.20000D-05,0.00000D+00) -(0.30000D-05,0.00000D+00) +(0.30000D-05,0.00000D+00) (-.30000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D-05,0.10000D+01) (0.20000D+01,0.00000D+00) (0.10000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D-05,0.00000D+00) -(0.40000D+07,0.10000D+01) +(0.40000D+07,0.10000D+01) 1 4 - ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) - ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) + ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 2.0000D+000 1.0000D+000 4 (0.10000D+01,0.00000D+00) (0.00000D+00,0.10000D+05) (0.00000D+00,0.10000D+05) -(0.00000D+00,0.10000D+05) +(0.00000D+00,0.10000D+05) (-.20000D+05,0.00000D+00) (0.30000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) -(0.30000D-02,0.00000D+00) +(0.30000D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(-.30000D+05,0.00000D+00) +(-.30000D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+05,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 - ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) - (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) + (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 1.0000D+000 500.0000D-003 5 (0.10000D+01,0.00000D+00) (0.51200D+03,0.00000D+00) (0.40960D+04,0.00000D+00) -(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) +(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) +(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) 1 5 - ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) -( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) - ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) +( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) + ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) 128.0000D+000 16.0000D+000 2.0000D+000 250.0000D-003 31.2500D-003 @@ -250,25 +250,25 @@ ZBL: Tests ZGEBAL 7 (0.60000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D-01,0.00000D+00) -(0.12500D+00,0.00000D+00) +(0.12500D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.12800D+03,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.20000D+01,0.00000D+00) -(0.16000D+02,0.00000D+00) +(0.16000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.16384D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.40000D+03,0.00000D+00) (0.25600D+03,0.00000D+00) -(-.40000D+04,0.00000D+00) +(-.40000D+04,0.00000D+00) (-.20000D+01,0.00000D+00) (-.25600D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D+01,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.32000D+02,0.00000D+00) +(0.32000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D-02,0.00000D+00) (0.12500D+00,0.00000D+00) (-.20000D+00,0.00000D+00) -(0.30000D+01,0.00000D+00) +(0.30000D+01,0.00000D+00) 2 5 (6.4000D+01,0.00000D+00) (2.5000D-01,0.00000D+00) (5.00000D-01,0.00000D+00) @@ -297,26 +297,26 @@ ZBL: Tests ZGEBAL 5 (0.10000D+04,0.00000D+00) (0.20000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) -(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) (0.90000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.30000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.90000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) +(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) (0.60000D+01,0.00000D+00) (0.20000D+03,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) 1 5 - (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) + (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) (3.90625D+03,0.00000D+00) - (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) + (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) (1.0000D+00,0.00000D+00) (1.5000D+00,0.00000D+00) - (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) + (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) (1.2500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) - (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) + (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) (1.0000D+00,0.00000D+00) (-5.0000D+02,0.00000D+00) - (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) + (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) (1.2000D+03,0.00000D+00) (3.0000D+00,0.00000D+00) 1.2800D+02 2.0000D+00 1.6000D+01 2.0000D+00 1.0000D+00 diff --git a/TESTING/zed.in b/TESTING/zed.in index 880ae19738..538d8b0a22 100644 --- a/TESTING/zed.in +++ b/TESTING/zed.in @@ -35,489 +35,489 @@ ZSX 21 Use all matrix types 1.0000D+00 1.0000D+00 5 3 0 2 3 4 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 1.0000D+00 2.9582D-31 5 3 0 1 3 5 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 5 2 0 2 4 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 6 3 1 3 4 6 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 6 3 0 1 3 5 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 4 2 0 3 4 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 9.6350D-01 3.3122D-01 4 2 0 2 3 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) 8.4053D-01 7.4754D-01 3 2 0 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) 3.9550D-01 2.0464D+01 4 2 0 1 3 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 3.3333D-01 1.2569D-01 4 3 0 1 3 4 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 8.2843D-01 4 2 0 2 3 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) 9.8985D-01 4.1447D+00 5 2 1 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) 3.1088D-01 4.6912D+00 3 2 0 1 2 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 2.2361D-01 1.0000D+00 4 2 1 1 3 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 7.2803D-05 1.1947D-04 7 4 0 1 4 6 7 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 1.0000D+00, 4.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) 3.7241D-01 5.2080D-01 5 3 1 1 3 5 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) 1.0000D+00 4.5989D+00 8 4 1 1 2 3 4 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) ( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 4.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 4.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 4.0000D+00) ( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 9.5000D-01) 9.5269D-12 2.9360D-11 3 2 0 2 3 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 2.0000D+00 0 0 0 @@ -537,51 +537,51 @@ ZVX 21 Use all matrix types ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.0000D+00 1.0000D+00 2 0 -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 0.0000D+00, 2.0000D+00) ( 3.0000D+00, 0.0000D+00) 3.0000D+00 2.0000D+00 1.0000D+00 4.0000D+00 3.0000D+00 -2.0000D+00 1.0000D+00 4.0000D+00 5 0 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -589,30 +589,30 @@ ZVX 21 Use all matrix types 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -620,30 +620,30 @@ ZVX 21 Use all matrix types 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 2.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 @@ -651,41 +651,41 @@ ZVX 21 Use all matrix types 4.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -694,41 +694,41 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -737,148 +737,148 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 4 0 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 2.6014D-01 -1.7813D-01 8.5279D-01 3.2881D-01 2.8961D-01 2.0772D-01 8.4871D-01 3.2358D-01 7.3990D-01 -4.6522D-04 9.7398D-01 3.4994D-01 2.2242D+00 3.9709D+00 9.8325D-01 4.1429D+00 4 0 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) -6.2157D-01 6.0607D-01 8.7533D-01 8.1980D-01 2.8890D-01 -2.6354D-01 8.2538D-01 8.1086D-01 3.8017D-01 5.4217D-01 7.4771D-01 7.0323D-01 2.2487D+00 1.7368D+00 9.2372D-01 2.2178D+00 3 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) -7.4775D+00 6.8803D+00 3.9550D-01 1.6583D+01 6.7009D+00 -7.8760D+00 3.9828D-01 1.6312D+01 3.9777D+01 4.2996D+01 7.9686D-01 3.7399D+01 4 0 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 1.0000D+00 5.0000D+00 2.1822D-01 7.4651D-01 2.0000D+00 6.0000D+00 2.1822D-01 3.0893D-01 3.0000D+00 7.0000D+00 2.1822D-01 1.8315D-01 4.0000D+00 8.0000D+00 2.1822D-01 6.6350D-01 4 0 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -8.2843D-01 1.6979D-07 1.0000D+00 8.2843D-01 4.1744D-07 7.1526D-08 1.0000D+00 8.2843D-01 4.0000D+00 1.6690D-07 1.0000D+00 8.2843D-01 4.8284D+00 6.8633D-08 1.0000D+00 8.2843D-01 4 0 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) -8.0767D-03 -2.5211D-01 9.9864D-01 7.7961D+00 7.7723D+00 2.4349D-01 7.0272D-01 3.3337D-01 8.0000D+00 -3.4273D-07 7.0711D-01 3.3337D-01 1.2236D+01 8.6188D-03 9.9021D-01 3.9429D+00 5 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) -9.4600D+00 7.2802D+00 3.1053D-01 1.1937D+01 -7.7912D-06 -1.2743D-05 2.9408D-01 1.6030D-05 @@ -886,88 +886,88 @@ ZVX 21 Use all matrix types 7.0733D+00 -9.5584D+00 3.0911D-01 1.1891D+01 1.2739D+02 1.3228D+02 9.2770D-01 1.2111D+02 3 0 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 1.0000D+00 1.0000D+00 3.0151D-01 0.0000D+00 1.0000D+00 1.0000D+00 3.1623D-01 0.0000D+00 2.0000D+00 1.0000D+00 2.2361D-01 1.0000D+00 4 1 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -9.9883D-01 -1.0006D+00 1.3180D-04 2.4106D-04 -1.0012D+00 -9.9945D-01 1.3140D-04 2.4041D-04 -9.9947D-01 -6.8325D-04 1.3989D-04 8.7487D-05 -1.0005D+00 6.8556D-04 1.4010D-04 8.7750D-05 7 0 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 1.0000D+00, 4.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) -2.7081D+00 -2.8029D+00 6.9734D-01 3.9279D+00 -1.1478D+00 8.0176D-01 6.5772D-01 9.4243D-01 @@ -977,30 +977,30 @@ ZVX 21 Use all matrix types 5.3138D+00 1.2242D+00 3.0213D-01 7.1268D-01 8.2674D+00 3.7047D+00 2.8270D-01 3.2849D+00 5 1 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) -4.1735D-08 -1.0734D+01 1.0000D+00 7.7345D+00 -2.6397D-07 -2.9991D+00 1.0000D+00 4.5989D+00 @@ -1008,14 +1008,14 @@ ZVX 21 Use all matrix types -4.4369D-07 9.3159D+00 1.0000D+00 7.7161D+00 4.0937D-09 1.7817D+01 1.0000D+00 8.5013D+00 3 0 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 2.0000D+00 3.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 diff --git a/TESTING/zgbak.in b/TESTING/zgbak.in index e11d5026ea..6c890d06d6 100644 --- a/TESTING/zgbak.in +++ b/TESTING/zgbak.in @@ -443,4 +443,4 @@ ZGK: Tests ZGGBAK (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) -0 0 +0 0 diff --git a/TESTING/zgbal.in b/TESTING/zgbal.in index 51b1164c2b..fff9e051e6 100644 --- a/TESTING/zgbal.in +++ b/TESTING/zgbal.in @@ -657,4 +657,4 @@ ZGL: Tests ZGGBAL 0.2000D+01 0.2000D+01 0.1000D+01 0.1000D+01 0.5000D+01 0.5000D+01 -0 +0 diff --git a/TESTING/zgd.in b/TESTING/zgd.in index e92782a4ee..bf462b7686 100644 --- a/TESTING/zgd.in +++ b/TESTING/zgd.in @@ -1,6 +1,6 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver ZGV 26 Test all 26 matrix types ZGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -50,7 +50,7 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -67,12 +67,12 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 8.0000D+00, 4.0000D+00) 7.6883D-02 2.1007D-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) @@ -112,7 +112,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -126,7 +126,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -144,11 +144,11 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000D+00, 4.0000D+00) 5.2612D+00 8.0058D-01 1.4032D+00 4.0073D+00 condition #'s for eigenvalues 1.1787D+00 3.3139D+00 1.1835D+00 2.0777D+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) diff --git a/lapack_build.cmake b/lapack_build.cmake index df32dace2d..404ebd747f 100644 --- a/lapack_build.cmake +++ b/lapack_build.cmake @@ -25,7 +25,7 @@ if(EXISTS "/proc/cpuinfo") endif() if(WIN32) - set(VSLOCATIONS + set(VSLOCATIONS "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\6.0\\Setup;VsCommonDir]/MSDev98/Bin" "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\7.0\\Setup\\VS;EnvironmentDirectory]" "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\7.1\\Setup\\VS;EnvironmentDirectory]" @@ -104,7 +104,7 @@ if(NOT compiler) message(FATAL_ERROR "compiler must be set") endif(NOT compiler) - + set(BUILDNAME "${osname}${osver}${osrel}${cpu}-${compiler}") message("BUILDNAME: ${BUILDNAME}") @@ -125,7 +125,7 @@ set(CTEST_TEST_TIMEOUT "36000") # CVS command and the checkout command if(NOT EXISTS "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") - set(CTEST_CHECKOUT_COMMAND + set(CTEST_CHECKOUT_COMMAND "\"${CTEST_UPDATE_COMMAND}\" co https://icl.cs.utk.edu/svn/lapack-dev/lapack/trunk ${CTEST_DIR_NAME}") endif(NOT EXISTS "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") @@ -148,11 +148,11 @@ endif(CTEST_CMAKE_GENERATOR MATCHES Makefiles) # Should not need to edit under this line #---------------------------------------------------------------------------------- -# if you do not want to use the default location for a +# if you do not want to use the default location for a # dashboard then set this variable to the directory # the dashboard should be in make_directory("${CTEST_DASHBOARD_ROOT}") -# these are the the name of the source and binary directory on disk. +# these are the the name of the source and binary directory on disk. # They will be appended to DASHBOARD_ROOT set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_SOURCE_DIRECTORY}-${CTEST_BUILD_NAME}") diff --git a/make.inc.example b/make.inc.example index f59f34e7a3..fe2f0ad831 100644 --- a/make.inc.example +++ b/make.inc.example @@ -5,18 +5,18 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # # Note: During a regular execution, LAPACK might create NaN and Inf -# and handle these quantities appropriately. As a consequence, one +# and handle these quantities appropriately. As a consequence, one # should not compile LAPACK with flags such as -ffpe-trap=overflow. # -FORTRAN = gfortran +FORTRAN = gfortran OPTS = -O2 -frecursive DRVOPTS = $(OPTS) NOOPT = -O0 -frecursive @@ -70,7 +70,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) #