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