/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | pstradd_.c | 244 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 D | pdtradd_.c | 244 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 D | pztradd_.c | 244 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 D | pctradd_.c | 244 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 D | pcherk_.c | 245 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 D | pcsyrk_.c | 239 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 D | pzsyrk_.c | 239 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 D | pdsyrk_.c | 242 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 D | pssyrk_.c | 242 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 D | pzherk_.c | 245 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 D | pzsyr2k_.c | 272 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 D | pzher2k_.c | 278 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 D | pcsyr2k_.c | 272 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 D | pcher2k_.c | 278 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 D | pdsyr2k_.c | 277 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 D | pssyr2k_.c | 277 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,
|