LAPACK  3.9.0
LAPACK: Linear Algebra PACKage

◆ cchke()

subroutine cchke ( integer  ISNUM,
character*6  SRNAMT,
integer  NOUT 
)

Definition at line 1985 of file cblat3.f.

1985 *
1986 * Tests the error exits from the Level 3 Blas.
1987 * Requires a special version of the error-handling routine XERBLA.
1988 * A, B and C should not need to be defined.
1989 *
1990 * Auxiliary routine for test program for Level 3 Blas.
1991 *
1992 * -- Written on 8-February-1989.
1993 * Jack Dongarra, Argonne National Laboratory.
1994 * Iain Duff, AERE Harwell.
1995 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
1996 * Sven Hammarling, Numerical Algorithms Group Ltd.
1997 *
1998 * 3-19-92: Initialize ALPHA, BETA, RALPHA, and RBETA (eca)
1999 * 3-19-92: Fix argument 12 in calls to CSYMM and CHEMM
2000 * with INFOT = 9 (eca)
2001 *
2002 * .. Scalar Arguments ..
2003  INTEGER ISNUM, NOUT
2004  CHARACTER*6 SRNAMT
2005 * .. Scalars in Common ..
2006  INTEGER INFOT, NOUTC
2007  LOGICAL LERR, OK
2008 * .. Parameters ..
2009  REAL ONE, TWO
2010  parameter( one = 1.0e0, two = 2.0e0 )
2011 * .. Local Scalars ..
2012  COMPLEX ALPHA, BETA
2013  REAL RALPHA, RBETA
2014 * .. Local Arrays ..
2015  COMPLEX A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
2016 * .. External Subroutines ..
2017  EXTERNAL cgemm, chemm, cher2k, cherk, chkxer, csymm,
2018  $ csyr2k, csyrk, ctrmm, ctrsm
2019 * .. Common blocks ..
2020  COMMON /infoc/infot, noutc, ok, lerr
2021 * .. Executable Statements ..
2022 * OK is set to .FALSE. by the special version of XERBLA or by CHKXER
2023 * if anything is wrong.
2024  ok = .true.
2025 * LERR is set to .TRUE. by the special version of XERBLA each time
2026 * it is called, and is then tested and re-set by CHKXER.
2027  lerr = .false.
2028 *
2029 * Initialize ALPHA, BETA, RALPHA, and RBETA.
2030 *
2031  alpha = cmplx( one, -one )
2032  beta = cmplx( two, -two )
2033  ralpha = one
2034  rbeta = two
2035 *
2036  GO TO ( 10, 20, 30, 40, 50, 60, 70, 80,
2037  $ 90 )isnum
2038  10 infot = 1
2039  CALL cgemm( '/', 'N', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2040  CALL chkxer( srnamt, infot, nout, lerr, ok )
2041  infot = 1
2042  CALL cgemm( '/', 'C', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2043  CALL chkxer( srnamt, infot, nout, lerr, ok )
2044  infot = 1
2045  CALL cgemm( '/', 'T', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2046  CALL chkxer( srnamt, infot, nout, lerr, ok )
2047  infot = 2
2048  CALL cgemm( 'N', '/', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2049  CALL chkxer( srnamt, infot, nout, lerr, ok )
2050  infot = 2
2051  CALL cgemm( 'C', '/', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2052  CALL chkxer( srnamt, infot, nout, lerr, ok )
2053  infot = 2
2054  CALL cgemm( 'T', '/', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2055  CALL chkxer( srnamt, infot, nout, lerr, ok )
2056  infot = 3
2057  CALL cgemm( 'N', 'N', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2058  CALL chkxer( srnamt, infot, nout, lerr, ok )
2059  infot = 3
2060  CALL cgemm( 'N', 'C', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2061  CALL chkxer( srnamt, infot, nout, lerr, ok )
2062  infot = 3
2063  CALL cgemm( 'N', 'T', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2064  CALL chkxer( srnamt, infot, nout, lerr, ok )
2065  infot = 3
2066  CALL cgemm( 'C', 'N', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2067  CALL chkxer( srnamt, infot, nout, lerr, ok )
2068  infot = 3
2069  CALL cgemm( 'C', 'C', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2070  CALL chkxer( srnamt, infot, nout, lerr, ok )
2071  infot = 3
2072  CALL cgemm( 'C', 'T', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2073  CALL chkxer( srnamt, infot, nout, lerr, ok )
2074  infot = 3
2075  CALL cgemm( 'T', 'N', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2076  CALL chkxer( srnamt, infot, nout, lerr, ok )
2077  infot = 3
2078  CALL cgemm( 'T', 'C', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2079  CALL chkxer( srnamt, infot, nout, lerr, ok )
2080  infot = 3
2081  CALL cgemm( 'T', 'T', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2082  CALL chkxer( srnamt, infot, nout, lerr, ok )
2083  infot = 4
2084  CALL cgemm( 'N', 'N', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2085  CALL chkxer( srnamt, infot, nout, lerr, ok )
2086  infot = 4
2087  CALL cgemm( 'N', 'C', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2088  CALL chkxer( srnamt, infot, nout, lerr, ok )
2089  infot = 4
2090  CALL cgemm( 'N', 'T', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2091  CALL chkxer( srnamt, infot, nout, lerr, ok )
2092  infot = 4
2093  CALL cgemm( 'C', 'N', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2094  CALL chkxer( srnamt, infot, nout, lerr, ok )
2095  infot = 4
2096  CALL cgemm( 'C', 'C', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2097  CALL chkxer( srnamt, infot, nout, lerr, ok )
2098  infot = 4
2099  CALL cgemm( 'C', 'T', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2100  CALL chkxer( srnamt, infot, nout, lerr, ok )
2101  infot = 4
2102  CALL cgemm( 'T', 'N', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2103  CALL chkxer( srnamt, infot, nout, lerr, ok )
2104  infot = 4
2105  CALL cgemm( 'T', 'C', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2106  CALL chkxer( srnamt, infot, nout, lerr, ok )
2107  infot = 4
2108  CALL cgemm( 'T', 'T', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2109  CALL chkxer( srnamt, infot, nout, lerr, ok )
2110  infot = 5
2111  CALL cgemm( 'N', 'N', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2112  CALL chkxer( srnamt, infot, nout, lerr, ok )
2113  infot = 5
2114  CALL cgemm( 'N', 'C', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2115  CALL chkxer( srnamt, infot, nout, lerr, ok )
2116  infot = 5
2117  CALL cgemm( 'N', 'T', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2118  CALL chkxer( srnamt, infot, nout, lerr, ok )
2119  infot = 5
2120  CALL cgemm( 'C', 'N', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2121  CALL chkxer( srnamt, infot, nout, lerr, ok )
2122  infot = 5
2123  CALL cgemm( 'C', 'C', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2124  CALL chkxer( srnamt, infot, nout, lerr, ok )
2125  infot = 5
2126  CALL cgemm( 'C', 'T', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2127  CALL chkxer( srnamt, infot, nout, lerr, ok )
2128  infot = 5
2129  CALL cgemm( 'T', 'N', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2130  CALL chkxer( srnamt, infot, nout, lerr, ok )
2131  infot = 5
2132  CALL cgemm( 'T', 'C', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2133  CALL chkxer( srnamt, infot, nout, lerr, ok )
2134  infot = 5
2135  CALL cgemm( 'T', 'T', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2136  CALL chkxer( srnamt, infot, nout, lerr, ok )
2137  infot = 8
2138  CALL cgemm( 'N', 'N', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 2 )
2139  CALL chkxer( srnamt, infot, nout, lerr, ok )
2140  infot = 8
2141  CALL cgemm( 'N', 'C', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 2 )
2142  CALL chkxer( srnamt, infot, nout, lerr, ok )
2143  infot = 8
2144  CALL cgemm( 'N', 'T', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 2 )
2145  CALL chkxer( srnamt, infot, nout, lerr, ok )
2146  infot = 8
2147  CALL cgemm( 'C', 'N', 0, 0, 2, alpha, a, 1, b, 2, beta, c, 1 )
2148  CALL chkxer( srnamt, infot, nout, lerr, ok )
2149  infot = 8
2150  CALL cgemm( 'C', 'C', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2151  CALL chkxer( srnamt, infot, nout, lerr, ok )
2152  infot = 8
2153  CALL cgemm( 'C', 'T', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2154  CALL chkxer( srnamt, infot, nout, lerr, ok )
2155  infot = 8
2156  CALL cgemm( 'T', 'N', 0, 0, 2, alpha, a, 1, b, 2, beta, c, 1 )
2157  CALL chkxer( srnamt, infot, nout, lerr, ok )
2158  infot = 8
2159  CALL cgemm( 'T', 'C', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2160  CALL chkxer( srnamt, infot, nout, lerr, ok )
2161  infot = 8
2162  CALL cgemm( 'T', 'T', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2163  CALL chkxer( srnamt, infot, nout, lerr, ok )
2164  infot = 10
2165  CALL cgemm( 'N', 'N', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2166  CALL chkxer( srnamt, infot, nout, lerr, ok )
2167  infot = 10
2168  CALL cgemm( 'C', 'N', 0, 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2169  CALL chkxer( srnamt, infot, nout, lerr, ok )
2170  infot = 10
2171  CALL cgemm( 'T', 'N', 0, 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2172  CALL chkxer( srnamt, infot, nout, lerr, ok )
2173  infot = 10
2174  CALL cgemm( 'N', 'C', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2175  CALL chkxer( srnamt, infot, nout, lerr, ok )
2176  infot = 10
2177  CALL cgemm( 'C', 'C', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2178  CALL chkxer( srnamt, infot, nout, lerr, ok )
2179  infot = 10
2180  CALL cgemm( 'T', 'C', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2181  CALL chkxer( srnamt, infot, nout, lerr, ok )
2182  infot = 10
2183  CALL cgemm( 'N', 'T', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2184  CALL chkxer( srnamt, infot, nout, lerr, ok )
2185  infot = 10
2186  CALL cgemm( 'C', 'T', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2187  CALL chkxer( srnamt, infot, nout, lerr, ok )
2188  infot = 10
2189  CALL cgemm( 'T', 'T', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2190  CALL chkxer( srnamt, infot, nout, lerr, ok )
2191  infot = 13
2192  CALL cgemm( 'N', 'N', 2, 0, 0, alpha, a, 2, b, 1, beta, c, 1 )
2193  CALL chkxer( srnamt, infot, nout, lerr, ok )
2194  infot = 13
2195  CALL cgemm( 'N', 'C', 2, 0, 0, alpha, a, 2, b, 1, beta, c, 1 )
2196  CALL chkxer( srnamt, infot, nout, lerr, ok )
2197  infot = 13
2198  CALL cgemm( 'N', 'T', 2, 0, 0, alpha, a, 2, b, 1, beta, c, 1 )
2199  CALL chkxer( srnamt, infot, nout, lerr, ok )
2200  infot = 13
2201  CALL cgemm( 'C', 'N', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2202  CALL chkxer( srnamt, infot, nout, lerr, ok )
2203  infot = 13
2204  CALL cgemm( 'C', 'C', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2205  CALL chkxer( srnamt, infot, nout, lerr, ok )
2206  infot = 13
2207  CALL cgemm( 'C', 'T', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2208  CALL chkxer( srnamt, infot, nout, lerr, ok )
2209  infot = 13
2210  CALL cgemm( 'T', 'N', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2211  CALL chkxer( srnamt, infot, nout, lerr, ok )
2212  infot = 13
2213  CALL cgemm( 'T', 'C', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2214  CALL chkxer( srnamt, infot, nout, lerr, ok )
2215  infot = 13
2216  CALL cgemm( 'T', 'T', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2217  CALL chkxer( srnamt, infot, nout, lerr, ok )
2218  GO TO 100
2219  20 infot = 1
2220  CALL chemm( '/', 'U', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2221  CALL chkxer( srnamt, infot, nout, lerr, ok )
2222  infot = 2
2223  CALL chemm( 'L', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2224  CALL chkxer( srnamt, infot, nout, lerr, ok )
2225  infot = 3
2226  CALL chemm( 'L', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2227  CALL chkxer( srnamt, infot, nout, lerr, ok )
2228  infot = 3
2229  CALL chemm( 'R', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2230  CALL chkxer( srnamt, infot, nout, lerr, ok )
2231  infot = 3
2232  CALL chemm( 'L', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2233  CALL chkxer( srnamt, infot, nout, lerr, ok )
2234  infot = 3
2235  CALL chemm( 'R', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2236  CALL chkxer( srnamt, infot, nout, lerr, ok )
2237  infot = 4
2238  CALL chemm( 'L', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2239  CALL chkxer( srnamt, infot, nout, lerr, ok )
2240  infot = 4
2241  CALL chemm( 'R', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2242  CALL chkxer( srnamt, infot, nout, lerr, ok )
2243  infot = 4
2244  CALL chemm( 'L', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2245  CALL chkxer( srnamt, infot, nout, lerr, ok )
2246  infot = 4
2247  CALL chemm( 'R', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2248  CALL chkxer( srnamt, infot, nout, lerr, ok )
2249  infot = 7
2250  CALL chemm( 'L', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2251  CALL chkxer( srnamt, infot, nout, lerr, ok )
2252  infot = 7
2253  CALL chemm( 'R', 'U', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2254  CALL chkxer( srnamt, infot, nout, lerr, ok )
2255  infot = 7
2256  CALL chemm( 'L', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2257  CALL chkxer( srnamt, infot, nout, lerr, ok )
2258  infot = 7
2259  CALL chemm( 'R', 'L', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2260  CALL chkxer( srnamt, infot, nout, lerr, ok )
2261  infot = 9
2262  CALL chemm( 'L', 'U', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2263  CALL chkxer( srnamt, infot, nout, lerr, ok )
2264  infot = 9
2265  CALL chemm( 'R', 'U', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2266  CALL chkxer( srnamt, infot, nout, lerr, ok )
2267  infot = 9
2268  CALL chemm( 'L', 'L', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2269  CALL chkxer( srnamt, infot, nout, lerr, ok )
2270  infot = 9
2271  CALL chemm( 'R', 'L', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2272  CALL chkxer( srnamt, infot, nout, lerr, ok )
2273  infot = 12
2274  CALL chemm( 'L', 'U', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2275  CALL chkxer( srnamt, infot, nout, lerr, ok )
2276  infot = 12
2277  CALL chemm( 'R', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2278  CALL chkxer( srnamt, infot, nout, lerr, ok )
2279  infot = 12
2280  CALL chemm( 'L', 'L', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2281  CALL chkxer( srnamt, infot, nout, lerr, ok )
2282  infot = 12
2283  CALL chemm( 'R', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2284  CALL chkxer( srnamt, infot, nout, lerr, ok )
2285  GO TO 100
2286  30 infot = 1
2287  CALL csymm( '/', 'U', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2288  CALL chkxer( srnamt, infot, nout, lerr, ok )
2289  infot = 2
2290  CALL csymm( 'L', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2291  CALL chkxer( srnamt, infot, nout, lerr, ok )
2292  infot = 3
2293  CALL csymm( 'L', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2294  CALL chkxer( srnamt, infot, nout, lerr, ok )
2295  infot = 3
2296  CALL csymm( 'R', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2297  CALL chkxer( srnamt, infot, nout, lerr, ok )
2298  infot = 3
2299  CALL csymm( 'L', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2300  CALL chkxer( srnamt, infot, nout, lerr, ok )
2301  infot = 3
2302  CALL csymm( 'R', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2303  CALL chkxer( srnamt, infot, nout, lerr, ok )
2304  infot = 4
2305  CALL csymm( 'L', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2306  CALL chkxer( srnamt, infot, nout, lerr, ok )
2307  infot = 4
2308  CALL csymm( 'R', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2309  CALL chkxer( srnamt, infot, nout, lerr, ok )
2310  infot = 4
2311  CALL csymm( 'L', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2312  CALL chkxer( srnamt, infot, nout, lerr, ok )
2313  infot = 4
2314  CALL csymm( 'R', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2315  CALL chkxer( srnamt, infot, nout, lerr, ok )
2316  infot = 7
2317  CALL csymm( 'L', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2318  CALL chkxer( srnamt, infot, nout, lerr, ok )
2319  infot = 7
2320  CALL csymm( 'R', 'U', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2321  CALL chkxer( srnamt, infot, nout, lerr, ok )
2322  infot = 7
2323  CALL csymm( 'L', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2324  CALL chkxer( srnamt, infot, nout, lerr, ok )
2325  infot = 7
2326  CALL csymm( 'R', 'L', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2327  CALL chkxer( srnamt, infot, nout, lerr, ok )
2328  infot = 9
2329  CALL csymm( 'L', 'U', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2330  CALL chkxer( srnamt, infot, nout, lerr, ok )
2331  infot = 9
2332  CALL csymm( 'R', 'U', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2333  CALL chkxer( srnamt, infot, nout, lerr, ok )
2334  infot = 9
2335  CALL csymm( 'L', 'L', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2336  CALL chkxer( srnamt, infot, nout, lerr, ok )
2337  infot = 9
2338  CALL csymm( 'R', 'L', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2339  CALL chkxer( srnamt, infot, nout, lerr, ok )
2340  infot = 12
2341  CALL csymm( 'L', 'U', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2342  CALL chkxer( srnamt, infot, nout, lerr, ok )
2343  infot = 12
2344  CALL csymm( 'R', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2345  CALL chkxer( srnamt, infot, nout, lerr, ok )
2346  infot = 12
2347  CALL csymm( 'L', 'L', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2348  CALL chkxer( srnamt, infot, nout, lerr, ok )
2349  infot = 12
2350  CALL csymm( 'R', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2351  CALL chkxer( srnamt, infot, nout, lerr, ok )
2352  GO TO 100
2353  40 infot = 1
2354  CALL ctrmm( '/', 'U', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2355  CALL chkxer( srnamt, infot, nout, lerr, ok )
2356  infot = 2
2357  CALL ctrmm( 'L', '/', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2358  CALL chkxer( srnamt, infot, nout, lerr, ok )
2359  infot = 3
2360  CALL ctrmm( 'L', 'U', '/', 'N', 0, 0, alpha, a, 1, b, 1 )
2361  CALL chkxer( srnamt, infot, nout, lerr, ok )
2362  infot = 4
2363  CALL ctrmm( 'L', 'U', 'N', '/', 0, 0, alpha, a, 1, b, 1 )
2364  CALL chkxer( srnamt, infot, nout, lerr, ok )
2365  infot = 5
2366  CALL ctrmm( 'L', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2367  CALL chkxer( srnamt, infot, nout, lerr, ok )
2368  infot = 5
2369  CALL ctrmm( 'L', 'U', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2370  CALL chkxer( srnamt, infot, nout, lerr, ok )
2371  infot = 5
2372  CALL ctrmm( 'L', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2373  CALL chkxer( srnamt, infot, nout, lerr, ok )
2374  infot = 5
2375  CALL ctrmm( 'R', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2376  CALL chkxer( srnamt, infot, nout, lerr, ok )
2377  infot = 5
2378  CALL ctrmm( 'R', 'U', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2379  CALL chkxer( srnamt, infot, nout, lerr, ok )
2380  infot = 5
2381  CALL ctrmm( 'R', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2382  CALL chkxer( srnamt, infot, nout, lerr, ok )
2383  infot = 5
2384  CALL ctrmm( 'L', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2385  CALL chkxer( srnamt, infot, nout, lerr, ok )
2386  infot = 5
2387  CALL ctrmm( 'L', 'L', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2388  CALL chkxer( srnamt, infot, nout, lerr, ok )
2389  infot = 5
2390  CALL ctrmm( 'L', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2391  CALL chkxer( srnamt, infot, nout, lerr, ok )
2392  infot = 5
2393  CALL ctrmm( 'R', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2394  CALL chkxer( srnamt, infot, nout, lerr, ok )
2395  infot = 5
2396  CALL ctrmm( 'R', 'L', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2397  CALL chkxer( srnamt, infot, nout, lerr, ok )
2398  infot = 5
2399  CALL ctrmm( 'R', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2400  CALL chkxer( srnamt, infot, nout, lerr, ok )
2401  infot = 6
2402  CALL ctrmm( 'L', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2403  CALL chkxer( srnamt, infot, nout, lerr, ok )
2404  infot = 6
2405  CALL ctrmm( 'L', 'U', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2406  CALL chkxer( srnamt, infot, nout, lerr, ok )
2407  infot = 6
2408  CALL ctrmm( 'L', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2409  CALL chkxer( srnamt, infot, nout, lerr, ok )
2410  infot = 6
2411  CALL ctrmm( 'R', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2412  CALL chkxer( srnamt, infot, nout, lerr, ok )
2413  infot = 6
2414  CALL ctrmm( 'R', 'U', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2415  CALL chkxer( srnamt, infot, nout, lerr, ok )
2416  infot = 6
2417  CALL ctrmm( 'R', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2418  CALL chkxer( srnamt, infot, nout, lerr, ok )
2419  infot = 6
2420  CALL ctrmm( 'L', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2421  CALL chkxer( srnamt, infot, nout, lerr, ok )
2422  infot = 6
2423  CALL ctrmm( 'L', 'L', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2424  CALL chkxer( srnamt, infot, nout, lerr, ok )
2425  infot = 6
2426  CALL ctrmm( 'L', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2427  CALL chkxer( srnamt, infot, nout, lerr, ok )
2428  infot = 6
2429  CALL ctrmm( 'R', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2430  CALL chkxer( srnamt, infot, nout, lerr, ok )
2431  infot = 6
2432  CALL ctrmm( 'R', 'L', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2433  CALL chkxer( srnamt, infot, nout, lerr, ok )
2434  infot = 6
2435  CALL ctrmm( 'R', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2436  CALL chkxer( srnamt, infot, nout, lerr, ok )
2437  infot = 9
2438  CALL ctrmm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2439  CALL chkxer( srnamt, infot, nout, lerr, ok )
2440  infot = 9
2441  CALL ctrmm( 'L', 'U', 'C', 'N', 2, 0, alpha, a, 1, b, 2 )
2442  CALL chkxer( srnamt, infot, nout, lerr, ok )
2443  infot = 9
2444  CALL ctrmm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2445  CALL chkxer( srnamt, infot, nout, lerr, ok )
2446  infot = 9
2447  CALL ctrmm( 'R', 'U', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2448  CALL chkxer( srnamt, infot, nout, lerr, ok )
2449  infot = 9
2450  CALL ctrmm( 'R', 'U', 'C', 'N', 0, 2, alpha, a, 1, b, 1 )
2451  CALL chkxer( srnamt, infot, nout, lerr, ok )
2452  infot = 9
2453  CALL ctrmm( 'R', 'U', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2454  CALL chkxer( srnamt, infot, nout, lerr, ok )
2455  infot = 9
2456  CALL ctrmm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2457  CALL chkxer( srnamt, infot, nout, lerr, ok )
2458  infot = 9
2459  CALL ctrmm( 'L', 'L', 'C', 'N', 2, 0, alpha, a, 1, b, 2 )
2460  CALL chkxer( srnamt, infot, nout, lerr, ok )
2461  infot = 9
2462  CALL ctrmm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2463  CALL chkxer( srnamt, infot, nout, lerr, ok )
2464  infot = 9
2465  CALL ctrmm( 'R', 'L', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2466  CALL chkxer( srnamt, infot, nout, lerr, ok )
2467  infot = 9
2468  CALL ctrmm( 'R', 'L', 'C', 'N', 0, 2, alpha, a, 1, b, 1 )
2469  CALL chkxer( srnamt, infot, nout, lerr, ok )
2470  infot = 9
2471  CALL ctrmm( 'R', 'L', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2472  CALL chkxer( srnamt, infot, nout, lerr, ok )
2473  infot = 11
2474  CALL ctrmm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2475  CALL chkxer( srnamt, infot, nout, lerr, ok )
2476  infot = 11
2477  CALL ctrmm( 'L', 'U', 'C', 'N', 2, 0, alpha, a, 2, b, 1 )
2478  CALL chkxer( srnamt, infot, nout, lerr, ok )
2479  infot = 11
2480  CALL ctrmm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2481  CALL chkxer( srnamt, infot, nout, lerr, ok )
2482  infot = 11
2483  CALL ctrmm( 'R', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2484  CALL chkxer( srnamt, infot, nout, lerr, ok )
2485  infot = 11
2486  CALL ctrmm( 'R', 'U', 'C', 'N', 2, 0, alpha, a, 1, b, 1 )
2487  CALL chkxer( srnamt, infot, nout, lerr, ok )
2488  infot = 11
2489  CALL ctrmm( 'R', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2490  CALL chkxer( srnamt, infot, nout, lerr, ok )
2491  infot = 11
2492  CALL ctrmm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2493  CALL chkxer( srnamt, infot, nout, lerr, ok )
2494  infot = 11
2495  CALL ctrmm( 'L', 'L', 'C', 'N', 2, 0, alpha, a, 2, b, 1 )
2496  CALL chkxer( srnamt, infot, nout, lerr, ok )
2497  infot = 11
2498  CALL ctrmm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2499  CALL chkxer( srnamt, infot, nout, lerr, ok )
2500  infot = 11
2501  CALL ctrmm( 'R', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2502  CALL chkxer( srnamt, infot, nout, lerr, ok )
2503  infot = 11
2504  CALL ctrmm( 'R', 'L', 'C', 'N', 2, 0, alpha, a, 1, b, 1 )
2505  CALL chkxer( srnamt, infot, nout, lerr, ok )
2506  infot = 11
2507  CALL ctrmm( 'R', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2508  CALL chkxer( srnamt, infot, nout, lerr, ok )
2509  GO TO 100
2510  50 infot = 1
2511  CALL ctrsm( '/', 'U', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2512  CALL chkxer( srnamt, infot, nout, lerr, ok )
2513  infot = 2
2514  CALL ctrsm( 'L', '/', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2515  CALL chkxer( srnamt, infot, nout, lerr, ok )
2516  infot = 3
2517  CALL ctrsm( 'L', 'U', '/', 'N', 0, 0, alpha, a, 1, b, 1 )
2518  CALL chkxer( srnamt, infot, nout, lerr, ok )
2519  infot = 4
2520  CALL ctrsm( 'L', 'U', 'N', '/', 0, 0, alpha, a, 1, b, 1 )
2521  CALL chkxer( srnamt, infot, nout, lerr, ok )
2522  infot = 5
2523  CALL ctrsm( 'L', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2524  CALL chkxer( srnamt, infot, nout, lerr, ok )
2525  infot = 5
2526  CALL ctrsm( 'L', 'U', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2527  CALL chkxer( srnamt, infot, nout, lerr, ok )
2528  infot = 5
2529  CALL ctrsm( 'L', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2530  CALL chkxer( srnamt, infot, nout, lerr, ok )
2531  infot = 5
2532  CALL ctrsm( 'R', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2533  CALL chkxer( srnamt, infot, nout, lerr, ok )
2534  infot = 5
2535  CALL ctrsm( 'R', 'U', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2536  CALL chkxer( srnamt, infot, nout, lerr, ok )
2537  infot = 5
2538  CALL ctrsm( 'R', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2539  CALL chkxer( srnamt, infot, nout, lerr, ok )
2540  infot = 5
2541  CALL ctrsm( 'L', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2542  CALL chkxer( srnamt, infot, nout, lerr, ok )
2543  infot = 5
2544  CALL ctrsm( 'L', 'L', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2545  CALL chkxer( srnamt, infot, nout, lerr, ok )
2546  infot = 5
2547  CALL ctrsm( 'L', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2548  CALL chkxer( srnamt, infot, nout, lerr, ok )
2549  infot = 5
2550  CALL ctrsm( 'R', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2551  CALL chkxer( srnamt, infot, nout, lerr, ok )
2552  infot = 5
2553  CALL ctrsm( 'R', 'L', 'C', 'N', -1, 0, alpha, a, 1, b, 1 )
2554  CALL chkxer( srnamt, infot, nout, lerr, ok )
2555  infot = 5
2556  CALL ctrsm( 'R', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2557  CALL chkxer( srnamt, infot, nout, lerr, ok )
2558  infot = 6
2559  CALL ctrsm( 'L', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2560  CALL chkxer( srnamt, infot, nout, lerr, ok )
2561  infot = 6
2562  CALL ctrsm( 'L', 'U', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2563  CALL chkxer( srnamt, infot, nout, lerr, ok )
2564  infot = 6
2565  CALL ctrsm( 'L', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2566  CALL chkxer( srnamt, infot, nout, lerr, ok )
2567  infot = 6
2568  CALL ctrsm( 'R', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2569  CALL chkxer( srnamt, infot, nout, lerr, ok )
2570  infot = 6
2571  CALL ctrsm( 'R', 'U', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2572  CALL chkxer( srnamt, infot, nout, lerr, ok )
2573  infot = 6
2574  CALL ctrsm( 'R', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2575  CALL chkxer( srnamt, infot, nout, lerr, ok )
2576  infot = 6
2577  CALL ctrsm( 'L', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2578  CALL chkxer( srnamt, infot, nout, lerr, ok )
2579  infot = 6
2580  CALL ctrsm( 'L', 'L', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2581  CALL chkxer( srnamt, infot, nout, lerr, ok )
2582  infot = 6
2583  CALL ctrsm( 'L', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2584  CALL chkxer( srnamt, infot, nout, lerr, ok )
2585  infot = 6
2586  CALL ctrsm( 'R', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2587  CALL chkxer( srnamt, infot, nout, lerr, ok )
2588  infot = 6
2589  CALL ctrsm( 'R', 'L', 'C', 'N', 0, -1, alpha, a, 1, b, 1 )
2590  CALL chkxer( srnamt, infot, nout, lerr, ok )
2591  infot = 6
2592  CALL ctrsm( 'R', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2593  CALL chkxer( srnamt, infot, nout, lerr, ok )
2594  infot = 9
2595  CALL ctrsm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2596  CALL chkxer( srnamt, infot, nout, lerr, ok )
2597  infot = 9
2598  CALL ctrsm( 'L', 'U', 'C', 'N', 2, 0, alpha, a, 1, b, 2 )
2599  CALL chkxer( srnamt, infot, nout, lerr, ok )
2600  infot = 9
2601  CALL ctrsm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2602  CALL chkxer( srnamt, infot, nout, lerr, ok )
2603  infot = 9
2604  CALL ctrsm( 'R', 'U', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2605  CALL chkxer( srnamt, infot, nout, lerr, ok )
2606  infot = 9
2607  CALL ctrsm( 'R', 'U', 'C', 'N', 0, 2, alpha, a, 1, b, 1 )
2608  CALL chkxer( srnamt, infot, nout, lerr, ok )
2609  infot = 9
2610  CALL ctrsm( 'R', 'U', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2611  CALL chkxer( srnamt, infot, nout, lerr, ok )
2612  infot = 9
2613  CALL ctrsm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2614  CALL chkxer( srnamt, infot, nout, lerr, ok )
2615  infot = 9
2616  CALL ctrsm( 'L', 'L', 'C', 'N', 2, 0, alpha, a, 1, b, 2 )
2617  CALL chkxer( srnamt, infot, nout, lerr, ok )
2618  infot = 9
2619  CALL ctrsm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2620  CALL chkxer( srnamt, infot, nout, lerr, ok )
2621  infot = 9
2622  CALL ctrsm( 'R', 'L', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2623  CALL chkxer( srnamt, infot, nout, lerr, ok )
2624  infot = 9
2625  CALL ctrsm( 'R', 'L', 'C', 'N', 0, 2, alpha, a, 1, b, 1 )
2626  CALL chkxer( srnamt, infot, nout, lerr, ok )
2627  infot = 9
2628  CALL ctrsm( 'R', 'L', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2629  CALL chkxer( srnamt, infot, nout, lerr, ok )
2630  infot = 11
2631  CALL ctrsm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2632  CALL chkxer( srnamt, infot, nout, lerr, ok )
2633  infot = 11
2634  CALL ctrsm( 'L', 'U', 'C', 'N', 2, 0, alpha, a, 2, b, 1 )
2635  CALL chkxer( srnamt, infot, nout, lerr, ok )
2636  infot = 11
2637  CALL ctrsm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2638  CALL chkxer( srnamt, infot, nout, lerr, ok )
2639  infot = 11
2640  CALL ctrsm( 'R', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2641  CALL chkxer( srnamt, infot, nout, lerr, ok )
2642  infot = 11
2643  CALL ctrsm( 'R', 'U', 'C', 'N', 2, 0, alpha, a, 1, b, 1 )
2644  CALL chkxer( srnamt, infot, nout, lerr, ok )
2645  infot = 11
2646  CALL ctrsm( 'R', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2647  CALL chkxer( srnamt, infot, nout, lerr, ok )
2648  infot = 11
2649  CALL ctrsm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2650  CALL chkxer( srnamt, infot, nout, lerr, ok )
2651  infot = 11
2652  CALL ctrsm( 'L', 'L', 'C', 'N', 2, 0, alpha, a, 2, b, 1 )
2653  CALL chkxer( srnamt, infot, nout, lerr, ok )
2654  infot = 11
2655  CALL ctrsm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2656  CALL chkxer( srnamt, infot, nout, lerr, ok )
2657  infot = 11
2658  CALL ctrsm( 'R', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2659  CALL chkxer( srnamt, infot, nout, lerr, ok )
2660  infot = 11
2661  CALL ctrsm( 'R', 'L', 'C', 'N', 2, 0, alpha, a, 1, b, 1 )
2662  CALL chkxer( srnamt, infot, nout, lerr, ok )
2663  infot = 11
2664  CALL ctrsm( 'R', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2665  CALL chkxer( srnamt, infot, nout, lerr, ok )
2666  GO TO 100
2667  60 infot = 1
2668  CALL cherk( '/', 'N', 0, 0, ralpha, a, 1, rbeta, c, 1 )
2669  CALL chkxer( srnamt, infot, nout, lerr, ok )
2670  infot = 2
2671  CALL cherk( 'U', 'T', 0, 0, ralpha, a, 1, rbeta, c, 1 )
2672  CALL chkxer( srnamt, infot, nout, lerr, ok )
2673  infot = 3
2674  CALL cherk( 'U', 'N', -1, 0, ralpha, a, 1, rbeta, c, 1 )
2675  CALL chkxer( srnamt, infot, nout, lerr, ok )
2676  infot = 3
2677  CALL cherk( 'U', 'C', -1, 0, ralpha, a, 1, rbeta, c, 1 )
2678  CALL chkxer( srnamt, infot, nout, lerr, ok )
2679  infot = 3
2680  CALL cherk( 'L', 'N', -1, 0, ralpha, a, 1, rbeta, c, 1 )
2681  CALL chkxer( srnamt, infot, nout, lerr, ok )
2682  infot = 3
2683  CALL cherk( 'L', 'C', -1, 0, ralpha, a, 1, rbeta, c, 1 )
2684  CALL chkxer( srnamt, infot, nout, lerr, ok )
2685  infot = 4
2686  CALL cherk( 'U', 'N', 0, -1, ralpha, a, 1, rbeta, c, 1 )
2687  CALL chkxer( srnamt, infot, nout, lerr, ok )
2688  infot = 4
2689  CALL cherk( 'U', 'C', 0, -1, ralpha, a, 1, rbeta, c, 1 )
2690  CALL chkxer( srnamt, infot, nout, lerr, ok )
2691  infot = 4
2692  CALL cherk( 'L', 'N', 0, -1, ralpha, a, 1, rbeta, c, 1 )
2693  CALL chkxer( srnamt, infot, nout, lerr, ok )
2694  infot = 4
2695  CALL cherk( 'L', 'C', 0, -1, ralpha, a, 1, rbeta, c, 1 )
2696  CALL chkxer( srnamt, infot, nout, lerr, ok )
2697  infot = 7
2698  CALL cherk( 'U', 'N', 2, 0, ralpha, a, 1, rbeta, c, 2 )
2699  CALL chkxer( srnamt, infot, nout, lerr, ok )
2700  infot = 7
2701  CALL cherk( 'U', 'C', 0, 2, ralpha, a, 1, rbeta, c, 1 )
2702  CALL chkxer( srnamt, infot, nout, lerr, ok )
2703  infot = 7
2704  CALL cherk( 'L', 'N', 2, 0, ralpha, a, 1, rbeta, c, 2 )
2705  CALL chkxer( srnamt, infot, nout, lerr, ok )
2706  infot = 7
2707  CALL cherk( 'L', 'C', 0, 2, ralpha, a, 1, rbeta, c, 1 )
2708  CALL chkxer( srnamt, infot, nout, lerr, ok )
2709  infot = 10
2710  CALL cherk( 'U', 'N', 2, 0, ralpha, a, 2, rbeta, c, 1 )
2711  CALL chkxer( srnamt, infot, nout, lerr, ok )
2712  infot = 10
2713  CALL cherk( 'U', 'C', 2, 0, ralpha, a, 1, rbeta, c, 1 )
2714  CALL chkxer( srnamt, infot, nout, lerr, ok )
2715  infot = 10
2716  CALL cherk( 'L', 'N', 2, 0, ralpha, a, 2, rbeta, c, 1 )
2717  CALL chkxer( srnamt, infot, nout, lerr, ok )
2718  infot = 10
2719  CALL cherk( 'L', 'C', 2, 0, ralpha, a, 1, rbeta, c, 1 )
2720  CALL chkxer( srnamt, infot, nout, lerr, ok )
2721  GO TO 100
2722  70 infot = 1
2723  CALL csyrk( '/', 'N', 0, 0, alpha, a, 1, beta, c, 1 )
2724  CALL chkxer( srnamt, infot, nout, lerr, ok )
2725  infot = 2
2726  CALL csyrk( 'U', 'C', 0, 0, alpha, a, 1, beta, c, 1 )
2727  CALL chkxer( srnamt, infot, nout, lerr, ok )
2728  infot = 3
2729  CALL csyrk( 'U', 'N', -1, 0, alpha, a, 1, beta, c, 1 )
2730  CALL chkxer( srnamt, infot, nout, lerr, ok )
2731  infot = 3
2732  CALL csyrk( 'U', 'T', -1, 0, alpha, a, 1, beta, c, 1 )
2733  CALL chkxer( srnamt, infot, nout, lerr, ok )
2734  infot = 3
2735  CALL csyrk( 'L', 'N', -1, 0, alpha, a, 1, beta, c, 1 )
2736  CALL chkxer( srnamt, infot, nout, lerr, ok )
2737  infot = 3
2738  CALL csyrk( 'L', 'T', -1, 0, alpha, a, 1, beta, c, 1 )
2739  CALL chkxer( srnamt, infot, nout, lerr, ok )
2740  infot = 4
2741  CALL csyrk( 'U', 'N', 0, -1, alpha, a, 1, beta, c, 1 )
2742  CALL chkxer( srnamt, infot, nout, lerr, ok )
2743  infot = 4
2744  CALL csyrk( 'U', 'T', 0, -1, alpha, a, 1, beta, c, 1 )
2745  CALL chkxer( srnamt, infot, nout, lerr, ok )
2746  infot = 4
2747  CALL csyrk( 'L', 'N', 0, -1, alpha, a, 1, beta, c, 1 )
2748  CALL chkxer( srnamt, infot, nout, lerr, ok )
2749  infot = 4
2750  CALL csyrk( 'L', 'T', 0, -1, alpha, a, 1, beta, c, 1 )
2751  CALL chkxer( srnamt, infot, nout, lerr, ok )
2752  infot = 7
2753  CALL csyrk( 'U', 'N', 2, 0, alpha, a, 1, beta, c, 2 )
2754  CALL chkxer( srnamt, infot, nout, lerr, ok )
2755  infot = 7
2756  CALL csyrk( 'U', 'T', 0, 2, alpha, a, 1, beta, c, 1 )
2757  CALL chkxer( srnamt, infot, nout, lerr, ok )
2758  infot = 7
2759  CALL csyrk( 'L', 'N', 2, 0, alpha, a, 1, beta, c, 2 )
2760  CALL chkxer( srnamt, infot, nout, lerr, ok )
2761  infot = 7
2762  CALL csyrk( 'L', 'T', 0, 2, alpha, a, 1, beta, c, 1 )
2763  CALL chkxer( srnamt, infot, nout, lerr, ok )
2764  infot = 10
2765  CALL csyrk( 'U', 'N', 2, 0, alpha, a, 2, beta, c, 1 )
2766  CALL chkxer( srnamt, infot, nout, lerr, ok )
2767  infot = 10
2768  CALL csyrk( 'U', 'T', 2, 0, alpha, a, 1, beta, c, 1 )
2769  CALL chkxer( srnamt, infot, nout, lerr, ok )
2770  infot = 10
2771  CALL csyrk( 'L', 'N', 2, 0, alpha, a, 2, beta, c, 1 )
2772  CALL chkxer( srnamt, infot, nout, lerr, ok )
2773  infot = 10
2774  CALL csyrk( 'L', 'T', 2, 0, alpha, a, 1, beta, c, 1 )
2775  CALL chkxer( srnamt, infot, nout, lerr, ok )
2776  GO TO 100
2777  80 infot = 1
2778  CALL cher2k( '/', 'N', 0, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2779  CALL chkxer( srnamt, infot, nout, lerr, ok )
2780  infot = 2
2781  CALL cher2k( 'U', 'T', 0, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2782  CALL chkxer( srnamt, infot, nout, lerr, ok )
2783  infot = 3
2784  CALL cher2k( 'U', 'N', -1, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2785  CALL chkxer( srnamt, infot, nout, lerr, ok )
2786  infot = 3
2787  CALL cher2k( 'U', 'C', -1, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2788  CALL chkxer( srnamt, infot, nout, lerr, ok )
2789  infot = 3
2790  CALL cher2k( 'L', 'N', -1, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2791  CALL chkxer( srnamt, infot, nout, lerr, ok )
2792  infot = 3
2793  CALL cher2k( 'L', 'C', -1, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2794  CALL chkxer( srnamt, infot, nout, lerr, ok )
2795  infot = 4
2796  CALL cher2k( 'U', 'N', 0, -1, alpha, a, 1, b, 1, rbeta, c, 1 )
2797  CALL chkxer( srnamt, infot, nout, lerr, ok )
2798  infot = 4
2799  CALL cher2k( 'U', 'C', 0, -1, alpha, a, 1, b, 1, rbeta, c, 1 )
2800  CALL chkxer( srnamt, infot, nout, lerr, ok )
2801  infot = 4
2802  CALL cher2k( 'L', 'N', 0, -1, alpha, a, 1, b, 1, rbeta, c, 1 )
2803  CALL chkxer( srnamt, infot, nout, lerr, ok )
2804  infot = 4
2805  CALL cher2k( 'L', 'C', 0, -1, alpha, a, 1, b, 1, rbeta, c, 1 )
2806  CALL chkxer( srnamt, infot, nout, lerr, ok )
2807  infot = 7
2808  CALL cher2k( 'U', 'N', 2, 0, alpha, a, 1, b, 1, rbeta, c, 2 )
2809  CALL chkxer( srnamt, infot, nout, lerr, ok )
2810  infot = 7
2811  CALL cher2k( 'U', 'C', 0, 2, alpha, a, 1, b, 1, rbeta, c, 1 )
2812  CALL chkxer( srnamt, infot, nout, lerr, ok )
2813  infot = 7
2814  CALL cher2k( 'L', 'N', 2, 0, alpha, a, 1, b, 1, rbeta, c, 2 )
2815  CALL chkxer( srnamt, infot, nout, lerr, ok )
2816  infot = 7
2817  CALL cher2k( 'L', 'C', 0, 2, alpha, a, 1, b, 1, rbeta, c, 1 )
2818  CALL chkxer( srnamt, infot, nout, lerr, ok )
2819  infot = 9
2820  CALL cher2k( 'U', 'N', 2, 0, alpha, a, 2, b, 1, rbeta, c, 2 )
2821  CALL chkxer( srnamt, infot, nout, lerr, ok )
2822  infot = 9
2823  CALL cher2k( 'U', 'C', 0, 2, alpha, a, 2, b, 1, rbeta, c, 1 )
2824  CALL chkxer( srnamt, infot, nout, lerr, ok )
2825  infot = 9
2826  CALL cher2k( 'L', 'N', 2, 0, alpha, a, 2, b, 1, rbeta, c, 2 )
2827  CALL chkxer( srnamt, infot, nout, lerr, ok )
2828  infot = 9
2829  CALL cher2k( 'L', 'C', 0, 2, alpha, a, 2, b, 1, rbeta, c, 1 )
2830  CALL chkxer( srnamt, infot, nout, lerr, ok )
2831  infot = 12
2832  CALL cher2k( 'U', 'N', 2, 0, alpha, a, 2, b, 2, rbeta, c, 1 )
2833  CALL chkxer( srnamt, infot, nout, lerr, ok )
2834  infot = 12
2835  CALL cher2k( 'U', 'C', 2, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2836  CALL chkxer( srnamt, infot, nout, lerr, ok )
2837  infot = 12
2838  CALL cher2k( 'L', 'N', 2, 0, alpha, a, 2, b, 2, rbeta, c, 1 )
2839  CALL chkxer( srnamt, infot, nout, lerr, ok )
2840  infot = 12
2841  CALL cher2k( 'L', 'C', 2, 0, alpha, a, 1, b, 1, rbeta, c, 1 )
2842  CALL chkxer( srnamt, infot, nout, lerr, ok )
2843  GO TO 100
2844  90 infot = 1
2845  CALL csyr2k( '/', 'N', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2846  CALL chkxer( srnamt, infot, nout, lerr, ok )
2847  infot = 2
2848  CALL csyr2k( 'U', 'C', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2849  CALL chkxer( srnamt, infot, nout, lerr, ok )
2850  infot = 3
2851  CALL csyr2k( 'U', 'N', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2852  CALL chkxer( srnamt, infot, nout, lerr, ok )
2853  infot = 3
2854  CALL csyr2k( 'U', 'T', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2855  CALL chkxer( srnamt, infot, nout, lerr, ok )
2856  infot = 3
2857  CALL csyr2k( 'L', 'N', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2858  CALL chkxer( srnamt, infot, nout, lerr, ok )
2859  infot = 3
2860  CALL csyr2k( 'L', 'T', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2861  CALL chkxer( srnamt, infot, nout, lerr, ok )
2862  infot = 4
2863  CALL csyr2k( 'U', 'N', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2864  CALL chkxer( srnamt, infot, nout, lerr, ok )
2865  infot = 4
2866  CALL csyr2k( 'U', 'T', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2867  CALL chkxer( srnamt, infot, nout, lerr, ok )
2868  infot = 4
2869  CALL csyr2k( 'L', 'N', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2870  CALL chkxer( srnamt, infot, nout, lerr, ok )
2871  infot = 4
2872  CALL csyr2k( 'L', 'T', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2873  CALL chkxer( srnamt, infot, nout, lerr, ok )
2874  infot = 7
2875  CALL csyr2k( 'U', 'N', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2876  CALL chkxer( srnamt, infot, nout, lerr, ok )
2877  infot = 7
2878  CALL csyr2k( 'U', 'T', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2879  CALL chkxer( srnamt, infot, nout, lerr, ok )
2880  infot = 7
2881  CALL csyr2k( 'L', 'N', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2882  CALL chkxer( srnamt, infot, nout, lerr, ok )
2883  infot = 7
2884  CALL csyr2k( 'L', 'T', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2885  CALL chkxer( srnamt, infot, nout, lerr, ok )
2886  infot = 9
2887  CALL csyr2k( 'U', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2888  CALL chkxer( srnamt, infot, nout, lerr, ok )
2889  infot = 9
2890  CALL csyr2k( 'U', 'T', 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2891  CALL chkxer( srnamt, infot, nout, lerr, ok )
2892  infot = 9
2893  CALL csyr2k( 'L', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2894  CALL chkxer( srnamt, infot, nout, lerr, ok )
2895  infot = 9
2896  CALL csyr2k( 'L', 'T', 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2897  CALL chkxer( srnamt, infot, nout, lerr, ok )
2898  infot = 12
2899  CALL csyr2k( 'U', 'N', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2900  CALL chkxer( srnamt, infot, nout, lerr, ok )
2901  infot = 12
2902  CALL csyr2k( 'U', 'T', 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2903  CALL chkxer( srnamt, infot, nout, lerr, ok )
2904  infot = 12
2905  CALL csyr2k( 'L', 'N', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2906  CALL chkxer( srnamt, infot, nout, lerr, ok )
2907  infot = 12
2908  CALL csyr2k( 'L', 'T', 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2909  CALL chkxer( srnamt, infot, nout, lerr, ok )
2910 *
2911  100 IF( ok )THEN
2912  WRITE( nout, fmt = 9999 )srnamt
2913  ELSE
2914  WRITE( nout, fmt = 9998 )srnamt
2915  END IF
2916  RETURN
2917 *
2918  9999 FORMAT( ' ', a6, ' PASSED THE TESTS OF ERROR-EXITS' )
2919  9998 FORMAT( ' ******* ', a6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2920  $ '**' )
2921 *
2922 * End of CCHKE.
2923 *
Here is the call graph for this function:
cgemm
subroutine cgemm(TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC)
CGEMM
Definition: cgemm.f:189
csymm
subroutine csymm(SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB, BETA, C, LDC)
CSYMM
Definition: csymm.f:191
chemm
subroutine chemm(SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB, BETA, C, LDC)
CHEMM
Definition: chemm.f:193
ctrsm
subroutine ctrsm(SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB)
CTRSM
Definition: ctrsm.f:182
chkxer
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
cherk
subroutine cherk(UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, C, LDC)
CHERK
Definition: cherk.f:175
cher2k
subroutine cher2k(UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC)
CHER2K
Definition: cher2k.f:199
csyr2k
subroutine csyr2k(UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC)
CSYR2K
Definition: csyr2k.f:190
csyrk
subroutine csyrk(UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, C, LDC)
CSYRK
Definition: csyrk.f:169
ctrmm
subroutine ctrmm(SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB)
CTRMM
Definition: ctrmm.f:179