/dports/math/maxima/maxima-5.43.2/share/lapack/blas/ |
H A D | blas-lisp.system | 64 :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 D | lsame.lisp | 20 (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 D | bla_trmm_check.h | 46 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 D | bla_gemmt_check.h | 46 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 D | bla_trmv_check.h | 44 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 D | bla_gemm_check.h | 45 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 D | bla_syr2k_check.h | 48 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 D | bla_syrk_check.h | 48 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 D | Makefile | 5 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 D | dtrsm.py | 2 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 D | dgemm.py | 3 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 D | dlamch.lisp | 81 ((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 D | dgebak.lisp | 35 (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 D | zgebak.lisp | 36 (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 D | dlasr.lisp | 40 ((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 D | zlasr.lisp | 43 ((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 D | Makefile | 6 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 D | Makefile | 6 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 D | lapack-lisp.system | 360 :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 D | lapack.system | 33 :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 D | bla_tpsv.c | 173 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 D | GNUmakefile | 7 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 D | GNUmakefile | 7 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 D | zgemmt.c | 35 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 D | cgemmt.c | 35 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()
|