Home
last modified time | relevance | path

Searched refs:UploC (Results 1 – 16 of 16) sorted by relevance

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/
H A Dpstradd_.c244 char DirAC, TranOp, UploC, ctop, rtop; local
255 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
266 if( ( !upper ) && ( UploC != CLOWER ) )
268 PB_Cwarn( ctxt, __LINE__, "PSTRADD", "Illegal UPLO = %c\n", UploC );
300 PB_Cplapad( PB_Cstypeset(), &UploC, NOCONJG, *M, *N,
305 PB_Cplascal( PB_Cstypeset(), &UploC, NOCONJG, *M, *N,
327 PB_Cptradd( PB_Cstypeset(), &DirAC, &UploC, ( notran ? NOTRAN :
H A Dpdtradd_.c244 char DirAC, TranOp, UploC, ctop, rtop; local
255 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
266 if( ( !upper ) && ( UploC != CLOWER ) )
268 PB_Cwarn( ctxt, __LINE__, "PDTRADD", "Illegal UPLO = %c\n", UploC );
300 PB_Cplapad( PB_Cdtypeset(), &UploC, NOCONJG, *M, *N,
305 PB_Cplascal( PB_Cdtypeset(), &UploC, NOCONJG, *M, *N,
327 PB_Cptradd( PB_Cdtypeset(), &DirAC, &UploC, ( notran ? NOTRAN :
H A Dpztradd_.c244 char DirAC, TranOp, UploC, ctop, rtop; local
255 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
266 if( ( !upper ) && ( UploC != CLOWER ) )
268 PB_Cwarn( ctxt, __LINE__, "PZTRADD", "Illegal UPLO = %c\n", UploC );
301 PB_Cplapad( PB_Cztypeset(), &UploC, NOCONJG, *M, *N,
306 PB_Cplascal( PB_Cztypeset(), &UploC, NOCONJG, *M, *N,
328 PB_Cptradd( PB_Cztypeset(), &DirAC, &UploC, ( notran ? NOTRAN :
H A Dpctradd_.c244 char DirAC, TranOp, UploC, ctop, rtop; local
255 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
266 if( ( !upper ) && ( UploC != CLOWER ) )
268 PB_Cwarn( ctxt, __LINE__, "PCTRADD", "Illegal UPLO = %c\n", UploC );
301 PB_Cplapad( PB_Cctypeset(), &UploC, NOCONJG, *M, *N,
306 PB_Cplascal( PB_Cctypeset(), &UploC, NOCONJG, *M, *N,
328 PB_Cptradd( PB_Cctypeset(), &DirAC, &UploC, ( notran ? NOTRAN :
H A Dpcherk_.c245 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
260 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
271 if( ( !upper ) && ( UploC != CLOWER ) )
273 PB_Cwarn( ctxt, __LINE__, "PCHERK", "Illegal UPLO = %c\n", UploC );
310 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
315 PB_Cplascal( type, &UploC, CONJG, *N, *N, ((char *) BETA),
429 PB_CpsyrkAC( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
488 PB_CpsyrkA( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
H A Dpcsyrk_.c239 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
253 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
264 if( ( !upper ) && ( UploC != CLOWER ) )
266 PB_Cwarn( ctxt, __LINE__, "PCSYRK", "Illegal UPLO = %c\n", UploC );
305 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
310 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
422 PB_CpsyrkAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
481 PB_CpsyrkA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpzsyrk_.c239 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
253 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
264 if( ( !upper ) && ( UploC != CLOWER ) )
266 PB_Cwarn( ctxt, __LINE__, "PZSYRK", "Illegal UPLO = %c\n", UploC );
305 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
310 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
422 PB_CpsyrkAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
481 PB_CpsyrkA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpdsyrk_.c242 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
256 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
267 if( ( !upper ) && ( UploC != CLOWER ) )
269 PB_Cwarn( ctxt, __LINE__, "PDSYRK", "Illegal UPLO = %c\n", UploC );
306 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
311 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
423 PB_CpsyrkAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
482 PB_CpsyrkA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpssyrk_.c242 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
256 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
267 if( ( !upper ) && ( UploC != CLOWER ) )
269 PB_Cwarn( ctxt, __LINE__, "PSSYRK", "Illegal UPLO = %c\n", UploC );
306 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
311 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
423 PB_CpsyrkAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
482 PB_CpsyrkA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpzherk_.c245 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
260 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
271 if( ( !upper ) && ( UploC != CLOWER ) )
273 PB_Cwarn( ctxt, __LINE__, "PZHERK", "Illegal UPLO = %c\n", UploC );
310 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
315 PB_Cplascal( type, &UploC, CONJG, *N, *N, ((char *) BETA),
429 PB_CpsyrkAC( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
488 PB_CpsyrkA( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
H A Dpzsyr2k_.c272 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
286 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
298 if( ( !upper ) && ( UploC != CLOWER ) )
300 PB_Cwarn( ctxt, __LINE__, "PZSYR2K", "Illegal UPLO = %c\n", UploC );
347 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
352 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
473 PB_Cpsyr2kAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ),
533 PB_Cpsyr2kA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpzher2k_.c278 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
292 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
304 if( ( !upper ) && ( UploC != CLOWER ) )
306 PB_Cwarn( ctxt, __LINE__, "PZHER2K", "Illegal UPLO = %c\n", UploC );
353 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
358 PB_Cplascal( type, &UploC, CONJG, *N, *N, ((char *) BETA),
479 PB_Cpsyr2kAC( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
539 PB_Cpsyr2kA( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
H A Dpcsyr2k_.c272 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
286 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
298 if( ( !upper ) && ( UploC != CLOWER ) )
300 PB_Cwarn( ctxt, __LINE__, "PCSYR2K", "Illegal UPLO = %c\n", UploC );
347 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
352 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
473 PB_Cpsyr2kAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ),
533 PB_Cpsyr2kA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpcher2k_.c278 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
292 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
304 if( ( !upper ) && ( UploC != CLOWER ) )
306 PB_Cwarn( ctxt, __LINE__, "PCHER2K", "Illegal UPLO = %c\n", UploC );
353 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
358 PB_Cplascal( type, &UploC, CONJG, *N, *N, ((char *) BETA),
479 PB_Cpsyr2kAC( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
539 PB_Cpsyr2kA( type, &DirA, CONJG, &UploC, ( notran ? NOTRAN : COTRAN ),
H A Dpdsyr2k_.c277 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
291 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
303 if( ( !upper ) && ( UploC != CLOWER ) )
305 PB_Cwarn( ctxt, __LINE__, "PDSYR2K", "Illegal UPLO = %c\n", UploC );
350 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
355 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
476 PB_Cpsyr2kAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ),
536 PB_Cpsyr2kA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,
H A Dpssyr2k_.c277 char DirA, OpC, OpR, TopC, TopR, TranOp, UploC, ctop, ctopsave, local
291 upper = ( ( UploC = Mupcase( F2C_CHAR( UPLO )[0] ) ) == CUPPER );
303 if( ( !upper ) && ( UploC != CLOWER ) )
305 PB_Cwarn( ctxt, __LINE__, "PSSYR2K", "Illegal UPLO = %c\n", UploC );
350 PB_Cplapad( type, &UploC, NOCONJG, *N, *N, type->zero, type->zero,
355 PB_Cplascal( type, &UploC, NOCONJG, *N, *N, ((char *) BETA),
476 PB_Cpsyr2kAC( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ),
536 PB_Cpsyr2kA( type, &DirA, NOCONJG, &UploC, ( notran ? NOTRAN : TRAN ), *N,