14 #include "../PBpblas.h"
15 #include "../PBtools.h"
16 #include "../PBblacs.h"
17 #include "../PBblas.h"
21 char * DIAG,
int M,
int N,
int K,
int IOFFD,
22 char * ALPHA,
char * A,
int LDA,
char * B,
int LDB,
25 void PB_Ctztrmm(
TYPE, SIDE, UPLO, TRANS, DIAG, M, N, K, IOFFD, ALPHA,
26 A, LDA, B, LDB, C, LDC )
30 char * SIDE, * UPLO, * TRANS, * DIAG;
31 int IOFFD, K, LDA, LDB, LDC, M, N;
208 if( ( M <= 0 ) || ( N <= 0 ) )
return;
220 ALPHA, Aptr, &M, B, &LDB,
TYPE->one, C, &LDC );
225 ALPHA, B, &LDB, Aptr, &M,
TYPE->one, C, &LDC );
233 ALPHA, B, &LDB, Aptr, &M,
TYPE->one, C, &LDC );
238 ALPHA, Aptr, &M, B, &LDB,
TYPE->one, C, &LDC );
241 if( Aptr ) free( Aptr );
250 ALPHA, A, &LDA, B, &LDB,
TYPE->one, C, &LDC );
255 ALPHA, B, &LDB, A, &LDA,
TYPE->one, C, &LDC );
263 ALPHA, B, &LDB, A, &LDA,
TYPE->one, C, &LDC );
268 ALPHA, A, &LDA, B, &LDB,
TYPE->one, C, &LDC );