| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/check/other/ |
| H A D | FLA_geqpf.in | 3 #define LAPACK_geqpf_op_unblocked(prefix, srname) \
9 #define LAPACK_geqpf_op_blocked(prefix, srname) \
12 LAPACK_geqpf_op_unblocked(prefix,srname) \
20 _nb = ilaenv_(&_i1, #srname, " ", m, n, &_i2, &_i2); \
35 #define LAPACK_geqpf_op_check(prefix, srname, var) \
36 LAPACK_geqpf_op_ ## var(prefix, srname) \
37 LAPACK_common_op_check(prefix, srname) \
40 xerbla_(#srname, &e_val); \
|
| H A D | FLA_hetrd.in | 12 #define LAPACK_hetrd_op_quickreturn_blocked(prefix, srname) \
14 _nb = ilaenv_(&_i1, #srname, uplo, m, &_i2, &_i2, &_i2); \
29 #define LAPACK_hetrd_op_quickreturn_unblocked(prefix, srname) \
32 #define LAPACK_hetrd_op_check(prefix, srname, var) \
34 LAPACK_common_op_check(prefix, srname) \
38 xerbla_(#srname, &e_val); \
41 LAPACK_hetrd_op_quickreturn_ ## var(prefix, srname)
|
| H A D | FLA_gebrd.in | 10 #define LAPACK_gebrd_op_check(prefix, srname) \
14 LAPACK_common_op_check(prefix, srname) \
25 xerbla_(#srname, &e_val); \
30 _nb = max(1, ilaenv_(&_i1, #srname, " ", m, n, &_i2, &_i2)); \
|
| H A D | FLA_gelqf.in | 17 #define LAPACK_gelqf_op_check(prefix, srname, var) \
19 LAPACK_common_op_check(prefix, srname) \
30 xerbla_(#srname, &e_val); \
35 _nb = ilaenv_(&_i1, #srname, " ", m, n, &_i2, &_i2); \
|
| H A D | FLA_geqrf.in | 17 #define LAPACK_geqrf_op_check(prefix, srname, var) \
19 LAPACK_common_op_check(prefix, srname) \
30 xerbla_(#srname, &e_val); \
34 _nb = ilaenv_(&_i1, #srname, " ", m, n, &_i2, &_i2); \
|
| H A D | FLA_gehrd.in | 17 #define LAPACK_gehrd_op_check(prefix, srname, var) \
19 LAPACK_common_op_check(prefix, srname) \
31 xerbla_(#srname, &e_val); \
36 _nb = min(64, ilaenv_(&_i1, #srname, " ", m, ilo, ihi, &_i2)); \
|
| H A D | FLA_orgqr.in | 28 #define LAPACK_orgqr_op_check(prefix, srname, var) \
30 LAPACK_common_op_check(prefix, srname) \
34 xerbla_(#srname, &e_val); \
37 _nb = ilaenv_(&_i1, #srname, " ", m, n, k, &_i2); \
|
| H A D | FLA_orglq.in | 33 #define LAPACK_orglq_op_check(prefix, srname, var) \
35 LAPACK_common_op_check(prefix, srname) \
39 xerbla_(#srname, &e_val); \
42 _nb = ilaenv_(&_i1, #srname, " ", m, n, k, &_i2); \
|
| /dports/math/taucs/taucs-2.2_23/src/ |
| H A D | blas_aux.c | 15 void xerbla(char* srname, int* info) in xerbla() argument
18 srname,*info); in xerbla()
20 srname,*info); in xerbla()
29 void xerbla_(char* srname, int* info) in xerbla_() argument
32 srname,*info); in xerbla_()
34 srname,*info); in xerbla_()
|
| /dports/math/blis/blis-0.8.1/frame/compat/f2c/ |
| H A D | bla_xerbla_array.c | 46 char srname[ MAX_NUM_CHARS + 1 ] = " "; in PASTEF770() local
48 char srname[ MAX_NUM_CHARS + 1 ]; in PASTEF770() local
51 for ( i = 0; i < MAX_NUM_CHARS; ++i ) srname[i] = ' '; in PASTEF770()
61 srname[i] = srname_array[i]; in PASTEF770()
65 srname[i] = '\0'; in PASTEF770()
68 PASTEF770(xerbla)( srname, info, ( ftnlen )srname_len ); in PASTEF770()
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/CBLAS/src/ |
| H A D | xerbla.c | 12 void F77_xerbla(char *srname, void *vinfo) in F77_xerbla()
17 char *srname; in F77_xerbla() local
28 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
33 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
40 *info, srname); in F77_xerbla()
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/CBLAS/src/ |
| H A D | xerbla.c | 12 void F77_xerbla(char *srname, void *vinfo) in F77_xerbla()
17 char *srname; in F77_xerbla() local
28 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
33 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
40 *info, srname); in F77_xerbla()
|
| /dports/math/xlapack/lapack-3.10.0/CBLAS/src/ |
| H A D | xerbla.c | 17 (char *srname, void *vinfo) in F77_xerbla()
22 char *srname; in F77_xerbla() local
33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
45 *info, srname); in F77_xerbla()
|
| /dports/math/blas/lapack-3.10.0/CBLAS/src/ |
| H A D | xerbla.c | 17 (char *srname, void *vinfo) in F77_xerbla()
22 char *srname; in F77_xerbla() local
33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
45 *info, srname); in F77_xerbla()
|
| /dports/math/lapack/lapack-3.10.0/CBLAS/src/ |
| H A D | xerbla.c | 17 (char *srname, void *vinfo) in F77_xerbla()
22 char *srname; in F77_xerbla() local
33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
45 *info, srname); in F77_xerbla()
|
| /dports/math/lapacke/lapack-3.10.0/CBLAS/src/ |
| H A D | xerbla.c | 17 (char *srname, void *vinfo) in F77_xerbla()
22 char *srname; in F77_xerbla() local
33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
45 *info, srname); in F77_xerbla()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/static/other/ |
| H A D | xerbla_array.c | 122 char srname[32]; in xerbla_array__() local
151 s_copy(srname, ""); in xerbla_array__()
153 i__2 = *srname_len__, i__3 = i_len(srname, (ftnlen)32); in xerbla_array__()
157 *(unsigned char *)&srname[i__ - 1] = *(unsigned char *)& in xerbla_array__()
160 xerbla_(srname, info); in xerbla_array__()
|
| /dports/math/cblas/lapack-3.10.0/CBLAS/src/ |
| H A D | xerbla.c | 17 (char *srname, void *vinfo) in F77_xerbla()
22 char *srname; in F77_xerbla() local
33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
45 *info, srname); in F77_xerbla()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CBLAS/ |
| H A D | xerbla_array.c | 29 char srname[32]; in xerbla_array__() local
92 s_copy(srname, "", (ftnlen)32, (ftnlen)0); in xerbla_array__()
94 i__2 = *srname_len__, i__3 = i_len(srname, (ftnlen)32); in xerbla_array__()
97 *(unsigned char *)&srname[i__ - 1] = *(unsigned char *)& in xerbla_array__()
100 xerbla_(srname, info); in xerbla_array__()
|
| /dports/math/py-numpy/numpy-1.20.3/numpy/core/src/common/ |
| H A D | python_xerbla.c | 22 CBLAS_INT BLAS_FUNC(xerbla)(char *srname, CBLAS_INT *info) in BLAS_FUNC()
33 while( len<6 && srname[len]!='\0' ) in BLAS_FUNC()
35 while( len && srname[len-1]==' ' ) in BLAS_FUNC()
40 PyOS_snprintf(buf, sizeof(buf), format, len, srname, (int)*info); in BLAS_FUNC()
|
| /dports/math/py-numpy/numpy-1.20.3/numpy/linalg/lapack_lite/ |
| H A D | python_xerbla.c | 22 CBLAS_INT BLAS_FUNC(xerbla)(char *srname, CBLAS_INT *info) in BLAS_FUNC()
33 while( len<6 && srname[len]!='\0' ) in BLAS_FUNC()
35 while( len && srname[len-1]==' ' ) in BLAS_FUNC()
40 PyOS_snprintf(buf, sizeof(buf), format, len, srname, (int)*info); in BLAS_FUNC()
|
| /dports/math/maxima/maxima-5.43.2/share/lapack/blas/ |
| H A D | xerbla.lisp | 20 (defun xerbla (srname info)
21 (declare (type (f2cl-lib:integer4) info) (type (simple-string *) srname))
23 ((srname character srname-%data% srname-%offset%))
29 srname
|
| /dports/lang/yorick/yorick-y_2_2_04/matrix/ |
| H A D | dgyor.c | 125 void xerbla( char *srname, long info ) in xerbla() argument
163 if ( !strcmp(srname,"dgels ") && info==10 ) { in xerbla()
165 } else if ( !strcmp(srname,"dgelss") && info==12 ) { in xerbla()
167 } else if ( !strcmp(srname,"dgesvd") && info==13 ) { in xerbla()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | headergen.sh | 26 srname=$(basename ${file%.*})
29 | sed "s/${srname}[_]*(.*);//g" \
30 | sed -n "s/\(${srname}[_]*(.*)\).*/\1;/p" \
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | xerbla.c | 90 Subroutine */ int igraphxerbla_(char *srname, integer *info, ftnlen srname_len) in igraphxerbla_() argument
118 do_fio(&c__1, srname, igraphlen_trim__(srname, srname_len)); in igraphxerbla_()
|