/* Main program */ MAIN__(void)
{
/* Initialized data */
static doublereal sfac = 9.765625e-4;
/* Format strings */
static char fmt_99999[] = "(\002 Complex BLAS Test Program Results\002,/"
"1x)";
static char fmt_99998[] = "(\002 ----"
"- PASS -----\002)";
/* Builtin functions */
integer s_wsfe(cilist *), e_wsfe(void);
/* Subroutine */ int s_stop(char *, ftnlen);
/* Local variables */
extern /* Subroutine */ int check1_(doublereal *), check2_(doublereal *);
static integer ic;
extern /* Subroutine */ int header_(void);
/* Fortran I/O blocks */
static cilist io___2 = { 0, 6, 0, fmt_99999, 0 };
static cilist io___4 = { 0, 6, 0, fmt_99998, 0 };
/* Test program for the COMPLEX*16 Level 1 BLAS.
Based upon the original BLAS test routine together with:
F06GAF Example Program Text */
s_wsfe(&io___2);
e_wsfe();
for (ic = 1; ic <= 10; ++ic) {
combla_1.icase = ic;
header_();
/* Initialize PASS, INCX, INCY, and MODE for a new case.
The value 9999 for INCX, INCY or MODE will appear in the
detailed output, if any, for cases that do not involve
these parameters. */
combla_1.pass = TRUE_;
combla_1.incx = 9999;
combla_1.incy = 9999;
combla_1.mode = 9999;
if (combla_1.icase <= 5) {
check2_(&sfac);
} else if (combla_1.icase >= 6) {
check1_(&sfac);
}
/* -- Print */
if (combla_1.pass) {
s_wsfe(&io___4);
e_wsfe();
}
/* L20: */
}
s_stop("", (ftnlen)0);
return 0;
} /* MAIN__
/* Main program */ int MAIN__(void)
{
/* Initialized data */
static real sfac = 9.765625e-4f;
/* Format strings */
static char fmt_99999[] = "(\002 Real BLAS Test Program Results\002,/1x)";
static char fmt_99998[] = "(\002 ----"
"- PASS -----\002)";
/* Builtin functions */
integer s_wsfe(cilist *), e_wsfe(void);
/* Subroutine */ int s_stop(char *, ftnlen);
/* Local variables */
integer ic;
extern /* Subroutine */ int check0_(real *), check1_(real *), check2_(
real *), check3_(real *), header_(void);
/* Fortran I/O blocks */
static cilist io___2 = { 0, 6, 0, fmt_99999, 0 };
static cilist io___4 = { 0, 6, 0, fmt_99998, 0 };
/* Test program for the REAL Level 1 BLAS. */
/* Based upon the original BLAS test routine together with: */
/* F06EAF Example Program Text */
/* .. Parameters .. */
/* .. Scalars in Common .. */
/* .. Local Scalars .. */
/* .. External Subroutines .. */
/* .. Common blocks .. */
/* .. Data statements .. */
/* .. Executable Statements .. */
s_wsfe(&io___2);
e_wsfe();
for (ic = 1; ic <= 10; ++ic) {
combla_1.icase = ic;
header_();
/* .. Initialize PASS, INCX, INCY, and MODE for a new case. .. */
/* .. the value 9999 for INCX, INCY or MODE will appear in the .. */
/* .. detailed output, if any, for cases that do not involve .. */
/* .. these parameters .. */
combla_1.pass = TRUE_;
combla_1.incx = 9999;
combla_1.incy = 9999;
combla_1.mode = 9999;
if (combla_1.icase == 3) {
check0_(&sfac);
} else if (combla_1.icase == 7 || combla_1.icase == 8 ||
combla_1.icase == 9 || combla_1.icase == 10) {
check1_(&sfac);
} else if (combla_1.icase == 1 || combla_1.icase == 2 ||
combla_1.icase == 5 || combla_1.icase == 6) {
check2_(&sfac);
} else if (combla_1.icase == 4) {
check3_(&sfac);
}
/* -- Print */
if (combla_1.pass) {
s_wsfe(&io___4);
e_wsfe();
}
/* L20: */
}
s_stop("", (ftnlen)0);
return 0;
} /* MAIN__ */
/* Main program */ MAIN__(void)
{
/* Initialized data */
static doublereal sfac = 9.765625e-4;
/* Format strings */
static char fmt_99999[] = "(\002 Real BLAS Test Program Results\002,/1x)";
static char fmt_99998[] = "(\002 ----"
"- PASS -----\002)";
/* Builtin functions */
integer s_wsfe(cilist *), e_wsfe(void);
/* Subroutine */ int s_stop(char *, ftnlen);
/* Local variables */
extern /* Subroutine */ int check0_(doublereal *), check1_(doublereal *),
check2_(doublereal *), check3_(doublereal *);
static integer ic;
extern /* Subroutine */ int header_(void);
/* Fortran I/O blocks */
static cilist io___2 = { 0, 6, 0, fmt_99999, 0 };
static cilist io___4 = { 0, 6, 0, fmt_99998, 0 };
/* Test program for the DOUBLE PRECISION Level 1 BLAS.
Based upon the original BLAS test routine together with:
F06EAF Example Program Text */
s_wsfe(&io___2);
e_wsfe();
for (ic = 1; ic <= 10; ++ic) {
combla_1.icase = ic;
header_();
combla_1.pass = TRUE_;
combla_1.incx = 9999;
combla_1.incy = 9999;
combla_1.mode = 9999;
if (combla_1.icase == 3) {
check0_(&sfac);
} else if (combla_1.icase == 7 || combla_1.icase == 8 ||
combla_1.icase == 9 || combla_1.icase == 10) {
check1_(&sfac);
} else if (combla_1.icase == 1 || combla_1.icase == 2 ||
combla_1.icase == 5 || combla_1.icase == 6) {
check2_(&sfac);
} else if (combla_1.icase == 4) {
check3_(&sfac);
}
/* -- Print */
if (combla_1.pass) {
s_wsfe(&io___4);
e_wsfe();
}
/* L20: */
}
s_stop("", (ftnlen)0);
return 0;
} /* MAIN__