Home
last modified time | relevance | path

Searched refs:lsame (Results 1 – 25 of 496) sorted by relevance

12345678910>>...20

/dports/math/maxima/maxima-5.43.2/share/lapack/blas/
H A Dblas-lisp.system64 :depends-on ("lsame" "xerbla"))
66 :depends-on ("lsame" "xerbla"))
68 :depends-on ("lsame" "xerbla"))
74 :depends-on ("lsame" "xerbla"))
76 :depends-on ("lsame" "xerbla"))
78 :depends-on ("lsame" "xerbla"))
80 :depends-on ("lsame" "xerbla"))
83 :depends-on ("lsame" "xerbla"))
85 :depends-on ("lsame" "xerbla"))
87 :depends-on ("lsame" "xerbla"))
[all …]
H A Dlsame.lisp20 (defun lsame (ca cb) function
25 (prog ((inta 0) (intb 0) (zcode 0) (lsame nil))
26 (declare (type f2cl-lib:logical lsame)
28 (setf lsame (coerce (f2cl-lib:fstring-= ca cb) 'f2cl-lib:logical))
29 (if lsame (go end_label))
55 (setf lsame (coerce (= inta intb) 'f2cl-lib:logical))
57 (return (values lsame nil nil)))))
/dports/math/blis/blis-0.8.1/frame/compat/check/
H A Dbla_trmm_check.h46 left = PASTEF770(lsame)( sidea, "L", (ftnlen)1, (ftnlen)1 ); \
47 right = PASTEF770(lsame)( sidea, "R", (ftnlen)1, (ftnlen)1 ); \
48 lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 ); \
49 upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 ); \
50 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
51 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
52 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
53 unita = PASTEF770(lsame)( diaga, "U", (ftnlen)1, (ftnlen)1 ); \
54 nonua = PASTEF770(lsame)( diaga, "N", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_gemmt_check.h46 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
47 notb = PASTEF770(lsame)( transb, "N", (ftnlen)1, (ftnlen)1 ); \
48 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
49 conjb = PASTEF770(lsame)( transb, "C", (ftnlen)1, (ftnlen)1 ); \
50 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
51 tb = PASTEF770(lsame)( transb, "T", (ftnlen)1, (ftnlen)1 ); \
53 lower = PASTEF770(lsame)( uploc, "L", (ftnlen)1, (ftnlen)1 ); \
54 upper = PASTEF770(lsame)( uploc, "U", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_trmv_check.h44 lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 ); \
45 upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 ); \
46 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
47 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
48 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
49 unita = PASTEF770(lsame)( diaga, "U", (ftnlen)1, (ftnlen)1 ); \
50 nonua = PASTEF770(lsame)( diaga, "N", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_gemm_check.h45 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
46 notb = PASTEF770(lsame)( transb, "N", (ftnlen)1, (ftnlen)1 ); \
47 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
48 conjb = PASTEF770(lsame)( transb, "C", (ftnlen)1, (ftnlen)1 ); \
49 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
50 tb = PASTEF770(lsame)( transb, "T", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_syr2k_check.h48 nota = PASTEF770(lsame)( trans, "N", (ftnlen)1, (ftnlen)1 ); \
49 ta = PASTEF770(lsame)( trans, "T", (ftnlen)1, (ftnlen)1 ); \
50 cta = PASTEF770(lsame)( trans, "C", (ftnlen)1, (ftnlen)1 ); \
51 lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 ); \
52 upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_syrk_check.h48 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
49 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
50 cta = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
51 lower = PASTEF770(lsame)( uploc, "L", (ftnlen)1, (ftnlen)1 ); \
52 upper = PASTEF770(lsame)( uploc, "U", (ftnlen)1, (ftnlen)1 ); \
/dports/math/superlu/superlu-5.2.2/INSTALL/
H A DMakefile5 testdmach: dmach.o lsame.o dmachtst.o
6 $(LOADER) $(LOADOPTS) -o testdmach dmach.o lsame.o dmachtst.o
8 testsmach: smach.o lsame.o smachtst.o
9 $(LOADER) $(LOADOPTS) -o testsmach smach.o lsame.o smachtst.o
11 testdlamch: dlamch.o lsame.o dlamchtst.o
12 $(LOADER) $(LOADOPTS) -o testdlamch dlamch.o lsame.o dlamchtst.o
14 testslamch: slamch.o lsame.o slamchtst.o
15 $(LOADER) $(LOADOPTS) -o testslamch slamch.o lsame.o slamchtst.o
/dports/science/py-paida/paida-3.2.1_2.10.1/paida/math/pylapack/pyblas/
H A Ddtrsm.py2 from paida.math.pylapack.pyblas.lsame import lsame
104 lside = lsame(side, 'L')
109 nounit = lsame(diag, 'N')
110 upper = lsame(uplo, 'U')
113 if (not lside) and (not lsame(side, 'R')):
115 elif (not upper) and (not lsame(uplo, 'L')):
117 elif (not lsame(transa, 'N')) and (not lsame(transa, 'T')) and (not lsame(transa, 'C')):
119 elif (not lsame(diag, 'U')) and (not lsame(diag, 'N')):
142 if lsame(transa, 'N'):
187 if lsame(transa, 'N'):
H A Ddgemm.py3 from paida.math.pylapack.pyblas.lsame import lsame
111 nota = lsame(transa, 'N')
112 notb = lsame(transb, 'N')
126 if (not nota) and (not lsame(transa, 'C')) and (not lsame(transa, 'T')):
128 elif (not notb) and (not lsame(transb, 'C')) and (not lsame(transb, 'T')):
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/
H A Ddlamch.lisp81 ((lsame cmach "E")
83 ((lsame cmach "S")
85 ((lsame cmach "B")
87 ((lsame cmach "P")
89 ((lsame cmach "N")
91 ((lsame cmach "R")
93 ((lsame cmach "M")
95 ((lsame cmach "U")
97 ((lsame cmach "L")
99 ((lsame cmach "O")
H A Ddgebak.lisp35 (setf rightv (lsame side "R"))
36 (setf leftv (lsame side "L"))
39 ((and (not (lsame job "N"))
40 (not (lsame job "P"))
41 (not (lsame job "S"))
42 (not (lsame job "B")))
66 (if (lsame job "N") (go end_label))
69 ((or (lsame job "S") (lsame job "B"))
109 ((or (lsame job "P") (lsame job "B"))
H A Dzgebak.lisp36 (setf rightv (lsame side "R"))
37 (setf leftv (lsame side "L"))
40 ((and (not (lsame job "N"))
41 (not (lsame job "P"))
42 (not (lsame job "S"))
43 (not (lsame job "B")))
67 (if (lsame job "N") (go end_label))
70 ((or (lsame job "S") (lsame job "B"))
110 ((or (lsame job "P") (lsame job "B"))
H A Ddlasr.lisp40 ((not (or (lsame side "L") (lsame side "R")))
42 ((not (or (lsame pivot "V") (lsame pivot "T") (lsame pivot "B")))
44 ((not (or (lsame direct "F") (lsame direct "B")))
58 ((lsame side "L")
60 ((lsame pivot "V")
62 ((lsame direct "F")
144 ((lsame pivot "T")
238 ((lsame pivot "B")
326 ((lsame side "R")
328 ((lsame pivot "V")
[all …]
H A Dzlasr.lisp43 ((not (or (lsame side "L") (lsame side "R")))
45 ((not (or (lsame pivot "V") (lsame pivot "T") (lsame pivot "B")))
47 ((not (or (lsame direct "F") (lsame direct "B")))
61 ((lsame side "L")
63 ((lsame pivot "V")
65 ((lsame direct "F")
147 ((lsame pivot "T")
241 ((lsame pivot "B")
329 ((lsame side "R")
331 ((lsame pivot "V")
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/INSTALL/
H A DMakefile6 testlsame: lsame.o lsametst.o
7 $(LOADER) $(LOADOPTS) -o testlsame lsame.o lsametst.o
9 testslamch: slamch.o lsame.o slamchtst.o
10 $(LOADER) $(LOADOPTS) -o testslamch slamch.o lsame.o slamchtst.o
12 testdlamch: dlamch.o lsame.o dlamchtst.o
13 $(LOADER) $(LOADOPTS) -o testdlamch dlamch.o lsame.o dlamchtst.o
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/INSTALL/
H A DMakefile6 testlsame: lsame.o lsametst.o
7 $(LOADER) $(LOADOPTS) -o testlsame lsame.o lsametst.o
9 testslamch: slamch.o lsame.o slamchtst.o
10 $(LOADER) $(LOADOPTS) -o testslamch slamch.o lsame.o slamchtst.o
12 testdlamch: dlamch.o lsame.o dlamchtst.o
13 $(LOADER) $(LOADOPTS) -o testdlamch dlamch.o lsame.o dlamchtst.o
/dports/math/maxima/maxima-5.43.2/share/lapack/
H A Dlapack-lisp.system360 :depends-on ("lsame" "xerbla"))
362 :depends-on ("lsame" "xerbla"))
364 :depends-on ("lsame" "xerbla"))
370 :depends-on ("lsame" "xerbla"))
372 :depends-on ("lsame" "xerbla"))
374 :depends-on ("lsame" "xerbla"))
376 :depends-on ("lsame" "xerbla"))
379 :depends-on ("lsame" "xerbla"))
381 :depends-on ("lsame" "xerbla"))
383 :depends-on ("lsame" "xerbla"))
[all …]
H A Dlapack.system33 :depends-on ("lsame" "xerbla"))
35 :depends-on ("lsame" "xerbla"))
37 :depends-on ("lsame" "xerbla"))
43 :depends-on ("lsame" "xerbla"))
45 :depends-on ("lsame" "xerbla"))
47 :depends-on ("lsame" "xerbla"))
49 :depends-on ("lsame" "xerbla"))
52 :depends-on ("lsame" "xerbla"))
54 :depends-on ("lsame" "xerbla"))
56 :depends-on ("lsame" "xerbla"))
[all …]
/dports/math/blis/blis-0.8.1/frame/compat/f2c/
H A Dbla_tpsv.c173 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
176 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
180 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
661 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
664 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
668 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1012 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
1015 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
1019 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1369 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/openmp_tests/dgemm/
H A DGNUmakefile7 dgemm_mpi: dgemm_mpi.F dgemm.F xerbla.F lsame.F
8 $(FC) -g -O0 -o dgemm_mpi dgemm_mpi.F dgemm.F xerbla.F lsame.F
10 dgemm_ga: dgemm_ga.F dgemm.F xerbla.F lsame.F ga_stubs.F
11 …$(FC) -g -O0 -fdefault-integer-8 $(GA_INC) -o dgemm_ga dgemm_ga.F dgemm.F xerbla.F lsame.F ga_stub…
/dports/science/nwchem-data/nwchem-7.0.2-release/contrib/openmp_tests/dgemm/
H A DGNUmakefile7 dgemm_mpi: dgemm_mpi.F dgemm.F xerbla.F lsame.F
8 $(FC) -g -O0 -o dgemm_mpi dgemm_mpi.F dgemm.F xerbla.F lsame.F
10 dgemm_ga: dgemm_ga.F dgemm.F xerbla.F lsame.F ga_stubs.F
11 …$(FC) -g -O0 -i8 $(GA_INC) -o dgemm_ga dgemm_ga.F dgemm.F xerbla.F lsame.F ga_stubs.F $(GA_LIB) -l…
/dports/math/openblas/OpenBLAS-0.3.18/relapack/src/
H A Dzgemmt.c35 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_zgemmt()
36 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_zgemmt()
37 const blasint notransA = LAPACK(lsame)(transA, "N"); in RELAPACK_zgemmt()
38 const blasint tranA = LAPACK(lsame)(transA, "T"); in RELAPACK_zgemmt()
39 const blasint ctransA = LAPACK(lsame)(transA, "C"); in RELAPACK_zgemmt()
40 const blasint notransB = LAPACK(lsame)(transB, "N"); in RELAPACK_zgemmt()
41 const blasint tranB = LAPACK(lsame)(transB, "T"); in RELAPACK_zgemmt()
42 const blasint ctransB = LAPACK(lsame)(transB, "C"); in RELAPACK_zgemmt()
H A Dcgemmt.c35 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_cgemmt()
36 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_cgemmt()
37 const blasint notransA = LAPACK(lsame)(transA, "N"); in RELAPACK_cgemmt()
38 const blasint tranA = LAPACK(lsame)(transA, "T"); in RELAPACK_cgemmt()
39 const blasint ctransA = LAPACK(lsame)(transA, "C"); in RELAPACK_cgemmt()
40 const blasint notransB = LAPACK(lsame)(transB, "N"); in RELAPACK_cgemmt()
41 const blasint tranB = LAPACK(lsame)(transB, "T"); in RELAPACK_cgemmt()
42 const blasint ctransB = LAPACK(lsame)(transB, "C"); in RELAPACK_cgemmt()

12345678910>>...20