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_d2chke(char *rout) {
00028 char *sf = ( rout ) ;
00029 double A[2] = {0.0,0.0},
00030 X[2] = {0.0,0.0},
00031 Y[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_dgemv",11)==0) {
00047 cblas_rout = "cblas_dgemv";
00048 cblas_info = 1;
00049 cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
00050 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00051 chkxer();
00052 cblas_info = 2; RowMajorStrg = FALSE;
00053 cblas_dgemv(CblasColMajor, INVALID, 0, 0,
00054 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00055 chkxer();
00056 cblas_info = 3; RowMajorStrg = FALSE;
00057 cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
00058 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00059 chkxer();
00060 cblas_info = 4; RowMajorStrg = FALSE;
00061 cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
00062 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00063 chkxer();
00064 cblas_info = 7; RowMajorStrg = FALSE;
00065 cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0,
00066 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00067 chkxer();
00068 cblas_info = 9; RowMajorStrg = FALSE;
00069 cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
00070 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00071 chkxer();
00072 cblas_info = 12; RowMajorStrg = FALSE;
00073 cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
00074 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00075 chkxer();
00076
00077 cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
00078 cblas_dgemv(CblasRowMajor, INVALID, 0, 0,
00079 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00080 chkxer();
00081 cblas_info = 3; RowMajorStrg = TRUE;
00082 cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
00083 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00084 chkxer();
00085 cblas_info = 4; RowMajorStrg = TRUE;
00086 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
00087 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00088 chkxer();
00089 cblas_info = 7; RowMajorStrg = TRUE;
00090 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2,
00091 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00092 chkxer();
00093 cblas_info = 9; RowMajorStrg = TRUE;
00094 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
00095 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00096 chkxer();
00097 cblas_info = 12; RowMajorStrg = TRUE;
00098 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
00099 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00100 chkxer();
00101 } else if (strncmp( sf,"cblas_dgbmv",11)==0) {
00102 cblas_rout = "cblas_dgbmv";
00103 cblas_info = 1; RowMajorStrg = FALSE;
00104 cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
00105 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00106 chkxer();
00107 cblas_info = 2; RowMajorStrg = FALSE;
00108 cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
00109 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00110 chkxer();
00111 cblas_info = 3; RowMajorStrg = FALSE;
00112 cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
00113 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00114 chkxer();
00115 cblas_info = 4; RowMajorStrg = FALSE;
00116 cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
00117 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00118 chkxer();
00119 cblas_info = 5; RowMajorStrg = FALSE;
00120 cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
00121 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00122 chkxer();
00123 cblas_info = 6; RowMajorStrg = FALSE;
00124 cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
00125 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00126 chkxer();
00127 cblas_info = 9; RowMajorStrg = FALSE;
00128 cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
00129 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00130 chkxer();
00131 cblas_info = 11; RowMajorStrg = FALSE;
00132 cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
00133 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00134 chkxer();
00135 cblas_info = 14; RowMajorStrg = FALSE;
00136 cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
00137 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00138 chkxer();
00139 cblas_info = 2; RowMajorStrg = TRUE;
00140 cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
00141 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00142 chkxer();
00143 cblas_info = 3; RowMajorStrg = TRUE;
00144 cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
00145 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00146 chkxer();
00147 cblas_info = 4; RowMajorStrg = TRUE;
00148 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
00149 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00150 chkxer();
00151 cblas_info = 5; RowMajorStrg = TRUE;
00152 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
00153 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00154 chkxer();
00155 cblas_info = 6; RowMajorStrg = TRUE;
00156 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
00157 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00158 chkxer();
00159 cblas_info = 9; RowMajorStrg = TRUE;
00160 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
00161 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00162 chkxer();
00163 cblas_info = 11; RowMajorStrg = TRUE;
00164 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
00165 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00166 chkxer();
00167 cblas_info = 14; RowMajorStrg = TRUE;
00168 cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
00169 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00170 chkxer();
00171 } else if (strncmp( sf,"cblas_dsymv",11)==0) {
00172 cblas_rout = "cblas_dsymv";
00173 cblas_info = 1; RowMajorStrg = FALSE;
00174 cblas_dsymv(INVALID, CblasUpper, 0,
00175 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00176 chkxer();
00177 cblas_info = 2; RowMajorStrg = FALSE;
00178 cblas_dsymv(CblasColMajor, INVALID, 0,
00179 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00180 chkxer();
00181 cblas_info = 3; RowMajorStrg = FALSE;
00182 cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
00183 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00184 chkxer();
00185 cblas_info = 6; RowMajorStrg = FALSE;
00186 cblas_dsymv(CblasColMajor, CblasUpper, 2,
00187 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00188 chkxer();
00189 cblas_info = 8; RowMajorStrg = FALSE;
00190 cblas_dsymv(CblasColMajor, CblasUpper, 0,
00191 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00192 chkxer();
00193 cblas_info = 11; RowMajorStrg = FALSE;
00194 cblas_dsymv(CblasColMajor, CblasUpper, 0,
00195 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00196 chkxer();
00197 cblas_info = 2; RowMajorStrg = TRUE;
00198 cblas_dsymv(CblasRowMajor, INVALID, 0,
00199 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00200 chkxer();
00201 cblas_info = 3; RowMajorStrg = TRUE;
00202 cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
00203 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00204 chkxer();
00205 cblas_info = 6; RowMajorStrg = TRUE;
00206 cblas_dsymv(CblasRowMajor, CblasUpper, 2,
00207 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00208 chkxer();
00209 cblas_info = 8; RowMajorStrg = TRUE;
00210 cblas_dsymv(CblasRowMajor, CblasUpper, 0,
00211 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00212 chkxer();
00213 cblas_info = 11; RowMajorStrg = TRUE;
00214 cblas_dsymv(CblasRowMajor, CblasUpper, 0,
00215 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00216 chkxer();
00217 } else if (strncmp( sf,"cblas_dsbmv",11)==0) {
00218 cblas_rout = "cblas_dsbmv";
00219 cblas_info = 1; RowMajorStrg = FALSE;
00220 cblas_dsbmv(INVALID, CblasUpper, 0, 0,
00221 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00222 chkxer();
00223 cblas_info = 2; RowMajorStrg = FALSE;
00224 cblas_dsbmv(CblasColMajor, INVALID, 0, 0,
00225 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00226 chkxer();
00227 cblas_info = 3; RowMajorStrg = FALSE;
00228 cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0,
00229 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00230 chkxer();
00231 cblas_info = 4; RowMajorStrg = FALSE;
00232 cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID,
00233 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00234 chkxer();
00235 cblas_info = 7; RowMajorStrg = FALSE;
00236 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1,
00237 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00238 chkxer();
00239 cblas_info = 9; RowMajorStrg = FALSE;
00240 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
00241 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00242 chkxer();
00243 cblas_info = 12; RowMajorStrg = FALSE;
00244 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
00245 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00246 chkxer();
00247 cblas_info = 2; RowMajorStrg = TRUE;
00248 cblas_dsbmv(CblasRowMajor, INVALID, 0, 0,
00249 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00250 chkxer();
00251 cblas_info = 3; RowMajorStrg = TRUE;
00252 cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0,
00253 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00254 chkxer();
00255 cblas_info = 4; RowMajorStrg = TRUE;
00256 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID,
00257 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00258 chkxer();
00259 cblas_info = 7; RowMajorStrg = TRUE;
00260 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1,
00261 ALPHA, A, 1, X, 1, BETA, Y, 1 );
00262 chkxer();
00263 cblas_info = 9; RowMajorStrg = TRUE;
00264 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
00265 ALPHA, A, 1, X, 0, BETA, Y, 1 );
00266 chkxer();
00267 cblas_info = 12; RowMajorStrg = TRUE;
00268 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
00269 ALPHA, A, 1, X, 1, BETA, Y, 0 );
00270 chkxer();
00271 } else if (strncmp( sf,"cblas_dspmv",11)==0) {
00272 cblas_rout = "cblas_dspmv";
00273 cblas_info = 1; RowMajorStrg = FALSE;
00274 cblas_dspmv(INVALID, CblasUpper, 0,
00275 ALPHA, A, X, 1, BETA, Y, 1 );
00276 chkxer();
00277 cblas_info = 2; RowMajorStrg = FALSE;
00278 cblas_dspmv(CblasColMajor, INVALID, 0,
00279 ALPHA, A, X, 1, BETA, Y, 1 );
00280 chkxer();
00281 cblas_info = 3; RowMajorStrg = FALSE;
00282 cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
00283 ALPHA, A, X, 1, BETA, Y, 1 );
00284 chkxer();
00285 cblas_info = 7; RowMajorStrg = FALSE;
00286 cblas_dspmv(CblasColMajor, CblasUpper, 0,
00287 ALPHA, A, X, 0, BETA, Y, 1 );
00288 chkxer();
00289 cblas_info = 10; RowMajorStrg = FALSE;
00290 cblas_dspmv(CblasColMajor, CblasUpper, 0,
00291 ALPHA, A, X, 1, BETA, Y, 0 );
00292 chkxer();
00293 cblas_info = 2; RowMajorStrg = TRUE;
00294 cblas_dspmv(CblasRowMajor, INVALID, 0,
00295 ALPHA, A, X, 1, BETA, Y, 1 );
00296 chkxer();
00297 cblas_info = 3; RowMajorStrg = TRUE;
00298 cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
00299 ALPHA, A, X, 1, BETA, Y, 1 );
00300 chkxer();
00301 cblas_info = 7; RowMajorStrg = TRUE;
00302 cblas_dspmv(CblasRowMajor, CblasUpper, 0,
00303 ALPHA, A, X, 0, BETA, Y, 1 );
00304 chkxer();
00305 cblas_info = 10; RowMajorStrg = TRUE;
00306 cblas_dspmv(CblasRowMajor, CblasUpper, 0,
00307 ALPHA, A, X, 1, BETA, Y, 0 );
00308 chkxer();
00309 } else if (strncmp( sf,"cblas_dtrmv",11)==0) {
00310 cblas_rout = "cblas_dtrmv";
00311 cblas_info = 1; RowMajorStrg = FALSE;
00312 cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
00313 CblasNonUnit, 0, A, 1, X, 1 );
00314 chkxer();
00315 cblas_info = 2; RowMajorStrg = FALSE;
00316 cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
00317 CblasNonUnit, 0, A, 1, X, 1 );
00318 chkxer();
00319 cblas_info = 3; RowMajorStrg = FALSE;
00320 cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
00321 CblasNonUnit, 0, A, 1, X, 1 );
00322 chkxer();
00323 cblas_info = 4; RowMajorStrg = FALSE;
00324 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
00325 INVALID, 0, A, 1, X, 1 );
00326 chkxer();
00327 cblas_info = 5; RowMajorStrg = FALSE;
00328 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
00329 CblasNonUnit, INVALID, A, 1, X, 1 );
00330 chkxer();
00331 cblas_info = 7; RowMajorStrg = FALSE;
00332 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
00333 CblasNonUnit, 2, A, 1, X, 1 );
00334 chkxer();
00335 cblas_info = 9; RowMajorStrg = FALSE;
00336 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
00337 CblasNonUnit, 0, A, 1, X, 0 );
00338 chkxer();
00339 cblas_info = 2; RowMajorStrg = TRUE;
00340 cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
00341 CblasNonUnit, 0, A, 1, X, 1 );
00342 chkxer();
00343 cblas_info = 3; RowMajorStrg = TRUE;
00344 cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
00345 CblasNonUnit, 0, A, 1, X, 1 );
00346 chkxer();
00347 cblas_info = 4; RowMajorStrg = TRUE;
00348 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00349 INVALID, 0, A, 1, X, 1 );
00350 chkxer();
00351 cblas_info = 5; RowMajorStrg = TRUE;
00352 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00353 CblasNonUnit, INVALID, A, 1, X, 1 );
00354 chkxer();
00355 cblas_info = 7; RowMajorStrg = TRUE;
00356 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00357 CblasNonUnit, 2, A, 1, X, 1 );
00358 chkxer();
00359 cblas_info = 9; RowMajorStrg = TRUE;
00360 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00361 CblasNonUnit, 0, A, 1, X, 0 );
00362 chkxer();
00363 } else if (strncmp( sf,"cblas_dtbmv",11)==0) {
00364 cblas_rout = "cblas_dtbmv";
00365 cblas_info = 1; RowMajorStrg = FALSE;
00366 cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
00367 CblasNonUnit, 0, 0, A, 1, X, 1 );
00368 chkxer();
00369 cblas_info = 2; RowMajorStrg = FALSE;
00370 cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
00371 CblasNonUnit, 0, 0, A, 1, X, 1 );
00372 chkxer();
00373 cblas_info = 3; RowMajorStrg = FALSE;
00374 cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
00375 CblasNonUnit, 0, 0, A, 1, X, 1 );
00376 chkxer();
00377 cblas_info = 4; RowMajorStrg = FALSE;
00378 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
00379 INVALID, 0, 0, A, 1, X, 1 );
00380 chkxer();
00381 cblas_info = 5; RowMajorStrg = FALSE;
00382 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
00383 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00384 chkxer();
00385 cblas_info = 6; RowMajorStrg = FALSE;
00386 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
00387 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00388 chkxer();
00389 cblas_info = 8; RowMajorStrg = FALSE;
00390 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
00391 CblasNonUnit, 0, 1, A, 1, X, 1 );
00392 chkxer();
00393 cblas_info = 10; RowMajorStrg = FALSE;
00394 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
00395 CblasNonUnit, 0, 0, A, 1, X, 0 );
00396 chkxer();
00397 cblas_info = 2; RowMajorStrg = TRUE;
00398 cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
00399 CblasNonUnit, 0, 0, A, 1, X, 1 );
00400 chkxer();
00401 cblas_info = 3; RowMajorStrg = TRUE;
00402 cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
00403 CblasNonUnit, 0, 0, A, 1, X, 1 );
00404 chkxer();
00405 cblas_info = 4; RowMajorStrg = TRUE;
00406 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00407 INVALID, 0, 0, A, 1, X, 1 );
00408 chkxer();
00409 cblas_info = 5; RowMajorStrg = TRUE;
00410 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00411 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00412 chkxer();
00413 cblas_info = 6; RowMajorStrg = TRUE;
00414 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00415 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00416 chkxer();
00417 cblas_info = 8; RowMajorStrg = TRUE;
00418 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00419 CblasNonUnit, 0, 1, A, 1, X, 1 );
00420 chkxer();
00421 cblas_info = 10; RowMajorStrg = TRUE;
00422 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00423 CblasNonUnit, 0, 0, A, 1, X, 0 );
00424 chkxer();
00425 } else if (strncmp( sf,"cblas_dtpmv",11)==0) {
00426 cblas_rout = "cblas_dtpmv";
00427 cblas_info = 1; RowMajorStrg = FALSE;
00428 cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
00429 CblasNonUnit, 0, A, X, 1 );
00430 chkxer();
00431 cblas_info = 2; RowMajorStrg = FALSE;
00432 cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
00433 CblasNonUnit, 0, A, X, 1 );
00434 chkxer();
00435 cblas_info = 3; RowMajorStrg = FALSE;
00436 cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
00437 CblasNonUnit, 0, A, X, 1 );
00438 chkxer();
00439 cblas_info = 4; RowMajorStrg = FALSE;
00440 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
00441 INVALID, 0, A, X, 1 );
00442 chkxer();
00443 cblas_info = 5; RowMajorStrg = FALSE;
00444 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
00445 CblasNonUnit, INVALID, A, X, 1 );
00446 chkxer();
00447 cblas_info = 8; RowMajorStrg = FALSE;
00448 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
00449 CblasNonUnit, 0, A, X, 0 );
00450 chkxer();
00451 cblas_info = 2; RowMajorStrg = TRUE;
00452 cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
00453 CblasNonUnit, 0, A, X, 1 );
00454 chkxer();
00455 cblas_info = 3; RowMajorStrg = TRUE;
00456 cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
00457 CblasNonUnit, 0, A, X, 1 );
00458 chkxer();
00459 cblas_info = 4; RowMajorStrg = TRUE;
00460 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00461 INVALID, 0, A, X, 1 );
00462 chkxer();
00463 cblas_info = 5; RowMajorStrg = TRUE;
00464 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00465 CblasNonUnit, INVALID, A, X, 1 );
00466 chkxer();
00467 cblas_info = 8; RowMajorStrg = TRUE;
00468 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
00469 CblasNonUnit, 0, A, X, 0 );
00470 chkxer();
00471 } else if (strncmp( sf,"cblas_dtrsv",11)==0) {
00472 cblas_rout = "cblas_dtrsv";
00473 cblas_info = 1; RowMajorStrg = FALSE;
00474 cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
00475 CblasNonUnit, 0, A, 1, X, 1 );
00476 chkxer();
00477 cblas_info = 2; RowMajorStrg = FALSE;
00478 cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
00479 CblasNonUnit, 0, A, 1, X, 1 );
00480 chkxer();
00481 cblas_info = 3; RowMajorStrg = FALSE;
00482 cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
00483 CblasNonUnit, 0, A, 1, X, 1 );
00484 chkxer();
00485 cblas_info = 4; RowMajorStrg = FALSE;
00486 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
00487 INVALID, 0, A, 1, X, 1 );
00488 chkxer();
00489 cblas_info = 5; RowMajorStrg = FALSE;
00490 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
00491 CblasNonUnit, INVALID, A, 1, X, 1 );
00492 chkxer();
00493 cblas_info = 7; RowMajorStrg = FALSE;
00494 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
00495 CblasNonUnit, 2, A, 1, X, 1 );
00496 chkxer();
00497 cblas_info = 9; RowMajorStrg = FALSE;
00498 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
00499 CblasNonUnit, 0, A, 1, X, 0 );
00500 chkxer();
00501 cblas_info = 2; RowMajorStrg = TRUE;
00502 cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
00503 CblasNonUnit, 0, A, 1, X, 1 );
00504 chkxer();
00505 cblas_info = 3; RowMajorStrg = TRUE;
00506 cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
00507 CblasNonUnit, 0, A, 1, X, 1 );
00508 chkxer();
00509 cblas_info = 4; RowMajorStrg = TRUE;
00510 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00511 INVALID, 0, A, 1, X, 1 );
00512 chkxer();
00513 cblas_info = 5; RowMajorStrg = TRUE;
00514 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00515 CblasNonUnit, INVALID, A, 1, X, 1 );
00516 chkxer();
00517 cblas_info = 7; RowMajorStrg = TRUE;
00518 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00519 CblasNonUnit, 2, A, 1, X, 1 );
00520 chkxer();
00521 cblas_info = 9; RowMajorStrg = TRUE;
00522 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00523 CblasNonUnit, 0, A, 1, X, 0 );
00524 chkxer();
00525 } else if (strncmp( sf,"cblas_dtbsv",11)==0) {
00526 cblas_rout = "cblas_dtbsv";
00527 cblas_info = 1; RowMajorStrg = FALSE;
00528 cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
00529 CblasNonUnit, 0, 0, A, 1, X, 1 );
00530 chkxer();
00531 cblas_info = 2; RowMajorStrg = FALSE;
00532 cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
00533 CblasNonUnit, 0, 0, A, 1, X, 1 );
00534 chkxer();
00535 cblas_info = 3; RowMajorStrg = FALSE;
00536 cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
00537 CblasNonUnit, 0, 0, A, 1, X, 1 );
00538 chkxer();
00539 cblas_info = 4; RowMajorStrg = FALSE;
00540 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
00541 INVALID, 0, 0, A, 1, X, 1 );
00542 chkxer();
00543 cblas_info = 5; RowMajorStrg = FALSE;
00544 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
00545 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00546 chkxer();
00547 cblas_info = 6; RowMajorStrg = FALSE;
00548 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
00549 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00550 chkxer();
00551 cblas_info = 8; RowMajorStrg = FALSE;
00552 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
00553 CblasNonUnit, 0, 1, A, 1, X, 1 );
00554 chkxer();
00555 cblas_info = 10; RowMajorStrg = FALSE;
00556 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
00557 CblasNonUnit, 0, 0, A, 1, X, 0 );
00558 chkxer();
00559 cblas_info = 2; RowMajorStrg = TRUE;
00560 cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
00561 CblasNonUnit, 0, 0, A, 1, X, 1 );
00562 chkxer();
00563 cblas_info = 3; RowMajorStrg = TRUE;
00564 cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
00565 CblasNonUnit, 0, 0, A, 1, X, 1 );
00566 chkxer();
00567 cblas_info = 4; RowMajorStrg = TRUE;
00568 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00569 INVALID, 0, 0, A, 1, X, 1 );
00570 chkxer();
00571 cblas_info = 5; RowMajorStrg = TRUE;
00572 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00573 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00574 chkxer();
00575 cblas_info = 6; RowMajorStrg = TRUE;
00576 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00577 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00578 chkxer();
00579 cblas_info = 8; RowMajorStrg = TRUE;
00580 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00581 CblasNonUnit, 0, 1, A, 1, X, 1 );
00582 chkxer();
00583 cblas_info = 10; RowMajorStrg = TRUE;
00584 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00585 CblasNonUnit, 0, 0, A, 1, X, 0 );
00586 chkxer();
00587 } else if (strncmp( sf,"cblas_dtpsv",11)==0) {
00588 cblas_rout = "cblas_dtpsv";
00589 cblas_info = 1; RowMajorStrg = FALSE;
00590 cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
00591 CblasNonUnit, 0, A, X, 1 );
00592 chkxer();
00593 cblas_info = 2; RowMajorStrg = FALSE;
00594 cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
00595 CblasNonUnit, 0, A, X, 1 );
00596 chkxer();
00597 cblas_info = 3; RowMajorStrg = FALSE;
00598 cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
00599 CblasNonUnit, 0, A, X, 1 );
00600 chkxer();
00601 cblas_info = 4; RowMajorStrg = FALSE;
00602 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
00603 INVALID, 0, A, X, 1 );
00604 chkxer();
00605 cblas_info = 5; RowMajorStrg = FALSE;
00606 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
00607 CblasNonUnit, INVALID, A, X, 1 );
00608 chkxer();
00609 cblas_info = 8; RowMajorStrg = FALSE;
00610 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
00611 CblasNonUnit, 0, A, X, 0 );
00612 chkxer();
00613 cblas_info = 2; RowMajorStrg = TRUE;
00614 cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
00615 CblasNonUnit, 0, A, X, 1 );
00616 chkxer();
00617 cblas_info = 3; RowMajorStrg = TRUE;
00618 cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
00619 CblasNonUnit, 0, A, X, 1 );
00620 chkxer();
00621 cblas_info = 4; RowMajorStrg = TRUE;
00622 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00623 INVALID, 0, A, X, 1 );
00624 chkxer();
00625 cblas_info = 5; RowMajorStrg = TRUE;
00626 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00627 CblasNonUnit, INVALID, A, X, 1 );
00628 chkxer();
00629 cblas_info = 8; RowMajorStrg = TRUE;
00630 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
00631 CblasNonUnit, 0, A, X, 0 );
00632 chkxer();
00633 } else if (strncmp( sf,"cblas_dger",10)==0) {
00634 cblas_rout = "cblas_dger";
00635 cblas_info = 1; RowMajorStrg = FALSE;
00636 cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
00637 chkxer();
00638 cblas_info = 2; RowMajorStrg = FALSE;
00639 cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00640 chkxer();
00641 cblas_info = 3; RowMajorStrg = FALSE;
00642 cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00643 chkxer();
00644 cblas_info = 6; RowMajorStrg = FALSE;
00645 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00646 chkxer();
00647 cblas_info = 8; RowMajorStrg = FALSE;
00648 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00649 chkxer();
00650 cblas_info = 10; RowMajorStrg = FALSE;
00651 cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
00652 chkxer();
00653 cblas_info = 2; RowMajorStrg = TRUE;
00654 cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00655 chkxer();
00656 cblas_info = 3; RowMajorStrg = TRUE;
00657 cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00658 chkxer();
00659 cblas_info = 6; RowMajorStrg = TRUE;
00660 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00661 chkxer();
00662 cblas_info = 8; RowMajorStrg = TRUE;
00663 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00664 chkxer();
00665 cblas_info = 10; RowMajorStrg = TRUE;
00666 cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
00667 chkxer();
00668 } else if (strncmp( sf,"cblas_dsyr2",11)==0) {
00669 cblas_rout = "cblas_dsyr2";
00670 cblas_info = 1; RowMajorStrg = FALSE;
00671 cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
00672 chkxer();
00673 cblas_info = 2; RowMajorStrg = FALSE;
00674 cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00675 chkxer();
00676 cblas_info = 3; RowMajorStrg = FALSE;
00677 cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00678 chkxer();
00679 cblas_info = 6; RowMajorStrg = FALSE;
00680 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
00681 chkxer();
00682 cblas_info = 8; RowMajorStrg = FALSE;
00683 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
00684 chkxer();
00685 cblas_info = 10; RowMajorStrg = FALSE;
00686 cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
00687 chkxer();
00688 cblas_info = 2; RowMajorStrg = TRUE;
00689 cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00690 chkxer();
00691 cblas_info = 3; RowMajorStrg = TRUE;
00692 cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00693 chkxer();
00694 cblas_info = 6; RowMajorStrg = TRUE;
00695 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
00696 chkxer();
00697 cblas_info = 8; RowMajorStrg = TRUE;
00698 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
00699 chkxer();
00700 cblas_info = 10; RowMajorStrg = TRUE;
00701 cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
00702 chkxer();
00703 } else if (strncmp( sf,"cblas_dspr2",11)==0) {
00704 cblas_rout = "cblas_dspr2";
00705 cblas_info = 1; RowMajorStrg = FALSE;
00706 cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
00707 chkxer();
00708 cblas_info = 2; RowMajorStrg = FALSE;
00709 cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
00710 chkxer();
00711 cblas_info = 3; RowMajorStrg = FALSE;
00712 cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
00713 chkxer();
00714 cblas_info = 6; RowMajorStrg = FALSE;
00715 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
00716 chkxer();
00717 cblas_info = 8; RowMajorStrg = FALSE;
00718 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
00719 chkxer();
00720 cblas_info = 2; RowMajorStrg = TRUE;
00721 cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
00722 chkxer();
00723 cblas_info = 3; RowMajorStrg = TRUE;
00724 cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
00725 chkxer();
00726 cblas_info = 6; RowMajorStrg = TRUE;
00727 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
00728 chkxer();
00729 cblas_info = 8; RowMajorStrg = TRUE;
00730 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
00731 chkxer();
00732 } else if (strncmp( sf,"cblas_dsyr",10)==0) {
00733 cblas_rout = "cblas_dsyr";
00734 cblas_info = 1; RowMajorStrg = FALSE;
00735 cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
00736 chkxer();
00737 cblas_info = 2; RowMajorStrg = FALSE;
00738 cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
00739 chkxer();
00740 cblas_info = 3; RowMajorStrg = FALSE;
00741 cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
00742 chkxer();
00743 cblas_info = 6; RowMajorStrg = FALSE;
00744 cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
00745 chkxer();
00746 cblas_info = 8; RowMajorStrg = FALSE;
00747 cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
00748 chkxer();
00749 cblas_info = 2; RowMajorStrg = TRUE;
00750 cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
00751 chkxer();
00752 cblas_info = 3; RowMajorStrg = TRUE;
00753 cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
00754 chkxer();
00755 cblas_info = 6; RowMajorStrg = TRUE;
00756 cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
00757 chkxer();
00758 cblas_info = 8; RowMajorStrg = TRUE;
00759 cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
00760 chkxer();
00761 } else if (strncmp( sf,"cblas_dspr",10)==0) {
00762 cblas_rout = "cblas_dspr";
00763 cblas_info = 1; RowMajorStrg = FALSE;
00764 cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
00765 chkxer();
00766 cblas_info = 2; RowMajorStrg = FALSE;
00767 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
00768 chkxer();
00769 cblas_info = 3; RowMajorStrg = FALSE;
00770 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
00771 chkxer();
00772 cblas_info = 6; RowMajorStrg = FALSE;
00773 cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
00774 chkxer();
00775 cblas_info = 2; RowMajorStrg = FALSE;
00776 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
00777 chkxer();
00778 cblas_info = 3; RowMajorStrg = FALSE;
00779 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
00780 chkxer();
00781 cblas_info = 6; RowMajorStrg = FALSE;
00782 cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
00783 chkxer();
00784 }
00785 if (cblas_ok == TRUE)
00786 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
00787 else
00788 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
00789 }