SRC/PTOOLS/PB_Cptradd.c

235    char           * Aptr = NULL;  local
272                             COLUMN, &Aptr, DBUFA, &Afr );
276                PB_Cplascal( TYPE, ALL, NOCONJG, ktmp, kbb, ALPHA, Aptr, 0, 0,
283                               Aptr, k+1, 0, DBUFA );
287                PB_CScatterV( TYPE, &Dir, ktmp, kbb, Aptr, 0, 0, DBUFA, COLUMN,
290                if( Afr ) free( Aptr );
302                             DESCA, ROW, &Aptr, DBUFA, &Afr );
306                PB_Cplascal( TYPE, ALL, NOCONJG, kbb, ktmp, ALPHA, Aptr, 0, 0,
313                               Aptr, 1, 0, DBUFA );
317                PB_CScatterV( TYPE, &Dir, kbb, ktmp, Aptr, 0, 0, DBUFA, ROW,
320                if( Afr ) free( Aptr );
335                             DESCA, COLUMN, &Aptr, DBUFA, &Afr );
339                PB_Cplascal( TYPE, ALL, NOCONJG, ktmp, kbb, ALPHA, Aptr, 0, 0,
346                               Aptr, 0, 1, DBUFA );
350                PB_CScatterV( TYPE, &Dir, ktmp, kbb, Aptr, 0, 0, DBUFA, COLUMN,
353                if( Afr ) free( Aptr );
365                             DESCA, ROW, &Aptr, DBUFA, &Afr );
369                PB_Cplascal( TYPE, ALL, NOCONJG, kbb, ktmp, ALPHA, Aptr, 0, 0,
376                               Aptr, 0, k+1, DBUFA );
380                PB_CScatterV( TYPE, &Dir, kbb, ktmp, Aptr, 0, 0, DBUFA, ROW,
383                if( Afr ) free( Aptr );
403                             ROW, &Aptr, DBUFA, &Afr );
408                   PB_Cplacnjg( TYPE, kbb, ktmp, ALPHA, Aptr, 0, 0, DBUFA );
410                   PB_Cplascal( TYPE, ALL, NOCONJG, kbb, ktmp, ALPHA, Aptr,
417                               Aptr, 0, k+1, DBUFA );
421                PB_CScatterV( TYPE, &Dir, kbb, ktmp, Aptr, 0, 0, DBUFA, ROW,
424                if( Afr ) free( Aptr );
436                             DESCA, COLUMN, &Aptr, DBUFA, &Afr );
441                   PB_Cplacnjg( TYPE, ktmp, kbb, ALPHA, Aptr, 0, 0, DBUFA );
443                   PB_Cplascal( TYPE, ALL, NOCONJG, ktmp, kbb, ALPHA, Aptr,
450                               Aptr, 0, 1, DBUFA );
454                PB_CScatterV( TYPE, &Dir, ktmp, kbb, Aptr, 0, 0, DBUFA, COLUMN,
457                if( Afr ) free( Aptr );
472                             DESCA, ROW, &Aptr, DBUFA, &Afr );
477                   PB_Cplacnjg( TYPE, kbb, ktmp, ALPHA, Aptr, 0, 0, DBUFA );
479                   PB_Cplascal( TYPE, ALL, NOCONJG, kbb, ktmp, ALPHA, Aptr,
486                               Aptr, 1, 0, DBUFA );
490                PB_CScatterV( TYPE, &Dir, kbb, ktmp, Aptr, 0, 0, DBUFA, ROW,
493                if( Afr ) free( Aptr );
505                             DESCA, COLUMN, &Aptr, DBUFA, &Afr );
510                   PB_Cplacnjg( TYPE, ktmp, kbb, ALPHA, Aptr, 0, 0, DBUFA );
512                   PB_Cplascal( TYPE, ALL, NOCONJG, ktmp, kbb, ALPHA, Aptr,
519                               Aptr, k+1, 0, DBUFA );
523                PB_CScatterV( TYPE, &Dir, ktmp, kbb, Aptr, 0, 0, DBUFA, COLUMN,
526                if( Afr ) free( Aptr );