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