summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f85a37e)
raw | patch | inline | side by side (parent: f85a37e)
author | Jianzhong Xu <xuj@ti.com> | |
Tue, 17 May 2016 15:43:37 +0000 (15:43 +0000) | ||
committer | Jianzhong Xu <xuj@ti.com> | |
Tue, 17 May 2016 15:43:37 +0000 (15:43 +0000) |
diff --git a/src/ti/linalg/clapack/BLAS/run_tests_only.sh b/src/ti/linalg/clapack/BLAS/run_tests_only.sh
index d5b8e070ad6a5c2f16871660efa6b815684da1b9..e89ca00f00fddbaff890ca16d7a224faecea67e2 100755 (executable)
#!/bin/bash
-export TI_CBLAS_OFFLOAD=000;
echo "Now testing BLAS Level 1"
echo -n "single precision real.. " ; ./xblat1s_ARM > sblat1.out 2> /dev/null ; rm -f /tmp/opencl* ; echo done
echo -n "double precision real.. " ; ./xblat1d_ARM > dblat1.out 2> /dev/null ; rm -f /tmp/opencl* ; echo done
diff --git a/src/ti/linalg/clapack/TESTING/EIG/cchkee.c b/src/ti/linalg/clapack/TESTING/EIG/cchkee.c
index 2aed46809415198623ca4eb7da0936221799fa53..e57382ab59b889d2132c34543f8b3a070a3d8b04 100644 (file)
static integer c__20062 = 20062;
static integer c__264 = 264;
+complex a[243936], b[87120], c__[160000];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer i_len(char *, ftnlen);
/* Local variables */
- complex a[243936] /* was [17424][14] */, b[87120] /* was [17424][5] */,
- c__[160000] /* was [400][400] */;
integer i__, k;
real s[17424];
complex x[660];
diff --git a/src/ti/linalg/clapack/TESTING/EIG/dchkee.c b/src/ti/linalg/clapack/TESTING/EIG/dchkee.c
index 5786d752632ebcc4f23eef693f2d0de0a37b5673..35e04033869e8eebffd958581433169e7748ac5b 100644 (file)
#include "f2c.h"
#include "blaswrap.h"
+#include <stdio.h>
/* Common Block Declarations */
static integer c__89758 = 89758;
static integer c__264 = 264;
+doublereal a[243936], b[87120], c__[160000], d__[1584];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
static char fmt_9992[] = "(1x,a3,\002: Unrecognized path name\002)";
static char fmt_9972[] = "(/\002 LAPACK VERSION \002,i1,\002.\002,i1,"
"\002.\002,i1)";
- static char fmt_9984[] = "(/\002 The following parameter values will be "
+ static char fmt_9984[] = "(/\002 Hello, The following parameter values will be "
"used:\002)";
static char fmt_9989[] = "(\002 Invalid input value: \002,a,\002=\002,"
"i6,\002; must be >=\002,i6)";
integer i_len(char *, ftnlen);
/* Local variables */
- doublereal a[243936] /* was [17424][14] */, b[87120] /* was [17424]
- [5] */, c__[160000] /* was [400][400] */, d__[1584] /* was [132][
- 12] */;
integer i__, k;
doublereal x[660];
char c1[1], c3[3];
/* .. */
/* .. Executable Statements .. */
+ printf("Hello, I'm dchkee.\n\n");
+
s1 = dsecnd_();
fatal = FALSE_;
infoc_1.nunit = 6;
diff --git a/src/ti/linalg/clapack/TESTING/EIG/schkee.c b/src/ti/linalg/clapack/TESTING/EIG/schkee.c
index 7a3c5bb0ca12fa1c17823bf0823a967ce99a1152..238925f8c64d8aef9f663407f15f899d13056690 100644 (file)
static integer c__89758 = 89758;
static integer c__264 = 264;
+real a[243936], b[87120], c__[160000], d__[1584];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer i_len(char *, ftnlen);
/* Local variables */
- real a[243936] /* was [17424][14] */, b[87120] /* was [17424][5] */,
- c__[160000] /* was [400][400] */, d__[1584] /* was [132][12] */;
integer i__, k;
real x[660];
char c1[1], c3[3];
diff --git a/src/ti/linalg/clapack/TESTING/EIG/zchkee.c b/src/ti/linalg/clapack/TESTING/EIG/zchkee.c
index db2939076ccfc0845806be046eb12656ee30a724..6f3dae5ba673f549fd1e4bc7379ae5bca4ce031b 100644 (file)
#include "f2c.h"
#include "blaswrap.h"
+#include <stdio.h>
/* Common Block Declarations */
static integer c__20062 = 20062;
static integer c__264 = 264;
+doublecomplex a[243936], b[87120], c__[160000];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer i_len(char *, ftnlen);
/* Local variables */
- doublecomplex a[243936] /* was [17424][14] */, b[87120] /* was [17424]
- [5] */, c__[160000] /* was [400][400] */;
integer i__, k;
doublereal s[17424];
doublecomplex x[660];
/* .. */
/* .. Executable Statements .. */
+ printf("Hello, I'm zchkee.\n\n");
+
s1 = dsecnd_();
fatal = FALSE_;
infoc_1.nunit = 6;
diff --git a/src/ti/linalg/clapack/TESTING/LIN/cchkaa.c b/src/ti/linalg/clapack/TESTING/LIN/cchkaa.c
index 02bdb9cf67faf04efc291f73a9120d0512f62258..265533154961d702f0d17264842cca0809409b44 100644 (file)
static integer c__5 = 5;
static integer c__6 = 6;
+complex a[153384], b[8448];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer f_clos(cllist *);
/* Local variables */
- complex a[153384] /* was [21912][7] */, b[8448] /* was [2112][4] */;
integer i__, j, k;
real s[264];
char c1[1], c2[2];
diff --git a/src/ti/linalg/clapack/TESTING/LIN/dchkaa.c b/src/ti/linalg/clapack/TESTING/LIN/dchkaa.c
index 12942351352b59c746091170d9d71ffb020a5432..f21b3df84f813780de09375f287a6826bba14ed2 100644 (file)
static integer c__2 = 2;
static integer c__6 = 6;
+doublereal a[153384], b[8448];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer f_clos(cllist *);
/* Local variables */
- doublereal a[153384] /* was [21912][7] */, b[8448] /* was [2112][
- 4] */;
integer i__, j, k;
doublereal s[264];
char c1[1], c2[2];
diff --git a/src/ti/linalg/clapack/TESTING/LIN/schkaa.c b/src/ti/linalg/clapack/TESTING/LIN/schkaa.c
index d07fc8dd0344b646aa27bdb31823534d175b36dc..9a5a9f1fa6c4f2dbb50cd42ea8f76da8b641bffb 100644 (file)
static integer c__5 = 5;
static integer c__6 = 6;
+real a[153384], b[8448];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer f_clos(cllist *);
/* Local variables */
- real a[153384] /* was [21912][7] */, b[8448] /* was [2112][4] */;
integer i__, j, k;
real s[264];
char c1[1], c2[2];
diff --git a/src/ti/linalg/clapack/TESTING/LIN/zchkaa.c b/src/ti/linalg/clapack/TESTING/LIN/zchkaa.c
index e04e14b42067e253d5219db78ce86c339182dc15..578bba4b25a20db355195ca8d33c425d0cea9eae 100644 (file)
static integer c__2 = 2;
static integer c__6 = 6;
+doublecomplex a[153384], b[8448];
+
/* Main program */ int MAIN__(void)
{
/* Initialized data */
integer f_clos(cllist *);
/* Local variables */
- doublecomplex a[153384] /* was [21912][7] */, b[8448] /* was [2112][
- 4] */;
integer i__, j, k;
doublereal s[264];
char c1[1], c2[2];