![]() |
![]() |
|
![]() |
| Documentation generated on Friday .09/05/2008. using Universal Report | [ BACK ] HomePage | |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
001 SUBROUTINE PDORML2( 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 |
001 SUBROUTINE PDORMLQ( 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 |
001 SUBROUTINE PDORMQL( 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 |
001 SUBROUTINE PDORMQR( 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 |
001 SUBROUTINE PDORMR2( 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 |
001 SUBROUTINE PDORMR3( 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 |
001 SUBROUTINE PDORMRQ( 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 |
001 SUBROUTINE PDORMTR( 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 |
001 SUBROUTINE PDPBTRF( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER BW , INFO , JA , LAF , LWORK , N 012 * .. 013 * .. Array Arguments .. 014 INTEGER DESCA( * ) 015 DOUBLE PRECISION A( * ) , AF( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pdpbtrf.f NbLines: 1475 Child_Routines: 0 |
001 SUBROUTINE PDPBTRS( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER BW , IB , INFO , JA , LAF , LWORK , N , NRHS 012 INTEGER INT_ONE 013 |
001 SUBROUTINE PDPBTRSV( 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 * April 3 , 2000 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 DOUBLE PRECISION A( * ) , AF( * ) , B( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pdpbtrsv.f NbLines: 1512 Child_Routines: 0 |
001 SUBROUTINE PDPOCON( UPLO , 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 UPLO
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 |
001 SUBROUTINE PDPOEQU( 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 25 , 2001
008
009 * .. Scalar Arguments ..
010 INTEGER IA , INFO , JA , N
011 DOUBLE PRECISION AMAX , SCOND
012 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014 |
001 SUBROUTINE PDPORFS( 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 , IWORK , LIWORK , INFO ) 004 005 * -- ScaLAPACK routine(version 1.7) -- 006 * University of Tennessee , Knoxville , Oak Ridge National Laboratory , 007 * and University of California , Berkeley. 008 * May 1 , 1997 009 010 * .. Scalar Arguments .. 011 CHARACTER UPLO 012 INTEGER IA , IAF , IB , INFO , IX , JA , JAF , JB , JX , 013 $LIWORK , 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: pdporfs.f NbLines: 861 Child_Routines: 3 |
001 SUBROUTINE PDPOTF2( 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 |
001 SUBROUTINE PDPOTRF( 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 |
001 SUBROUTINE PDPOTRS( 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 |
001 SUBROUTINE PDPTTRF( 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 * 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( * ) , E( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: pdpttrf.f NbLines: 1017 Child_Routines: 0 |
001 SUBROUTINE PDPTTRS( N , NRHS , D , E , JA , DESCA , B , IB , DESCB , AF , 002 $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 INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS 011 DOUBLE PRECISION ONE 012 |
001 SUBROUTINE PDPTTRSV( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS 012 * .. 013 * .. Array Arguments .. 014 INTEGER DESCA( * ) , DESCB( * ) 015 DOUBLE PRECISION AF( * ) , B( * ) , D( * ) , E( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pdpttrsv.f NbLines: 1088 Child_Routines: 0 |
01 SUBROUTINE PDRSCL( 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 DOUBLE PRECISION SA
11 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13 |
001 SUBROUTINE PDSTEBZ( ICTXT , RANGE , ORDER , N , VL , VU , IL , IU , 002 $ABSTOL , D , E , M , NSPLIT , W , IBLOCK , ISPLIT , 003 $WORK , LWORK , IWORK , LIWORK , 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 ORDER , RANGE 012 INTEGER ICTXT , IL , INFO , IU , LIWORK , LWORK , M , N , 013 $NSPLIT 014 DOUBLE PRECISION ABSTOL , VL , VU 015 INTRINSIC ABS , DBLE , ICHAR , MAX , MIN , MOD ... click on the current link to display the entire routine ... File: pdstebz.f NbLines: 882 Child_Routines: 4 |
001 SUBROUTINE PDSTEDC( COMPZ , N , D , E , Q , IQ , JQ , DESCQ , WORK , LWORK ,
002 $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 * March 13 , 2000
008
009 * .. Scalar Arguments ..
010 CHARACTER COMPZ
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 |
001 SUBROUTINE PDSTEIN( 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 DOUBLE PRECISION ORFAC 013 INTRINSIC ABS , DBLE , MAX , MIN , MOD 014 * .. 015 * .. External Functions .. ... click on the current link to display the entire routine ... File: pdstein.f NbLines: 643 Child_Routines: 3 |
001 SUBROUTINE PDSYEVX( 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 , IWORK , LIWORK , IFAIL , 004 $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 , LWORK , M , 014 $N , NZ 015 DOUBLE PRECISION ABSTOL , ORFAC , VL , VU ... click on the current link to display the entire routine ... File: pdsyevx.f NbLines: 975 Child_Routines: 9 |
001 SUBROUTINE PDSYGS2( 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 |
001 SUBROUTINE PDSYGST( 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 DOUBLE PRECISION SCALE
013 INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
014 $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
015 |
001 SUBROUTINE PDSYNGST( 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 DOUBLE PRECISION SCALE
013 DOUBLE PRECISION ONEHALF , ONE , MONE
014 |
001 SUBROUTINE PDSYNTRD( 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 25 , 2001
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 |
001 SUBROUTINE PDSYTD2( 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 |
001 SUBROUTINE PDSYTRD( 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 25 , 2001
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 |
001 SUBROUTINE PDSYTTRD( 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 25 , 2001
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 |
001 SUBROUTINE PDTRTI2( 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 |
001 SUBROUTINE PDTRTRI( 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 |
01 SUBROUTINE PDZSUM1( N , ASUM , 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 IX , INCX , JX , N
10 DOUBLE PRECISION ASUM
11 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13 |
001 INTEGER FUNCTION PJLAENV( ICTXT , ISPEC , NAME , OPTS , N1 , 002 $N2 , N3 , N4 ) 003 004 * -- ScaLAPACK test 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*( * ) NAME , OPTS 011 INTEGER ICTXT , ISPEC , N1 , N2 , N3 , N4 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: pjlaenv.f NbLines: 364 Child_Routines: 0 |
01 SUBROUTINE PSCSUM1( N , ASUM , 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 IX , INCX , JX , N
10 REAL ASUM
11 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13 |
001 SUBROUTINE PSDBTRF( 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 * March 12 , 2002 008 009 * .. Scalar Arguments .. 010 INTEGER BWL , BWU , INFO , JA , LAF , LWORK , N 011 * .. 012 * .. Array Arguments .. 013 INTEGER DESCA( * ) 014 REAL A( * ) , AF( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: psdbtrf.f NbLines: 1252 Child_Routines: 0 |
001 SUBROUTINE PSDBTRS( 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 |
001 SUBROUTINE PSDBTRSV( 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 REAL A( * ) , AF( * ) , B( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: psdbtrsv.f NbLines: 1550 Child_Routines: 0 |
001 SUBROUTINE PSDTTRF( 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 REAL AF( * ) , D( * ) , DL( * ) , DU( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: psdttrf.f NbLines: 1043 Child_Routines: 0 |
001 SUBROUTINE PSDTTRS( 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 |
001 SUBROUTINE PSDTTRSV( 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 REAL AF( * ) , B( * ) , D( * ) , DL( * ) , DU( * ) , ... click on the current link to display the entire routine ... File: psdttrsv.f NbLines: 1490 Child_Routines: 1 |
001 SUBROUTINE PSGBTRF( 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 REAL A( * ) , AF( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: psgbtrf.f NbLines: 1101 Child_Routines: 0 |
001 SUBROUTINE PSGBTRS( 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 REAL ONE 013 |
001 SUBROUTINE PSGEBD2( 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 |
001 SUBROUTINE PSGEBRD( 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 |
001 SUBROUTINE PSGECON( 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 REAL ANORM , RCOND
013 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015 |
001 SUBROUTINE PSGEEQU( 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 |
001 SUBROUTINE PSGEHD2( 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 |
001 SUBROUTINE PSGELQ2( 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 |
001 SUBROUTINE PSGELQF( 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 |
001 SUBROUTINE PSGEQL2( 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 |
001 SUBROUTINE PSGEQR2( 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 |
001 SUBROUTINE PSGEQRF( 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 |
001 SUBROUTINE PSGERFS( 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: psgerfs.f NbLines: 886 Child_Routines: 3 |
001 SUBROUTINE PSGERQ2( 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 |
001 SUBROUTINE PSGERQF( 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 |
001 SUBROUTINE PSGETF2( 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 |
001 SUBROUTINE PSGETRF( 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 |
001 SUBROUTINE PSGETRS( 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 |
01 SUBROUTINE PSLABAD( 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 REAL LARGE , SMALL 11 INTEGER IDUMM 12 * .. 13 * .. External Subroutines .. 14 EXTERNAL SGAMN2D , SGAMX2D 15 * .. ... click on the current link to display the entire routine ... File: pslabad.f NbLines: 75 Child_Routines: 0 |
001 SUBROUTINE PSLABRD( 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 |
001 SUBROUTINE PSLACON( 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 REAL EST
012 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014 |
001 SUBROUTINE PSLACP2( 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 |
001 SUBROUTINE PSLACP3( 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 |
001 SUBROUTINE PSLACPY( 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 |
001 SUBROUTINE PSLAEBZ( 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 REAL 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: psstebz.f NbLines: 326 Child_Routines: 2 |
01 SUBROUTINE PSLAECV( 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 REAL ABSTOL , RELTOL 12 INTRINSIC ABS , MAX 13 * .. 14 * .. Local Scalars .. 15 LOGICAL CONDN ... click on the current link to display the entire routine ... File: psstebz.f NbLines: 149 Child_Routines: 0 |
001 SUBROUTINE PSLAED0( 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 |
001 SUBROUTINE PSLAED1( 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 REAL RHO
012 INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
013 $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
014 |
001 SUBROUTINE PSLAED2( 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 REAL RHO 015 REAL MONE , ZERO , ONE , TWO , EIGHT ... click on the current link to display the entire routine ... File: pslaed2.f NbLines: 453 Child_Routines: 2 |
001 SUBROUTINE PSLAED3( 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 REAL RHO
013 REAL ONE
014 |
01 SUBROUTINE PSLAEDZ( 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 REAL Q( LDQ , * ) , WORK( * ) , Z( * ) 14 * .. 15 ... click on the current link to display the entire routine ... File: pslaedz.f NbLines: 153 Child_Routines: 0 |
001 SUBROUTINE PSLAEVSWP( 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 |
001 SUBROUTINE PSLAHRD( 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 * January 30 , 2006
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 |
01 REAL FUNCTION PSLAMCH( 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 REAL TEMP 13 * .. 14 * .. External Subroutines .. 15 EXTERNAL SGAMN2D , SGAMX2D ... click on the current link to display the entire routine ... File: pslamch.f NbLines: 82 Child_Routines: 0 |
01 SUBROUTINE PSLAMR1D( 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 |
001 REAL FUNCTION PSLANGE( 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: pslange.f NbLines: 323 Child_Routines: 0 |
001 REAL FUNCTION PSLANSY( 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 A( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pslansy.f NbLines: 834 Child_Routines: 0 |
001 REAL FUNCTION PSLANTR( 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 A( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pslantr.f NbLines: 1030 Child_Routines: 0 |
01 SUBROUTINE PSLAPDCT( 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 REAL PIVMIN , SIGMA
11 INTRINSIC ABS
12 * ..
13 * .. Parameters ..
14 REAL ZERO
15 |
001 SUBROUTINE PSLAPIV( 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 |
001 SUBROUTINE PSLAPV2( 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 |
001 SUBROUTINE PSLAQGE( 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 |
001 SUBROUTINE PSLAQSY( 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 |
01 SUBROUTINE PSLARED1D( 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 |
01 SUBROUTINE PSLARED2D( 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 |
001 SUBROUTINE PSLARF( 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 REAL C( * ) , TAU( * ) , V( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pslarf.f NbLines: 812 Child_Routines: 0 |
001 SUBROUTINE PSLARFB( 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 |
001 SUBROUTINE PSLARFG( 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 REAL ALPHA
012 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014 |
001 SUBROUTINE PSLARFT( 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 |
001 SUBROUTINE PSLARZ( 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 REAL C( * ) , TAU( * ) , V( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pslarz.f NbLines: 914 Child_Routines: 0 |
001 SUBROUTINE PSLARZB( 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 |
001 SUBROUTINE PSLARZT( 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 |
001 SUBROUTINE PSLASCL( 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 |
001 SUBROUTINE PSLASE2( 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 REAL ALPHA , BETA
012 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014 |
001 SUBROUTINE PSLASET( 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 REAL ALPHA , BETA
012 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
013 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
014 |
001 SUBROUTINE PSLASRT( 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 |
01 SUBROUTINE PSLASWP( 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 |
001 SUBROUTINE PSLATRD( 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 |
01 SUBROUTINE PSLATRS( 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: pslatrs.f NbLines: 87 Child_Routines: 0 |
01 SUBROUTINE PSLATRZ( 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 |
01 SUBROUTINE PSLAUU2( 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 |
001 SUBROUTINE PSLAUUM( 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 |
001 SUBROUTINE PSORG2L( 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 |
001 SUBROUTINE PSORG2R( 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 |
001 SUBROUTINE PSORGL2( 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 |
001 SUBROUTINE PSORGR2( 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 |
001 SUBROUTINE PSORM2L( 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 |
001 SUBROUTINE PSORM2R( 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 |
001 SUBROUTINE PSORMBR( 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 |
001 SUBROUTINE PSORML2( 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 |
001 SUBROUTINE PSORMLQ( 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 |
001 SUBROUTINE PSORMQL( 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 |
001 SUBROUTINE PSORMQR( 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 |
001 SUBROUTINE PSORMR2( 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 |
001 SUBROUTINE PSORMR3( 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 |
001 SUBROUTINE PSORMRQ( 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 |
001 SUBROUTINE PSORMTR( 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 |
001 SUBROUTINE PSPBTRF( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER BW , INFO , JA , LAF , LWORK , N 012 * .. 013 * .. Array Arguments .. 014 INTEGER DESCA( * ) 015 REAL A( * ) , AF( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pspbtrf.f NbLines: 1475 Child_Routines: 0 |
001 SUBROUTINE PSPBTRS( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER BW , IB , INFO , JA , LAF , LWORK , N , NRHS 012 INTEGER INT_ONE 013 |
001 SUBROUTINE PSPBTRSV( 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 * April 3 , 2000 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 REAL A( * ) , AF( * ) , B( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pspbtrsv.f NbLines: 1511 Child_Routines: 0 |
001 SUBROUTINE PSPOCON( UPLO , 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 UPLO
011 INTEGER IA , INFO , JA , LIWORK , LWORK , N
012 REAL ANORM , RCOND
013 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015 |
001 SUBROUTINE PSPOEQU( 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 |
001 SUBROUTINE PSPORFS( 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 , IWORK , LIWORK , INFO ) 004 005 * -- ScaLAPACK routine(version 1.7) -- 006 * University of Tennessee , Knoxville , Oak Ridge National Laboratory , 007 * and University of California , Berkeley. 008 * May 1 , 1997 009 010 * .. Scalar Arguments .. 011 CHARACTER UPLO 012 INTEGER IA , IAF , IB , INFO , IX , JA , JAF , JB , JX , 013 $LIWORK , 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: psporfs.f NbLines: 861 Child_Routines: 3 |
001 SUBROUTINE PSPOTF2( 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 |
001 SUBROUTINE PSPOTRF( 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 |
001 SUBROUTINE PSPOTRS( 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 |
001 SUBROUTINE PSPTTRF( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 INTEGER INFO , JA , LAF , LWORK , N 011 * .. 012 * .. Array Arguments .. 013 INTEGER DESCA( * ) 014 REAL AF( * ) , D( * ) , E( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: pspttrf.f NbLines: 1017 Child_Routines: 0 |
001 SUBROUTINE PSPTTRS( N , NRHS , D , E , JA , DESCA , B , IB , DESCB , AF , 002 $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 INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS 011 REAL ONE 012 |
001 SUBROUTINE PSPTTRSV( 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 * April 3 , 2000 008 009 * .. Scalar Arguments .. 010 CHARACTER UPLO 011 INTEGER IB , INFO , JA , LAF , LWORK , N , NRHS 012 * .. 013 * .. Array Arguments .. 014 INTEGER DESCA( * ) , DESCB( * ) 015 REAL AF( * ) , B( * ) , D( * ) , E( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pspttrsv.f NbLines: 1088 Child_Routines: 0 |
01 SUBROUTINE PSRSCL( 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 |
001 SUBROUTINE PSSTEBZ( ICTXT , RANGE , ORDER , N , VL , VU , IL , IU , 002 $ABSTOL , D , E , M , NSPLIT , W , IBLOCK , ISPLIT , 003 $WORK , LWORK , IWORK , LIWORK , 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 ORDER , RANGE 012 INTEGER ICTXT , IL , INFO , IU , LIWORK , LWORK , M , N , 013 $NSPLIT 014 REAL ABSTOL , VL , VU 015 INTRINSIC ABS , ICHAR , MAX , MIN , MOD , REAL ... click on the current link to display the entire routine ... File: psstebz.f NbLines: 872 Child_Routines: 4 |
001 SUBROUTINE PSSTEDC( COMPZ , N , D , E , Q , IQ , JQ , DESCQ , WORK , LWORK ,
002 $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 * March 13 , 2000
008
009 * .. Scalar Arguments ..
010 CHARACTER COMPZ
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 |
001 SUBROUTINE PSSTEIN( 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: psstein.f NbLines: 643 Child_Routines: 3 |
001 SUBROUTINE PSSYEVX( 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 , IWORK , LIWORK , IFAIL , 004 $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 , LWORK , M , 014 $N , NZ 015 REAL ABSTOL , ORFAC , VL , VU ... click on the current link to display the entire routine ... File: pssyevx.f NbLines: 976 Child_Routines: 9 |
001 SUBROUTINE PSSYGS2( 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 |
001 SUBROUTINE PSSYGST( 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 |
001 SUBROUTINE PSSYNGST( 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 REAL ONEHALF , ONE , MONE
014 |
001 SUBROUTINE PSSYNTRD( 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 25 , 2001
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 |
001 SUBROUTINE PSSYTD2( 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 |
001 SUBROUTINE PSSYTRD( 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 25 , 2001
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 |
001 SUBROUTINE PSSYTTRD( 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 |
001 SUBROUTINE PSTRTI2( 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 |
001 SUBROUTINE PSTRTRI( 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 |
001 SUBROUTINE PZDBTRF( 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*16 A( * ) , AF( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: pzdbtrf.f NbLines: 1268 Child_Routines: 0 |
001 SUBROUTINE PZDBTRS( 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 DOUBLE PRECISION ONE , ZERO 013 |
001 SUBROUTINE PZDBTRSV( 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*16 A( * ) , AF( * ) , B( * ) , WORK( * ) ... click on the current link to display the entire routine ... File: pzdbtrsv.f NbLines: 1599 Child_Routines: 0 |
01 SUBROUTINE PZDRSCL( 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 DOUBLE PRECISION SA
11 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
12 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
13 |
001 SUBROUTINE PZDTTRF( 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*16 AF( * ) , D( * ) , DL( * ) , DU( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: pzdttrf.f NbLines: 1074 Child_Routines: 0 |
001 SUBROUTINE PZDTTRS( 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 DOUBLE PRECISION ONE , ZERO 013 |
001 SUBROUTINE PZDTTRSV( 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*16 AF( * ) , B( * ) , D( * ) , DL( * ) , DU( * ) , ... click on the current link to display the entire routine ... File: pzdttrsv.f NbLines: 1530 Child_Routines: 1 |
001 SUBROUTINE PZGBTRF( 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*16 A( * ) , AF( * ) , WORK( * ) 015 * .. ... click on the current link to display the entire routine ... File: pzgbtrf.f NbLines: 1110 Child_Routines: 0 |
001 SUBROUTINE PZGBTRS( 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 DOUBLE PRECISION ONE , ZERO 013 |
001 SUBROUTINE PZGEBD2( 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 |
001 SUBROUTINE PZGEBRD( 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 |
001 SUBROUTINE PZGECON( 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 DOUBLE PRECISION ANORM , RCOND
013 INTEGER BLOCK_CYCLIC_2D , CSRC_ , CTXT_ , DLEN_ , DTYPE_ ,
014 $LLD_ , MB_ , M_ , NB_ , N_ , RSRC_
015 |
001 SUBROUTINE PZGEEQU( 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 |
001 SUBROUTINE PZGEHD2( 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 |
001 SUBROUTINE PZGELQ2( 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 |
001 SUBROUTINE PZGELQF( 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 |
001 SUBROUTINE PZGEQL2( 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 |
001 SUBROUTINE PZGEQR2( 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 |
001 SUBROUTINE PZGEQRF( 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 |
001 SUBROUTINE PZGERFS( 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: pzgerfs.f NbLines: 895 Child_Routines: 3 |
001 SUBROUTINE PZGERQ2( 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 |
001 SUBROUTINE PZGERQF( 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 |
001 SUBROUTINE PZGETF2( 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 |
001 SUBROUTINE PZGETRF( 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 |
001 SUBROUTINE PZGETRS( 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 |
001 SUBROUTINE PZHEEVX( 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 DOUBLE PRECISION ABSTOL , ORFAC , VL , VU ... click on the current link to display the entire routine ... File: pzheevx.f NbLines: 1001 Child_Routines: 9 |
001 SUBROUTINE PZHEGS2( 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 |
001 SUBROUTINE PZHEGST( 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 DOUBLE PRECISION SCALE
013 INTEGER BLOCK_CYCLIC_2D , DLEN_ , DTYPE_ , CTXT_ , M_ , N_ ,
014 $MB_ , NB_ , RSRC_ , CSRC_ , LLD_
015 |
001 SUBROUTINE PZHENGST( 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 DOUBLE PRECISION SCALE
013 COMPLEX*16 ONEHALF , ONE , MONE
014 DOUBLE PRECISION RONE
015 |
001 SUBROUTINE PZHENTRD( 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 |
001 SUBROUTINE PZHETD2( 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 |
001 SUBROUTINE PZHETRD( 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 |
001 SUBROUTINE PZHETTRD( 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 |
001 SUBROUTINE PZLABRD( M , N , NB , A , IA , JA , DESCA , D , E , TAUQ , TAUP , 002 $X , IX , JX , DESCX , Y , IY , JY , DESCY , WORK ) 003 |


