LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ dchke()

subroutine dchke ( integer isnum,
character*7 srnamt,
integer nout )

Definition at line 1844 of file dblat3.f.

1845*
1846* Tests the error exits from the Level 3 Blas.
1847* Requires a special version of the error-handling routine XERBLA.
1848* A, B and C should not need to be defined.
1849*
1850* Auxiliary routine for test program for Level 3 Blas.
1851*
1852* -- Written on 8-February-1989.
1853* Jack Dongarra, Argonne National Laboratory.
1854* Iain Duff, AERE Harwell.
1855* Jeremy Du Croz, Numerical Algorithms Group Ltd.
1856* Sven Hammarling, Numerical Algorithms Group Ltd.
1857*
1858* 3-19-92: Initialize ALPHA and BETA (eca)
1859* 3-19-92: Fix argument 12 in calls to SSYMM with INFOT = 9 (eca)
1860*
1861* .. Scalar Arguments ..
1862 INTEGER ISNUM, NOUT
1863 CHARACTER*7 SRNAMT
1864* .. Scalars in Common ..
1865 INTEGER INFOT, NOUTC
1866 LOGICAL LERR, OK
1867* .. Parameters ..
1868 DOUBLE PRECISION ONE, TWO
1869 parameter( one = 1.0d0, two = 2.0d0 )
1870* .. Local Scalars ..
1871 DOUBLE PRECISION ALPHA, BETA
1872* .. Local Arrays ..
1873 DOUBLE PRECISION A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
1874* .. External Subroutines ..
1875 EXTERNAL chkxer, dgemm, dsymm, dsyr2k, dsyrk, dtrmm,
1876 $ dtrsm
1877* .. Common blocks ..
1878 COMMON /infoc/infot, noutc, ok, lerr
1879* .. Executable Statements ..
1880* OK is set to .FALSE. by the special version of XERBLA or by CHKXER
1881* if anything is wrong.
1882 ok = .true.
1883* LERR is set to .TRUE. by the special version of XERBLA each time
1884* it is called, and is then tested and re-set by CHKXER.
1885 lerr = .false.
1886*
1887* Initialize ALPHA and BETA.
1888*
1889 alpha = one
1890 beta = two
1891*
1892 GO TO ( 10, 20, 30, 40, 50, 60, 70 )isnum
1893 10 infot = 1
1894 CALL dgemm( '/', 'N', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1895 CALL chkxer( srnamt, infot, nout, lerr, ok )
1896 infot = 1
1897 CALL dgemm( '/', 'T', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1898 CALL chkxer( srnamt, infot, nout, lerr, ok )
1899 infot = 2
1900 CALL dgemm( 'N', '/', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1901 CALL chkxer( srnamt, infot, nout, lerr, ok )
1902 infot = 2
1903 CALL dgemm( 'T', '/', 0, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1904 CALL chkxer( srnamt, infot, nout, lerr, ok )
1905 infot = 3
1906 CALL dgemm( 'N', 'N', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1907 CALL chkxer( srnamt, infot, nout, lerr, ok )
1908 infot = 3
1909 CALL dgemm( 'N', 'T', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1910 CALL chkxer( srnamt, infot, nout, lerr, ok )
1911 infot = 3
1912 CALL dgemm( 'T', 'N', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1913 CALL chkxer( srnamt, infot, nout, lerr, ok )
1914 infot = 3
1915 CALL dgemm( 'T', 'T', -1, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1916 CALL chkxer( srnamt, infot, nout, lerr, ok )
1917 infot = 4
1918 CALL dgemm( 'N', 'N', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1919 CALL chkxer( srnamt, infot, nout, lerr, ok )
1920 infot = 4
1921 CALL dgemm( 'N', 'T', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1922 CALL chkxer( srnamt, infot, nout, lerr, ok )
1923 infot = 4
1924 CALL dgemm( 'T', 'N', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1925 CALL chkxer( srnamt, infot, nout, lerr, ok )
1926 infot = 4
1927 CALL dgemm( 'T', 'T', 0, -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1928 CALL chkxer( srnamt, infot, nout, lerr, ok )
1929 infot = 5
1930 CALL dgemm( 'N', 'N', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
1931 CALL chkxer( srnamt, infot, nout, lerr, ok )
1932 infot = 5
1933 CALL dgemm( 'N', 'T', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
1934 CALL chkxer( srnamt, infot, nout, lerr, ok )
1935 infot = 5
1936 CALL dgemm( 'T', 'N', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
1937 CALL chkxer( srnamt, infot, nout, lerr, ok )
1938 infot = 5
1939 CALL dgemm( 'T', 'T', 0, 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
1940 CALL chkxer( srnamt, infot, nout, lerr, ok )
1941 infot = 8
1942 CALL dgemm( 'N', 'N', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 2 )
1943 CALL chkxer( srnamt, infot, nout, lerr, ok )
1944 infot = 8
1945 CALL dgemm( 'N', 'T', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 2 )
1946 CALL chkxer( srnamt, infot, nout, lerr, ok )
1947 infot = 8
1948 CALL dgemm( 'T', 'N', 0, 0, 2, alpha, a, 1, b, 2, beta, c, 1 )
1949 CALL chkxer( srnamt, infot, nout, lerr, ok )
1950 infot = 8
1951 CALL dgemm( 'T', 'T', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
1952 CALL chkxer( srnamt, infot, nout, lerr, ok )
1953 infot = 10
1954 CALL dgemm( 'N', 'N', 0, 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
1955 CALL chkxer( srnamt, infot, nout, lerr, ok )
1956 infot = 10
1957 CALL dgemm( 'T', 'N', 0, 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
1958 CALL chkxer( srnamt, infot, nout, lerr, ok )
1959 infot = 10
1960 CALL dgemm( 'N', 'T', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
1961 CALL chkxer( srnamt, infot, nout, lerr, ok )
1962 infot = 10
1963 CALL dgemm( 'T', 'T', 0, 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
1964 CALL chkxer( srnamt, infot, nout, lerr, ok )
1965 infot = 13
1966 CALL dgemm( 'N', 'N', 2, 0, 0, alpha, a, 2, b, 1, beta, c, 1 )
1967 CALL chkxer( srnamt, infot, nout, lerr, ok )
1968 infot = 13
1969 CALL dgemm( 'N', 'T', 2, 0, 0, alpha, a, 2, b, 1, beta, c, 1 )
1970 CALL chkxer( srnamt, infot, nout, lerr, ok )
1971 infot = 13
1972 CALL dgemm( 'T', 'N', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1973 CALL chkxer( srnamt, infot, nout, lerr, ok )
1974 infot = 13
1975 CALL dgemm( 'T', 'T', 2, 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1976 CALL chkxer( srnamt, infot, nout, lerr, ok )
1977 GO TO 80
1978 20 infot = 1
1979 CALL dsymm( '/', 'U', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1980 CALL chkxer( srnamt, infot, nout, lerr, ok )
1981 infot = 2
1982 CALL dsymm( 'L', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
1983 CALL chkxer( srnamt, infot, nout, lerr, ok )
1984 infot = 3
1985 CALL dsymm( 'L', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1986 CALL chkxer( srnamt, infot, nout, lerr, ok )
1987 infot = 3
1988 CALL dsymm( 'R', 'U', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1989 CALL chkxer( srnamt, infot, nout, lerr, ok )
1990 infot = 3
1991 CALL dsymm( 'L', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1992 CALL chkxer( srnamt, infot, nout, lerr, ok )
1993 infot = 3
1994 CALL dsymm( 'R', 'L', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
1995 CALL chkxer( srnamt, infot, nout, lerr, ok )
1996 infot = 4
1997 CALL dsymm( 'L', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
1998 CALL chkxer( srnamt, infot, nout, lerr, ok )
1999 infot = 4
2000 CALL dsymm( 'R', 'U', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2001 CALL chkxer( srnamt, infot, nout, lerr, ok )
2002 infot = 4
2003 CALL dsymm( 'L', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2004 CALL chkxer( srnamt, infot, nout, lerr, ok )
2005 infot = 4
2006 CALL dsymm( 'R', 'L', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2007 CALL chkxer( srnamt, infot, nout, lerr, ok )
2008 infot = 7
2009 CALL dsymm( 'L', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2010 CALL chkxer( srnamt, infot, nout, lerr, ok )
2011 infot = 7
2012 CALL dsymm( 'R', 'U', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2013 CALL chkxer( srnamt, infot, nout, lerr, ok )
2014 infot = 7
2015 CALL dsymm( 'L', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2016 CALL chkxer( srnamt, infot, nout, lerr, ok )
2017 infot = 7
2018 CALL dsymm( 'R', 'L', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2019 CALL chkxer( srnamt, infot, nout, lerr, ok )
2020 infot = 9
2021 CALL dsymm( 'L', 'U', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2022 CALL chkxer( srnamt, infot, nout, lerr, ok )
2023 infot = 9
2024 CALL dsymm( 'R', 'U', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2025 CALL chkxer( srnamt, infot, nout, lerr, ok )
2026 infot = 9
2027 CALL dsymm( 'L', 'L', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2028 CALL chkxer( srnamt, infot, nout, lerr, ok )
2029 infot = 9
2030 CALL dsymm( 'R', 'L', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2031 CALL chkxer( srnamt, infot, nout, lerr, ok )
2032 infot = 12
2033 CALL dsymm( 'L', 'U', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2034 CALL chkxer( srnamt, infot, nout, lerr, ok )
2035 infot = 12
2036 CALL dsymm( 'R', 'U', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2037 CALL chkxer( srnamt, infot, nout, lerr, ok )
2038 infot = 12
2039 CALL dsymm( 'L', 'L', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2040 CALL chkxer( srnamt, infot, nout, lerr, ok )
2041 infot = 12
2042 CALL dsymm( 'R', 'L', 2, 0, alpha, a, 1, b, 2, beta, c, 1 )
2043 CALL chkxer( srnamt, infot, nout, lerr, ok )
2044 GO TO 80
2045 30 infot = 1
2046 CALL dtrmm( '/', 'U', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2047 CALL chkxer( srnamt, infot, nout, lerr, ok )
2048 infot = 2
2049 CALL dtrmm( 'L', '/', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2050 CALL chkxer( srnamt, infot, nout, lerr, ok )
2051 infot = 3
2052 CALL dtrmm( 'L', 'U', '/', 'N', 0, 0, alpha, a, 1, b, 1 )
2053 CALL chkxer( srnamt, infot, nout, lerr, ok )
2054 infot = 4
2055 CALL dtrmm( 'L', 'U', 'N', '/', 0, 0, alpha, a, 1, b, 1 )
2056 CALL chkxer( srnamt, infot, nout, lerr, ok )
2057 infot = 5
2058 CALL dtrmm( 'L', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2059 CALL chkxer( srnamt, infot, nout, lerr, ok )
2060 infot = 5
2061 CALL dtrmm( 'L', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2062 CALL chkxer( srnamt, infot, nout, lerr, ok )
2063 infot = 5
2064 CALL dtrmm( 'R', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2065 CALL chkxer( srnamt, infot, nout, lerr, ok )
2066 infot = 5
2067 CALL dtrmm( 'R', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2068 CALL chkxer( srnamt, infot, nout, lerr, ok )
2069 infot = 5
2070 CALL dtrmm( 'L', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2071 CALL chkxer( srnamt, infot, nout, lerr, ok )
2072 infot = 5
2073 CALL dtrmm( 'L', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2074 CALL chkxer( srnamt, infot, nout, lerr, ok )
2075 infot = 5
2076 CALL dtrmm( 'R', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2077 CALL chkxer( srnamt, infot, nout, lerr, ok )
2078 infot = 5
2079 CALL dtrmm( 'R', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2080 CALL chkxer( srnamt, infot, nout, lerr, ok )
2081 infot = 6
2082 CALL dtrmm( 'L', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2083 CALL chkxer( srnamt, infot, nout, lerr, ok )
2084 infot = 6
2085 CALL dtrmm( 'L', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2086 CALL chkxer( srnamt, infot, nout, lerr, ok )
2087 infot = 6
2088 CALL dtrmm( 'R', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2089 CALL chkxer( srnamt, infot, nout, lerr, ok )
2090 infot = 6
2091 CALL dtrmm( 'R', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2092 CALL chkxer( srnamt, infot, nout, lerr, ok )
2093 infot = 6
2094 CALL dtrmm( 'L', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2095 CALL chkxer( srnamt, infot, nout, lerr, ok )
2096 infot = 6
2097 CALL dtrmm( 'L', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2098 CALL chkxer( srnamt, infot, nout, lerr, ok )
2099 infot = 6
2100 CALL dtrmm( 'R', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2101 CALL chkxer( srnamt, infot, nout, lerr, ok )
2102 infot = 6
2103 CALL dtrmm( 'R', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2104 CALL chkxer( srnamt, infot, nout, lerr, ok )
2105 infot = 9
2106 CALL dtrmm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2107 CALL chkxer( srnamt, infot, nout, lerr, ok )
2108 infot = 9
2109 CALL dtrmm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2110 CALL chkxer( srnamt, infot, nout, lerr, ok )
2111 infot = 9
2112 CALL dtrmm( 'R', 'U', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2113 CALL chkxer( srnamt, infot, nout, lerr, ok )
2114 infot = 9
2115 CALL dtrmm( 'R', 'U', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2116 CALL chkxer( srnamt, infot, nout, lerr, ok )
2117 infot = 9
2118 CALL dtrmm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2119 CALL chkxer( srnamt, infot, nout, lerr, ok )
2120 infot = 9
2121 CALL dtrmm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2122 CALL chkxer( srnamt, infot, nout, lerr, ok )
2123 infot = 9
2124 CALL dtrmm( 'R', 'L', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2125 CALL chkxer( srnamt, infot, nout, lerr, ok )
2126 infot = 9
2127 CALL dtrmm( 'R', 'L', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2128 CALL chkxer( srnamt, infot, nout, lerr, ok )
2129 infot = 11
2130 CALL dtrmm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2131 CALL chkxer( srnamt, infot, nout, lerr, ok )
2132 infot = 11
2133 CALL dtrmm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2134 CALL chkxer( srnamt, infot, nout, lerr, ok )
2135 infot = 11
2136 CALL dtrmm( 'R', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2137 CALL chkxer( srnamt, infot, nout, lerr, ok )
2138 infot = 11
2139 CALL dtrmm( 'R', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2140 CALL chkxer( srnamt, infot, nout, lerr, ok )
2141 infot = 11
2142 CALL dtrmm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2143 CALL chkxer( srnamt, infot, nout, lerr, ok )
2144 infot = 11
2145 CALL dtrmm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2146 CALL chkxer( srnamt, infot, nout, lerr, ok )
2147 infot = 11
2148 CALL dtrmm( 'R', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2149 CALL chkxer( srnamt, infot, nout, lerr, ok )
2150 infot = 11
2151 CALL dtrmm( 'R', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2152 CALL chkxer( srnamt, infot, nout, lerr, ok )
2153 GO TO 80
2154 40 infot = 1
2155 CALL dtrsm( '/', 'U', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2156 CALL chkxer( srnamt, infot, nout, lerr, ok )
2157 infot = 2
2158 CALL dtrsm( 'L', '/', 'N', 'N', 0, 0, alpha, a, 1, b, 1 )
2159 CALL chkxer( srnamt, infot, nout, lerr, ok )
2160 infot = 3
2161 CALL dtrsm( 'L', 'U', '/', 'N', 0, 0, alpha, a, 1, b, 1 )
2162 CALL chkxer( srnamt, infot, nout, lerr, ok )
2163 infot = 4
2164 CALL dtrsm( 'L', 'U', 'N', '/', 0, 0, alpha, a, 1, b, 1 )
2165 CALL chkxer( srnamt, infot, nout, lerr, ok )
2166 infot = 5
2167 CALL dtrsm( 'L', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2168 CALL chkxer( srnamt, infot, nout, lerr, ok )
2169 infot = 5
2170 CALL dtrsm( 'L', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2171 CALL chkxer( srnamt, infot, nout, lerr, ok )
2172 infot = 5
2173 CALL dtrsm( 'R', 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2174 CALL chkxer( srnamt, infot, nout, lerr, ok )
2175 infot = 5
2176 CALL dtrsm( 'R', 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2177 CALL chkxer( srnamt, infot, nout, lerr, ok )
2178 infot = 5
2179 CALL dtrsm( 'L', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2180 CALL chkxer( srnamt, infot, nout, lerr, ok )
2181 infot = 5
2182 CALL dtrsm( 'L', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2183 CALL chkxer( srnamt, infot, nout, lerr, ok )
2184 infot = 5
2185 CALL dtrsm( 'R', 'L', 'N', 'N', -1, 0, alpha, a, 1, b, 1 )
2186 CALL chkxer( srnamt, infot, nout, lerr, ok )
2187 infot = 5
2188 CALL dtrsm( 'R', 'L', 'T', 'N', -1, 0, alpha, a, 1, b, 1 )
2189 CALL chkxer( srnamt, infot, nout, lerr, ok )
2190 infot = 6
2191 CALL dtrsm( 'L', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2192 CALL chkxer( srnamt, infot, nout, lerr, ok )
2193 infot = 6
2194 CALL dtrsm( 'L', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2195 CALL chkxer( srnamt, infot, nout, lerr, ok )
2196 infot = 6
2197 CALL dtrsm( 'R', 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2198 CALL chkxer( srnamt, infot, nout, lerr, ok )
2199 infot = 6
2200 CALL dtrsm( 'R', 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2201 CALL chkxer( srnamt, infot, nout, lerr, ok )
2202 infot = 6
2203 CALL dtrsm( 'L', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2204 CALL chkxer( srnamt, infot, nout, lerr, ok )
2205 infot = 6
2206 CALL dtrsm( 'L', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2207 CALL chkxer( srnamt, infot, nout, lerr, ok )
2208 infot = 6
2209 CALL dtrsm( 'R', 'L', 'N', 'N', 0, -1, alpha, a, 1, b, 1 )
2210 CALL chkxer( srnamt, infot, nout, lerr, ok )
2211 infot = 6
2212 CALL dtrsm( 'R', 'L', 'T', 'N', 0, -1, alpha, a, 1, b, 1 )
2213 CALL chkxer( srnamt, infot, nout, lerr, ok )
2214 infot = 9
2215 CALL dtrsm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2216 CALL chkxer( srnamt, infot, nout, lerr, ok )
2217 infot = 9
2218 CALL dtrsm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2219 CALL chkxer( srnamt, infot, nout, lerr, ok )
2220 infot = 9
2221 CALL dtrsm( 'R', 'U', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2222 CALL chkxer( srnamt, infot, nout, lerr, ok )
2223 infot = 9
2224 CALL dtrsm( 'R', 'U', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2225 CALL chkxer( srnamt, infot, nout, lerr, ok )
2226 infot = 9
2227 CALL dtrsm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 2 )
2228 CALL chkxer( srnamt, infot, nout, lerr, ok )
2229 infot = 9
2230 CALL dtrsm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 2 )
2231 CALL chkxer( srnamt, infot, nout, lerr, ok )
2232 infot = 9
2233 CALL dtrsm( 'R', 'L', 'N', 'N', 0, 2, alpha, a, 1, b, 1 )
2234 CALL chkxer( srnamt, infot, nout, lerr, ok )
2235 infot = 9
2236 CALL dtrsm( 'R', 'L', 'T', 'N', 0, 2, alpha, a, 1, b, 1 )
2237 CALL chkxer( srnamt, infot, nout, lerr, ok )
2238 infot = 11
2239 CALL dtrsm( 'L', 'U', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2240 CALL chkxer( srnamt, infot, nout, lerr, ok )
2241 infot = 11
2242 CALL dtrsm( 'L', 'U', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2243 CALL chkxer( srnamt, infot, nout, lerr, ok )
2244 infot = 11
2245 CALL dtrsm( 'R', 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2246 CALL chkxer( srnamt, infot, nout, lerr, ok )
2247 infot = 11
2248 CALL dtrsm( 'R', 'U', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2249 CALL chkxer( srnamt, infot, nout, lerr, ok )
2250 infot = 11
2251 CALL dtrsm( 'L', 'L', 'N', 'N', 2, 0, alpha, a, 2, b, 1 )
2252 CALL chkxer( srnamt, infot, nout, lerr, ok )
2253 infot = 11
2254 CALL dtrsm( 'L', 'L', 'T', 'N', 2, 0, alpha, a, 2, b, 1 )
2255 CALL chkxer( srnamt, infot, nout, lerr, ok )
2256 infot = 11
2257 CALL dtrsm( 'R', 'L', 'N', 'N', 2, 0, alpha, a, 1, b, 1 )
2258 CALL chkxer( srnamt, infot, nout, lerr, ok )
2259 infot = 11
2260 CALL dtrsm( 'R', 'L', 'T', 'N', 2, 0, alpha, a, 1, b, 1 )
2261 CALL chkxer( srnamt, infot, nout, lerr, ok )
2262 GO TO 80
2263 50 infot = 1
2264 CALL dsyrk( '/', 'N', 0, 0, alpha, a, 1, beta, c, 1 )
2265 CALL chkxer( srnamt, infot, nout, lerr, ok )
2266 infot = 2
2267 CALL dsyrk( 'U', '/', 0, 0, alpha, a, 1, beta, c, 1 )
2268 CALL chkxer( srnamt, infot, nout, lerr, ok )
2269 infot = 3
2270 CALL dsyrk( 'U', 'N', -1, 0, alpha, a, 1, beta, c, 1 )
2271 CALL chkxer( srnamt, infot, nout, lerr, ok )
2272 infot = 3
2273 CALL dsyrk( 'U', 'T', -1, 0, alpha, a, 1, beta, c, 1 )
2274 CALL chkxer( srnamt, infot, nout, lerr, ok )
2275 infot = 3
2276 CALL dsyrk( 'L', 'N', -1, 0, alpha, a, 1, beta, c, 1 )
2277 CALL chkxer( srnamt, infot, nout, lerr, ok )
2278 infot = 3
2279 CALL dsyrk( 'L', 'T', -1, 0, alpha, a, 1, beta, c, 1 )
2280 CALL chkxer( srnamt, infot, nout, lerr, ok )
2281 infot = 4
2282 CALL dsyrk( 'U', 'N', 0, -1, alpha, a, 1, beta, c, 1 )
2283 CALL chkxer( srnamt, infot, nout, lerr, ok )
2284 infot = 4
2285 CALL dsyrk( 'U', 'T', 0, -1, alpha, a, 1, beta, c, 1 )
2286 CALL chkxer( srnamt, infot, nout, lerr, ok )
2287 infot = 4
2288 CALL dsyrk( 'L', 'N', 0, -1, alpha, a, 1, beta, c, 1 )
2289 CALL chkxer( srnamt, infot, nout, lerr, ok )
2290 infot = 4
2291 CALL dsyrk( 'L', 'T', 0, -1, alpha, a, 1, beta, c, 1 )
2292 CALL chkxer( srnamt, infot, nout, lerr, ok )
2293 infot = 7
2294 CALL dsyrk( 'U', 'N', 2, 0, alpha, a, 1, beta, c, 2 )
2295 CALL chkxer( srnamt, infot, nout, lerr, ok )
2296 infot = 7
2297 CALL dsyrk( 'U', 'T', 0, 2, alpha, a, 1, beta, c, 1 )
2298 CALL chkxer( srnamt, infot, nout, lerr, ok )
2299 infot = 7
2300 CALL dsyrk( 'L', 'N', 2, 0, alpha, a, 1, beta, c, 2 )
2301 CALL chkxer( srnamt, infot, nout, lerr, ok )
2302 infot = 7
2303 CALL dsyrk( 'L', 'T', 0, 2, alpha, a, 1, beta, c, 1 )
2304 CALL chkxer( srnamt, infot, nout, lerr, ok )
2305 infot = 10
2306 CALL dsyrk( 'U', 'N', 2, 0, alpha, a, 2, beta, c, 1 )
2307 CALL chkxer( srnamt, infot, nout, lerr, ok )
2308 infot = 10
2309 CALL dsyrk( 'U', 'T', 2, 0, alpha, a, 1, beta, c, 1 )
2310 CALL chkxer( srnamt, infot, nout, lerr, ok )
2311 infot = 10
2312 CALL dsyrk( 'L', 'N', 2, 0, alpha, a, 2, beta, c, 1 )
2313 CALL chkxer( srnamt, infot, nout, lerr, ok )
2314 infot = 10
2315 CALL dsyrk( 'L', 'T', 2, 0, alpha, a, 1, beta, c, 1 )
2316 CALL chkxer( srnamt, infot, nout, lerr, ok )
2317 GO TO 80
2318 60 infot = 1
2319 CALL dsyr2k( '/', 'N', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2320 CALL chkxer( srnamt, infot, nout, lerr, ok )
2321 infot = 2
2322 CALL dsyr2k( 'U', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2323 CALL chkxer( srnamt, infot, nout, lerr, ok )
2324 infot = 3
2325 CALL dsyr2k( 'U', 'N', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2326 CALL chkxer( srnamt, infot, nout, lerr, ok )
2327 infot = 3
2328 CALL dsyr2k( 'U', 'T', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2329 CALL chkxer( srnamt, infot, nout, lerr, ok )
2330 infot = 3
2331 CALL dsyr2k( 'L', 'N', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2332 CALL chkxer( srnamt, infot, nout, lerr, ok )
2333 infot = 3
2334 CALL dsyr2k( 'L', 'T', -1, 0, alpha, a, 1, b, 1, beta, c, 1 )
2335 CALL chkxer( srnamt, infot, nout, lerr, ok )
2336 infot = 4
2337 CALL dsyr2k( 'U', 'N', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2338 CALL chkxer( srnamt, infot, nout, lerr, ok )
2339 infot = 4
2340 CALL dsyr2k( 'U', 'T', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2341 CALL chkxer( srnamt, infot, nout, lerr, ok )
2342 infot = 4
2343 CALL dsyr2k( 'L', 'N', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2344 CALL chkxer( srnamt, infot, nout, lerr, ok )
2345 infot = 4
2346 CALL dsyr2k( 'L', 'T', 0, -1, alpha, a, 1, b, 1, beta, c, 1 )
2347 CALL chkxer( srnamt, infot, nout, lerr, ok )
2348 infot = 7
2349 CALL dsyr2k( 'U', 'N', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2350 CALL chkxer( srnamt, infot, nout, lerr, ok )
2351 infot = 7
2352 CALL dsyr2k( 'U', 'T', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2353 CALL chkxer( srnamt, infot, nout, lerr, ok )
2354 infot = 7
2355 CALL dsyr2k( 'L', 'N', 2, 0, alpha, a, 1, b, 1, beta, c, 2 )
2356 CALL chkxer( srnamt, infot, nout, lerr, ok )
2357 infot = 7
2358 CALL dsyr2k( 'L', 'T', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2359 CALL chkxer( srnamt, infot, nout, lerr, ok )
2360 infot = 9
2361 CALL dsyr2k( 'U', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2362 CALL chkxer( srnamt, infot, nout, lerr, ok )
2363 infot = 9
2364 CALL dsyr2k( 'U', 'T', 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2365 CALL chkxer( srnamt, infot, nout, lerr, ok )
2366 infot = 9
2367 CALL dsyr2k( 'L', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 2 )
2368 CALL chkxer( srnamt, infot, nout, lerr, ok )
2369 infot = 9
2370 CALL dsyr2k( 'L', 'T', 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2371 CALL chkxer( srnamt, infot, nout, lerr, ok )
2372 infot = 12
2373 CALL dsyr2k( 'U', 'N', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2374 CALL chkxer( srnamt, infot, nout, lerr, ok )
2375 infot = 12
2376 CALL dsyr2k( 'U', 'T', 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2377 CALL chkxer( srnamt, infot, nout, lerr, ok )
2378 infot = 12
2379 CALL dsyr2k( 'L', 'N', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2380 CALL chkxer( srnamt, infot, nout, lerr, ok )
2381 infot = 12
2382 CALL dsyr2k( 'L', 'T', 2, 0, alpha, a, 1, b, 1, beta, c, 1 )
2383 CALL chkxer( srnamt, infot, nout, lerr, ok )
2384 GO TO 80
2385 70 infot = 1
2386 CALL dgemmtr( '/', 'N', 'N', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2387 CALL chkxer( srnamt, infot, nout, lerr, ok )
2388 infot = 2
2389 CALL dgemmtr( 'U', '/', 'N', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2390 CALL chkxer( srnamt, infot, nout, lerr, ok )
2391 infot = 2
2392 CALL dgemmtr( 'U', '/', 'T', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2393 CALL chkxer( srnamt, infot, nout, lerr, ok )
2394 infot = 3
2395 CALL dgemmtr( 'U', 'N', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2396 CALL chkxer( srnamt, infot, nout, lerr, ok )
2397 infot = 3
2398 CALL dgemmtr( 'U', 'T', '/', 0, 0, alpha, a, 1, b, 1, beta, c, 1 )
2399 CALL chkxer( srnamt, infot, nout, lerr, ok )
2400 infot = 4
2401 CALL dgemmtr( 'U', 'N', 'N', -1, 0, alpha, a, 1, b, 1, beta, c,
2402 $ 1 )
2403 CALL chkxer( srnamt, infot, nout, lerr, ok )
2404 infot = 4
2405 CALL dgemmtr( 'U', 'N', 'T', -1, 0, alpha, a, 1, b, 1, beta, c,
2406 $ 1 )
2407 CALL chkxer( srnamt, infot, nout, lerr, ok )
2408 infot = 4
2409 CALL dgemmtr( 'U', 'T', 'N', -1, 0, alpha, a, 1, b, 1, beta, c,
2410 $ 1 )
2411 CALL chkxer( srnamt, infot, nout, lerr, ok )
2412 infot = 4
2413 CALL dgemmtr( 'U', 'T', 'T', -1, 0, alpha, a, 1, b, 1, beta, c,
2414 $ 1 )
2415 CALL chkxer( srnamt, infot, nout, lerr, ok )
2416 infot = 5
2417 CALL dgemmtr( 'U', 'N', 'N', 0, -1, alpha, a, 1, b, 1, beta, c,
2418 $ 1 )
2419 CALL chkxer( srnamt, infot, nout, lerr, ok )
2420 infot = 5
2421 CALL dgemmtr( 'U', 'N', 'T', 0, -1, alpha, a, 1, b, 1, beta, c,
2422 $ 1 )
2423 CALL chkxer( srnamt, infot, nout, lerr, ok )
2424 infot = 5
2425 CALL dgemmtr( 'U', 'T', 'N', 0, -1, alpha, a, 1, b, 1, beta, c,
2426 $ 1 )
2427 CALL chkxer( srnamt, infot, nout, lerr, ok )
2428 infot = 5
2429 CALL dgemmtr( 'U', 'T', 'T', 0, -1, alpha, a, 1, b, 1, beta, c,
2430 $ 1 )
2431 CALL chkxer( srnamt, infot, nout, lerr, ok )
2432 infot = 8
2433 CALL dgemmtr( 'U', 'N', 'N', 2, 0, alpha, a, 1, b, 2, beta, c,
2434 $ 2 )
2435 CALL chkxer( srnamt, infot, nout, lerr, ok )
2436 infot = 8
2437 CALL dgemmtr( 'U', 'N', 'T', 2, 0, alpha, a, 1, b, 2, beta, c, 2 )
2438 CALL chkxer( srnamt, infot, nout, lerr, ok )
2439 infot = 10
2440 CALL dgemmtr( 'U', 'N', 'N', 0, 2, alpha, a, 1, b, 1, beta, c, 1 )
2441 CALL chkxer( srnamt, infot, nout, lerr, ok )
2442 infot = 10
2443 CALL dgemmtr( 'U', 'T', 'N', 0, 2, alpha, a, 2, b, 1, beta, c, 1 )
2444 CALL chkxer( srnamt, infot, nout, lerr, ok )
2445 infot = 10
2446 CALL dgemmtr( 'U', 'N', 'T', 2, 0, alpha, a, 2, b, 1, beta, c, 1 )
2447 CALL chkxer( srnamt, infot, nout, lerr, ok )
2448 infot = 10
2449 CALL dgemmtr( 'U', 'T', 'T', 2, 0, alpha, a, 2, b, 1, beta, c, 1 )
2450 CALL chkxer( srnamt, infot, nout, lerr, ok )
2451 infot = 13
2452 CALL dgemmtr( 'U', 'N', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 1 )
2453 CALL chkxer( srnamt, infot, nout, lerr, ok )
2454 infot = 13
2455 CALL dgemmtr( 'U', 'N', 'T', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2456 CALL chkxer( srnamt, infot, nout, lerr, ok )
2457 infot = 13
2458 CALL dgemmtr( 'U', 'T', 'N', 2, 0, alpha, a, 2, b, 1, beta, c, 1 )
2459 CALL chkxer( srnamt, infot, nout, lerr, ok )
2460 infot = 13
2461 CALL dgemmtr( 'U', 'T', 'T', 2, 0, alpha, a, 2, b, 2, beta, c, 1 )
2462 CALL chkxer( srnamt, infot, nout, lerr, ok )
2463*
2464 80 IF( ok )THEN
2465 WRITE( nout, fmt = 9999 )srnamt
2466 ELSE
2467 WRITE( nout, fmt = 9998 )srnamt
2468 END IF
2469 RETURN
2470*
2471 9999 FORMAT( ' ', a6, ' PASSED THE TESTS OF ERROR-EXITS' )
2472 9998 FORMAT( ' ******* ', a6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2473 $ '**' )
2474*
2475* End of DCHKE
2476*
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3224
dgemm
subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
DGEMM
Definition dgemm.f:188
dgemmtr
subroutine dgemmtr(uplo, transa, transb, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
DGEMMTR
Definition dgemmtr.f:191
dsymm
subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
DSYMM
Definition dsymm.f:189
dsyr2k
subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
DSYR2K
Definition dsyr2k.f:192
dsyrk
subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
DSYRK
Definition dsyrk.f:169
dtrmm
subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
DTRMM
Definition dtrmm.f:177
dtrsm
subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
DTRSM
Definition dtrsm.f:181
Here is the call graph for this function: