pbstr2bt()

subroutine pbstr2bt	(	integer	icontxt,
		character*1	adist,
		character*1	trans,
		integer	m,
		integer	n,
		integer	nb,
		real, dimension( lda, * )	a,
		integer	lda,
		real	beta,
		real, dimension( ldb, * )	b,
		integer	ldb,
		integer	intv
	)

Definition at line 703 of file pbstran.f.

*
*  -- PB-BLAS routine (version 2.1) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
*     April 28, 1996
*
*     .. Scalar Arguments ..
      CHARACTER*1        ADIST, TRANS
      INTEGER            ICONTXT, INTV, LDA, LDB, M, N, NB
      REAL               BETA
*     ..
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * )
*     ..
*
*  Purpose
*  =======
*
*  PBSTR2BT forms T <== A^T + beta*T or A^C + beta*T, where T is a
*  ((conjugate) transposed) condensed block row (or column), copied from
*  a scattered block column (or row) of A
*
*  =====================================================================
*
*     .. Parameters ..
      REAL               ONE
      parameter( one = 1.0e+0 )
*     ..
*     .. Local Scalars ..
      INTEGER            IA, IB, K
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      INTEGER            ICEIL
      EXTERNAL           lsame, iceil
*     ..
*     .. External Subroutines ..
      EXTERNAL           pbsmatadd
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          min
*     ..
*     .. Excutable Statements ..
*
      IF( intv.EQ.nb ) THEN
         CALL pbsmatadd( icontxt, trans, n, m, one, a, lda, beta, b,
     $                   ldb )
*
      ELSE
*
*        If A is a column block ( ADIST = 'C' ),
*
         IF( lsame( adist, 'C' ) ) THEN
            ia = 1
            ib = 1
            DO 10 k = 1, iceil( m, intv )
               CALL pbsmatadd( icontxt, trans, n, min( m-ia+1, nb ),
     $                         one, a(ia,1), lda, beta, b(1,ib), ldb )
               ia = ia + intv
               ib = ib + nb
   10       CONTINUE
*
*        If A is a row block (ADIST = 'R'),
*
         ELSE
            ia = 1
            ib = 1
            DO 20 k = 1, iceil( n, intv )
               CALL pbsmatadd( icontxt, trans, min( n-ia+1, nb ), m,
     $                         one, a(1,ia), lda, beta, b(ib,1), ldb )
               ia = ia + intv
               ib = ib + nb
   20       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of PBSTR2BT
*

Here is the call graph for this function:

Here is the caller graph for this function: