00001 #include <stdio.h>
00002 #include <string.h>
00003 #include "cblas.h"
00004 #include "cblas_test.h"
00005
00006 int cblas_ok, cblas_lerr, cblas_info;
00007 int link_xerbla=TRUE;
00008 char *cblas_rout;
00009
00010 #ifdef F77_Char
00011 void F77_xerbla(F77_Char F77_srname, void *vinfo);
00012 #else
00013 void F77_xerbla(char *srname, void *vinfo);
00014 #endif
00015
00016 void chkxer(void) {
00017 extern int cblas_ok, cblas_lerr, cblas_info;
00018 extern int link_xerbla;
00019 extern char *cblas_rout;
00020 if (cblas_lerr == 1 ) {
00021 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
00022 cblas_ok = 0 ;
00023 }
00024 cblas_lerr = 1 ;
00025 }
00026
00027 void F77_c3chke(char * rout) {
00028 char *sf = ( rout ) ;
00029 float A[4] = {0.0,0.0,0.0,0.0},
00030 B[4] = {0.0,0.0,0.0,0.0},
00031 C[4] = {0.0,0.0,0.0,0.0},
00032 ALPHA[2] = {0.0,0.0},
00033 BETA[2] = {0.0,0.0},
00034 RALPHA = 0.0, RBETA = 0.0;
00035 extern int cblas_info, cblas_lerr, cblas_ok;
00036 extern int RowMajorStrg;
00037 extern char *cblas_rout;
00038
00039 cblas_ok = TRUE ;
00040 cblas_lerr = PASSED ;
00041
00042 if (link_xerbla)
00043 {
00044 cblas_xerbla(cblas_info,cblas_rout,"");
00045 F77_xerbla(cblas_rout,&cblas_info);
00046 }
00047
00048 if (strncmp( sf,"cblas_cgemm" ,11)==0) {
00049 cblas_rout = "cblas_cgemm" ;
00050
00051 cblas_info = 1;
00052 cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
00053 ALPHA, A, 1, B, 1, BETA, C, 1 );
00054 chkxer();
00055 cblas_info = 1;
00056 cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
00057 ALPHA, A, 1, B, 1, BETA, C, 1 );
00058 chkxer();
00059 cblas_info = 1;
00060 cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
00061 ALPHA, A, 1, B, 1, BETA, C, 1 );
00062 chkxer();
00063 cblas_info = 1;
00064 cblas_cgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
00065 ALPHA, A, 1, B, 1, BETA, C, 1 );
00066 chkxer();
00067 cblas_info = 2; RowMajorStrg = FALSE;
00068 cblas_cgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
00069 ALPHA, A, 1, B, 1, BETA, C, 1 );
00070 chkxer();
00071 cblas_info = 2; RowMajorStrg = FALSE;
00072 cblas_cgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
00073 ALPHA, A, 1, B, 1, BETA, C, 1 );
00074 chkxer();
00075 cblas_info = 3; RowMajorStrg = FALSE;
00076 cblas_cgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
00077 ALPHA, A, 1, B, 1, BETA, C, 1 );
00078 chkxer();
00079 cblas_info = 3; RowMajorStrg = FALSE;
00080 cblas_cgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
00081 ALPHA, A, 1, B, 1, BETA, C, 1 );
00082 chkxer();
00083 cblas_info = 4; RowMajorStrg = FALSE;
00084 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00085 ALPHA, A, 1, B, 1, BETA, C, 1 );
00086 chkxer();
00087 cblas_info = 4; RowMajorStrg = FALSE;
00088 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
00089 ALPHA, A, 1, B, 1, BETA, C, 1 );
00090 chkxer();
00091 cblas_info = 4; RowMajorStrg = FALSE;
00092 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
00093 ALPHA, A, 1, B, 1, BETA, C, 1 );
00094 chkxer();
00095 cblas_info = 4; RowMajorStrg = FALSE;
00096 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
00097 ALPHA, A, 1, B, 1, BETA, C, 1 );
00098 chkxer();
00099 cblas_info = 5; RowMajorStrg = FALSE;
00100 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00101 ALPHA, A, 1, B, 1, BETA, C, 1 );
00102 chkxer();
00103 cblas_info = 5; RowMajorStrg = FALSE;
00104 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
00105 ALPHA, A, 1, B, 1, BETA, C, 1 );
00106 chkxer();
00107 cblas_info = 5; RowMajorStrg = FALSE;
00108 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
00109 ALPHA, A, 1, B, 1, BETA, C, 1 );
00110 chkxer();
00111 cblas_info = 5; RowMajorStrg = FALSE;
00112 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
00113 ALPHA, A, 1, B, 1, BETA, C, 1 );
00114 chkxer();
00115 cblas_info = 6; RowMajorStrg = FALSE;
00116 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00117 ALPHA, A, 1, B, 1, BETA, C, 1 );
00118 chkxer();
00119 cblas_info = 6; RowMajorStrg = FALSE;
00120 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
00121 ALPHA, A, 1, B, 1, BETA, C, 1 );
00122 chkxer();
00123 cblas_info = 6; RowMajorStrg = FALSE;
00124 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
00125 ALPHA, A, 1, B, 1, BETA, C, 1 );
00126 chkxer();
00127 cblas_info = 6; RowMajorStrg = FALSE;
00128 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
00129 ALPHA, A, 1, B, 1, BETA, C, 1 );
00130 chkxer();
00131 cblas_info = 9; RowMajorStrg = FALSE;
00132 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
00133 ALPHA, A, 1, B, 1, BETA, C, 2 );
00134 chkxer();
00135 cblas_info = 9; RowMajorStrg = FALSE;
00136 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
00137 ALPHA, A, 1, B, 1, BETA, C, 2 );
00138 chkxer();
00139 cblas_info = 9; RowMajorStrg = FALSE;
00140 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
00141 ALPHA, A, 1, B, 2, BETA, C, 1 );
00142 chkxer();
00143 cblas_info = 9; RowMajorStrg = FALSE;
00144 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
00145 ALPHA, A, 1, B, 1, BETA, C, 1 );
00146 chkxer();
00147 cblas_info = 11; RowMajorStrg = FALSE;
00148 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
00149 ALPHA, A, 1, B, 1, BETA, C, 1 );
00150 chkxer();
00151 cblas_info = 11; RowMajorStrg = FALSE;
00152 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
00153 ALPHA, A, 2, B, 1, BETA, C, 1 );
00154 chkxer();
00155 cblas_info = 11; RowMajorStrg = FALSE;
00156 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
00157 ALPHA, A, 1, B, 1, BETA, C, 1 );
00158 chkxer();
00159 cblas_info = 11; RowMajorStrg = FALSE;
00160 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
00161 ALPHA, A, 1, B, 1, BETA, C, 1 );
00162 chkxer();
00163 cblas_info = 14; RowMajorStrg = FALSE;
00164 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
00165 ALPHA, A, 2, B, 1, BETA, C, 1 );
00166 chkxer();
00167 cblas_info = 14; RowMajorStrg = FALSE;
00168 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
00169 ALPHA, A, 2, B, 1, BETA, C, 1 );
00170 chkxer();
00171 cblas_info = 14; RowMajorStrg = FALSE;
00172 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
00173 ALPHA, A, 1, B, 1, BETA, C, 1 );
00174 chkxer();
00175 cblas_info = 14; RowMajorStrg = FALSE;
00176 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
00177 ALPHA, A, 1, B, 1, BETA, C, 1 );
00178 chkxer();
00179 cblas_info = 4; RowMajorStrg = TRUE;
00180 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00181 ALPHA, A, 1, B, 1, BETA, C, 1 );
00182 chkxer();
00183 cblas_info = 4; RowMajorStrg = TRUE;
00184 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
00185 ALPHA, A, 1, B, 1, BETA, C, 1 );
00186 chkxer();
00187 cblas_info = 4; RowMajorStrg = TRUE;
00188 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
00189 ALPHA, A, 1, B, 1, BETA, C, 1 );
00190 chkxer();
00191 cblas_info = 4; RowMajorStrg = TRUE;
00192 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
00193 ALPHA, A, 1, B, 1, BETA, C, 1 );
00194 chkxer();
00195 cblas_info = 5; RowMajorStrg = TRUE;
00196 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00197 ALPHA, A, 1, B, 1, BETA, C, 1 );
00198 chkxer();
00199 cblas_info = 5; RowMajorStrg = TRUE;
00200 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
00201 ALPHA, A, 1, B, 1, BETA, C, 1 );
00202 chkxer();
00203 cblas_info = 5; RowMajorStrg = TRUE;
00204 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
00205 ALPHA, A, 1, B, 1, BETA, C, 1 );
00206 chkxer();
00207 cblas_info = 5; RowMajorStrg = TRUE;
00208 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
00209 ALPHA, A, 1, B, 1, BETA, C, 1 );
00210 chkxer();
00211 cblas_info = 6; RowMajorStrg = TRUE;
00212 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00213 ALPHA, A, 1, B, 1, BETA, C, 1 );
00214 chkxer();
00215 cblas_info = 6; RowMajorStrg = TRUE;
00216 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
00217 ALPHA, A, 1, B, 1, BETA, C, 1 );
00218 chkxer();
00219 cblas_info = 6; RowMajorStrg = TRUE;
00220 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
00221 ALPHA, A, 1, B, 1, BETA, C, 1 );
00222 chkxer();
00223 cblas_info = 6; RowMajorStrg = TRUE;
00224 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
00225 ALPHA, A, 1, B, 1, BETA, C, 1 );
00226 chkxer();
00227 cblas_info = 9; RowMajorStrg = TRUE;
00228 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
00229 ALPHA, A, 1, B, 1, BETA, C, 2 );
00230 chkxer();
00231 cblas_info = 9; RowMajorStrg = TRUE;
00232 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
00233 ALPHA, A, 1, B, 2, BETA, C, 2 );
00234 chkxer();
00235 cblas_info = 9; RowMajorStrg = TRUE;
00236 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
00237 ALPHA, A, 1, B, 2, BETA, C, 1 );
00238 chkxer();
00239 cblas_info = 9; RowMajorStrg = TRUE;
00240 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
00241 ALPHA, A, 1, B, 1, BETA, C, 1 );
00242 chkxer();
00243 cblas_info = 11; RowMajorStrg = TRUE;
00244 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
00245 ALPHA, A, 1, B, 1, BETA, C, 1 );
00246 chkxer();
00247 cblas_info = 11; RowMajorStrg = TRUE;
00248 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
00249 ALPHA, A, 2, B, 1, BETA, C, 1 );
00250 chkxer();
00251 cblas_info = 11; RowMajorStrg = TRUE;
00252 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
00253 ALPHA, A, 2, B, 1, BETA, C, 1 );
00254 chkxer();
00255 cblas_info = 11; RowMajorStrg = TRUE;
00256 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
00257 ALPHA, A, 1, B, 1, BETA, C, 1 );
00258 chkxer();
00259 cblas_info = 14; RowMajorStrg = TRUE;
00260 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
00261 ALPHA, A, 1, B, 2, BETA, C, 1 );
00262 chkxer();
00263 cblas_info = 14; RowMajorStrg = TRUE;
00264 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
00265 ALPHA, A, 1, B, 1, BETA, C, 1 );
00266 chkxer();
00267 cblas_info = 14; RowMajorStrg = TRUE;
00268 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
00269 ALPHA, A, 1, B, 2, BETA, C, 1 );
00270 chkxer();
00271 cblas_info = 14; RowMajorStrg = TRUE;
00272 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
00273 ALPHA, A, 1, B, 1, BETA, C, 1 );
00274 chkxer();
00275
00276 } else if (strncmp( sf,"cblas_chemm" ,11)==0) {
00277 cblas_rout = "cblas_chemm" ;
00278
00279 cblas_info = 1;
00280 cblas_chemm( INVALID, CblasRight, CblasLower, 0, 0,
00281 ALPHA, A, 1, B, 1, BETA, C, 1 );
00282 chkxer();
00283 cblas_info = 2; RowMajorStrg = FALSE;
00284 cblas_chemm( CblasColMajor, INVALID, CblasUpper, 0, 0,
00285 ALPHA, A, 1, B, 1, BETA, C, 1 );
00286 chkxer();
00287 cblas_info = 3; RowMajorStrg = FALSE;
00288 cblas_chemm( CblasColMajor, CblasLeft, INVALID, 0, 0,
00289 ALPHA, A, 1, B, 1, BETA, C, 1 );
00290 chkxer();
00291 cblas_info = 4; RowMajorStrg = FALSE;
00292 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
00293 ALPHA, A, 1, B, 1, BETA, C, 1 );
00294 chkxer();
00295 cblas_info = 4; RowMajorStrg = FALSE;
00296 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
00297 ALPHA, A, 1, B, 1, BETA, C, 1 );
00298 chkxer();
00299 cblas_info = 4; RowMajorStrg = FALSE;
00300 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
00301 ALPHA, A, 1, B, 1, BETA, C, 1 );
00302 chkxer();
00303 cblas_info = 4; RowMajorStrg = FALSE;
00304 cblas_chemm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
00305 ALPHA, A, 1, B, 1, BETA, C, 1 );
00306 chkxer();
00307 cblas_info = 5; RowMajorStrg = FALSE;
00308 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
00309 ALPHA, A, 1, B, 1, BETA, C, 1 );
00310 chkxer();
00311 cblas_info = 5; RowMajorStrg = FALSE;
00312 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
00313 ALPHA, A, 1, B, 1, BETA, C, 1 );
00314 chkxer();
00315 cblas_info = 5; RowMajorStrg = FALSE;
00316 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
00317 ALPHA, A, 1, B, 1, BETA, C, 1 );
00318 chkxer();
00319 cblas_info = 5; RowMajorStrg = FALSE;
00320 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
00321 ALPHA, A, 1, B, 1, BETA, C, 1 );
00322 chkxer();
00323 cblas_info = 8; RowMajorStrg = FALSE;
00324 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00325 ALPHA, A, 1, B, 2, BETA, C, 2 );
00326 chkxer();
00327 cblas_info = 8; RowMajorStrg = FALSE;
00328 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
00329 ALPHA, A, 1, B, 1, BETA, C, 1 );
00330 chkxer();
00331 cblas_info = 8; RowMajorStrg = FALSE;
00332 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00333 ALPHA, A, 1, B, 2, BETA, C, 2 );
00334 chkxer();
00335 cblas_info = 8; RowMajorStrg = FALSE;
00336 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, 2,
00337 ALPHA, A, 1, B, 1, BETA, C, 1 );
00338 chkxer();
00339 cblas_info = 10; RowMajorStrg = FALSE;
00340 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00341 ALPHA, A, 2, B, 1, BETA, C, 1 );
00342 chkxer();
00343 cblas_info = 10; RowMajorStrg = FALSE;
00344 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00345 ALPHA, A, 1, B, 1, BETA, C, 1 );
00346 chkxer();
00347 cblas_info = 10; RowMajorStrg = FALSE;
00348 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00349 ALPHA, A, 2, B, 1, BETA, C, 1 );
00350 chkxer();
00351 cblas_info = 10; RowMajorStrg = FALSE;
00352 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00353 ALPHA, A, 1, B, 1, BETA, C, 1 );
00354 chkxer();
00355 cblas_info = 13; RowMajorStrg = FALSE;
00356 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00357 ALPHA, A, 2, B, 2, BETA, C, 1 );
00358 chkxer();
00359 cblas_info = 13; RowMajorStrg = FALSE;
00360 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00361 ALPHA, A, 1, B, 2, BETA, C, 1 );
00362 chkxer();
00363 cblas_info = 13; RowMajorStrg = FALSE;
00364 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00365 ALPHA, A, 2, B, 2, BETA, C, 1 );
00366 chkxer();
00367 cblas_info = 13; RowMajorStrg = FALSE;
00368 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00369 ALPHA, A, 1, B, 2, BETA, C, 1 );
00370 chkxer();
00371 cblas_info = 4; RowMajorStrg = TRUE;
00372 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
00373 ALPHA, A, 1, B, 1, BETA, C, 1 );
00374 chkxer();
00375 cblas_info = 4; RowMajorStrg = TRUE;
00376 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
00377 ALPHA, A, 1, B, 1, BETA, C, 1 );
00378 chkxer();
00379 cblas_info = 4; RowMajorStrg = TRUE;
00380 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
00381 ALPHA, A, 1, B, 1, BETA, C, 1 );
00382 chkxer();
00383 cblas_info = 4; RowMajorStrg = TRUE;
00384 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
00385 ALPHA, A, 1, B, 1, BETA, C, 1 );
00386 chkxer();
00387 cblas_info = 5; RowMajorStrg = TRUE;
00388 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
00389 ALPHA, A, 1, B, 1, BETA, C, 1 );
00390 chkxer();
00391 cblas_info = 5; RowMajorStrg = TRUE;
00392 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
00393 ALPHA, A, 1, B, 1, BETA, C, 1 );
00394 chkxer();
00395 cblas_info = 5; RowMajorStrg = TRUE;
00396 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
00397 ALPHA, A, 1, B, 1, BETA, C, 1 );
00398 chkxer();
00399 cblas_info = 5; RowMajorStrg = TRUE;
00400 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
00401 ALPHA, A, 1, B, 1, BETA, C, 1 );
00402 chkxer();
00403 cblas_info = 8; RowMajorStrg = TRUE;
00404 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
00405 ALPHA, A, 1, B, 2, BETA, C, 2 );
00406 chkxer();
00407 cblas_info = 8; RowMajorStrg = TRUE;
00408 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00409 ALPHA, A, 1, B, 1, BETA, C, 1 );
00410 chkxer();
00411 cblas_info = 8; RowMajorStrg = TRUE;
00412 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
00413 ALPHA, A, 1, B, 2, BETA, C, 2 );
00414 chkxer();
00415 cblas_info = 8; RowMajorStrg = TRUE;
00416 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00417 ALPHA, A, 1, B, 1, BETA, C, 1 );
00418 chkxer();
00419 cblas_info = 10; RowMajorStrg = TRUE;
00420 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00421 ALPHA, A, 2, B, 1, BETA, C, 1 );
00422 chkxer();
00423 cblas_info = 10; RowMajorStrg = TRUE;
00424 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00425 ALPHA, A, 2, B, 1, BETA, C, 1 );
00426 chkxer();
00427 cblas_info = 10; RowMajorStrg = TRUE;
00428 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00429 ALPHA, A, 2, B, 1, BETA, C, 1 );
00430 chkxer();
00431 cblas_info = 10; RowMajorStrg = TRUE;
00432 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00433 ALPHA, A, 2, B, 1, BETA, C, 1 );
00434 chkxer();
00435 cblas_info = 13; RowMajorStrg = TRUE;
00436 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00437 ALPHA, A, 1, B, 2, BETA, C, 1 );
00438 chkxer();
00439 cblas_info = 13; RowMajorStrg = TRUE;
00440 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00441 ALPHA, A, 2, B, 2, BETA, C, 1 );
00442 chkxer();
00443 cblas_info = 13; RowMajorStrg = TRUE;
00444 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00445 ALPHA, A, 1, B, 2, BETA, C, 1 );
00446 chkxer();
00447 cblas_info = 13; RowMajorStrg = TRUE;
00448 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00449 ALPHA, A, 2, B, 2, BETA, C, 1 );
00450 chkxer();
00451
00452 } else if (strncmp( sf,"cblas_csymm" ,11)==0) {
00453 cblas_rout = "cblas_csymm" ;
00454
00455 cblas_info = 1;
00456 cblas_csymm( INVALID, CblasRight, CblasLower, 0, 0,
00457 ALPHA, A, 1, B, 1, BETA, C, 1 );
00458 chkxer();
00459 cblas_info = 2; RowMajorStrg = FALSE;
00460 cblas_csymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
00461 ALPHA, A, 1, B, 1, BETA, C, 1 );
00462 chkxer();
00463 cblas_info = 3; RowMajorStrg = FALSE;
00464 cblas_csymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
00465 ALPHA, A, 1, B, 1, BETA, C, 1 );
00466 chkxer();
00467 cblas_info = 4; RowMajorStrg = FALSE;
00468 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
00469 ALPHA, A, 1, B, 1, BETA, C, 1 );
00470 chkxer();
00471 cblas_info = 4; RowMajorStrg = FALSE;
00472 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
00473 ALPHA, A, 1, B, 1, BETA, C, 1 );
00474 chkxer();
00475 cblas_info = 4; RowMajorStrg = FALSE;
00476 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
00477 ALPHA, A, 1, B, 1, BETA, C, 1 );
00478 chkxer();
00479 cblas_info = 4; RowMajorStrg = FALSE;
00480 cblas_csymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
00481 ALPHA, A, 1, B, 1, BETA, C, 1 );
00482 chkxer();
00483 cblas_info = 5; RowMajorStrg = FALSE;
00484 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
00485 ALPHA, A, 1, B, 1, BETA, C, 1 );
00486 chkxer();
00487 cblas_info = 5; RowMajorStrg = FALSE;
00488 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
00489 ALPHA, A, 1, B, 1, BETA, C, 1 );
00490 chkxer();
00491 cblas_info = 5; RowMajorStrg = FALSE;
00492 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
00493 ALPHA, A, 1, B, 1, BETA, C, 1 );
00494 chkxer();
00495 cblas_info = 5; RowMajorStrg = FALSE;
00496 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
00497 ALPHA, A, 1, B, 1, BETA, C, 1 );
00498 chkxer();
00499 cblas_info = 8; RowMajorStrg = FALSE;
00500 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00501 ALPHA, A, 1, B, 2, BETA, C, 2 );
00502 chkxer();
00503 cblas_info = 8; RowMajorStrg = FALSE;
00504 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
00505 ALPHA, A, 1, B, 1, BETA, C, 1 );
00506 chkxer();
00507 cblas_info = 8; RowMajorStrg = FALSE;
00508 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00509 ALPHA, A, 1, B, 2, BETA, C, 2 );
00510 chkxer();
00511 cblas_info = 8; RowMajorStrg = FALSE;
00512 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
00513 ALPHA, A, 1, B, 1, BETA, C, 1 );
00514 chkxer();
00515 cblas_info = 10; RowMajorStrg = FALSE;
00516 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00517 ALPHA, A, 2, B, 1, BETA, C, 1 );
00518 chkxer();
00519 cblas_info = 10; RowMajorStrg = FALSE;
00520 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00521 ALPHA, A, 1, B, 1, BETA, C, 1 );
00522 chkxer();
00523 cblas_info = 10; RowMajorStrg = FALSE;
00524 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00525 ALPHA, A, 2, B, 1, BETA, C, 1 );
00526 chkxer();
00527 cblas_info = 10; RowMajorStrg = FALSE;
00528 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00529 ALPHA, A, 1, B, 1, BETA, C, 1 );
00530 chkxer();
00531 cblas_info = 13; RowMajorStrg = FALSE;
00532 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00533 ALPHA, A, 2, B, 2, BETA, C, 1 );
00534 chkxer();
00535 cblas_info = 13; RowMajorStrg = FALSE;
00536 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00537 ALPHA, A, 1, B, 2, BETA, C, 1 );
00538 chkxer();
00539 cblas_info = 13; RowMajorStrg = FALSE;
00540 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00541 ALPHA, A, 2, B, 2, BETA, C, 1 );
00542 chkxer();
00543 cblas_info = 13; RowMajorStrg = FALSE;
00544 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00545 ALPHA, A, 1, B, 2, BETA, C, 1 );
00546 chkxer();
00547 cblas_info = 4; RowMajorStrg = TRUE;
00548 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
00549 ALPHA, A, 1, B, 1, BETA, C, 1 );
00550 chkxer();
00551 cblas_info = 4; RowMajorStrg = TRUE;
00552 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
00553 ALPHA, A, 1, B, 1, BETA, C, 1 );
00554 chkxer();
00555 cblas_info = 4; RowMajorStrg = TRUE;
00556 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
00557 ALPHA, A, 1, B, 1, BETA, C, 1 );
00558 chkxer();
00559 cblas_info = 4; RowMajorStrg = TRUE;
00560 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
00561 ALPHA, A, 1, B, 1, BETA, C, 1 );
00562 chkxer();
00563 cblas_info = 5; RowMajorStrg = TRUE;
00564 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
00565 ALPHA, A, 1, B, 1, BETA, C, 1 );
00566 chkxer();
00567 cblas_info = 5; RowMajorStrg = TRUE;
00568 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
00569 ALPHA, A, 1, B, 1, BETA, C, 1 );
00570 chkxer();
00571 cblas_info = 5; RowMajorStrg = TRUE;
00572 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
00573 ALPHA, A, 1, B, 1, BETA, C, 1 );
00574 chkxer();
00575 cblas_info = 5; RowMajorStrg = TRUE;
00576 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
00577 ALPHA, A, 1, B, 1, BETA, C, 1 );
00578 chkxer();
00579 cblas_info = 8; RowMajorStrg = TRUE;
00580 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
00581 ALPHA, A, 1, B, 2, BETA, C, 2 );
00582 chkxer();
00583 cblas_info = 8; RowMajorStrg = TRUE;
00584 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00585 ALPHA, A, 1, B, 1, BETA, C, 1 );
00586 chkxer();
00587 cblas_info = 8; RowMajorStrg = TRUE;
00588 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
00589 ALPHA, A, 1, B, 2, BETA, C, 2 );
00590 chkxer();
00591 cblas_info = 8; RowMajorStrg = TRUE;
00592 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00593 ALPHA, A, 1, B, 1, BETA, C, 1 );
00594 chkxer();
00595 cblas_info = 10; RowMajorStrg = TRUE;
00596 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00597 ALPHA, A, 2, B, 1, BETA, C, 1 );
00598 chkxer();
00599 cblas_info = 10; RowMajorStrg = TRUE;
00600 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00601 ALPHA, A, 2, B, 1, BETA, C, 1 );
00602 chkxer();
00603 cblas_info = 10; RowMajorStrg = TRUE;
00604 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00605 ALPHA, A, 2, B, 1, BETA, C, 1 );
00606 chkxer();
00607 cblas_info = 10; RowMajorStrg = TRUE;
00608 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00609 ALPHA, A, 2, B, 1, BETA, C, 1 );
00610 chkxer();
00611 cblas_info = 13; RowMajorStrg = TRUE;
00612 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00613 ALPHA, A, 1, B, 2, BETA, C, 1 );
00614 chkxer();
00615 cblas_info = 13; RowMajorStrg = TRUE;
00616 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00617 ALPHA, A, 2, B, 2, BETA, C, 1 );
00618 chkxer();
00619 cblas_info = 13; RowMajorStrg = TRUE;
00620 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00621 ALPHA, A, 1, B, 2, BETA, C, 1 );
00622 chkxer();
00623 cblas_info = 13; RowMajorStrg = TRUE;
00624 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00625 ALPHA, A, 2, B, 2, BETA, C, 1 );
00626 chkxer();
00627
00628 } else if (strncmp( sf,"cblas_ctrmm" ,11)==0) {
00629 cblas_rout = "cblas_ctrmm" ;
00630
00631 cblas_info = 1;
00632 cblas_ctrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
00633 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00634 chkxer();
00635 cblas_info = 2; RowMajorStrg = FALSE;
00636 cblas_ctrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
00637 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00638 chkxer();
00639 cblas_info = 3; RowMajorStrg = FALSE;
00640 cblas_ctrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
00641 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00642 chkxer();
00643 cblas_info = 4; RowMajorStrg = FALSE;
00644 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
00645 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00646 chkxer();
00647 cblas_info = 5; RowMajorStrg = FALSE;
00648 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00649 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00650 chkxer();
00651 cblas_info = 6; RowMajorStrg = FALSE;
00652 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00653 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00654 chkxer();
00655 cblas_info = 6; RowMajorStrg = FALSE;
00656 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00657 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00658 chkxer();
00659 cblas_info = 6; RowMajorStrg = FALSE;
00660 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00661 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00662 chkxer();
00663 cblas_info = 6; RowMajorStrg = FALSE;
00664 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00665 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00666 chkxer();
00667 cblas_info = 6; RowMajorStrg = FALSE;
00668 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00669 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00670 chkxer();
00671 cblas_info = 6; RowMajorStrg = FALSE;
00672 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00673 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00674 chkxer();
00675 cblas_info = 6; RowMajorStrg = FALSE;
00676 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00677 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00678 chkxer();
00679 cblas_info = 6; RowMajorStrg = FALSE;
00680 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00681 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00682 chkxer();
00683 cblas_info = 7; RowMajorStrg = FALSE;
00684 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00685 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00686 chkxer();
00687 cblas_info = 7; RowMajorStrg = FALSE;
00688 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00689 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00690 chkxer();
00691 cblas_info = 7; RowMajorStrg = FALSE;
00692 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00693 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00694 chkxer();
00695 cblas_info = 7; RowMajorStrg = FALSE;
00696 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00697 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00698 chkxer();
00699 cblas_info = 7; RowMajorStrg = FALSE;
00700 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00701 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00702 chkxer();
00703 cblas_info = 7; RowMajorStrg = FALSE;
00704 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00705 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00706 chkxer();
00707 cblas_info = 7; RowMajorStrg = FALSE;
00708 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00709 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00710 chkxer();
00711 cblas_info = 7; RowMajorStrg = FALSE;
00712 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00713 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00714 chkxer();
00715 cblas_info = 10; RowMajorStrg = FALSE;
00716 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00717 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00718 chkxer();
00719 cblas_info = 10; RowMajorStrg = FALSE;
00720 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00721 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00722 chkxer();
00723 cblas_info = 10; RowMajorStrg = FALSE;
00724 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00725 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00726 chkxer();
00727 cblas_info = 10; RowMajorStrg = FALSE;
00728 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00729 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00730 chkxer();
00731 cblas_info = 10; RowMajorStrg = FALSE;
00732 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00733 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00734 chkxer();
00735 cblas_info = 10; RowMajorStrg = FALSE;
00736 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00737 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00738 chkxer();
00739 cblas_info = 10; RowMajorStrg = FALSE;
00740 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00741 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00742 chkxer();
00743 cblas_info = 10; RowMajorStrg = FALSE;
00744 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00745 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00746 chkxer();
00747 cblas_info = 12; RowMajorStrg = FALSE;
00748 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00749 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00750 chkxer();
00751 cblas_info = 12; RowMajorStrg = FALSE;
00752 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00753 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00754 chkxer();
00755 cblas_info = 12; RowMajorStrg = FALSE;
00756 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00757 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00758 chkxer();
00759 cblas_info = 12; RowMajorStrg = FALSE;
00760 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00761 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00762 chkxer();
00763 cblas_info = 12; RowMajorStrg = FALSE;
00764 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00765 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00766 chkxer();
00767 cblas_info = 12; RowMajorStrg = FALSE;
00768 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00769 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00770 chkxer();
00771 cblas_info = 12; RowMajorStrg = FALSE;
00772 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00773 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00774 chkxer();
00775 cblas_info = 12; RowMajorStrg = FALSE;
00776 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00777 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00778 chkxer();
00779 cblas_info = 6; RowMajorStrg = TRUE;
00780 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00782 chkxer();
00783 cblas_info = 6; RowMajorStrg = TRUE;
00784 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00786 chkxer();
00787 cblas_info = 6; RowMajorStrg = TRUE;
00788 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00789 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00790 chkxer();
00791 cblas_info = 6; RowMajorStrg = TRUE;
00792 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00793 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00794 chkxer();
00795 cblas_info = 6; RowMajorStrg = TRUE;
00796 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00797 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00798 chkxer();
00799 cblas_info = 6; RowMajorStrg = TRUE;
00800 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00801 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00802 chkxer();
00803 cblas_info = 6; RowMajorStrg = TRUE;
00804 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00805 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00806 chkxer();
00807 cblas_info = 6; RowMajorStrg = TRUE;
00808 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00809 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00810 chkxer();
00811 cblas_info = 7; RowMajorStrg = TRUE;
00812 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00814 chkxer();
00815 cblas_info = 7; RowMajorStrg = TRUE;
00816 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00818 chkxer();
00819 cblas_info = 7; RowMajorStrg = TRUE;
00820 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00821 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00822 chkxer();
00823 cblas_info = 7; RowMajorStrg = TRUE;
00824 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00825 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00826 chkxer();
00827 cblas_info = 7; RowMajorStrg = TRUE;
00828 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00829 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00830 chkxer();
00831 cblas_info = 7; RowMajorStrg = TRUE;
00832 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00833 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00834 chkxer();
00835 cblas_info = 7; RowMajorStrg = TRUE;
00836 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00837 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00838 chkxer();
00839 cblas_info = 7; RowMajorStrg = TRUE;
00840 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00841 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00842 chkxer();
00843 cblas_info = 10; RowMajorStrg = TRUE;
00844 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00845 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00846 chkxer();
00847 cblas_info = 10; RowMajorStrg = TRUE;
00848 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00849 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00850 chkxer();
00851 cblas_info = 10; RowMajorStrg = TRUE;
00852 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00853 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00854 chkxer();
00855 cblas_info = 10; RowMajorStrg = TRUE;
00856 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00857 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00858 chkxer();
00859 cblas_info = 10; RowMajorStrg = TRUE;
00860 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00862 chkxer();
00863 cblas_info = 10; RowMajorStrg = TRUE;
00864 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00866 chkxer();
00867 cblas_info = 10; RowMajorStrg = TRUE;
00868 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00869 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00870 chkxer();
00871 cblas_info = 10; RowMajorStrg = TRUE;
00872 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00873 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00874 chkxer();
00875 cblas_info = 12; RowMajorStrg = TRUE;
00876 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00877 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00878 chkxer();
00879 cblas_info = 12; RowMajorStrg = TRUE;
00880 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00881 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00882 chkxer();
00883 cblas_info = 12; RowMajorStrg = TRUE;
00884 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00885 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00886 chkxer();
00887 cblas_info = 12; RowMajorStrg = TRUE;
00888 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00889 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00890 chkxer();
00891 cblas_info = 12; RowMajorStrg = TRUE;
00892 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00893 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00894 chkxer();
00895 cblas_info = 12; RowMajorStrg = TRUE;
00896 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00897 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00898 chkxer();
00899 cblas_info = 12; RowMajorStrg = TRUE;
00900 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00901 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00902 chkxer();
00903 cblas_info = 12; RowMajorStrg = TRUE;
00904 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00905 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00906 chkxer();
00907
00908 } else if (strncmp( sf,"cblas_ctrsm" ,11)==0) {
00909 cblas_rout = "cblas_ctrsm" ;
00910
00911 cblas_info = 1;
00912 cblas_ctrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
00913 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00914 chkxer();
00915 cblas_info = 2; RowMajorStrg = FALSE;
00916 cblas_ctrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
00917 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00918 chkxer();
00919 cblas_info = 3; RowMajorStrg = FALSE;
00920 cblas_ctrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
00921 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00922 chkxer();
00923 cblas_info = 4; RowMajorStrg = FALSE;
00924 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
00925 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00926 chkxer();
00927 cblas_info = 5; RowMajorStrg = FALSE;
00928 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00929 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00930 chkxer();
00931 cblas_info = 6; RowMajorStrg = FALSE;
00932 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00933 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00934 chkxer();
00935 cblas_info = 6; RowMajorStrg = FALSE;
00936 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00937 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00938 chkxer();
00939 cblas_info = 6; RowMajorStrg = FALSE;
00940 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00941 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00942 chkxer();
00943 cblas_info = 6; RowMajorStrg = FALSE;
00944 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00945 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00946 chkxer();
00947 cblas_info = 6; RowMajorStrg = FALSE;
00948 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00949 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00950 chkxer();
00951 cblas_info = 6; RowMajorStrg = FALSE;
00952 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00953 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00954 chkxer();
00955 cblas_info = 6; RowMajorStrg = FALSE;
00956 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00957 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00958 chkxer();
00959 cblas_info = 6; RowMajorStrg = FALSE;
00960 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00961 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00962 chkxer();
00963 cblas_info = 7; RowMajorStrg = FALSE;
00964 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00965 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00966 chkxer();
00967 cblas_info = 7; RowMajorStrg = FALSE;
00968 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00969 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00970 chkxer();
00971 cblas_info = 7; RowMajorStrg = FALSE;
00972 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00973 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00974 chkxer();
00975 cblas_info = 7; RowMajorStrg = FALSE;
00976 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00977 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00978 chkxer();
00979 cblas_info = 7; RowMajorStrg = FALSE;
00980 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00981 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00982 chkxer();
00983 cblas_info = 7; RowMajorStrg = FALSE;
00984 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00985 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00986 chkxer();
00987 cblas_info = 7; RowMajorStrg = FALSE;
00988 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00989 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00990 chkxer();
00991 cblas_info = 7; RowMajorStrg = FALSE;
00992 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00993 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00994 chkxer();
00995 cblas_info = 10; RowMajorStrg = FALSE;
00996 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00997 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00998 chkxer();
00999 cblas_info = 10; RowMajorStrg = FALSE;
01000 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
01001 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01002 chkxer();
01003 cblas_info = 10; RowMajorStrg = FALSE;
01004 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
01005 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01006 chkxer();
01007 cblas_info = 10; RowMajorStrg = FALSE;
01008 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
01009 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01010 chkxer();
01011 cblas_info = 10; RowMajorStrg = FALSE;
01012 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
01013 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01014 chkxer();
01015 cblas_info = 10; RowMajorStrg = FALSE;
01016 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
01017 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01018 chkxer();
01019 cblas_info = 10; RowMajorStrg = FALSE;
01020 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
01021 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01022 chkxer();
01023 cblas_info = 10; RowMajorStrg = FALSE;
01024 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
01025 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01026 chkxer();
01027 cblas_info = 12; RowMajorStrg = FALSE;
01028 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
01029 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01030 chkxer();
01031 cblas_info = 12; RowMajorStrg = FALSE;
01032 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
01033 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01034 chkxer();
01035 cblas_info = 12; RowMajorStrg = FALSE;
01036 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
01037 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01038 chkxer();
01039 cblas_info = 12; RowMajorStrg = FALSE;
01040 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
01041 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01042 chkxer();
01043 cblas_info = 12; RowMajorStrg = FALSE;
01044 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
01045 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01046 chkxer();
01047 cblas_info = 12; RowMajorStrg = FALSE;
01048 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
01049 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01050 chkxer();
01051 cblas_info = 12; RowMajorStrg = FALSE;
01052 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
01053 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01054 chkxer();
01055 cblas_info = 12; RowMajorStrg = FALSE;
01056 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
01057 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01058 chkxer();
01059 cblas_info = 6; RowMajorStrg = TRUE;
01060 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
01061 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01062 chkxer();
01063 cblas_info = 6; RowMajorStrg = TRUE;
01064 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
01065 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01066 chkxer();
01067 cblas_info = 6; RowMajorStrg = TRUE;
01068 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
01069 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01070 chkxer();
01071 cblas_info = 6; RowMajorStrg = TRUE;
01072 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
01073 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01074 chkxer();
01075 cblas_info = 6; RowMajorStrg = TRUE;
01076 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
01077 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01078 chkxer();
01079 cblas_info = 6; RowMajorStrg = TRUE;
01080 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
01081 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01082 chkxer();
01083 cblas_info = 6; RowMajorStrg = TRUE;
01084 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
01085 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01086 chkxer();
01087 cblas_info = 6; RowMajorStrg = TRUE;
01088 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
01089 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01090 chkxer();
01091 cblas_info = 7; RowMajorStrg = TRUE;
01092 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
01093 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01094 chkxer();
01095 cblas_info = 7; RowMajorStrg = TRUE;
01096 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
01097 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01098 chkxer();
01099 cblas_info = 7; RowMajorStrg = TRUE;
01100 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
01101 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01102 chkxer();
01103 cblas_info = 7; RowMajorStrg = TRUE;
01104 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
01105 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01106 chkxer();
01107 cblas_info = 7; RowMajorStrg = TRUE;
01108 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
01109 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01110 chkxer();
01111 cblas_info = 7; RowMajorStrg = TRUE;
01112 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
01113 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01114 chkxer();
01115 cblas_info = 7; RowMajorStrg = TRUE;
01116 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
01117 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01118 chkxer();
01119 cblas_info = 7; RowMajorStrg = TRUE;
01120 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
01121 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01122 chkxer();
01123 cblas_info = 10; RowMajorStrg = TRUE;
01124 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
01125 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01126 chkxer();
01127 cblas_info = 10; RowMajorStrg = TRUE;
01128 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
01129 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01130 chkxer();
01131 cblas_info = 10; RowMajorStrg = TRUE;
01132 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
01133 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01134 chkxer();
01135 cblas_info = 10; RowMajorStrg = TRUE;
01136 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
01137 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01138 chkxer();
01139 cblas_info = 10; RowMajorStrg = TRUE;
01140 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
01141 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01142 chkxer();
01143 cblas_info = 10; RowMajorStrg = TRUE;
01144 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
01145 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01146 chkxer();
01147 cblas_info = 10; RowMajorStrg = TRUE;
01148 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
01149 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01150 chkxer();
01151 cblas_info = 10; RowMajorStrg = TRUE;
01152 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
01153 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01154 chkxer();
01155 cblas_info = 12; RowMajorStrg = TRUE;
01156 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
01157 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01158 chkxer();
01159 cblas_info = 12; RowMajorStrg = TRUE;
01160 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
01161 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01162 chkxer();
01163 cblas_info = 12; RowMajorStrg = TRUE;
01164 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
01165 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01166 chkxer();
01167 cblas_info = 12; RowMajorStrg = TRUE;
01168 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
01169 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01170 chkxer();
01171 cblas_info = 12; RowMajorStrg = TRUE;
01172 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
01173 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01174 chkxer();
01175 cblas_info = 12; RowMajorStrg = TRUE;
01176 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
01177 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01178 chkxer();
01179 cblas_info = 12; RowMajorStrg = TRUE;
01180 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
01181 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01182 chkxer();
01183 cblas_info = 12; RowMajorStrg = TRUE;
01184 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
01185 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01186 chkxer();
01187
01188 } else if (strncmp( sf,"cblas_cherk" ,11)==0) {
01189 cblas_rout = "cblas_cherk" ;
01190
01191 cblas_info = 1;
01192 cblas_cherk(INVALID, CblasUpper, CblasNoTrans, 0, 0,
01193 RALPHA, A, 1, RBETA, C, 1 );
01194 chkxer();
01195 cblas_info = 2; RowMajorStrg = FALSE;
01196 cblas_cherk(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
01197 RALPHA, A, 1, RBETA, C, 1 );
01198 chkxer();
01199 cblas_info = 3; RowMajorStrg = FALSE;
01200 cblas_cherk(CblasColMajor, CblasUpper, CblasTrans, 0, 0,
01201 RALPHA, A, 1, RBETA, C, 1 );
01202 chkxer();
01203 cblas_info = 4; RowMajorStrg = FALSE;
01204 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
01205 RALPHA, A, 1, RBETA, C, 1 );
01206 chkxer();
01207 cblas_info = 4; RowMajorStrg = FALSE;
01208 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0,
01209 RALPHA, A, 1, RBETA, C, 1 );
01210 chkxer();
01211 cblas_info = 4; RowMajorStrg = FALSE;
01212 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
01213 RALPHA, A, 1, RBETA, C, 1 );
01214 chkxer();
01215 cblas_info = 4; RowMajorStrg = FALSE;
01216 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0,
01217 RALPHA, A, 1, RBETA, C, 1 );
01218 chkxer();
01219 cblas_info = 5; RowMajorStrg = FALSE;
01220 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
01221 RALPHA, A, 1, RBETA, C, 1 );
01222 chkxer();
01223 cblas_info = 5; RowMajorStrg = FALSE;
01224 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID,
01225 RALPHA, A, 1, RBETA, C, 1 );
01226 chkxer();
01227 cblas_info = 5; RowMajorStrg = FALSE;
01228 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
01229 RALPHA, A, 1, RBETA, C, 1 );
01230 chkxer();
01231 cblas_info = 5; RowMajorStrg = FALSE;
01232 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
01233 RALPHA, A, 1, RBETA, C, 1 );
01234 chkxer();
01235 cblas_info = 8; RowMajorStrg = TRUE;
01236 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01237 RALPHA, A, 1, RBETA, C, 2 );
01238 chkxer();
01239 cblas_info = 8; RowMajorStrg = TRUE;
01240 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
01241 RALPHA, A, 1, RBETA, C, 1 );
01242 chkxer();
01243 cblas_info = 8; RowMajorStrg = TRUE;
01244 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01245 RALPHA, A, 1, RBETA, C, 2 );
01246 chkxer();
01247 cblas_info = 8; RowMajorStrg = TRUE;
01248 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
01249 RALPHA, A, 1, RBETA, C, 1 );
01250 chkxer();
01251 cblas_info = 8; RowMajorStrg = FALSE;
01252 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01253 RALPHA, A, 1, RBETA, C, 2 );
01254 chkxer();
01255 cblas_info = 8; RowMajorStrg = FALSE;
01256 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
01257 RALPHA, A, 1, RBETA, C, 1 );
01258 chkxer();
01259 cblas_info = 8; RowMajorStrg = FALSE;
01260 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01261 RALPHA, A, 1, RBETA, C, 2 );
01262 chkxer();
01263 cblas_info = 8; RowMajorStrg = FALSE;
01264 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
01265 RALPHA, A, 1, RBETA, C, 1 );
01266 chkxer();
01267 cblas_info = 11; RowMajorStrg = TRUE;
01268 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
01269 RALPHA, A, 1, RBETA, C, 1 );
01270 chkxer();
01271 cblas_info = 11; RowMajorStrg = TRUE;
01272 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
01273 RALPHA, A, 2, RBETA, C, 1 );
01274 chkxer();
01275 cblas_info = 11; RowMajorStrg = TRUE;
01276 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
01277 RALPHA, A, 1, RBETA, C, 1 );
01278 chkxer();
01279 cblas_info = 11; RowMajorStrg = TRUE;
01280 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
01281 RALPHA, A, 2, RBETA, C, 1 );
01282 chkxer();
01283 cblas_info = 11; RowMajorStrg = FALSE;
01284 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01285 RALPHA, A, 2, RBETA, C, 1 );
01286 chkxer();
01287 cblas_info = 11; RowMajorStrg = FALSE;
01288 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0,
01289 RALPHA, A, 1, RBETA, C, 1 );
01290 chkxer();
01291 cblas_info = 11; RowMajorStrg = FALSE;
01292 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01293 RALPHA, A, 2, RBETA, C, 1 );
01294 chkxer();
01295 cblas_info = 11; RowMajorStrg = FALSE;
01296 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 2, 0,
01297 RALPHA, A, 1, RBETA, C, 1 );
01298 chkxer();
01299
01300 } else if (strncmp( sf,"cblas_csyrk" ,11)==0) {
01301 cblas_rout = "cblas_csyrk" ;
01302
01303 cblas_info = 1;
01304 cblas_csyrk(INVALID, CblasUpper, CblasNoTrans, 0, 0,
01305 ALPHA, A, 1, BETA, C, 1 );
01306 chkxer();
01307 cblas_info = 2; RowMajorStrg = FALSE;
01308 cblas_csyrk(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
01309 ALPHA, A, 1, BETA, C, 1 );
01310 chkxer();
01311 cblas_info = 3; RowMajorStrg = FALSE;
01312 cblas_csyrk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0,
01313 ALPHA, A, 1, BETA, C, 1 );
01314 chkxer();
01315 cblas_info = 4; RowMajorStrg = FALSE;
01316 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
01317 ALPHA, A, 1, BETA, C, 1 );
01318 chkxer();
01319 cblas_info = 4; RowMajorStrg = FALSE;
01320 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0,
01321 ALPHA, A, 1, BETA, C, 1 );
01322 chkxer();
01323 cblas_info = 4; RowMajorStrg = FALSE;
01324 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
01325 ALPHA, A, 1, BETA, C, 1 );
01326 chkxer();
01327 cblas_info = 4; RowMajorStrg = FALSE;
01328 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, INVALID, 0,
01329 ALPHA, A, 1, BETA, C, 1 );
01330 chkxer();
01331 cblas_info = 5; RowMajorStrg = FALSE;
01332 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
01333 ALPHA, A, 1, BETA, C, 1 );
01334 chkxer();
01335 cblas_info = 5; RowMajorStrg = FALSE;
01336 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID,
01337 ALPHA, A, 1, BETA, C, 1 );
01338 chkxer();
01339 cblas_info = 5; RowMajorStrg = FALSE;
01340 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
01341 ALPHA, A, 1, BETA, C, 1 );
01342 chkxer();
01343 cblas_info = 5; RowMajorStrg = FALSE;
01344 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
01345 ALPHA, A, 1, BETA, C, 1 );
01346 chkxer();
01347 cblas_info = 8; RowMajorStrg = TRUE;
01348 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01349 ALPHA, A, 1, BETA, C, 2 );
01350 chkxer();
01351 cblas_info = 8; RowMajorStrg = TRUE;
01352 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
01353 ALPHA, A, 1, BETA, C, 1 );
01354 chkxer();
01355 cblas_info = 8; RowMajorStrg = TRUE;
01356 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01357 ALPHA, A, 1, BETA, C, 2 );
01358 chkxer();
01359 cblas_info = 8; RowMajorStrg = TRUE;
01360 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
01361 ALPHA, A, 1, BETA, C, 1 );
01362 chkxer();
01363 cblas_info = 8; RowMajorStrg = FALSE;
01364 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01365 ALPHA, A, 1, BETA, C, 2 );
01366 chkxer();
01367 cblas_info = 8; RowMajorStrg = FALSE;
01368 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
01369 ALPHA, A, 1, BETA, C, 1 );
01370 chkxer();
01371 cblas_info = 8; RowMajorStrg = FALSE;
01372 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01373 ALPHA, A, 1, BETA, C, 2 );
01374 chkxer();
01375 cblas_info = 8; RowMajorStrg = FALSE;
01376 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, 2,
01377 ALPHA, A, 1, BETA, C, 1 );
01378 chkxer();
01379 cblas_info = 11; RowMajorStrg = TRUE;
01380 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
01381 ALPHA, A, 1, BETA, C, 1 );
01382 chkxer();
01383 cblas_info = 11; RowMajorStrg = TRUE;
01384 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
01385 ALPHA, A, 2, BETA, C, 1 );
01386 chkxer();
01387 cblas_info = 11; RowMajorStrg = TRUE;
01388 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
01389 ALPHA, A, 1, BETA, C, 1 );
01390 chkxer();
01391 cblas_info = 11; RowMajorStrg = TRUE;
01392 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
01393 ALPHA, A, 2, BETA, C, 1 );
01394 chkxer();
01395 cblas_info = 11; RowMajorStrg = FALSE;
01396 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01397 ALPHA, A, 2, BETA, C, 1 );
01398 chkxer();
01399 cblas_info = 11; RowMajorStrg = FALSE;
01400 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 2, 0,
01401 ALPHA, A, 1, BETA, C, 1 );
01402 chkxer();
01403 cblas_info = 11; RowMajorStrg = FALSE;
01404 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01405 ALPHA, A, 2, BETA, C, 1 );
01406 chkxer();
01407 cblas_info = 11; RowMajorStrg = FALSE;
01408 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 2, 0,
01409 ALPHA, A, 1, BETA, C, 1 );
01410 chkxer();
01411
01412 } else if (strncmp( sf,"cblas_cher2k" ,12)==0) {
01413 cblas_rout = "cblas_cher2k" ;
01414
01415 cblas_info = 1;
01416 cblas_cher2k(INVALID, CblasUpper, CblasNoTrans, 0, 0,
01417 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01418 chkxer();
01419 cblas_info = 2; RowMajorStrg = FALSE;
01420 cblas_cher2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
01421 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01422 chkxer();
01423 cblas_info = 3; RowMajorStrg = FALSE;
01424 cblas_cher2k(CblasColMajor, CblasUpper, CblasTrans, 0, 0,
01425 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01426 chkxer();
01427 cblas_info = 4; RowMajorStrg = FALSE;
01428 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
01429 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01430 chkxer();
01431 cblas_info = 4; RowMajorStrg = FALSE;
01432 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0,
01433 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01434 chkxer();
01435 cblas_info = 4; RowMajorStrg = FALSE;
01436 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
01437 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01438 chkxer();
01439 cblas_info = 4; RowMajorStrg = FALSE;
01440 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0,
01441 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01442 chkxer();
01443 cblas_info = 5; RowMajorStrg = FALSE;
01444 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
01445 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01446 chkxer();
01447 cblas_info = 5; RowMajorStrg = FALSE;
01448 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID,
01449 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01450 chkxer();
01451 cblas_info = 5; RowMajorStrg = FALSE;
01452 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
01453 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01454 chkxer();
01455 cblas_info = 5; RowMajorStrg = FALSE;
01456 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
01457 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01458 chkxer();
01459 cblas_info = 8; RowMajorStrg = TRUE;
01460 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01461 ALPHA, A, 1, B, 2, RBETA, C, 2 );
01462 chkxer();
01463 cblas_info = 8; RowMajorStrg = TRUE;
01464 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
01465 ALPHA, A, 1, B, 2, RBETA, C, 1 );
01466 chkxer();
01467 cblas_info = 8; RowMajorStrg = TRUE;
01468 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01469 ALPHA, A, 1, B, 2, RBETA, C, 2 );
01470 chkxer();
01471 cblas_info = 8; RowMajorStrg = TRUE;
01472 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
01473 ALPHA, A, 1, B, 2, RBETA, C, 1 );
01474 chkxer();
01475 cblas_info = 8; RowMajorStrg = FALSE;
01476 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01477 ALPHA, A, 1, B, 1, RBETA, C, 2 );
01478 chkxer();
01479 cblas_info = 8; RowMajorStrg = FALSE;
01480 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
01481 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01482 chkxer();
01483 cblas_info = 8; RowMajorStrg = FALSE;
01484 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01485 ALPHA, A, 1, B, 1, RBETA, C, 2 );
01486 chkxer();
01487 cblas_info = 8; RowMajorStrg = FALSE;
01488 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
01489 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01490 chkxer();
01491 cblas_info = 10; RowMajorStrg = TRUE;
01492 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01493 ALPHA, A, 2, B, 1, RBETA, C, 2 );
01494 chkxer();
01495 cblas_info = 10; RowMajorStrg = TRUE;
01496 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
01497 ALPHA, A, 2, B, 1, RBETA, C, 1 );
01498 chkxer();
01499 cblas_info = 10; RowMajorStrg = TRUE;
01500 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01501 ALPHA, A, 2, B, 1, RBETA, C, 2 );
01502 chkxer();
01503 cblas_info = 10; RowMajorStrg = TRUE;
01504 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
01505 ALPHA, A, 2, B, 1, RBETA, C, 1 );
01506 chkxer();
01507 cblas_info = 10; RowMajorStrg = FALSE;
01508 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01509 ALPHA, A, 2, B, 1, RBETA, C, 2 );
01510 chkxer();
01511 cblas_info = 10; RowMajorStrg = FALSE;
01512 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
01513 ALPHA, A, 2, B, 1, RBETA, C, 1 );
01514 chkxer();
01515 cblas_info = 10; RowMajorStrg = FALSE;
01516 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01517 ALPHA, A, 2, B, 1, RBETA, C, 2 );
01518 chkxer();
01519 cblas_info = 10; RowMajorStrg = FALSE;
01520 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
01521 ALPHA, A, 2, B, 1, RBETA, C, 1 );
01522 chkxer();
01523 cblas_info = 13; RowMajorStrg = TRUE;
01524 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
01525 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01526 chkxer();
01527 cblas_info = 13; RowMajorStrg = TRUE;
01528 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
01529 ALPHA, A, 2, B, 2, RBETA, C, 1 );
01530 chkxer();
01531 cblas_info = 13; RowMajorStrg = TRUE;
01532 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
01533 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01534 chkxer();
01535 cblas_info = 13; RowMajorStrg = TRUE;
01536 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
01537 ALPHA, A, 2, B, 2, RBETA, C, 1 );
01538 chkxer();
01539 cblas_info = 13; RowMajorStrg = FALSE;
01540 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01541 ALPHA, A, 2, B, 2, RBETA, C, 1 );
01542 chkxer();
01543 cblas_info = 13; RowMajorStrg = FALSE;
01544 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0,
01545 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01546 chkxer();
01547 cblas_info = 13; RowMajorStrg = FALSE;
01548 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01549 ALPHA, A, 2, B, 2, RBETA, C, 1 );
01550 chkxer();
01551 cblas_info = 13; RowMajorStrg = FALSE;
01552 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 2, 0,
01553 ALPHA, A, 1, B, 1, RBETA, C, 1 );
01554 chkxer();
01555
01556 } else if (strncmp( sf,"cblas_csyr2k" ,12)==0) {
01557 cblas_rout = "cblas_csyr2k" ;
01558
01559 cblas_info = 1;
01560 cblas_csyr2k(INVALID, CblasUpper, CblasNoTrans, 0, 0,
01561 ALPHA, A, 1, B, 1, BETA, C, 1 );
01562 chkxer();
01563 cblas_info = 2; RowMajorStrg = FALSE;
01564 cblas_csyr2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
01565 ALPHA, A, 1, B, 1, BETA, C, 1 );
01566 chkxer();
01567 cblas_info = 3; RowMajorStrg = FALSE;
01568 cblas_csyr2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0,
01569 ALPHA, A, 1, B, 1, BETA, C, 1 );
01570 chkxer();
01571 cblas_info = 4; RowMajorStrg = FALSE;
01572 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
01573 ALPHA, A, 1, B, 1, BETA, C, 1 );
01574 chkxer();
01575 cblas_info = 4; RowMajorStrg = FALSE;
01576 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0,
01577 ALPHA, A, 1, B, 1, BETA, C, 1 );
01578 chkxer();
01579 cblas_info = 4; RowMajorStrg = FALSE;
01580 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
01581 ALPHA, A, 1, B, 1, BETA, C, 1 );
01582 chkxer();
01583 cblas_info = 4; RowMajorStrg = FALSE;
01584 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, INVALID, 0,
01585 ALPHA, A, 1, B, 1, BETA, C, 1 );
01586 chkxer();
01587 cblas_info = 5; RowMajorStrg = FALSE;
01588 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
01589 ALPHA, A, 1, B, 1, BETA, C, 1 );
01590 chkxer();
01591 cblas_info = 5; RowMajorStrg = FALSE;
01592 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID,
01593 ALPHA, A, 1, B, 1, BETA, C, 1 );
01594 chkxer();
01595 cblas_info = 5; RowMajorStrg = FALSE;
01596 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
01597 ALPHA, A, 1, B, 1, BETA, C, 1 );
01598 chkxer();
01599 cblas_info = 5; RowMajorStrg = FALSE;
01600 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
01601 ALPHA, A, 1, B, 1, BETA, C, 1 );
01602 chkxer();
01603 cblas_info = 8; RowMajorStrg = TRUE;
01604 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01605 ALPHA, A, 1, B, 2, BETA, C, 2 );
01606 chkxer();
01607 cblas_info = 8; RowMajorStrg = TRUE;
01608 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
01609 ALPHA, A, 1, B, 2, BETA, C, 1 );
01610 chkxer();
01611 cblas_info = 8; RowMajorStrg = TRUE;
01612 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01613 ALPHA, A, 1, B, 2, BETA, C, 2 );
01614 chkxer();
01615 cblas_info = 8; RowMajorStrg = TRUE;
01616 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
01617 ALPHA, A, 1, B, 2, BETA, C, 1 );
01618 chkxer();
01619 cblas_info = 8; RowMajorStrg = FALSE;
01620 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01621 ALPHA, A, 1, B, 1, BETA, C, 2 );
01622 chkxer();
01623 cblas_info = 8; RowMajorStrg = FALSE;
01624 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
01625 ALPHA, A, 1, B, 1, BETA, C, 1 );
01626 chkxer();
01627 cblas_info = 8; RowMajorStrg = FALSE;
01628 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01629 ALPHA, A, 1, B, 1, BETA, C, 2 );
01630 chkxer();
01631 cblas_info = 8; RowMajorStrg = FALSE;
01632 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2,
01633 ALPHA, A, 1, B, 1, BETA, C, 1 );
01634 chkxer();
01635 cblas_info = 10; RowMajorStrg = TRUE;
01636 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
01637 ALPHA, A, 2, B, 1, BETA, C, 2 );
01638 chkxer();
01639 cblas_info = 10; RowMajorStrg = TRUE;
01640 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
01641 ALPHA, A, 2, B, 1, BETA, C, 1 );
01642 chkxer();
01643 cblas_info = 10; RowMajorStrg = TRUE;
01644 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
01645 ALPHA, A, 2, B, 1, BETA, C, 2 );
01646 chkxer();
01647 cblas_info = 10; RowMajorStrg = TRUE;
01648 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
01649 ALPHA, A, 2, B, 1, BETA, C, 1 );
01650 chkxer();
01651 cblas_info = 10; RowMajorStrg = FALSE;
01652 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01653 ALPHA, A, 2, B, 1, BETA, C, 2 );
01654 chkxer();
01655 cblas_info = 10; RowMajorStrg = FALSE;
01656 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
01657 ALPHA, A, 2, B, 1, BETA, C, 1 );
01658 chkxer();
01659 cblas_info = 10; RowMajorStrg = FALSE;
01660 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01661 ALPHA, A, 2, B, 1, BETA, C, 2 );
01662 chkxer();
01663 cblas_info = 10; RowMajorStrg = FALSE;
01664 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2,
01665 ALPHA, A, 2, B, 1, BETA, C, 1 );
01666 chkxer();
01667 cblas_info = 13; RowMajorStrg = TRUE;
01668 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
01669 ALPHA, A, 1, B, 1, BETA, C, 1 );
01670 chkxer();
01671 cblas_info = 13; RowMajorStrg = TRUE;
01672 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
01673 ALPHA, A, 2, B, 2, BETA, C, 1 );
01674 chkxer();
01675 cblas_info = 13; RowMajorStrg = TRUE;
01676 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
01677 ALPHA, A, 1, B, 1, BETA, C, 1 );
01678 chkxer();
01679 cblas_info = 13; RowMajorStrg = TRUE;
01680 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
01681 ALPHA, A, 2, B, 2, BETA, C, 1 );
01682 chkxer();
01683 cblas_info = 13; RowMajorStrg = FALSE;
01684 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
01685 ALPHA, A, 2, B, 2, BETA, C, 1 );
01686 chkxer();
01687 cblas_info = 13; RowMajorStrg = FALSE;
01688 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 2, 0,
01689 ALPHA, A, 1, B, 1, BETA, C, 1 );
01690 chkxer();
01691 cblas_info = 13; RowMajorStrg = FALSE;
01692 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
01693 ALPHA, A, 2, B, 2, BETA, C, 1 );
01694 chkxer();
01695 cblas_info = 13; RowMajorStrg = FALSE;
01696 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
01697 ALPHA, A, 1, B, 1, BETA, C, 1 );
01698 chkxer();
01699
01700 }
01701
01702 if (cblas_ok == 1 )
01703 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
01704 else
01705 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
01706 }