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_d3chke(char *rout) {
00028 char *sf = ( rout ) ;
00029 double A[2] = {0.0,0.0},
00030 B[2] = {0.0,0.0},
00031 C[2] = {0.0,0.0},
00032 ALPHA=0.0, BETA=0.0;
00033 extern int cblas_info, cblas_lerr, cblas_ok;
00034 extern int RowMajorStrg;
00035 extern char *cblas_rout;
00036
00037 if (link_xerbla)
00038 {
00039 cblas_xerbla(cblas_info,cblas_rout,"");
00040 F77_xerbla(cblas_rout,&cblas_info);
00041 }
00042
00043 cblas_ok = TRUE ;
00044 cblas_lerr = PASSED ;
00045
00046 if (strncmp( sf,"cblas_dgemm" ,11)==0) {
00047 cblas_rout = "cblas_dgemm" ;
00048
00049 cblas_info = 1;
00050 cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
00051 ALPHA, A, 1, B, 1, BETA, C, 1 );
00052 chkxer();
00053 cblas_info = 1;
00054 cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
00055 ALPHA, A, 1, B, 1, BETA, C, 1 );
00056 chkxer();
00057 cblas_info = 1;
00058 cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
00059 ALPHA, A, 1, B, 1, BETA, C, 1 );
00060 chkxer();
00061 cblas_info = 1;
00062 cblas_dgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
00063 ALPHA, A, 1, B, 1, BETA, C, 1 );
00064 chkxer();
00065 cblas_info = 2; RowMajorStrg = FALSE;
00066 cblas_dgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
00067 ALPHA, A, 1, B, 1, BETA, C, 1 );
00068 chkxer();
00069 cblas_info = 2; RowMajorStrg = FALSE;
00070 cblas_dgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
00071 ALPHA, A, 1, B, 1, BETA, C, 1 );
00072 chkxer();
00073 cblas_info = 3; RowMajorStrg = FALSE;
00074 cblas_dgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
00075 ALPHA, A, 1, B, 1, BETA, C, 1 );
00076 chkxer();
00077 cblas_info = 3; RowMajorStrg = FALSE;
00078 cblas_dgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
00079 ALPHA, A, 1, B, 1, BETA, C, 1 );
00080 chkxer();
00081 cblas_info = 4; RowMajorStrg = FALSE;
00082 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00083 ALPHA, A, 1, B, 1, BETA, C, 1 );
00084 chkxer();
00085 cblas_info = 4; RowMajorStrg = FALSE;
00086 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
00087 ALPHA, A, 1, B, 1, BETA, C, 1 );
00088 chkxer();
00089 cblas_info = 4; RowMajorStrg = FALSE;
00090 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
00091 ALPHA, A, 1, B, 1, BETA, C, 1 );
00092 chkxer();
00093 cblas_info = 4; RowMajorStrg = FALSE;
00094 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
00095 ALPHA, A, 1, B, 1, BETA, C, 1 );
00096 chkxer();
00097 cblas_info = 5; RowMajorStrg = FALSE;
00098 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00099 ALPHA, A, 1, B, 1, BETA, C, 1 );
00100 chkxer();
00101 cblas_info = 5; RowMajorStrg = FALSE;
00102 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
00103 ALPHA, A, 1, B, 1, BETA, C, 1 );
00104 chkxer();
00105 cblas_info = 5; RowMajorStrg = FALSE;
00106 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
00107 ALPHA, A, 1, B, 1, BETA, C, 1 );
00108 chkxer();
00109 cblas_info = 5; RowMajorStrg = FALSE;
00110 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
00111 ALPHA, A, 1, B, 1, BETA, C, 1 );
00112 chkxer();
00113 cblas_info = 6; RowMajorStrg = FALSE;
00114 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00115 ALPHA, A, 1, B, 1, BETA, C, 1 );
00116 chkxer();
00117 cblas_info = 6; RowMajorStrg = FALSE;
00118 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
00119 ALPHA, A, 1, B, 1, BETA, C, 1 );
00120 chkxer();
00121 cblas_info = 6; RowMajorStrg = FALSE;
00122 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
00123 ALPHA, A, 1, B, 1, BETA, C, 1 );
00124 chkxer();
00125 cblas_info = 6; RowMajorStrg = FALSE;
00126 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
00127 ALPHA, A, 1, B, 1, BETA, C, 1 );
00128 chkxer();
00129 cblas_info = 9; RowMajorStrg = FALSE;
00130 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
00131 ALPHA, A, 1, B, 1, BETA, C, 2 );
00132 chkxer();
00133 cblas_info = 9; RowMajorStrg = FALSE;
00134 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
00135 ALPHA, A, 1, B, 1, BETA, C, 2 );
00136 chkxer();
00137 cblas_info = 9; RowMajorStrg = FALSE;
00138 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
00139 ALPHA, A, 1, B, 2, BETA, C, 1 );
00140 chkxer();
00141 cblas_info = 9; RowMajorStrg = FALSE;
00142 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
00143 ALPHA, A, 1, B, 1, BETA, C, 1 );
00144 chkxer();
00145 cblas_info = 11; RowMajorStrg = FALSE;
00146 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
00147 ALPHA, A, 1, B, 1, BETA, C, 1 );
00148 chkxer();
00149 cblas_info = 11; RowMajorStrg = FALSE;
00150 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
00151 ALPHA, A, 2, B, 1, BETA, C, 1 );
00152 chkxer();
00153 cblas_info = 11; RowMajorStrg = FALSE;
00154 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
00155 ALPHA, A, 1, B, 1, BETA, C, 1 );
00156 chkxer();
00157 cblas_info = 11; RowMajorStrg = FALSE;
00158 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
00159 ALPHA, A, 1, B, 1, BETA, C, 1 );
00160 chkxer();
00161 cblas_info = 14; RowMajorStrg = FALSE;
00162 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
00163 ALPHA, A, 2, B, 1, BETA, C, 1 );
00164 chkxer();
00165 cblas_info = 14; RowMajorStrg = FALSE;
00166 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
00167 ALPHA, A, 2, B, 1, BETA, C, 1 );
00168 chkxer();
00169 cblas_info = 14; RowMajorStrg = FALSE;
00170 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
00171 ALPHA, A, 1, B, 1, BETA, C, 1 );
00172 chkxer();
00173 cblas_info = 14; RowMajorStrg = FALSE;
00174 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
00175 ALPHA, A, 1, B, 1, BETA, C, 1 );
00176 chkxer();
00177 cblas_info = 4; RowMajorStrg = TRUE;
00178 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00179 ALPHA, A, 1, B, 1, BETA, C, 1 );
00180 chkxer();
00181 cblas_info = 4; RowMajorStrg = TRUE;
00182 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
00183 ALPHA, A, 1, B, 1, BETA, C, 1 );
00184 chkxer();
00185 cblas_info = 4; RowMajorStrg = TRUE;
00186 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
00187 ALPHA, A, 1, B, 1, BETA, C, 1 );
00188 chkxer();
00189 cblas_info = 4; RowMajorStrg = TRUE;
00190 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
00191 ALPHA, A, 1, B, 1, BETA, C, 1 );
00192 chkxer();
00193 cblas_info = 5; RowMajorStrg = TRUE;
00194 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00195 ALPHA, A, 1, B, 1, BETA, C, 1 );
00196 chkxer();
00197 cblas_info = 5; RowMajorStrg = TRUE;
00198 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
00199 ALPHA, A, 1, B, 1, BETA, C, 1 );
00200 chkxer();
00201 cblas_info = 5; RowMajorStrg = TRUE;
00202 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
00203 ALPHA, A, 1, B, 1, BETA, C, 1 );
00204 chkxer();
00205 cblas_info = 5; RowMajorStrg = TRUE;
00206 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
00207 ALPHA, A, 1, B, 1, BETA, C, 1 );
00208 chkxer();
00209 cblas_info = 6; RowMajorStrg = TRUE;
00210 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00211 ALPHA, A, 1, B, 1, BETA, C, 1 );
00212 chkxer();
00213 cblas_info = 6; RowMajorStrg = TRUE;
00214 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
00215 ALPHA, A, 1, B, 1, BETA, C, 1 );
00216 chkxer();
00217 cblas_info = 6; RowMajorStrg = TRUE;
00218 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
00219 ALPHA, A, 1, B, 1, BETA, C, 1 );
00220 chkxer();
00221 cblas_info = 6; RowMajorStrg = TRUE;
00222 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
00223 ALPHA, A, 1, B, 1, BETA, C, 1 );
00224 chkxer();
00225 cblas_info = 9; RowMajorStrg = TRUE;
00226 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
00227 ALPHA, A, 1, B, 1, BETA, C, 2 );
00228 chkxer();
00229 cblas_info = 9; RowMajorStrg = TRUE;
00230 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
00231 ALPHA, A, 1, B, 2, BETA, C, 2 );
00232 chkxer();
00233 cblas_info = 9; RowMajorStrg = TRUE;
00234 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
00235 ALPHA, A, 1, B, 2, BETA, C, 1 );
00236 chkxer();
00237 cblas_info = 9; RowMajorStrg = TRUE;
00238 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
00239 ALPHA, A, 1, B, 1, BETA, C, 1 );
00240 chkxer();
00241 cblas_info = 11; RowMajorStrg = TRUE;
00242 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
00243 ALPHA, A, 1, B, 1, BETA, C, 1 );
00244 chkxer();
00245 cblas_info = 11; RowMajorStrg = TRUE;
00246 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
00247 ALPHA, A, 2, B, 1, BETA, C, 1 );
00248 chkxer();
00249 cblas_info = 11; RowMajorStrg = TRUE;
00250 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
00251 ALPHA, A, 2, B, 1, BETA, C, 1 );
00252 chkxer();
00253 cblas_info = 11; RowMajorStrg = TRUE;
00254 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
00255 ALPHA, A, 1, B, 1, BETA, C, 1 );
00256 chkxer();
00257 cblas_info = 14; RowMajorStrg = TRUE;
00258 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
00259 ALPHA, A, 1, B, 2, BETA, C, 1 );
00260 chkxer();
00261 cblas_info = 14; RowMajorStrg = TRUE;
00262 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
00263 ALPHA, A, 1, B, 1, BETA, C, 1 );
00264 chkxer();
00265 cblas_info = 14; RowMajorStrg = TRUE;
00266 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
00267 ALPHA, A, 1, B, 2, BETA, C, 1 );
00268 chkxer();
00269 cblas_info = 14; RowMajorStrg = TRUE;
00270 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
00271 ALPHA, A, 1, B, 1, BETA, C, 1 );
00272 chkxer();
00273
00274 } else if (strncmp( sf,"cblas_dsymm" ,11)==0) {
00275 cblas_rout = "cblas_dsymm" ;
00276
00277 cblas_info = 1;
00278 cblas_dsymm( INVALID, CblasRight, CblasLower, 0, 0,
00279 ALPHA, A, 1, B, 1, BETA, C, 1 );
00280 chkxer();
00281 cblas_info = 2; RowMajorStrg = FALSE;
00282 cblas_dsymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
00283 ALPHA, A, 1, B, 1, BETA, C, 1 );
00284 chkxer();
00285 cblas_info = 3; RowMajorStrg = FALSE;
00286 cblas_dsymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
00287 ALPHA, A, 1, B, 1, BETA, C, 1 );
00288 chkxer();
00289 cblas_info = 4; RowMajorStrg = FALSE;
00290 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
00291 ALPHA, A, 1, B, 1, BETA, C, 1 );
00292 chkxer();
00293 cblas_info = 4; RowMajorStrg = FALSE;
00294 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
00295 ALPHA, A, 1, B, 1, BETA, C, 1 );
00296 chkxer();
00297 cblas_info = 4; RowMajorStrg = FALSE;
00298 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
00299 ALPHA, A, 1, B, 1, BETA, C, 1 );
00300 chkxer();
00301 cblas_info = 4; RowMajorStrg = FALSE;
00302 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
00303 ALPHA, A, 1, B, 1, BETA, C, 1 );
00304 chkxer();
00305 cblas_info = 5; RowMajorStrg = FALSE;
00306 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
00307 ALPHA, A, 1, B, 1, BETA, C, 1 );
00308 chkxer();
00309 cblas_info = 5; RowMajorStrg = FALSE;
00310 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
00311 ALPHA, A, 1, B, 1, BETA, C, 1 );
00312 chkxer();
00313 cblas_info = 5; RowMajorStrg = FALSE;
00314 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
00315 ALPHA, A, 1, B, 1, BETA, C, 1 );
00316 chkxer();
00317 cblas_info = 5; RowMajorStrg = FALSE;
00318 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
00319 ALPHA, A, 1, B, 1, BETA, C, 1 );
00320 chkxer();
00321 cblas_info = 8; RowMajorStrg = FALSE;
00322 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00323 ALPHA, A, 1, B, 2, BETA, C, 2 );
00324 chkxer();
00325 cblas_info = 8; RowMajorStrg = FALSE;
00326 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
00327 ALPHA, A, 1, B, 1, BETA, C, 1 );
00328 chkxer();
00329 cblas_info = 8; RowMajorStrg = FALSE;
00330 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00331 ALPHA, A, 1, B, 2, BETA, C, 2 );
00332 chkxer();
00333 cblas_info = 8; RowMajorStrg = FALSE;
00334 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
00335 ALPHA, A, 1, B, 1, BETA, C, 1 );
00336 chkxer();
00337 cblas_info = 10; RowMajorStrg = FALSE;
00338 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00339 ALPHA, A, 2, B, 1, BETA, C, 1 );
00340 chkxer();
00341 cblas_info = 10; RowMajorStrg = FALSE;
00342 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00343 ALPHA, A, 1, B, 1, BETA, C, 1 );
00344 chkxer();
00345 cblas_info = 10; RowMajorStrg = FALSE;
00346 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00347 ALPHA, A, 2, B, 1, BETA, C, 1 );
00348 chkxer();
00349 cblas_info = 10; RowMajorStrg = FALSE;
00350 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00351 ALPHA, A, 1, B, 1, BETA, C, 1 );
00352 chkxer();
00353 cblas_info = 13; RowMajorStrg = FALSE;
00354 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
00355 ALPHA, A, 2, B, 2, BETA, C, 1 );
00356 chkxer();
00357 cblas_info = 13; RowMajorStrg = FALSE;
00358 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
00359 ALPHA, A, 1, B, 2, BETA, C, 1 );
00360 chkxer();
00361 cblas_info = 13; RowMajorStrg = FALSE;
00362 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
00363 ALPHA, A, 2, B, 2, BETA, C, 1 );
00364 chkxer();
00365 cblas_info = 13; RowMajorStrg = FALSE;
00366 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
00367 ALPHA, A, 1, B, 2, BETA, C, 1 );
00368 chkxer();
00369 cblas_info = 4; RowMajorStrg = TRUE;
00370 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
00371 ALPHA, A, 1, B, 1, BETA, C, 1 );
00372 chkxer();
00373 cblas_info = 4; RowMajorStrg = TRUE;
00374 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
00375 ALPHA, A, 1, B, 1, BETA, C, 1 );
00376 chkxer();
00377 cblas_info = 4; RowMajorStrg = TRUE;
00378 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
00379 ALPHA, A, 1, B, 1, BETA, C, 1 );
00380 chkxer();
00381 cblas_info = 4; RowMajorStrg = TRUE;
00382 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
00383 ALPHA, A, 1, B, 1, BETA, C, 1 );
00384 chkxer();
00385 cblas_info = 5; RowMajorStrg = TRUE;
00386 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
00387 ALPHA, A, 1, B, 1, BETA, C, 1 );
00388 chkxer();
00389 cblas_info = 5; RowMajorStrg = TRUE;
00390 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
00391 ALPHA, A, 1, B, 1, BETA, C, 1 );
00392 chkxer();
00393 cblas_info = 5; RowMajorStrg = TRUE;
00394 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
00395 ALPHA, A, 1, B, 1, BETA, C, 1 );
00396 chkxer();
00397 cblas_info = 5; RowMajorStrg = TRUE;
00398 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
00399 ALPHA, A, 1, B, 1, BETA, C, 1 );
00400 chkxer();
00401 cblas_info = 8; RowMajorStrg = TRUE;
00402 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
00403 ALPHA, A, 1, B, 2, BETA, C, 2 );
00404 chkxer();
00405 cblas_info = 8; RowMajorStrg = TRUE;
00406 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00407 ALPHA, A, 1, B, 1, BETA, C, 1 );
00408 chkxer();
00409 cblas_info = 8; RowMajorStrg = TRUE;
00410 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
00411 ALPHA, A, 1, B, 2, BETA, C, 2 );
00412 chkxer();
00413 cblas_info = 8; RowMajorStrg = TRUE;
00414 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00415 ALPHA, A, 1, B, 1, BETA, C, 1 );
00416 chkxer();
00417 cblas_info = 10; RowMajorStrg = TRUE;
00418 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00419 ALPHA, A, 2, B, 1, BETA, C, 1 );
00420 chkxer();
00421 cblas_info = 10; RowMajorStrg = TRUE;
00422 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00423 ALPHA, A, 2, B, 1, BETA, C, 1 );
00424 chkxer();
00425 cblas_info = 10; RowMajorStrg = TRUE;
00426 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00427 ALPHA, A, 2, B, 1, BETA, C, 1 );
00428 chkxer();
00429 cblas_info = 10; RowMajorStrg = TRUE;
00430 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00431 ALPHA, A, 2, B, 1, BETA, C, 1 );
00432 chkxer();
00433 cblas_info = 13; RowMajorStrg = TRUE;
00434 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
00435 ALPHA, A, 1, B, 2, BETA, C, 1 );
00436 chkxer();
00437 cblas_info = 13; RowMajorStrg = TRUE;
00438 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
00439 ALPHA, A, 2, B, 2, BETA, C, 1 );
00440 chkxer();
00441 cblas_info = 13; RowMajorStrg = TRUE;
00442 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
00443 ALPHA, A, 1, B, 2, BETA, C, 1 );
00444 chkxer();
00445 cblas_info = 13; RowMajorStrg = TRUE;
00446 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
00447 ALPHA, A, 2, B, 2, BETA, C, 1 );
00448 chkxer();
00449
00450 } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) {
00451 cblas_rout = "cblas_dtrmm" ;
00452
00453 cblas_info = 1;
00454 cblas_dtrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
00455 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00456 chkxer();
00457 cblas_info = 2; RowMajorStrg = FALSE;
00458 cblas_dtrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
00459 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00460 chkxer();
00461 cblas_info = 3; RowMajorStrg = FALSE;
00462 cblas_dtrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
00463 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00464 chkxer();
00465 cblas_info = 4; RowMajorStrg = FALSE;
00466 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
00467 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00468 chkxer();
00469 cblas_info = 5; RowMajorStrg = FALSE;
00470 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00471 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00472 chkxer();
00473 cblas_info = 6; RowMajorStrg = FALSE;
00474 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00475 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00476 chkxer();
00477 cblas_info = 6; RowMajorStrg = FALSE;
00478 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00479 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00480 chkxer();
00481 cblas_info = 6; RowMajorStrg = FALSE;
00482 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00483 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00484 chkxer();
00485 cblas_info = 6; RowMajorStrg = FALSE;
00486 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00487 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00488 chkxer();
00489 cblas_info = 6; RowMajorStrg = FALSE;
00490 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00491 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00492 chkxer();
00493 cblas_info = 6; RowMajorStrg = FALSE;
00494 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00495 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00496 chkxer();
00497 cblas_info = 6; RowMajorStrg = FALSE;
00498 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00499 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00500 chkxer();
00501 cblas_info = 6; RowMajorStrg = FALSE;
00502 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00503 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00504 chkxer();
00505 cblas_info = 7; RowMajorStrg = FALSE;
00506 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00507 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00508 chkxer();
00509 cblas_info = 7; RowMajorStrg = FALSE;
00510 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00511 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00512 chkxer();
00513 cblas_info = 7; RowMajorStrg = FALSE;
00514 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00515 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00516 chkxer();
00517 cblas_info = 7; RowMajorStrg = FALSE;
00518 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00519 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00520 chkxer();
00521 cblas_info = 7; RowMajorStrg = FALSE;
00522 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00523 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00524 chkxer();
00525 cblas_info = 7; RowMajorStrg = FALSE;
00526 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00527 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00528 chkxer();
00529 cblas_info = 7; RowMajorStrg = FALSE;
00530 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00531 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00532 chkxer();
00533 cblas_info = 7; RowMajorStrg = FALSE;
00534 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00535 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00536 chkxer();
00537 cblas_info = 10; RowMajorStrg = FALSE;
00538 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00539 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00540 chkxer();
00541 cblas_info = 10; RowMajorStrg = FALSE;
00542 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00543 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00544 chkxer();
00545 cblas_info = 10; RowMajorStrg = FALSE;
00546 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00547 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00548 chkxer();
00549 cblas_info = 10; RowMajorStrg = FALSE;
00550 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00551 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00552 chkxer();
00553 cblas_info = 10; RowMajorStrg = FALSE;
00554 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00555 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00556 chkxer();
00557 cblas_info = 10; RowMajorStrg = FALSE;
00558 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00559 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00560 chkxer();
00561 cblas_info = 10; RowMajorStrg = FALSE;
00562 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00563 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00564 chkxer();
00565 cblas_info = 10; RowMajorStrg = FALSE;
00566 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00567 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00568 chkxer();
00569 cblas_info = 12; RowMajorStrg = FALSE;
00570 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00571 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00572 chkxer();
00573 cblas_info = 12; RowMajorStrg = FALSE;
00574 cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00575 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00576 chkxer();
00577 cblas_info = 12; RowMajorStrg = FALSE;
00578 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00579 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00580 chkxer();
00581 cblas_info = 12; RowMajorStrg = FALSE;
00582 cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00583 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00584 chkxer();
00585 cblas_info = 12; RowMajorStrg = FALSE;
00586 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00587 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00588 chkxer();
00589 cblas_info = 12; RowMajorStrg = FALSE;
00590 cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00591 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00592 chkxer();
00593 cblas_info = 12; RowMajorStrg = FALSE;
00594 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00595 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00596 chkxer();
00597 cblas_info = 12; RowMajorStrg = FALSE;
00598 cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00599 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00600 chkxer();
00601 cblas_info = 6; RowMajorStrg = TRUE;
00602 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00603 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00604 chkxer();
00605 cblas_info = 6; RowMajorStrg = TRUE;
00606 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00607 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00608 chkxer();
00609 cblas_info = 6; RowMajorStrg = TRUE;
00610 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00611 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00612 chkxer();
00613 cblas_info = 6; RowMajorStrg = TRUE;
00614 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00615 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00616 chkxer();
00617 cblas_info = 6; RowMajorStrg = TRUE;
00618 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00619 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00620 chkxer();
00621 cblas_info = 6; RowMajorStrg = TRUE;
00622 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00623 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00624 chkxer();
00625 cblas_info = 6; RowMajorStrg = TRUE;
00626 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00627 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00628 chkxer();
00629 cblas_info = 6; RowMajorStrg = TRUE;
00630 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00631 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00632 chkxer();
00633 cblas_info = 7; RowMajorStrg = TRUE;
00634 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00635 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00636 chkxer();
00637 cblas_info = 7; RowMajorStrg = TRUE;
00638 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00639 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00640 chkxer();
00641 cblas_info = 7; RowMajorStrg = TRUE;
00642 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00643 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00644 chkxer();
00645 cblas_info = 7; RowMajorStrg = TRUE;
00646 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00647 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00648 chkxer();
00649 cblas_info = 7; RowMajorStrg = TRUE;
00650 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00651 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00652 chkxer();
00653 cblas_info = 7; RowMajorStrg = TRUE;
00654 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00655 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00656 chkxer();
00657 cblas_info = 7; RowMajorStrg = TRUE;
00658 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00659 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00660 chkxer();
00661 cblas_info = 7; RowMajorStrg = TRUE;
00662 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00663 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00664 chkxer();
00665 cblas_info = 10; RowMajorStrg = TRUE;
00666 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00667 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00668 chkxer();
00669 cblas_info = 10; RowMajorStrg = TRUE;
00670 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00671 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00672 chkxer();
00673 cblas_info = 10; RowMajorStrg = TRUE;
00674 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00675 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00676 chkxer();
00677 cblas_info = 10; RowMajorStrg = TRUE;
00678 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00679 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00680 chkxer();
00681 cblas_info = 10; RowMajorStrg = TRUE;
00682 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00683 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00684 chkxer();
00685 cblas_info = 10; RowMajorStrg = TRUE;
00686 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00687 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00688 chkxer();
00689 cblas_info = 10; RowMajorStrg = TRUE;
00690 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00691 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00692 chkxer();
00693 cblas_info = 10; RowMajorStrg = TRUE;
00694 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00695 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00696 chkxer();
00697 cblas_info = 12; RowMajorStrg = TRUE;
00698 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00699 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00700 chkxer();
00701 cblas_info = 12; RowMajorStrg = TRUE;
00702 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00703 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00704 chkxer();
00705 cblas_info = 12; RowMajorStrg = TRUE;
00706 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00707 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00708 chkxer();
00709 cblas_info = 12; RowMajorStrg = TRUE;
00710 cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00711 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00712 chkxer();
00713 cblas_info = 12; RowMajorStrg = TRUE;
00714 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00715 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00716 chkxer();
00717 cblas_info = 12; RowMajorStrg = TRUE;
00718 cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00719 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00720 chkxer();
00721 cblas_info = 12; RowMajorStrg = TRUE;
00722 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00723 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00724 chkxer();
00725 cblas_info = 12; RowMajorStrg = TRUE;
00726 cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00727 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00728 chkxer();
00729
00730 } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) {
00731 cblas_rout = "cblas_dtrsm" ;
00732
00733 cblas_info = 1;
00734 cblas_dtrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
00735 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00736 chkxer();
00737 cblas_info = 2; RowMajorStrg = FALSE;
00738 cblas_dtrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
00739 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00740 chkxer();
00741 cblas_info = 3; RowMajorStrg = FALSE;
00742 cblas_dtrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
00743 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00744 chkxer();
00745 cblas_info = 4; RowMajorStrg = FALSE;
00746 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
00747 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00748 chkxer();
00749 cblas_info = 5; RowMajorStrg = FALSE;
00750 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00751 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00752 chkxer();
00753 cblas_info = 6; RowMajorStrg = FALSE;
00754 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00755 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00756 chkxer();
00757 cblas_info = 6; RowMajorStrg = FALSE;
00758 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00759 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00760 chkxer();
00761 cblas_info = 6; RowMajorStrg = FALSE;
00762 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00763 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00764 chkxer();
00765 cblas_info = 6; RowMajorStrg = FALSE;
00766 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00767 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00768 chkxer();
00769 cblas_info = 6; RowMajorStrg = FALSE;
00770 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00771 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00772 chkxer();
00773 cblas_info = 6; RowMajorStrg = FALSE;
00774 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00775 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00776 chkxer();
00777 cblas_info = 6; RowMajorStrg = FALSE;
00778 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00779 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00780 chkxer();
00781 cblas_info = 6; RowMajorStrg = FALSE;
00782 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00783 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00784 chkxer();
00785 cblas_info = 7; RowMajorStrg = FALSE;
00786 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00787 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00788 chkxer();
00789 cblas_info = 7; RowMajorStrg = FALSE;
00790 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00791 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00792 chkxer();
00793 cblas_info = 7; RowMajorStrg = FALSE;
00794 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00795 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00796 chkxer();
00797 cblas_info = 7; RowMajorStrg = FALSE;
00798 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00799 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00800 chkxer();
00801 cblas_info = 7; RowMajorStrg = FALSE;
00802 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00803 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00804 chkxer();
00805 cblas_info = 7; RowMajorStrg = FALSE;
00806 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00807 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00808 chkxer();
00809 cblas_info = 7; RowMajorStrg = FALSE;
00810 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00811 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00812 chkxer();
00813 cblas_info = 7; RowMajorStrg = FALSE;
00814 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00815 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00816 chkxer();
00817 cblas_info = 10; RowMajorStrg = FALSE;
00818 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00819 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00820 chkxer();
00821 cblas_info = 10; RowMajorStrg = FALSE;
00822 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00823 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00824 chkxer();
00825 cblas_info = 10; RowMajorStrg = FALSE;
00826 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00827 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00828 chkxer();
00829 cblas_info = 10; RowMajorStrg = FALSE;
00830 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00831 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00832 chkxer();
00833 cblas_info = 10; RowMajorStrg = FALSE;
00834 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00835 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00836 chkxer();
00837 cblas_info = 10; RowMajorStrg = FALSE;
00838 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00839 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00840 chkxer();
00841 cblas_info = 10; RowMajorStrg = FALSE;
00842 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00843 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00844 chkxer();
00845 cblas_info = 10; RowMajorStrg = FALSE;
00846 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00847 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00848 chkxer();
00849 cblas_info = 12; RowMajorStrg = FALSE;
00850 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
00851 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00852 chkxer();
00853 cblas_info = 12; RowMajorStrg = FALSE;
00854 cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
00855 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00856 chkxer();
00857 cblas_info = 12; RowMajorStrg = FALSE;
00858 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
00859 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00860 chkxer();
00861 cblas_info = 12; RowMajorStrg = FALSE;
00862 cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
00863 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00864 chkxer();
00865 cblas_info = 12; RowMajorStrg = FALSE;
00866 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
00867 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00868 chkxer();
00869 cblas_info = 12; RowMajorStrg = FALSE;
00870 cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
00871 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00872 chkxer();
00873 cblas_info = 12; RowMajorStrg = FALSE;
00874 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
00875 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00876 chkxer();
00877 cblas_info = 12; RowMajorStrg = FALSE;
00878 cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
00879 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00880 chkxer();
00881
00882 cblas_info = 6; RowMajorStrg = TRUE;
00883 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00884 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00885 chkxer();
00886 cblas_info = 6; RowMajorStrg = TRUE;
00887 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00888 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00889 chkxer();
00890 cblas_info = 6; RowMajorStrg = TRUE;
00891 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00892 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00893 chkxer();
00894 cblas_info = 6; RowMajorStrg = TRUE;
00895 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00896 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00897 chkxer();
00898 cblas_info = 6; RowMajorStrg = TRUE;
00899 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00900 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00901 chkxer();
00902 cblas_info = 6; RowMajorStrg = TRUE;
00903 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00904 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00905 chkxer();
00906 cblas_info = 6; RowMajorStrg = TRUE;
00907 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00908 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00909 chkxer();
00910 cblas_info = 6; RowMajorStrg = TRUE;
00911 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00912 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00913 chkxer();
00914 cblas_info = 7; RowMajorStrg = TRUE;
00915 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00916 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00917 chkxer();
00918 cblas_info = 7; RowMajorStrg = TRUE;
00919 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00920 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00921 chkxer();
00922 cblas_info = 7; RowMajorStrg = TRUE;
00923 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00924 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00925 chkxer();
00926 cblas_info = 7; RowMajorStrg = TRUE;
00927 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00928 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00929 chkxer();
00930 cblas_info = 7; RowMajorStrg = TRUE;
00931 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00932 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00933 chkxer();
00934 cblas_info = 7; RowMajorStrg = TRUE;
00935 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00936 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00937 chkxer();
00938 cblas_info = 7; RowMajorStrg = TRUE;
00939 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00940 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00941 chkxer();
00942 cblas_info = 7; RowMajorStrg = TRUE;
00943 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00944 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00945 chkxer();
00946 cblas_info = 10; RowMajorStrg = TRUE;
00947 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00948 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00949 chkxer();
00950 cblas_info = 10; RowMajorStrg = TRUE;
00951 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00952 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00953 chkxer();
00954 cblas_info = 10; RowMajorStrg = TRUE;
00955 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00956 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00957 chkxer();
00958 cblas_info = 10; RowMajorStrg = TRUE;
00959 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00960 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00961 chkxer();
00962 cblas_info = 10; RowMajorStrg = TRUE;
00963 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00964 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00965 chkxer();
00966 cblas_info = 10; RowMajorStrg = TRUE;
00967 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
00968 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00969 chkxer();
00970 cblas_info = 10; RowMajorStrg = TRUE;
00971 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
00972 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00973 chkxer();
00974 cblas_info = 10; RowMajorStrg = TRUE;
00975 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
00976 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00977 chkxer();
00978 cblas_info = 12; RowMajorStrg = TRUE;
00979 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
00980 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00981 chkxer();
00982 cblas_info = 12; RowMajorStrg = TRUE;
00983 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
00984 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00985 chkxer();
00986 cblas_info = 12; RowMajorStrg = TRUE;
00987 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
00988 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00989 chkxer();
00990 cblas_info = 12; RowMajorStrg = TRUE;
00991 cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
00992 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00993 chkxer();
00994 cblas_info = 12; RowMajorStrg = TRUE;
00995 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
00996 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00997 chkxer();
00998 cblas_info = 12; RowMajorStrg = TRUE;
00999 cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
01000 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01001 chkxer();
01002 cblas_info = 12; RowMajorStrg = TRUE;
01003 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
01004 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01005 chkxer();
01006 cblas_info = 12; RowMajorStrg = TRUE;
01007 cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
01008 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01009 chkxer();
01010
01011 } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) {
01012 cblas_rout = "cblas_dsyrk" ;
01013
01014 cblas_info = 1;
01015 cblas_dsyrk( INVALID, CblasUpper, CblasNoTrans,
01016 0, 0, ALPHA, A, 1, BETA, C, 1 );
01017 chkxer();
01018 cblas_info = 2; RowMajorStrg = FALSE;
01019 cblas_dsyrk( CblasColMajor, INVALID, CblasNoTrans,
01020 0, 0, ALPHA, A, 1, BETA, C, 1 );
01021 chkxer();
01022 cblas_info = 3; RowMajorStrg = FALSE;
01023 cblas_dsyrk( CblasColMajor, CblasUpper, INVALID,
01024 0, 0, ALPHA, A, 1, BETA, C, 1 );
01025 chkxer();
01026 cblas_info = 4; RowMajorStrg = FALSE;
01027 cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
01028 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
01029 chkxer();
01030 cblas_info = 4; RowMajorStrg = FALSE;
01031 cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
01032 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
01033 chkxer();
01034 cblas_info = 4; RowMajorStrg = FALSE;
01035 cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
01036 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
01037 chkxer();
01038 cblas_info = 4; RowMajorStrg = FALSE;
01039 cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
01040 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
01041 chkxer();
01042 cblas_info = 5; RowMajorStrg = FALSE;
01043 cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
01044 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
01045 chkxer();
01046 cblas_info = 5; RowMajorStrg = FALSE;
01047 cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
01048 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
01049 chkxer();
01050 cblas_info = 5; RowMajorStrg = FALSE;
01051 cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
01052 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
01053 chkxer();
01054 cblas_info = 5; RowMajorStrg = FALSE;
01055 cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
01056 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
01057 chkxer();
01058 cblas_info = 8; RowMajorStrg = TRUE;
01059 cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
01060 0, 2, ALPHA, A, 1, BETA, C, 2 );
01061 chkxer();
01062 cblas_info = 8; RowMajorStrg = TRUE;
01063 cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans,
01064 2, 0, ALPHA, A, 1, BETA, C, 1 );
01065 chkxer();
01066 cblas_info = 8; RowMajorStrg = TRUE;
01067 cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans,
01068 0, 2, ALPHA, A, 1, BETA, C, 2 );
01069 chkxer();
01070 cblas_info = 8; RowMajorStrg = TRUE;
01071 cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans,
01072 2, 0, ALPHA, A, 1, BETA, C, 1 );
01073 chkxer();
01074 cblas_info = 8; RowMajorStrg = FALSE;
01075 cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
01076 2, 0, ALPHA, A, 1, BETA, C, 2 );
01077 chkxer();
01078 cblas_info = 8; RowMajorStrg = FALSE;
01079 cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
01080 0, 2, ALPHA, A, 1, BETA, C, 1 );
01081 chkxer();
01082 cblas_info = 8; RowMajorStrg = FALSE;
01083 cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
01084 2, 0, ALPHA, A, 1, BETA, C, 2 );
01085 chkxer();
01086 cblas_info = 8; RowMajorStrg = FALSE;
01087 cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
01088 0, 2, ALPHA, A, 1, BETA, C, 1 );
01089 chkxer();
01090 cblas_info = 11; RowMajorStrg = TRUE;
01091 cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
01092 2, 0, ALPHA, A, 1, BETA, C, 1 );
01093 chkxer();
01094 cblas_info = 11; RowMajorStrg = TRUE;
01095 cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans,
01096 2, 0, ALPHA, A, 2, BETA, C, 1 );
01097 chkxer();
01098 cblas_info = 11; RowMajorStrg = TRUE;
01099 cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans,
01100 2, 0, ALPHA, A, 1, BETA, C, 1 );
01101 chkxer();
01102 cblas_info = 11; RowMajorStrg = TRUE;
01103 cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans,
01104 2, 0, ALPHA, A, 2, BETA, C, 1 );
01105 chkxer();
01106 cblas_info = 11; RowMajorStrg = FALSE;
01107 cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
01108 2, 0, ALPHA, A, 2, BETA, C, 1 );
01109 chkxer();
01110 cblas_info = 11; RowMajorStrg = FALSE;
01111 cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
01112 2, 0, ALPHA, A, 1, BETA, C, 1 );
01113 chkxer();
01114 cblas_info = 11; RowMajorStrg = FALSE;
01115 cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
01116 2, 0, ALPHA, A, 2, BETA, C, 1 );
01117 chkxer();
01118 cblas_info = 11; RowMajorStrg = FALSE;
01119 cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
01120 2, 0, ALPHA, A, 1, BETA, C, 1 );
01121 chkxer();
01122
01123 } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) {
01124 cblas_rout = "cblas_dsyr2k" ;
01125
01126 cblas_info = 1;
01127 cblas_dsyr2k( INVALID, CblasUpper, CblasNoTrans,
01128 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01129 chkxer();
01130 cblas_info = 2; RowMajorStrg = FALSE;
01131 cblas_dsyr2k( CblasColMajor, INVALID, CblasNoTrans,
01132 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01133 chkxer();
01134 cblas_info = 3; RowMajorStrg = FALSE;
01135 cblas_dsyr2k( CblasColMajor, CblasUpper, INVALID,
01136 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01137 chkxer();
01138 cblas_info = 4; RowMajorStrg = FALSE;
01139 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
01140 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01141 chkxer();
01142 cblas_info = 4; RowMajorStrg = FALSE;
01143 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
01144 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01145 chkxer();
01146 cblas_info = 4; RowMajorStrg = FALSE;
01147 cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
01148 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01149 chkxer();
01150 cblas_info = 4; RowMajorStrg = FALSE;
01151 cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
01152 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01153 chkxer();
01154 cblas_info = 5; RowMajorStrg = FALSE;
01155 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
01156 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
01157 chkxer();
01158 cblas_info = 5; RowMajorStrg = FALSE;
01159 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
01160 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
01161 chkxer();
01162 cblas_info = 5; RowMajorStrg = FALSE;
01163 cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
01164 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
01165 chkxer();
01166 cblas_info = 5; RowMajorStrg = FALSE;
01167 cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
01168 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
01169 chkxer();
01170 cblas_info = 8; RowMajorStrg = TRUE;
01171 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
01172 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
01173 chkxer();
01174 cblas_info = 8; RowMajorStrg = TRUE;
01175 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
01176 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
01177 chkxer();
01178 cblas_info = 8; RowMajorStrg = TRUE;
01179 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
01180 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
01181 chkxer();
01182 cblas_info = 8; RowMajorStrg = TRUE;
01183 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
01184 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
01185 chkxer();
01186 cblas_info = 8; RowMajorStrg = FALSE;
01187 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
01188 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
01189 chkxer();
01190 cblas_info = 8; RowMajorStrg = FALSE;
01191 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
01192 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
01193 chkxer();
01194 cblas_info = 8; RowMajorStrg = FALSE;
01195 cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
01196 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
01197 chkxer();
01198 cblas_info = 8; RowMajorStrg = FALSE;
01199 cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
01200 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
01201 chkxer();
01202 cblas_info = 10; RowMajorStrg = TRUE;
01203 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
01204 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
01205 chkxer();
01206 cblas_info = 10; RowMajorStrg = TRUE;
01207 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
01208 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
01209 chkxer();
01210 cblas_info = 10; RowMajorStrg = TRUE;
01211 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
01212 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
01213 chkxer();
01214 cblas_info = 10; RowMajorStrg = TRUE;
01215 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
01216 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
01217 chkxer();
01218 cblas_info = 10; RowMajorStrg = FALSE;
01219 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
01220 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
01221 chkxer();
01222 cblas_info = 10; RowMajorStrg = FALSE;
01223 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
01224 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
01225 chkxer();
01226 cblas_info = 10; RowMajorStrg = FALSE;
01227 cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
01228 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
01229 chkxer();
01230 cblas_info = 10; RowMajorStrg = FALSE;
01231 cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
01232 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
01233 chkxer();
01234 cblas_info = 13; RowMajorStrg = TRUE;
01235 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
01236 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01237 chkxer();
01238 cblas_info = 13; RowMajorStrg = TRUE;
01239 cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
01240 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
01241 chkxer();
01242 cblas_info = 13; RowMajorStrg = TRUE;
01243 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
01244 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01245 chkxer();
01246 cblas_info = 13; RowMajorStrg = TRUE;
01247 cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
01248 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
01249 chkxer();
01250 cblas_info = 13; RowMajorStrg = FALSE;
01251 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
01252 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
01253 chkxer();
01254 cblas_info = 13; RowMajorStrg = FALSE;
01255 cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
01256 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01257 chkxer();
01258 cblas_info = 13; RowMajorStrg = FALSE;
01259 cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
01260 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
01261 chkxer();
01262 cblas_info = 13; RowMajorStrg = FALSE;
01263 cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
01264 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
01265 chkxer();
01266 }
01267 if (cblas_ok == TRUE )
01268 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
01269 else
01270 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
01271 }