001        SUBROUTINE CDTTRSV( UPLO , TRANS , N , NRHS , DL , D , DU ,
002       $B , LDB , INFO )
003  
004  *     Written by Andrew J. Cleary , University of Tennessee.
005  *     August , 1996.
006  *     Modified from CGTTRS :
007  *     -- LAPACK routine(preliminary version) --
008  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
009  *     Courant Institute , Argonne National Lab , and Rice University
010  
011  *     .. Scalar Arguments ..
012        CHARACTER UPLO , TRANS
013        INTEGER INFO , LDB , N , NRHS
014        LOGICAL LOWER , NOTRAN
015        INTEGER I , J
... click on the current link to display the entire routine ...
File: cdttrsv.f  NbLines: 206  Child_Routines: 0

001        SUBROUTINE CLAHQR2( WANTT , WANTZ , N , ILO , IHI , H , LDH , W , ILOZ ,
002       $IHIZ , Z , LDZ , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
006  *     Courant Institute , Argonne National Lab , and Rice University
007  *     June 22 , 2000
008  
009  *     .. Scalar Arguments ..
010        LOGICAL WANTT , WANTZ
011        INTEGER IHI , IHIZ , ILO , ILOZ , INFO , LDH , LDZ , N
012  *     ..
013  *     .. Array Arguments ..
014        COMPLEX H( LDH , * ) , W( * ) , Z( LDZ , * )
015  *     ..
... click on the current link to display the entire routine ...
File: clahqr2.f  NbLines: 444  Child_Routines: 1

001        SUBROUTINE CLANV2( A , B , C , D , RT1 , RT2 , CS , SN )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
005  *     Courant Institute , Argonne National Lab , and Rice University
006  *     May 28 , 1999
007  
008  *     .. Scalar Arguments ..
009        REAL CS
010        COMPLEX A , B , C , D , RT1 , RT2 , SN
011        REAL RZERO , HALF , RONE
012        PARAMETER( RZERO = 0.0E + 0 , HALF = 0.5E + 0 ,
013       $RONE = 1.0E + 0 )
014        COMPLEX ZERO , ONE
015        PARAMETER( ZERO =( 0.0E + 0 , 0.0E + 0 ) ,
... click on the current link to display the entire routine ...
File: clanv2.f  NbLines: 145  Child_Routines: 0

001        SUBROUTINE CLAREF( TYPE , A , LDA , WANTZ , Z , LDZ , BLOCK , IROW1 ,
002       $ICOL1 , ISTART , ISTOP , ITMP1 , ITMP2 , LILOZ ,
003       $LIHIZ , VECS , V2 , V3 , T1 , T2 , T3 )
004  
005  *     -- ScaLAPACK routine(version 1.7) --
006  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
007  *     Courant Institute , Argonne National Lab , and Rice University
008  *     May 28 , 1999
009  
010  *     .. Scalar Arguments ..
011        LOGICAL BLOCK , WANTZ
012        CHARACTER TYPE
013        INTEGER ICOL1 , IROW1 , ISTART , ISTOP , ITMP1 , ITMP2 , LDA ,
014       $LDZ , LIHIZ , LILOZ
015        COMPLEX T1 , T2 , T3 , V2 , V3
... click on the current link to display the entire routine ...
File: claref.f  NbLines: 331  Child_Routines: 0

001        SUBROUTINE CPTTRSV( UPLO , TRANS , N , NRHS , D , E , B , LDB ,
002       $INFO )
003  
004  *     Written by Andrew J. Cleary , University of Tennessee.
005  *     November , 1996.
006  *     Modified from CPTTRS :
007  *     -- LAPACK routine(preliminary version) --
008  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
009  *     Courant Institute , Argonne National Lab , and Rice University
010  
011  *     .. Scalar Arguments ..
012        CHARACTER UPLO , TRANS
013        INTEGER INFO , LDB , N , NRHS
014        LOGICAL NOTRAN , UPPER
015        INTEGER I , J
... click on the current link to display the entire routine ...
File: cpttrsv.f  NbLines: 177  Child_Routines: 0

001        SUBROUTINE CSTEQR2( COMPZ , N , D , E , Z , LDZ , NR , WORK , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
005  *     Courant Institute , Argonne National Lab , and Rice University
006  *     November 15 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER COMPZ
010        INTEGER INFO , LDZ , N , NR
011  *     ..
012  *     .. Array Arguments ..
013        REAL D( * ) , E( * ) , WORK( * )
014        COMPLEX Z( LDZ , * )
015  *     ..
... click on the current link to display the entire routine ...
File: csteqr2.f  NbLines: 662  Child_Routines: 0

01        SUBROUTINE CTRMVT( UPLO , N , T , LDT , X , INCX , Y , INCY , W , INCW , Z ,
02       $INCZ )
03  
04  *     -- ScaLAPACK routine(version 1.7) --
05  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
06  *     and University of California , Berkeley.
07  *     March 13 , 2000
08  
09  *     .. Scalar Arguments ..
10        CHARACTER UPLO
11        INTEGER INCW , INCX , INCY , INCZ , LDT , N
12        INTEGER INFO
13  *     ..
14  *     .. External Functions ..
15        LOGICAL LSAME
... click on the current link to display the entire routine ...
File: ctrmvt.f  NbLines: 161  Child_Routines: 0

001        SUBROUTINE DDTTRSV( UPLO , TRANS , N , NRHS , DL , D , DU ,
002       $B , LDB , INFO )
003  
004  *     Written by Andrew J. Cleary , University of Tennessee.
005  *     August , 1996.
006  *     Modified from DGTTRS :
007  *     -- LAPACK routine(preliminary version) --
008  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
009  *     Courant Institute , Argonne National Lab , and Rice University
010  
011  *     .. Scalar Arguments ..
012        CHARACTER UPLO , TRANS
013        INTEGER INFO , LDB , N , NRHS
014        LOGICAL LOWER , NOTRAN
015        INTEGER I , J
... click on the current link to display the entire routine ...
File: ddttrsv.f  NbLines: 174  Child_Routines: 0

001        SUBROUTINE DLAPST( ID , N , D , INDX , INFO )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     December 31 , 1998
007  
008  *     .. Scalar Arguments ..
009        CHARACTER ID
010        INTEGER INFO , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER INDX( * )
014        DOUBLE PRECISION D( * )
015  *     ..
... click on the current link to display the entire routine ...
File: dlapst.f  NbLines: 251  Child_Routines: 0

001        SUBROUTINE DLAREF( TYPE , A , LDA , WANTZ , Z , LDZ , BLOCK , IROW1 ,
002       $ICOL1 , ISTART , ISTOP , ITMP1 , ITMP2 , LILOZ ,
003       $LIHIZ , VECS , V2 , V3 , T1 , T2 , T3 )
004  
005  *     -- ScaLAPACK routine(version 1.7) --
006  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
007  *     and University of California , Berkeley.
008  *     December 31 , 1998
009  
010  *     .. Scalar Arguments ..
011        LOGICAL BLOCK , WANTZ
012        CHARACTER TYPE
013        INTEGER ICOL1 , IROW1 , ISTART , ISTOP , ITMP1 , ITMP2 , LDA ,
014       $LDZ , LIHIZ , LILOZ
015        DOUBLE PRECISION T1 , T2 , T3 , V2 , V3
... click on the current link to display the entire routine ...
File: dlaref.f  NbLines: 278  Child_Routines: 0

01        SUBROUTINE DLASRT2( ID , N , D , KEY , INFO )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        CHARACTER ID
10        INTEGER INFO , N
11  *     ..
12  *     .. Array Arguments ..
13        INTEGER KEY( * )
14        DOUBLE PRECISION D( * )
15  *     ..
... click on the current link to display the entire routine ...
File: dlasrt2.f  NbLines: 268  Child_Routines: 0

001        SUBROUTINE DSTEIN2( N , D , E , M , W , IBLOCK , ISPLIT , ORFAC , Z , LDZ ,
002       $WORK , IWORK , IFAIL , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER INFO , LDZ , M , N
011        DOUBLE PRECISION ORFAC
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER IBLOCK( * ) , IFAIL( * ) , ISPLIT( * ) ,
015       $IWORK( * )
... click on the current link to display the entire routine ...
File: dstein2.f  NbLines: 372  Child_Routines: 0

001        SUBROUTINE DSTEQR2( COMPZ , N , D , E , Z , LDZ , NR , WORK , INFO )
002  
003  *     -- LAPACK routine(version 2.0) --
004  *     Univ. of Tennessee , Univ. of California Berkeley , NAG Ltd. ,
005  *     Courant Institute , Argonne National Lab , and Rice University
006  *     September 30 , 1994
007  
008  *     .. Scalar Arguments ..
009        CHARACTER COMPZ
010        INTEGER INFO , LDZ , N , NR
011  *     ..
012  *     .. Array Arguments ..
013        DOUBLE PRECISION D( * ) , E( * ) , WORK( * ) , Z( LDZ , * )
014  *     ..
015  
... click on the current link to display the entire routine ...
File: dsteqr2.f  NbLines: 499  Child_Routines: 0

01        SUBROUTINE DTRMVT( UPLO , N , T , LDT , X , INCX , Y , INCY , W , INCW , Z ,
02       $INCZ )
03  
04  *     -- ScaLAPACK routine(version 1.7) --
05  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
06  *     and University of California , Berkeley.
07  *     March 13 , 2000
08  
09  *     .. Scalar Arguments ..
10        CHARACTER UPLO
11        INTEGER INCW , INCX , INCY , INCZ , LDT , N
12        INTEGER INFO
13  *     ..
14  *     .. External Functions ..
15        LOGICAL LSAME
... click on the current link to display the entire routine ...
File: dtrmvt.f  NbLines: 161  Child_Routines: 0

001        SUBROUTINE PCDBTRF( N , BWL , BWU , A , JA , DESCA , AF , LAF , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER BWL , BWU , INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * )
014        COMPLEX A( * ) , AF( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pcdbtrf.f  NbLines: 1268  Child_Routines: 0

001        SUBROUTINE PCDBTRS( TRANS , N , BWL , BWU , NRHS , A , JA , DESCA , B , IB ,
002       $DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     August 7 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER BWL , BWU , IB , INFO , JA , LAF , LWORK , N , NRHS
012        REAL ONE , ZERO
013        PARAMETER( ONE = 1.0E + 0 )
014        PARAMETER( ZERO = 0.0E + 0 )
015        COMPLEX CONE , CZERO
... click on the current link to display the entire routine ...
File: pcdbtrs.f  NbLines: 764  Child_Routines: 1

001        SUBROUTINE PCDBTRSV( UPLO , TRANS , N , BWL , BWU , NRHS , A , JA , DESCA ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER BWL , BWU , IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        COMPLEX A( * ) , AF( * ) , B( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pcdbtrsv.f  NbLines: 1599  Child_Routines: 0

001        SUBROUTINE PCDTTRF( N , DL , D , DU , JA , DESCA , AF , LAF , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * )
014        COMPLEX AF( * ) , D( * ) , DL( * ) , DU( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pcdttrf.f  NbLines: 1074  Child_Routines: 0

001        SUBROUTINE PCDTTRS( TRANS , N , NRHS , DL , D , DU , JA , DESCA , B , IB ,
002       $DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     August 7 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012        REAL ONE , ZERO
013        PARAMETER( ONE = 1.0E + 0 )
014        PARAMETER( ZERO = 0.0E + 0 )
015        COMPLEX CONE , CZERO
... click on the current link to display the entire routine ...
File: pcdttrs.f  NbLines: 795  Child_Routines: 1

001        SUBROUTINE PCDTTRSV( UPLO , TRANS , N , NRHS , DL , D , DU , JA , DESCA ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        COMPLEX AF( * ) , B( * ) , D( * ) , DL( * ) , DU( * ) ,
... click on the current link to display the entire routine ...
File: pcdttrsv.f  NbLines: 1530  Child_Routines: 1

001        SUBROUTINE PCGBTRF( N , BWL , BWU , A , JA , DESCA , IPIV , AF , LAF ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER BWL , BWU , INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * ) , IPIV( * )
014        COMPLEX A( * ) , AF( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pcgbtrf.f  NbLines: 1110  Child_Routines: 0

001        SUBROUTINE PCGBTRS( TRANS , N , BWL , BWU , NRHS , A , JA , DESCA , IPIV ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     August 7 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER BWU , BWL , IB , INFO , JA , LAF , LWORK , N , NRHS
012        REAL ONE , ZERO
013        PARAMETER( ONE = 1.0E + 0 )
014        PARAMETER( ZERO = 0.0E + 0 )
015        COMPLEX CONE , CZERO
... click on the current link to display the entire routine ...
File: pcgbtrs.f  NbLines: 1182  Child_Routines: 0

001        SUBROUTINE PCGEBD2( M , N , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgebd2.f  NbLines: 453  Child_Routines: 4

001        SUBROUTINE PCGEBRD( M , N , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgebrd.f  NbLines: 414  Child_Routines: 2

001        SUBROUTINE PCGECON( NORM , N , A , IA , JA , DESCA , ANORM , RCOND , WORK ,
002       $LWORK , RWORK , LRWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM
011        INTEGER IA , INFO , JA , LRWORK , LWORK , N
012        REAL ANORM , RCOND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pcgecon.f  NbLines: 422  Child_Routines: 4

001        SUBROUTINE PCGEEQU( M , N , A , IA , JA , DESCA , R , C , ROWCND , COLCND ,
002       $AMAX , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , M , N
011        REAL AMAX , COLCND , ROWCND
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcgeequ.f  NbLines: 375  Child_Routines: 1

001        SUBROUTINE PCGEHD2( N , ILO , IHI , A , IA , JA , DESCA , TAU , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IHI , ILO , INFO , JA , LWORK , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgehd2.f  NbLines: 294  Child_Routines: 3

001        SUBROUTINE PCGELQ2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgelq2.f  NbLines: 274  Child_Routines: 3

001        SUBROUTINE PCGELQF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgelqf.f  NbLines: 312  Child_Routines: 3

001        SUBROUTINE PCGEQL2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgeql2.f  NbLines: 309  Child_Routines: 2

001        SUBROUTINE PCGEQR2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgeqr2.f  NbLines: 308  Child_Routines: 2

001        SUBROUTINE PCGEQRF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgeqrf.f  NbLines: 312  Child_Routines: 3

001        SUBROUTINE PCGERFS( TRANS , N , NRHS , A , IA , JA , DESCA , AF , IAF ,
002       $JAF , DESCAF , IPIV , B , IB , JB , DESCB , X , IX ,
003       $JX , DESCX , FERR , BERR , WORK , LWORK , RWORK ,
004       $LRWORK , INFO )
005  
006  *     -- ScaLAPACK routine(version 1.7) --
007  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
008  *     and University of California , Berkeley.
009  *     November 15 , 1997
010  
011  *     .. Scalar Arguments ..
012        CHARACTER TRANS
013        INTEGER IA , IAF , IB , IX , INFO , JA , JAF , JB , JX ,
014       $LRWORK , LWORK , N , NRHS
015        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
... click on the current link to display the entire routine ...
File: pcgerfs.f  NbLines: 895  Child_Routines: 3

001        SUBROUTINE PCGERQ2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgerq2.f  NbLines: 271  Child_Routines: 3

001        SUBROUTINE PCGERQF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcgerqf.f  NbLines: 309  Child_Routines: 3

001        SUBROUTINE PCGETF2( M , N , A , IA , JA , DESCA , IPIV , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        INTEGER IA , INFO , JA , M , N
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        COMPLEX ONE , ZERO
... click on the current link to display the entire routine ...
File: pcgetf2.f  NbLines: 252  Child_Routines: 0

001        SUBROUTINE PCGETRF( M , N , A , IA , JA , DESCA , IPIV , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 25 , 2001
007  
008  *     .. Scalar Arguments ..
009        INTEGER IA , INFO , JA , M , N
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        COMPLEX ONE
... click on the current link to display the entire routine ...
File: pcgetrf.f  NbLines: 311  Child_Routines: 2

001        SUBROUTINE PCGETRS( TRANS , N , NRHS , A , IA , JA , DESCA , IPIV , B ,
002       $IB , JB , DESCB , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER IA , IB , INFO , JA , JB , N , NRHS
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcgetrs.f  NbLines: 291  Child_Routines: 1

001        SUBROUTINE PCHEEVX( JOBZ , RANGE , UPLO , N , A , IA , JA , DESCA , VL ,
002       $VU , IL , IU , ABSTOL , M , NZ , W , ORFAC , Z , IZ ,
003       $JZ , DESCZ , WORK , LWORK , RWORK , LRWORK , IWORK ,
004       $LIWORK , IFAIL , ICLUSTR , GAP , INFO )
005  
006  *     -- ScaLAPACK routine(version 1.7) --
007  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
008  *     and University of California , Berkeley.
009  *     May 25 , 2001
010  
011  *     .. Scalar Arguments ..
012        CHARACTER JOBZ , RANGE , UPLO
013        INTEGER IA , IL , INFO , IU , IZ , JA , JZ , LIWORK , LRWORK ,
014       $LWORK , M , N , NZ
015        REAL ABSTOL , ORFAC , VL , VU
... click on the current link to display the entire routine ...
File: pcheevx.f  NbLines: 1001  Child_Routines: 9

001        SUBROUTINE PCHEGS2( IBTYPE , UPLO , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , IBTYPE , INFO , JA , JB , N
012        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pchegs2.f  NbLines: 431  Child_Routines: 0

001        SUBROUTINE PCHEGST( IBTYPE , UPLO , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB , SCALE , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , IBTYPE , INFO , JA , JB , N
012        REAL SCALE
013        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
014       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pchegst.f  NbLines: 441  Child_Routines: 1

001        SUBROUTINE PCHENGST( IBTYPE , UPLO , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB , SCALE , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     October 15 , 1999
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , IBTYPE , INFO , JA , JB , LWORK , N
012        REAL SCALE
013        COMPLEX ONEHALF , ONE , MONE
014        REAL RONE
015        PARAMETER( ONEHALF =( 0.5E0 , 0.0E0 ) ,
... click on the current link to display the entire routine ...
File: pchengst.f  NbLines: 426  Child_Routines: 2

001        SUBROUTINE PCHENTRD( UPLO , N , A , IA , JA , DESCA , D , E , TAU , WORK ,
002       $LWORK , RWORK , LRWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     October 15 , 1999
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , INFO , JA , LRWORK , LWORK , N
012        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pchentrd.f  NbLines: 587  Child_Routines: 6

001        SUBROUTINE PCHETD2( UPLO , N , A , IA , JA , DESCA , D , E , TAU , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , INFO , JA , LWORK , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pchetd2.f  NbLines: 471  Child_Routines: 0

001        SUBROUTINE PCHETRD( UPLO , N , A , IA , JA , DESCA , D , E , TAU , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , INFO , JA , LWORK , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pchetrd.f  NbLines: 428  Child_Routines: 2

001        SUBROUTINE PCHETTRD( UPLO , N , A , IA , JA , DESCA , D , E , TAU , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     October 15 , 1999
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , INFO , JA , LWORK , N
012        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pchettrd.f  NbLines: 1204  Child_Routines: 3

001        SUBROUTINE PCLABRD( M , N , NB , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $X , IX , JX , DESCX , Y , IY , JY , DESCY , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IX , IY , JA , JX , JY , M , N , NB
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pclabrd.f  NbLines: 515  Child_Routines: 2

01        SUBROUTINE PCLACGV( N , X , IX , JX , DESCX , INCX )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        INTEGER INCX , IX , JX , N
10        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
11       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15  *     ..
... click on the current link to display the entire routine ...
File: pclacgv.f  NbLines: 188  Child_Routines: 0

001        SUBROUTINE PCLACON( N , V , IV , JV , DESCV , X , IX , JX , DESCX , EST ,
002       $KASE )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IV , IX , JV , JX , KASE , N
011        REAL EST
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclacon.f  NbLines: 384  Child_Routines: 3

001        SUBROUTINE PCLACP2( UPLO , M , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , JA , JB , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclacp2.f  NbLines: 406  Child_Routines: 0

001        SUBROUTINE PCLACP3( M , I , A , DESCA , B , LDB , II , JJ , REV )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     July 31 , 2001
007  
008  *     .. Scalar Arguments ..
009        INTEGER I , II , JJ , LDB , M , REV
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        COMPLEX ZERO
... click on the current link to display the entire routine ...
File: pclacp3.f  NbLines: 312  Child_Routines: 0

001        SUBROUTINE PCLACPY( UPLO , M , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , JA , JB , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclacpy.f  NbLines: 231  Child_Routines: 1

001        SUBROUTINE PCLAEVSWP( N , ZIN , LDZI , Z , IZ , JZ , DESCZ , NVS , KEY ,
002       $RWORK , LRWORK )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IZ , JZ , LDZI , LRWORK , N
011        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
012       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pclaevswp.f  NbLines: 285  Child_Routines: 0

001        SUBROUTINE PCLAHRD( N , K , NB , A , IA , JA , DESCA , TAU , T , Y , IY , JY ,
002       $DESCY , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IY , JA , JY , K , N , NB
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pclahrd.f  NbLines: 290  Child_Routines: 2

01        SUBROUTINE PCLAMR1D( N , A , IA , JA , DESCA , B , IB , JB , DESCB )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     October 15 , 1999
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , IB , JA , JB , N
10        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
11       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15  *     ..
... click on the current link to display the entire routine ...
File: pclamr1d.f  NbLines: 144  Child_Routines: 0

001        REAL FUNCTION PCLANGE( NORM , M , N , A , IA , JA , DESCA ,
002       $WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM
011        INTEGER IA , JA , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclange.f  NbLines: 324  Child_Routines: 0

001        REAL FUNCTION PCLANHE( NORM , UPLO , N , A , IA , JA ,
002       $DESCA , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM , UPLO
011        INTEGER IA , JA , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * )
015        REAL WORK( * )
... click on the current link to display the entire routine ...
File: pclanhe.f  NbLines: 948  Child_Routines: 0

001        REAL FUNCTION PCLANTR( NORM , UPLO , DIAG , M , N , A ,
002       $IA , JA , DESCA , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIAG , NORM , UPLO
011        INTEGER IA , JA , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * )
015        REAL WORK( * )
... click on the current link to display the entire routine ...
File: pclantr.f  NbLines: 1031  Child_Routines: 0

001        SUBROUTINE PCLAPIV( DIREC , ROWCOL , PIVROC , M , N , A , IA , JA ,
002       $DESCA , IPIV , IP , JP , DESCIP , IWORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER*1 DIREC , PIVROC , ROWCOL
011        INTEGER IA , IP , JA , JP , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclapiv.f  NbLines: 356  Child_Routines: 1

001        SUBROUTINE PCLAPV2( DIREC , ROWCOL , M , N , A , IA , JA , DESCA , IPIV ,
002       $IP , JP , DESCIP )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIREC , ROWCOL
011        INTEGER IA , IP , JA , JP , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclapv2.f  NbLines: 413  Child_Routines: 0

001        SUBROUTINE PCLAQGE( M , N , A , IA , JA , DESCA , R , C , ROWCND , COLCND ,
002       $AMAX , EQUED )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER EQUED
011        INTEGER IA , JA , M , N
012        REAL AMAX , COLCND , ROWCND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pclaqge.f  NbLines: 271  Child_Routines: 1

001        SUBROUTINE PCLAQSY( UPLO , N , A , IA , JA , DESCA , SR , SC , SCOND ,
002       $AMAX , EQUED )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER EQUED , UPLO
011        INTEGER IA , JA , N
012        REAL AMAX , SCOND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pclaqsy.f  NbLines: 360  Child_Routines: 1

001        SUBROUTINE PCLARF( SIDE , M , N , V , IV , JV , DESCV , INCV , TAU ,
002       $C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        COMPLEX C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pclarf.f  NbLines: 814  Child_Routines: 0

001        SUBROUTINE PCLARFB( SIDE , TRANS , DIRECT , STOREV , M , N , K , V , IV ,
002       $JV , DESCV , T , C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS , DIRECT , STOREV
011        INTEGER IC , IV , JC , JV , K , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclarfb.f  NbLines: 889  Child_Routines: 0

001        SUBROUTINE PCLARFC( SIDE , M , N , V , IV , JV , DESCV , INCV , TAU ,
002       $C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        COMPLEX C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pclarfc.f  NbLines: 810  Child_Routines: 0

001        SUBROUTINE PCLARFG( N , ALPHA , IAX , JAX , X , IX , JX , DESCX , INCX ,
002       $TAU )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IAX , INCX , IX , JAX , JX , N
011        COMPLEX ALPHA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclarfg.f  NbLines: 290  Child_Routines: 0

001        SUBROUTINE PCLARFT( DIRECT , STOREV , N , K , V , IV , JV , DESCV , TAU ,
002       $T , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , STOREV
011        INTEGER IV , JV , K , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclarft.f  NbLines: 543  Child_Routines: 0

001        SUBROUTINE PCLARZ( SIDE , M , N , L , V , IV , JV , DESCV , INCV , TAU , C ,
002       $IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , L , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        COMPLEX C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pclarz.f  NbLines: 915  Child_Routines: 0

001        SUBROUTINE PCLARZB( SIDE , TRANS , DIRECT , STOREV , M , N , K , L , V ,
002       $IV , JV , DESCV , T , C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     March 14 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , SIDE , STOREV , TRANS
011        INTEGER IC , IV , JC , JV , K , L , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclarzb.f  NbLines: 626  Child_Routines: 0

001        SUBROUTINE PCLARZC( SIDE , M , N , L , V , IV , JV , DESCV , INCV , TAU , C ,
002       $IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , L , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        COMPLEX C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pclarzc.f  NbLines: 917  Child_Routines: 0

001        SUBROUTINE PCLARZT( DIRECT , STOREV , N , K , V , IV , JV , DESCV , TAU ,
002       $T , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , STOREV
011        INTEGER IV , JV , K , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclarzt.f  NbLines: 301  Child_Routines: 0

001        SUBROUTINE PCLASCL( TYPE , CFROM , CTO , M , N , A , IA , JA , DESCA ,
002       $INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TYPE
011        INTEGER IA , INFO , JA , M , N
012        REAL CFROM , CTO
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pclascl.f  NbLines: 512  Child_Routines: 1

001        SUBROUTINE PCLASE2( UPLO , M , N , ALPHA , BETA , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , M , N
011        COMPLEX ALPHA , BETA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclase2.f  NbLines: 411  Child_Routines: 0

001        SUBROUTINE PCLASET( UPLO , M , N , ALPHA , BETA , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , M , N
011        COMPLEX ALPHA , BETA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclaset.f  NbLines: 220  Child_Routines: 1

01        SUBROUTINE PCLASWP( DIREC , ROWCOL , N , A , IA , JA , DESCA , K1 , K2 ,
02       $IPIV )
03  
04  *     -- ScaLAPACK auxiliary routine(version 1.7) --
05  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
06  *     and University of California , Berkeley.
07  *     May 1 , 1997
08  
09  *     .. Scalar Arguments ..
10        CHARACTER DIREC , ROWCOL
11        INTEGER IA , JA , K1 , K2 , N
12        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
13       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
14        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
15       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclaswp.f  NbLines: 208  Child_Routines: 0

001        SUBROUTINE PCLATRD( UPLO , N , NB , A , IA , JA , DESCA , D , E , TAU , W ,
002       $IW , JW , DESCW , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IW , JA , JW , N , NB
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pclatrd.f  NbLines: 435  Child_Routines: 2

01        SUBROUTINE PCLATRS( UPLO , TRANS , DIAG , NORMIN , N , A , IA ,
02       $JA , DESCA , X , IX , JX , DESCX , SCALE , CNORM ,
03       $WORK )
04  
05  *     -- ScaLAPACK auxiliary routine(version 1.7) --
06  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
07  *     and University of California , Berkeley.
08  *     May 1 , 1997
09  
10  *     .. Scalar Arguments ..
11        CHARACTER DIAG , NORMIN , TRANS , UPLO
12        INTEGER IA , IX , JA , JX , N
13        REAL SCALE
14  *     ..
15  *     .. Array Arguments ..
... click on the current link to display the entire routine ...
File: pclatrs.f  NbLines: 87  Child_Routines: 0

01        SUBROUTINE PCLATRZ( M , N , L , A , IA , JA , DESCA , TAU , WORK )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     December 31 , 1998
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , JA , L , M , N
10        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
11       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15        COMPLEX ONE , ZERO
... click on the current link to display the entire routine ...
File: pclatrz.f  NbLines: 255  Child_Routines: 3

001        SUBROUTINE PCLATTRS( UPLO , TRANS , DIAG , NORMIN , N , A , IA , JA ,
002       $DESCA , X , IX , JX , DESCX , SCALE , CNORM , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     July 31 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIAG , NORMIN , TRANS , UPLO
011        INTEGER IA , INFO , IX , JA , JX , N
012        REAL SCALE
013  *     ..
014  *     .. Array Arguments ..
015        INTEGER DESCA( * ) , DESCX( * )
... click on the current link to display the entire routine ...
File: pclattrs.f  NbLines: 1213  Child_Routines: 1

001        SUBROUTINE PCLAUU2( UPLO , N , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pclauu2.f  NbLines: 214  Child_Routines: 0

001        SUBROUTINE PCLAUUM( UPLO , N , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pclauum.f  NbLines: 220  Child_Routines: 1

001        SUBROUTINE PCMAX1( N , AMAX , INDX , X , IX , JX , DESCX , INCX )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 25 , 2001
007  
008  *     .. Scalar Arguments ..
009        INTEGER INDX , INCX , IX , JX , N
010        COMPLEX AMAX
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcmax1.f  NbLines: 359  Child_Routines: 0

001        SUBROUTINE PCPBTRF( UPLO , N , BW , A , JA , DESCA , AF , LAF , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER BW , INFO , JA , LAF , LWORK , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * )
015        COMPLEX A( * ) , AF( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pcpbtrf.f  NbLines: 1510  Child_Routines: 0

001        SUBROUTINE PCPBTRS( UPLO , N , BW , NRHS , A , JA , DESCA , B , IB , DESCB ,
002       $AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     August 7 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER BW , IB , INFO , JA , LAF , LWORK , N , NRHS
012        REAL ONE , ZERO
013        PARAMETER( ONE = 1.0E + 0 )
014        PARAMETER( ZERO = 0.0E + 0 )
015        COMPLEX CONE , CZERO
... click on the current link to display the entire routine ...
File: pcpbtrs.f  NbLines: 753  Child_Routines: 1

001        SUBROUTINE PCPBTRSV( UPLO , TRANS , N , BW , NRHS , A , JA , DESCA , B ,
002       $IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER BW , IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        COMPLEX A( * ) , AF( * ) , B( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pcpbtrsv.f  NbLines: 1565  Child_Routines: 0

001        SUBROUTINE PCPOCON( UPLO , N , A , IA , JA , DESCA , ANORM , RCOND , WORK ,
002       $LWORK , RWORK , LRWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , INFO , JA , LRWORK , LWORK , N
012        REAL ANORM , RCOND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pcpocon.f  NbLines: 413  Child_Routines: 4

001        SUBROUTINE PCPOEQU( N , A , IA , JA , DESCA , SR , SC , SCOND , AMAX ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , N
011        REAL AMAX , SCOND
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcpoequ.f  NbLines: 358  Child_Routines: 1

001        SUBROUTINE PCPORFS( UPLO , N , NRHS , A , IA , JA , DESCA , AF , IAF , JAF ,
002       $DESCAF , B , IB , JB , DESCB , X , IX , JX , DESCX ,
003       $FERR , BERR , WORK , LWORK , RWORK , LRWORK , INFO )
004  
005  *     -- ScaLAPACK routine(version 1.7) --
006  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
007  *     and University of California , Berkeley.
008  *     November 15 , 1997
009  
010  *     .. Scalar Arguments ..
011        CHARACTER UPLO
012        INTEGER IA , IAF , IB , INFO , IX , JA , JAF , JB , JX ,
013       $LRWORK , LWORK , N , NRHS
014        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
015       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
... click on the current link to display the entire routine ...
File: pcporfs.f  NbLines: 870  Child_Routines: 3

001        SUBROUTINE PCPOTF2( UPLO , N , A , IA , JA , DESCA , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , INFO , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcpotf2.f  NbLines: 358  Child_Routines: 0

001        SUBROUTINE PCPOTRF( UPLO , N , A , IA , JA , DESCA , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 25 , 2001
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , INFO , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcpotrf.f  NbLines: 363  Child_Routines: 1

001        SUBROUTINE PCPOTRS( UPLO , N , NRHS , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , INFO , JA , JB , N , NRHS
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcpotrs.f  NbLines: 266  Child_Routines: 0

001        SUBROUTINE PCPTTRF( N , D , E , JA , DESCA , AF , LAF , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * )
014        COMPLEX AF( * ) , E( * ) , WORK( * )
015        REAL D( * )
... click on the current link to display the entire routine ...
File: pcpttrf.f  NbLines: 1039  Child_Routines: 0

001        SUBROUTINE PCPTTRS( UPLO , N , NRHS , D , E , JA , DESCA , B , IB , DESCB ,
002       $AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     August 7 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012        REAL ONE , ZERO
013        PARAMETER( ONE = 1.0E + 0 )
014        PARAMETER( ZERO = 0.0E + 0 )
015        COMPLEX CONE , CZERO
... click on the current link to display the entire routine ...
File: pcpttrs.f  NbLines: 798  Child_Routines: 1

001        SUBROUTINE PCPTTRSV( UPLO , TRANS , N , NRHS , D , E , JA , DESCA , B , IB ,
002       $DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        COMPLEX AF( * ) , B( * ) , E( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pcpttrsv.f  NbLines: 1511  Child_Routines: 1

01        SUBROUTINE PCSRSCL( N , SA , SX , IX , JX , DESCX , INCX )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        INTEGER IX , INCX , JX , N
10        REAL SA
11        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
14       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
15       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcsrscl.f  NbLines: 206  Child_Routines: 2

001        SUBROUTINE PCSTEIN( N , D , E , M , W , IBLOCK , ISPLIT , ORFAC , Z , IZ ,
002       $JZ , DESCZ , WORK , LWORK , IWORK , LIWORK , IFAIL ,
003       $ICLUSTR , GAP , INFO )
004  
005  *     -- ScaLAPACK routine(version 1.7) --
006  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
007  *     and University of California , Berkeley.
008  *     November 15 , 1997
009  
010  *     .. Scalar Arguments ..
011        INTEGER INFO , IZ , JZ , LIWORK , LWORK , M , N
012        REAL ORFAC
013        INTRINSIC ABS , MAX , MIN , MOD , REAL
014  *     ..
015  *     .. External Functions ..
... click on the current link to display the entire routine ...
File: pcstein.f  NbLines: 643  Child_Routines: 3

001        SUBROUTINE PCTRTI2( UPLO , DIAG , N , A , IA , JA , DESCA , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER DIAG , UPLO
010        INTEGER IA , INFO , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pctrti2.f  NbLines: 276  Child_Routines: 0

001        SUBROUTINE PCTRTRI( UPLO , DIAG , N , A , IA , JA , DESCA , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER DIAG , UPLO
010        INTEGER IA , INFO , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pctrtri.f  NbLines: 353  Child_Routines: 1

001        SUBROUTINE PCUNG2L( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcung2l.f  NbLines: 279  Child_Routines: 2

001        SUBROUTINE PCUNG2R( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcung2r.f  NbLines: 282  Child_Routines: 2

001        SUBROUTINE PCUNGL2( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcungl2.f  NbLines: 290  Child_Routines: 3

001        SUBROUTINE PCUNGR2( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pcungr2.f  NbLines: 284  Child_Routines: 3

001        SUBROUTINE PCUNM2L( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunm2l.f  NbLines: 445  Child_Routines: 2

001        SUBROUTINE PCUNM2R( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunm2r.f  NbLines: 449  Child_Routines: 2

001        SUBROUTINE PCUNMBR( VECT , SIDE , TRANS , M , N , K , A , IA , JA , DESCA ,
002       $TAU , C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS , VECT
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmbr.f  NbLines: 591  Child_Routines: 2

001        SUBROUTINE PCUNML2( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunml2.f  NbLines: 402  Child_Routines: 3

001        SUBROUTINE PCUNMLQ( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmlq.f  NbLines: 451  Child_Routines: 3

001        SUBROUTINE PCUNMQL( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmql.f  NbLines: 458  Child_Routines: 3

001        SUBROUTINE PCUNMQR( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmqr.f  NbLines: 450  Child_Routines: 3

001        SUBROUTINE PCUNMR2( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmr2.f  NbLines: 389  Child_Routines: 3

001        SUBROUTINE PCUNMR3( SIDE , TRANS , M , N , K , L , A , IA , JA , DESCA ,
002       $TAU , C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , L , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmr3.f  NbLines: 395  Child_Routines: 2

001        SUBROUTINE PCUNMRQ( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmrq.f  NbLines: 463  Child_Routines: 3

001        SUBROUTINE PCUNMTR( SIDE , UPLO , TRANS , M , N , A , IA , JA , DESCA ,
002       $TAU , C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS , UPLO
011        INTEGER IA , IC , INFO , JA , JC , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pcunmtr.f  NbLines: 437  Child_Routines: 2

001        SUBROUTINE PDDBTRF( N , BWL , BWU , A , JA , DESCA , AF , LAF , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        INTEGER BWL , BWU , INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * )
014        DOUBLE PRECISION A( * ) , AF( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pddbtrf.f  NbLines: 1252  Child_Routines: 0

001        SUBROUTINE PDDBTRS( TRANS , N , BWL , BWU , NRHS , A , JA , DESCA , B , IB ,
002       $DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER BWL , BWU , IB , INFO , JA , LAF , LWORK , N , NRHS
012        INTEGER INT_ONE
013        PARAMETER( INT_ONE = 1 )
014        INTEGER DESCMULT , BIGNUM
015        PARAMETER( DESCMULT = 100 , BIGNUM = DESCMULT*DESCMULT )
... click on the current link to display the entire routine ...
File: pddbtrs.f  NbLines: 747  Child_Routines: 1

001        SUBROUTINE PDDBTRSV( UPLO , TRANS , N , BWL , BWU , NRHS , A , JA , DESCA ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER BWL , BWU , IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        DOUBLE PRECISION A( * ) , AF( * ) , B( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pddbtrsv.f  NbLines: 1550  Child_Routines: 0

001        SUBROUTINE PDDTTRF( N , DL , D , DU , JA , DESCA , AF , LAF , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        INTEGER INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * )
014        DOUBLE PRECISION AF( * ) , D( * ) , DL( * ) , DU( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pddttrf.f  NbLines: 1043  Child_Routines: 0

001        SUBROUTINE PDDTTRS( TRANS , N , NRHS , DL , D , DU , JA , DESCA , B , IB ,
002       $DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012        INTEGER INT_ONE
013        PARAMETER( INT_ONE = 1 )
014        INTEGER DESCMULT , BIGNUM
015        PARAMETER( DESCMULT = 100 , BIGNUM = DESCMULT*DESCMULT )
... click on the current link to display the entire routine ...
File: pddttrs.f  NbLines: 779  Child_Routines: 1

001        SUBROUTINE PDDTTRSV( UPLO , TRANS , N , NRHS , DL , D , DU , JA , DESCA ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS , UPLO
011        INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * ) , DESCB( * )
015        DOUBLE PRECISION AF( * ) , B( * ) , D( * ) , DL( * ) , DU( * ) ,
... click on the current link to display the entire routine ...
File: pddttrsv.f  NbLines: 1490  Child_Routines: 1

001        SUBROUTINE PDGBTRF( N , BWL , BWU , A , JA , DESCA , IPIV , AF , LAF ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        INTEGER BWL , BWU , INFO , JA , LAF , LWORK , N
011  *     ..
012  *     .. Array Arguments ..
013        INTEGER DESCA( * ) , IPIV( * )
014        DOUBLE PRECISION A( * ) , AF( * ) , WORK( * )
015  *     ..
... click on the current link to display the entire routine ...
File: pdgbtrf.f  NbLines: 1101  Child_Routines: 0

001        SUBROUTINE PDGBTRS( TRANS , N , BWL , BWU , NRHS , A , JA , DESCA , IPIV ,
002       $B , IB , DESCB , AF , LAF , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 3 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER BWL , BWU , IB , INFO , JA , LAF , LWORK , N , NRHS
012        DOUBLE PRECISION ONE
013        PARAMETER( ONE = 1.0D + 0 )
014        DOUBLE PRECISION ZERO
015        PARAMETER( ZERO = 0.0D + 0 )
... click on the current link to display the entire routine ...
File: pdgbtrs.f  NbLines: 1173  Child_Routines: 0

001        SUBROUTINE PDGEBD2( M , N , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgebd2.f  NbLines: 444  Child_Routines: 2

001        SUBROUTINE PDGEBRD( M , N , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgebrd.f  NbLines: 412  Child_Routines: 2

001        SUBROUTINE PDGECON( NORM , N , A , IA , JA , DESCA , ANORM , RCOND , WORK ,
002       $LWORK , IWORK , LIWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM
011        INTEGER IA , INFO , JA , LIWORK , LWORK , N
012        DOUBLE PRECISION ANORM , RCOND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pdgecon.f  NbLines: 413  Child_Routines: 4

001        SUBROUTINE PDGEEQU( M , N , A , IA , JA , DESCA , R , C , ROWCND , COLCND ,
002       $AMAX , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , M , N
011        DOUBLE PRECISION AMAX , COLCND , ROWCND
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdgeequ.f  NbLines: 367  Child_Routines: 1

001        SUBROUTINE PDGEHD2( N , ILO , IHI , A , IA , JA , DESCA , TAU , WORK ,
002       $LWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IHI , ILO , INFO , JA , LWORK , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgehd2.f  NbLines: 294  Child_Routines: 2

001        SUBROUTINE PDGELQ2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgelq2.f  NbLines: 271  Child_Routines: 2

001        SUBROUTINE PDGELQF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgelqf.f  NbLines: 312  Child_Routines: 3

001        SUBROUTINE PDGEQL2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgeql2.f  NbLines: 309  Child_Routines: 2

001        SUBROUTINE PDGEQR2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgeqr2.f  NbLines: 308  Child_Routines: 2

001        SUBROUTINE PDGEQRF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgeqrf.f  NbLines: 312  Child_Routines: 3

001        SUBROUTINE PDGERFS( TRANS , N , NRHS , A , IA , JA , DESCA , AF , IAF ,
002       $JAF , DESCAF , IPIV , B , IB , JB , DESCB , X , IX ,
003       $JX , DESCX , FERR , BERR , WORK , LWORK , IWORK ,
004       $LIWORK , INFO )
005  
006  *     -- ScaLAPACK routine(version 1.7) --
007  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
008  *     and University of California , Berkeley.
009  *     November 15 , 1997
010  
011  *     .. Scalar Arguments ..
012        CHARACTER TRANS
013        INTEGER IA , IAF , IB , IX , INFO , JA , JAF , JB , JX ,
014       $LIWORK , LWORK , N , NRHS
015        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
... click on the current link to display the entire routine ...
File: pdgerfs.f  NbLines: 886  Child_Routines: 3

001        SUBROUTINE PDGERQ2( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgerq2.f  NbLines: 269  Child_Routines: 2

001        SUBROUTINE PDGERQF( M , N , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdgerqf.f  NbLines: 309  Child_Routines: 3

001        SUBROUTINE PDGETF2( M , N , A , IA , JA , DESCA , IPIV , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        INTEGER IA , INFO , JA , M , N
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        DOUBLE PRECISION ONE , ZERO
... click on the current link to display the entire routine ...
File: pdgetf2.f  NbLines: 252  Child_Routines: 0

001        SUBROUTINE PDGETRF( M , N , A , IA , JA , DESCA , IPIV , INFO )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 25 , 2001
007  
008  *     .. Scalar Arguments ..
009        INTEGER IA , INFO , JA , M , N
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        DOUBLE PRECISION ONE
... click on the current link to display the entire routine ...
File: pdgetrf.f  NbLines: 311  Child_Routines: 2

001        SUBROUTINE PDGETRS( TRANS , N , NRHS , A , IA , JA , DESCA , IPIV , B ,
002       $IB , JB , DESCB , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TRANS
011        INTEGER IA , IB , INFO , JA , JB , N , NRHS
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdgetrs.f  NbLines: 291  Child_Routines: 1

01        SUBROUTINE PDLABAD( ICTXT , SMALL , LARGE )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        INTEGER ICTXT
10        DOUBLE PRECISION LARGE , SMALL
11        INTEGER IDUMM
12  *     ..
13  *     .. External Subroutines ..
14        EXTERNAL DGAMN2D , DGAMX2D
15  *     ..
... click on the current link to display the entire routine ...
File: pdlabad.f  NbLines: 75  Child_Routines: 0

001        SUBROUTINE PDLABRD( M , N , NB , A , IA , JA , DESCA , D , E , TAUQ , TAUP ,
002       $X , IX , JX , DESCX , Y , IY , JY , DESCY , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IX , IY , JA , JX , JY , M , N , NB
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdlabrd.f  NbLines: 494  Child_Routines: 1

001        SUBROUTINE PDLACON( N , V , IV , JV , DESCV , X , IX , JX , DESCX , ISGN ,
002       $EST , KASE )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IV , IX , JV , JX , KASE , N
011        DOUBLE PRECISION EST
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlacon.f  NbLines: 386  Child_Routines: 0

001        SUBROUTINE PDLACP2( UPLO , M , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , JA , JB , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlacp2.f  NbLines: 406  Child_Routines: 0

001        SUBROUTINE PDLACP3( M , I , A , DESCA , B , LDB , II , JJ , REV )
002  
003  *     -- ScaLAPACK routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 25 , 2001
007  
008  *     .. Scalar Arguments ..
009        INTEGER I , II , JJ , LDB , M , REV
010        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
011       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015        DOUBLE PRECISION ZERO
... click on the current link to display the entire routine ...
File: pdlacp3.f  NbLines: 309  Child_Routines: 0

001        SUBROUTINE PDLACPY( UPLO , M , N , A , IA , JA , DESCA , B , IB , JB ,
002       $DESCB )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IB , JA , JB , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlacpy.f  NbLines: 231  Child_Routines: 1

001        SUBROUTINE PDLAEBZ( IJOB , N , MMAX , MINP , ABSTOL , RELTOL , PIVMIN ,
002       $D , NVAL , INTVL , INTVLCT , MOUT , LSAVE , IEFLAG ,
003       $INFO )
004  
005  *     -- ScaLAPACK routine(version 1.7) --
006  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
007  *     and University of California , Berkeley.
008  *     November 15 , 1997
009  
010  *     .. Scalar Arguments ..
011        INTEGER IEFLAG , IJOB , INFO , MINP , MMAX , MOUT , N
012        DOUBLE PRECISION ABSTOL , LSAVE , PIVMIN , RELTOL
013        INTRINSIC ABS , INT , LOG , MAX , MIN
014  *     ..
015  *     .. External Subroutines ..
... click on the current link to display the entire routine ...
File: pdstebz.f  NbLines: 332  Child_Routines: 2

01        SUBROUTINE PDLAECV( IJOB , KF , KL , INTVL , INTVLCT , NVAL , ABSTOL ,
02       $RELTOL )
03  
04  *     -- ScaLAPACK routine(version 1.7) --
05  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
06  *     and University of California , Berkeley.
07  *     November 15 , 1997
08  
09  *     .. Scalar Arguments ..
10        INTEGER IJOB , KF , KL
11        DOUBLE PRECISION ABSTOL , RELTOL
12        INTRINSIC ABS , MAX
13  *     ..
14  *     .. Local Scalars ..
15        LOGICAL CONDN
... click on the current link to display the entire routine ...
File: pdstebz.f  NbLines: 149  Child_Routines: 0

001        SUBROUTINE PDLAED0( N , D , E , Q , IQ , JQ , DESCQ , WORK , IWORK , INFO )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     December 31 , 1998
007  
008  *     .. Scalar Arguments ..
009        INTEGER INFO , IQ , JQ , N
010        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
011       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
012        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
013       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
014       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
015  *     ..
... click on the current link to display the entire routine ...
File: pdlaed0.f  NbLines: 235  Child_Routines: 1

001        SUBROUTINE PDLAED1( N , N1 , D , ID , Q , IQ , JQ , DESCQ , RHO , WORK ,
002       $IWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     December 31 , 1998
008  
009  *     .. Scalar Arguments ..
010        INTEGER ID , INFO , IQ , JQ , N , N1
011        DOUBLE PRECISION RHO
012        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlaed1.f  NbLines: 272  Child_Routines: 4

001        SUBROUTINE PDLAED2( ICTXT , K , N , N1 , NB , D , DROW , DCOL , Q , LDQ ,
002       $RHO , Z , W , DLAMDA , Q2 , LDQ2 , QBUF , CTOT , PSM ,
003       $NPCOL , INDX , INDXC , INDXP , INDCOL , COLTYP , NN ,
004       $NN1 , NN2 , IB1 , IB2 )
005  
006  *     -- ScaLAPACK auxiliary routine(version 1.7) --
007  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
008  *     and University of California , Berkeley.
009  *     December 31 , 1998
010  
011  *     .. Scalar Arguments ..
012        INTEGER DCOL , DROW , IB1 , IB2 , ICTXT , K , LDQ , LDQ2 , N ,
013       $N1 , NB , NN , NN1 , NN2 , NPCOL
014        DOUBLE PRECISION RHO
015        DOUBLE PRECISION MONE , ZERO , ONE , TWO , EIGHT
... click on the current link to display the entire routine ...
File: pdlaed2.f  NbLines: 455  Child_Routines: 2

001        SUBROUTINE PDLAED3( ICTXT , K , N , NB , D , DROW , DCOL , RHO , DLAMDA ,
002       $W , Z , U , LDU , BUF , INDX , INDCOL , INDROW ,
003       $INDXR , INDXC , CTOT , NPCOL , INFO )
004  
005  *     -- ScaLAPACK auxiliary routine(version 1.7) --
006  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
007  *     and University of California , Berkeley.
008  *     December 31 , 1998
009  
010  *     .. Scalar Arguments ..
011        INTEGER DCOL , DROW , ICTXT , INFO , K , LDU , N , NB , NPCOL
012        DOUBLE PRECISION RHO
013        DOUBLE PRECISION ONE
014        PARAMETER( ONE = 1.0D + 0 )
015  *     ..
... click on the current link to display the entire routine ...
File: pdlaed3.f  NbLines: 360  Child_Routines: 0

01        SUBROUTINE PDLAEDZ( N , N1 , ID , Q , IQ , JQ , LDQ , DESCQ , Z , WORK )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     December 31 , 1998
07  
08  *     .. Scalar Arguments ..
09        INTEGER ID , IQ , JQ , LDQ , N , N1
10  *     ..
11  *     .. Array Arguments ..
12        INTEGER DESCQ( * )
13        DOUBLE PRECISION Q( LDQ , * ) , WORK( * ) , Z( * )
14  *     ..
15  
... click on the current link to display the entire routine ...
File: pdlaedz.f  NbLines: 152  Child_Routines: 0

001        SUBROUTINE PDLAEVSWP( N , ZIN , LDZI , Z , IZ , JZ , DESCZ , NVS , KEY ,
002       $WORK , LWORK )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     April 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IZ , JZ , LDZI , LWORK , N
011        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
012       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdlaevswp.f  NbLines: 284  Child_Routines: 0

001        SUBROUTINE PDLAHRD( N , K , NB , A , IA , JA , DESCA , TAU , T , Y , IY , JY ,
002       $DESCY , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , IY , JA , JY , K , N , NB
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdlahrd.f  NbLines: 287  Child_Routines: 1

01        DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT , CMACH )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        CHARACTER CMACH
10        INTEGER ICTXT
11        INTEGER IDUMM
12        DOUBLE PRECISION TEMP
13  *     ..
14  *     .. External Subroutines ..
15        EXTERNAL DGAMN2D , DGAMX2D
... click on the current link to display the entire routine ...
File: pdlamch.f  NbLines: 82  Child_Routines: 0

01        SUBROUTINE PDLAMR1D( N , A , IA , JA , DESCA , B , IB , JB , DESCB )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     October 15 , 1999
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , IB , JA , JB , N
10        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
11       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15  *     ..
... click on the current link to display the entire routine ...
File: pdlamr1d.f  NbLines: 144  Child_Routines: 0

001        DOUBLE PRECISION FUNCTION PDLANGE( NORM , M , N , A , IA , JA , DESCA ,
002       $WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM
011        INTEGER IA , JA , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlange.f  NbLines: 323  Child_Routines: 0

001        DOUBLE PRECISION FUNCTION PDLANSY( NORM , UPLO , N , A , IA , JA ,
002       $DESCA , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER NORM , UPLO
011        INTEGER IA , JA , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * )
015        DOUBLE PRECISION A( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pdlansy.f  NbLines: 835  Child_Routines: 0

001        DOUBLE PRECISION FUNCTION PDLANTR( NORM , UPLO , DIAG , M , N , A ,
002       $IA , JA , DESCA , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIAG , NORM , UPLO
011        INTEGER IA , JA , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCA( * )
015        DOUBLE PRECISION A( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pdlantr.f  NbLines: 1030  Child_Routines: 0

01        SUBROUTINE PDLAPDCT( SIGMA , N , D , PIVMIN , COUNT )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     November 15 , 1997
07  
08  *     .. Scalar Arguments ..
09        INTEGER COUNT , N
10        DOUBLE PRECISION PIVMIN , SIGMA
11        INTRINSIC ABS
12  *     ..
13  *     .. Parameters ..
14        DOUBLE PRECISION ZERO
15        PARAMETER( ZERO = 0.0D + 0 )
... click on the current link to display the entire routine ...
File: pdstebz.f  NbLines: 95  Child_Routines: 0

001        SUBROUTINE PDLAPIV( DIREC , ROWCOL , PIVROC , M , N , A , IA , JA ,
002       $DESCA , IPIV , IP , JP , DESCIP , IWORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     November 15 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER*1 DIREC , PIVROC , ROWCOL
011        INTEGER IA , IP , JA , JP , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlapiv.f  NbLines: 356  Child_Routines: 1

001        SUBROUTINE PDLAPV2( DIREC , ROWCOL , M , N , A , IA , JA , DESCA , IPIV ,
002       $IP , JP , DESCIP )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIREC , ROWCOL
011        INTEGER IA , IP , JA , JP , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlapv2.f  NbLines: 413  Child_Routines: 0

001        SUBROUTINE PDLAQGE( M , N , A , IA , JA , DESCA , R , C , ROWCND , COLCND ,
002       $AMAX , EQUED )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER EQUED
011        INTEGER IA , JA , M , N
012        DOUBLE PRECISION AMAX , COLCND , ROWCND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pdlaqge.f  NbLines: 270  Child_Routines: 1

001        SUBROUTINE PDLAQSY( UPLO , N , A , IA , JA , DESCA , SR , SC , SCOND ,
002       $AMAX , EQUED )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER EQUED , UPLO
011        INTEGER IA , JA , N
012        DOUBLE PRECISION AMAX , SCOND
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pdlaqsy.f  NbLines: 359  Child_Routines: 1

01        SUBROUTINE PDLARED1D( N , IA , JA , DESC , BYCOL , BYALL , WORK , LWORK )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     December 12 , 2005
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , JA , LWORK , N
10        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
11       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15  *     ..
... click on the current link to display the entire routine ...
File: pdlared1d.f  NbLines: 173  Child_Routines: 0

01        SUBROUTINE PDLARED2D( N , IA , JA , DESC , BYROW , BYALL , WORK , LWORK )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     December 12 , 2005
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , JA , LWORK , N
10        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
11       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15  *     ..
... click on the current link to display the entire routine ...
File: pdlared2d.f  NbLines: 170  Child_Routines: 0

001        SUBROUTINE PDLARF( SIDE , M , N , V , IV , JV , DESCV , INCV , TAU ,
002       $C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        DOUBLE PRECISION C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pdlarf.f  NbLines: 812  Child_Routines: 0

001        SUBROUTINE PDLARFB( SIDE , TRANS , DIRECT , STOREV , M , N , K , V , IV ,
002       $JV , DESCV , T , C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS , DIRECT , STOREV
011        INTEGER IC , IV , JC , JV , K , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlarfb.f  NbLines: 886  Child_Routines: 0

001        SUBROUTINE PDLARFG( N , ALPHA , IAX , JAX , X , IX , JX , DESCX , INCX ,
002       $TAU )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        INTEGER IAX , INCX , IX , JAX , JX , N
011        DOUBLE PRECISION ALPHA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlarfg.f  NbLines: 281  Child_Routines: 0

001        SUBROUTINE PDLARFT( DIRECT , STOREV , N , K , V , IV , JV , DESCV , TAU ,
002       $T , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , STOREV
011        INTEGER IV , JV , K , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlarft.f  NbLines: 538  Child_Routines: 0

001        SUBROUTINE PDLARZ( SIDE , M , N , L , V , IV , JV , DESCV , INCV , TAU , C ,
002       $IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE
011        INTEGER IC , INCV , IV , JC , JV , L , M , N
012  *     ..
013  *     .. Array Arguments ..
014        INTEGER DESCC( * ) , DESCV( * )
015        DOUBLE PRECISION C( * ) , TAU( * ) , V( * ) , WORK( * )
... click on the current link to display the entire routine ...
File: pdlarz.f  NbLines: 914  Child_Routines: 0

001        SUBROUTINE PDLARZB( SIDE , TRANS , DIRECT , STOREV , M , N , K , L , V ,
002       $IV , JV , DESCV , T , C , IC , JC , DESCC , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     March 14 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , SIDE , STOREV , TRANS
011        INTEGER IC , IV , JC , JV , K , L , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlarzb.f  NbLines: 612  Child_Routines: 0

001        SUBROUTINE PDLARZT( DIRECT , STOREV , N , K , V , IV , JV , DESCV , TAU ,
002       $T , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER DIRECT , STOREV
011        INTEGER IV , JV , K , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlarzt.f  NbLines: 299  Child_Routines: 0

001        SUBROUTINE PDLASCL( TYPE , CFROM , CTO , M , N , A , IA , JA , DESCA ,
002       $INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER TYPE
011        INTEGER IA , INFO , JA , M , N
012        DOUBLE PRECISION CFROM , CTO
013        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
... click on the current link to display the entire routine ...
File: pdlascl.f  NbLines: 512  Child_Routines: 1

001        SUBROUTINE PDLASE2( UPLO , M , N , ALPHA , BETA , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , M , N
011        DOUBLE PRECISION ALPHA , BETA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlase2.f  NbLines: 411  Child_Routines: 0

001        SUBROUTINE PDLASET( UPLO , M , N , ALPHA , BETA , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , M , N
011        DOUBLE PRECISION ALPHA , BETA
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlaset.f  NbLines: 220  Child_Routines: 1

001        SUBROUTINE PDLASRT( ID , N , D , Q , IQ , JQ , DESCQ , WORK , LWORK ,
002       $IWORK , LIWORK , INFO )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     February 22 , 2000
008  
009  *     .. Scalar Arguments ..
010        CHARACTER ID
011        INTEGER INFO , IQ , JQ , LIWORK , LWORK , N
012        INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013       $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlasrt.f  NbLines: 254  Child_Routines: 1

01        SUBROUTINE PDLASWP( DIREC , ROWCOL , N , A , IA , JA , DESCA , K1 , K2 ,
02       $IPIV )
03  
04  *     -- ScaLAPACK auxiliary routine(version 1.7) --
05  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
06  *     and University of California , Berkeley.
07  *     May 1 , 1997
08  
09  *     .. Scalar Arguments ..
10        CHARACTER DIREC , ROWCOL
11        INTEGER IA , JA , K1 , K2 , N
12        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
13       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
14        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
15       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlaswp.f  NbLines: 208  Child_Routines: 0

001        SUBROUTINE PDLATRD( UPLO , N , NB , A , IA , JA , DESCA , D , E , TAU , W ,
002       $IW , JW , DESCW , WORK )
003  
004  *     -- ScaLAPACK auxiliary routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER UPLO
011        INTEGER IA , IW , JA , JW , N , NB
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdlatrd.f  NbLines: 415  Child_Routines: 1

01        SUBROUTINE PDLATRS( UPLO , TRANS , DIAG , NORMIN , N , A , IA ,
02       $JA , DESCA , X , IX , JX , DESCX , SCALE , CNORM ,
03       $WORK )
04  
05  *     -- ScaLAPACK auxiliary routine(version 1.7) --
06  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
07  *     and University of California , Berkeley.
08  *     May 1 , 1997
09  
10  *     .. Scalar Arguments ..
11        CHARACTER DIAG , NORMIN , TRANS , UPLO
12        INTEGER IA , IX , JA , JX , N
13        DOUBLE PRECISION SCALE
14  *     ..
15  *     .. Array Arguments ..
... click on the current link to display the entire routine ...
File: pdlatrs.f  NbLines: 87  Child_Routines: 0

01        SUBROUTINE PDLATRZ( M , N , L , A , IA , JA , DESCA , TAU , WORK )
02  
03  *     -- ScaLAPACK routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        INTEGER IA , JA , L , M , N
10        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
11       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
12        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
13       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
14       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
15        DOUBLE PRECISION ONE , ZERO
... click on the current link to display the entire routine ...
File: pdlatrz.f  NbLines: 237  Child_Routines: 2

01        SUBROUTINE PDLAUU2( UPLO , N , A , IA , JA , DESCA )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Scalar Arguments ..
09        CHARACTER UPLO
10        INTEGER IA , JA , N
11        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
14       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
15       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdlauu2.f  NbLines: 205  Child_Routines: 0

001        SUBROUTINE PDLAUUM( UPLO , N , A , IA , JA , DESCA )
002  
003  *     -- ScaLAPACK auxiliary routine(version 1.7) --
004  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
005  *     and University of California , Berkeley.
006  *     May 1 , 1997
007  
008  *     .. Scalar Arguments ..
009        CHARACTER UPLO
010        INTEGER IA , JA , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdlauum.f  NbLines: 215  Child_Routines: 1

001        SUBROUTINE PDORG2L( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdorg2l.f  NbLines: 278  Child_Routines: 2

001        SUBROUTINE PDORG2R( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdorg2r.f  NbLines: 281  Child_Routines: 2

001        SUBROUTINE PDORGL2( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdorgl2.f  NbLines: 287  Child_Routines: 2

001        SUBROUTINE PDORGR2( M , N , K , A , IA , JA , DESCA , TAU , WORK , LWORK ,
002       $INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        INTEGER IA , INFO , JA , K , LWORK , M , N
011        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
012       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
013        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
014       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
015       $RSRC_ = 7 , CSRC_ = 8 , LLD_ = 9 )
... click on the current link to display the entire routine ...
File: pdorgr2.f  NbLines: 281  Child_Routines: 2

001        SUBROUTINE PDORM2L( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdorm2l.f  NbLines: 432  Child_Routines: 1

001        SUBROUTINE PDORM2R( SIDE , TRANS , M , N , K , A , IA , JA , DESCA , TAU ,
002       $C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 25 , 2001
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdorm2r.f  NbLines: 436  Child_Routines: 1

001        SUBROUTINE PDORMBR( VECT , SIDE , TRANS , M , N , K , A , IA , JA , DESCA ,
002       $TAU , C , IC , JC , DESCC , WORK , LWORK , INFO )
003  
004  *     -- ScaLAPACK routine(version 1.7) --
005  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
006  *     and University of California , Berkeley.
007  *     May 1 , 1997
008  
009  *     .. Scalar Arguments ..
010        CHARACTER SIDE , TRANS , VECT
011        INTEGER IA , IC , INFO , JA , JC , K , LWORK , M , N
012        INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013       $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014        PARAMETER( BLOCK_CYCLIC_2D = 1 , DLEN_ = 9 , DTYPE_ = 1 ,
015       $CTXT_ = 2 , M_ = 3 , N_ = 4 , MB_ = 5 , NB_ = 6 ,
... click on the current link to display the entire routine ...
File: pdormbr.f  NbLines: 591  Child_Routines: 2