pbctr2af()

subroutine pbctr2af	(	integer	icontxt,
		character*1	adist,
		integer	m,
		integer	n,
		integer	nb,
		complex, dimension( lda, * )	a,
		integer	lda,
		complex	beta,
		complex, dimension( ldb, * )	b,
		integer	ldb,
		integer	lcmp,
		integer	lcmq,
		integer	nint
	)

Definition at line 791 of file pbctran.f.

*
*  -- PB-BLAS routine (version 2.1) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
*     April 28, 1996
*
*     .. Scalar Arguments ..
      CHARACTER*1          ADIST
      INTEGER              ICONTXT, M, N, NB, LDA, LDB, LCMP, LCMQ, NINT
      COMPLEX              BETA
*     ..
*     .. Array Arguments ..
      COMPLEX              A( LDA, * ), B( LDB, * )
*     ..
*
*  Purpose
*  =======
*
*  PBCTR2AF forms  T <== A + BETA*T, where T is a scattered block
*  row (or column) copied from a (condensed) block column (or row) of A
*
*  =====================================================================
*
*     .. Parameters ..
      COMPLEX            ONE
      parameter( one = ( 1.0e+0, 0.0e+0 ) )
*     ..
*     .. Local Scalars ..
      INTEGER            JA, JB, K, INTV
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      INTEGER            ICEIL
      EXTERNAL           lsame, iceil
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          min
*     ..
*     .. Executable Statements ..
*
      IF( lsame( adist, 'R' ) ) THEN
         intv = nb * lcmq
         ja = 1
         jb = 1
         DO 10 k = 1, iceil( nint, nb )
            CALL pbcmatadd( icontxt, 'G', m, min( n-jb+1, nb ), one,
     $                      a(1,ja), lda, beta, b(1,jb), ldb )
            ja = ja + nb
            jb = jb + intv
   10    CONTINUE
*
*     if( LSAME( ADIST, 'C' ) ) then
*
      ELSE
         intv = nb * lcmp
         ja = 1
         jb = 1
         DO 20 k = 1, iceil( nint, nb )
            CALL pbcmatadd( icontxt, 'G', min( m-jb+1, nb ), n, one,
     $                      a(ja,1), lda, beta, b(jb,1), ldb )
            ja = ja + nb
            jb = jb + intv
   20    CONTINUE
      END IF
*
      RETURN
*
*     End of PBCTR2AF
*

Here is the call graph for this function:

Here is the caller graph for this function: