disabled SYMM3M and HEMM3M functions because segment violations
This commit is contained in:
wernsaar
parent
f0f9b25bb6
commit
d49fd33885
|
|
@ -75,9 +75,7 @@
|
||||||
);
|
);
|
||||||
|
|
||||||
@gemm3mobjs = (
|
@gemm3mobjs = (
|
||||||
cgemm3m,zgemm3m,
|
cgemm3m,zgemm3m
|
||||||
chemm3m,zhemm3m,
|
|
||||||
csymm3m,zsymm3m
|
|
||||||
);
|
);
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -128,9 +128,11 @@ ZBLAS3OBJS = \
|
||||||
|
|
||||||
ifeq ($(SUPPORT_GEMM3M), 1)
|
ifeq ($(SUPPORT_GEMM3M), 1)
|
||||||
|
|
||||||
CBLAS3OBJS += cgemm3m.$(SUFFIX) csymm3m.$(SUFFIX) chemm3m.$(SUFFIX)
|
# CBLAS3OBJS += cgemm3m.$(SUFFIX) csymm3m.$(SUFFIX) chemm3m.$(SUFFIX)
|
||||||
|
CBLAS3OBJS += cgemm3m.$(SUFFIX)
|
||||||
|
|
||||||
ZBLAS3OBJS += zgemm3m.$(SUFFIX) zsymm3m.$(SUFFIX) zhemm3m.$(SUFFIX)
|
# ZBLAS3OBJS += zgemm3m.$(SUFFIX) zsymm3m.$(SUFFIX) zhemm3m.$(SUFFIX)
|
||||||
|
ZBLAS3OBJS += zgemm3m.$(SUFFIX)
|
||||||
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -13,8 +13,8 @@ F LOGICAL FLAG, T TO TEST ERROR EXITS.
|
||||||
3 NUMBER OF VALUES OF BETA
|
3 NUMBER OF VALUES OF BETA
|
||||||
(0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
(0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
||||||
CGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
CGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
CHEMM3M F PUT F FOR NO TEST. SAME COLUMNS.
|
CHEMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
CSYMM3M F PUT F FOR NO TEST. SAME COLUMNS.
|
CSYMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
CTRMM F PUT F FOR NO TEST. SAME COLUMNS.
|
CTRMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
CTRSM F PUT F FOR NO TEST. SAME COLUMNS.
|
CTRSM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
CHERK F PUT F FOR NO TEST. SAME COLUMNS.
|
CHERK F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
|
|
|
||||||
106
test/cblat3_3m.f
106
test/cblat3_3m.f
|
|
@ -22,8 +22,8 @@
|
||||||
* 3 NUMBER OF VALUES OF BETA
|
* 3 NUMBER OF VALUES OF BETA
|
||||||
* (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
* (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
||||||
* CGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* CGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* CHEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* CHEMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* CSYMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* CSYMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* CTRMM T PUT F FOR NO TEST. SAME COLUMNS.
|
* CTRMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* CTRSM T PUT F FOR NO TEST. SAME COLUMNS.
|
* CTRSM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* CHERK T PUT F FOR NO TEST. SAME COLUMNS.
|
* CHERK T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
|
|
@ -94,7 +94,7 @@
|
||||||
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
||||||
COMMON /SRNAMC/SRNAMT
|
COMMON /SRNAMC/SRNAMT
|
||||||
* .. Data statements ..
|
* .. Data statements ..
|
||||||
DATA SNAMES/'CGEMM3M ', 'CHEMM3M ', 'CSYMM3M ',
|
DATA SNAMES/'CGEMM3M ', 'CHEMM ', 'CSYMM ',
|
||||||
$ 'CTRMM ',
|
$ 'CTRMM ',
|
||||||
$ 'CTRSM ', 'CHERK ', 'CSYRK ', 'CHER2K',
|
$ 'CTRSM ', 'CHERK ', 'CSYRK ', 'CHER2K',
|
||||||
$ 'CSYR2K'/
|
$ 'CSYR2K'/
|
||||||
|
|
@ -289,7 +289,7 @@
|
||||||
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
||||||
$ CC, CS, CT, G )
|
$ CC, CS, CT, G )
|
||||||
GO TO 190
|
GO TO 190
|
||||||
* Test CHEMM3M, 02, CSYMM3M, 03.
|
* Test CHEMM, 02, CSYMM, 03.
|
||||||
150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
|
150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
|
||||||
$ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
|
$ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
|
||||||
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
||||||
|
|
@ -653,7 +653,7 @@
|
||||||
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
|
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
|
||||||
$ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
|
$ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
|
||||||
*
|
*
|
||||||
* Tests CHEMM3M and CSYMM3M.
|
* Tests CHEMM and CSYMM.
|
||||||
*
|
*
|
||||||
* Auxiliary routine for test program for Level 3 Blas.
|
* Auxiliary routine for test program for Level 3 Blas.
|
||||||
*
|
*
|
||||||
|
|
@ -696,7 +696,7 @@
|
||||||
LOGICAL LCE, LCERES
|
LOGICAL LCE, LCERES
|
||||||
EXTERNAL LCE, LCERES
|
EXTERNAL LCE, LCERES
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL CHEMM3M, CMAKE, CMMCH, CSYMM3M
|
EXTERNAL CHEMM, CMAKE, CMMCH, CSYMM
|
||||||
* .. Intrinsic Functions ..
|
* .. Intrinsic Functions ..
|
||||||
INTRINSIC MAX
|
INTRINSIC MAX
|
||||||
* .. Scalars in Common ..
|
* .. Scalars in Common ..
|
||||||
|
|
@ -811,10 +811,10 @@
|
||||||
IF( REWI )
|
IF( REWI )
|
||||||
$ REWIND NTRA
|
$ REWIND NTRA
|
||||||
IF( CONJ )THEN
|
IF( CONJ )THEN
|
||||||
CALL CHEMM3M( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
||||||
$ BB, LDB, BETA, CC, LDC )
|
$ BB, LDB, BETA, CC, LDC )
|
||||||
ELSE
|
ELSE
|
||||||
CALL CSYMM3M( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
||||||
$ BB, LDB, BETA, CC, LDC )
|
$ BB, LDB, BETA, CC, LDC )
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
|
|
@ -1971,7 +1971,7 @@
|
||||||
* .. Local Arrays ..
|
* .. Local Arrays ..
|
||||||
COMPLEX A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
|
COMPLEX A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL CGEMM3M, CHEMM3M, CHER2K, CHERK, CHKXER, CSYMM3M,
|
EXTERNAL CGEMM3M, CHEMM, CHER2K, CHERK, CHKXER, CSYMM,
|
||||||
$ CSYR2K, CSYRK, CTRMM, CTRSM
|
$ CSYR2K, CSYRK, CTRMM, CTRSM
|
||||||
* .. Common blocks ..
|
* .. Common blocks ..
|
||||||
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
||||||
|
|
@ -2166,137 +2166,137 @@
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
20 INFOT = 1
|
20 INFOT = 1
|
||||||
CALL CHEMM3M( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 2
|
INFOT = 2
|
||||||
CALL CHEMM3M( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CHEMM3M( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CHEMM3M( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CHEMM3M( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CHEMM3M( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CHEMM3M( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CHEMM3M( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CHEMM3M( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CHEMM3M( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL CHEMM( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CHEMM3M( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL CHEMM( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CHEMM3M( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CHEMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CHEMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CHEMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL CHEMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CHEMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL CHEMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL CHEMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CHEMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL CHEMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
30 INFOT = 1
|
30 INFOT = 1
|
||||||
CALL CSYMM3M( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 2
|
INFOT = 2
|
||||||
CALL CSYMM3M( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CSYMM3M( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CSYMM3M( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CSYMM3M( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL CSYMM3M( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CSYMM3M( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CSYMM3M( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CSYMM3M( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL CSYMM3M( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL CSYMM( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CSYMM3M( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL CSYMM( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL CSYMM3M( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CSYMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL CSYMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL CSYMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL CSYMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CSYMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL CSYMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL CSYMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL CSYMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL CSYMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
40 INFOT = 1
|
40 INFOT = 1
|
||||||
|
|
|
||||||
|
|
@ -13,8 +13,8 @@ F LOGICAL FLAG, T TO TEST ERROR EXITS.
|
||||||
3 NUMBER OF VALUES OF BETA
|
3 NUMBER OF VALUES OF BETA
|
||||||
(0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
(0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
||||||
ZGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
ZGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
ZHEMM3M F PUT F FOR NO TEST. SAME COLUMNS.
|
ZHEMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
ZSYMM3M F PUT F FOR NO TEST. SAME COLUMNS.
|
ZSYMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
ZTRMM F PUT F FOR NO TEST. SAME COLUMNS.
|
ZTRMM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
ZTRSM F PUT F FOR NO TEST. SAME COLUMNS.
|
ZTRSM F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
ZHERK F PUT F FOR NO TEST. SAME COLUMNS.
|
ZHERK F PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
|
|
|
||||||
106
test/zblat3_3m.f
106
test/zblat3_3m.f
|
|
@ -22,8 +22,8 @@
|
||||||
* 3 NUMBER OF VALUES OF BETA
|
* 3 NUMBER OF VALUES OF BETA
|
||||||
* (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
* (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
|
||||||
* ZGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* ZHEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZHEMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* ZSYMM3M T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZSYMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* ZTRMM T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZTRMM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* ZTRSM T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZTRSM T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
* ZHERK T PUT F FOR NO TEST. SAME COLUMNS.
|
* ZHERK T PUT F FOR NO TEST. SAME COLUMNS.
|
||||||
|
|
@ -95,7 +95,7 @@
|
||||||
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
||||||
COMMON /SRNAMC/SRNAMT
|
COMMON /SRNAMC/SRNAMT
|
||||||
* .. Data statements ..
|
* .. Data statements ..
|
||||||
DATA SNAMES/'ZGEMM3M ', 'ZHEMM3M ', 'ZSYMM3M ',
|
DATA SNAMES/'ZGEMM3M ', 'ZHEMM ', 'ZSYMM ',
|
||||||
$ 'ZTRMM ',
|
$ 'ZTRMM ',
|
||||||
$ 'ZTRSM ', 'ZHERK ', 'ZSYRK ', 'ZHER2K',
|
$ 'ZTRSM ', 'ZHERK ', 'ZSYRK ', 'ZHER2K',
|
||||||
$ 'ZSYR2K'/
|
$ 'ZSYR2K'/
|
||||||
|
|
@ -290,7 +290,7 @@
|
||||||
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
||||||
$ CC, CS, CT, G )
|
$ CC, CS, CT, G )
|
||||||
GO TO 190
|
GO TO 190
|
||||||
* Test ZHEMM3M, 02, ZSYMM3M, 03.
|
* Test ZHEMM, 02, ZSYMM, 03.
|
||||||
150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
|
150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
|
||||||
$ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
|
$ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
|
||||||
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
$ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
|
||||||
|
|
@ -654,7 +654,7 @@
|
||||||
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
|
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
|
||||||
$ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
|
$ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
|
||||||
*
|
*
|
||||||
* Tests ZHEMM3M and ZSYMM3M.
|
* Tests ZHEMM and ZSYMM.
|
||||||
*
|
*
|
||||||
* Auxiliary routine for test program for Level 3 Blas.
|
* Auxiliary routine for test program for Level 3 Blas.
|
||||||
*
|
*
|
||||||
|
|
@ -697,7 +697,7 @@
|
||||||
LOGICAL LZE, LZERES
|
LOGICAL LZE, LZERES
|
||||||
EXTERNAL LZE, LZERES
|
EXTERNAL LZE, LZERES
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL ZHEMM3M, ZMAKE, ZMMCH, ZSYMM3M
|
EXTERNAL ZHEMM, ZMAKE, ZMMCH, ZSYMM
|
||||||
* .. Intrinsic Functions ..
|
* .. Intrinsic Functions ..
|
||||||
INTRINSIC MAX
|
INTRINSIC MAX
|
||||||
* .. Scalars in Common ..
|
* .. Scalars in Common ..
|
||||||
|
|
@ -812,10 +812,10 @@
|
||||||
IF( REWI )
|
IF( REWI )
|
||||||
$ REWIND NTRA
|
$ REWIND NTRA
|
||||||
IF( CONJ )THEN
|
IF( CONJ )THEN
|
||||||
CALL ZHEMM3M( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
||||||
$ BB, LDB, BETA, CC, LDC )
|
$ BB, LDB, BETA, CC, LDC )
|
||||||
ELSE
|
ELSE
|
||||||
CALL ZSYMM3M( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
|
||||||
$ BB, LDB, BETA, CC, LDC )
|
$ BB, LDB, BETA, CC, LDC )
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
|
|
@ -1974,7 +1974,7 @@
|
||||||
* .. Local Arrays ..
|
* .. Local Arrays ..
|
||||||
COMPLEX*16 A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
|
COMPLEX*16 A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL ZGEMM3M, ZHEMM3M, ZHER2K, ZHERK, CHKXER, ZSYMM3M,
|
EXTERNAL ZGEMM3M, ZHEMM, ZHER2K, ZHERK, CHKXER, ZSYMM,
|
||||||
$ ZSYR2K, ZSYRK, ZTRMM, ZTRSM
|
$ ZSYR2K, ZSYRK, ZTRMM, ZTRSM
|
||||||
* .. Common blocks ..
|
* .. Common blocks ..
|
||||||
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
COMMON /INFOC/INFOT, NOUTC, OK, LERR
|
||||||
|
|
@ -2169,137 +2169,137 @@
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
20 INFOT = 1
|
20 INFOT = 1
|
||||||
CALL ZHEMM3M( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 2
|
INFOT = 2
|
||||||
CALL ZHEMM3M( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZHEMM3M( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZHEMM3M( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZHEMM3M( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZHEMM3M( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZHEMM3M( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZHEMM3M( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZHEMM3M( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZHEMM3M( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL ZHEMM( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZHEMM3M( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL ZHEMM( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZHEMM3M( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZHEMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZHEMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZHEMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZHEMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZHEMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL ZHEMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZHEMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL ZHEMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
30 INFOT = 1
|
30 INFOT = 1
|
||||||
CALL ZSYMM3M( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( '/', 'U', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 2
|
INFOT = 2
|
||||||
CALL ZSYMM3M( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZSYMM3M( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZSYMM3M( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'U', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZSYMM3M( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 3
|
INFOT = 3
|
||||||
CALL ZSYMM3M( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'L', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZSYMM3M( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZSYMM3M( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'U', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZSYMM3M( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 4
|
INFOT = 4
|
||||||
CALL ZSYMM3M( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'L', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL ZSYMM( 'L', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZSYMM3M( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'U', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
CALL ZSYMM( 'L', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 7
|
INFOT = 7
|
||||||
CALL ZSYMM3M( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'L', 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZSYMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 9
|
INFOT = 9
|
||||||
CALL ZSYMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZSYMM3M( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'U', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZSYMM3M( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'U', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZSYMM3M( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
CALL ZSYMM( 'L', 'L', 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
INFOT = 12
|
INFOT = 12
|
||||||
CALL ZSYMM3M( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
CALL ZSYMM( 'R', 'L', 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 )
|
||||||
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
||||||
GO TO 100
|
GO TO 100
|
||||||
40 INFOT = 1
|
40 INFOT = 1
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue