Home
last modified time | relevance | path

Searched refs:lsame (Results 26 – 50 of 496) sorted by relevance

12345678910>>...20

/dports/math/qrupdate/qrupdate-1.1.2/src/
H A Dcqrot.f39 external crot,lsame
40 logical lsame,fwd
46 fwd = lsame(dir,'F')
47 if (.not.(fwd .or. lsame(dir,'B'))) then
H A Ddqrot.f38 external drot,lsame
39 logical lsame,fwd
45 fwd = lsame(dir,'F')
46 if (.not.(fwd .or. lsame(dir,'B'))) then
H A Dsqrot.f38 external srot,lsame
39 logical lsame,fwd local
45 fwd = lsame(dir,'F')
46 if (.not.(fwd .or. lsame(dir,'B'))) then
H A Dzqrot.f39 external zrot,lsame
40 logical lsame,fwd
46 fwd = lsame(dir,'F')
47 if (.not.(fwd .or. lsame(dir,'B'))) then
/dports/lang/yorick/yorick-y_2_2_04/matrix/
H A Ddgels.c21 #define lsame(x,y) ((x)==(y)) macro
176 if( !( lsame( trans, 'n' ) || lsame( trans, 't' ) ) ) { in dgels()
197 if( lsame( trans, 'n' ) ) in dgels()
561 left = lsame( side, 'l' ); in dormlq()
814 left = lsame( side, 'l' ); in dorml2()
1345 left = lsame( side, 'l' ); in dormqr()
1592 left = lsame( side, 'l' ); in dorm2r()
2904 if( lsame( side, 'l' ) ) { in dlarf()
3240 if( lsame( type, 'g' ) ) { in dlascl()
3538 } else if( ( lsame( norm, 'f' ) ) || ( lsame( norm, 'e' ) ) ) { in dlange()
[all …]
H A Ddlasr.c18 #define lsame(x,y) ((x)==(y)) macro
160 if( !( lsame( side, 'l' ) || lsame( side, 'r' ) ) ) { in dlasr()
162 } else if( !( lsame( pivot, 'v' ) || lsame( pivot, 't' ) || in dlasr()
165 } else if( !( lsame( direct, 'f' ) || lsame( direct, 'b' ) ) ) in dlasr()
184 if( lsame( side, 'l' ) ) { in dlasr()
188 if( lsame( pivot, 'v' ) ) { in dlasr()
271 if( lsame( pivot, 'v' ) ) { in dlasr()
951 wantq = lsame( vect, 'q' ); in dorgbr()
1907 applyq = lsame( vect, 'q' ); in dormbr()
1908 left = lsame( side, 'l' ); in dormbr()
[all …]
H A Ddgecon.c18 #define lsame(x,y) ((x)==(y)) macro
595 upper = lsame( uplo, 'u' ); in dlatrs()
596 notran = lsame( trans, 'n' ); in dlatrs()
597 nounit = lsame( diag, 'n' ); in dlatrs()
604 lsame( trans, 'c' ) ) { in dlatrs()
609 lsame( normin, 'n' ) ) { in dlatrs()
632 if( lsame( normin, 'n' ) ) { in dlatrs()
1199 if( lsame( cmach, 'e' ) ) { in dlamch()
1201 } else if( lsame( cmach, 's' ) ) { in dlamch()
1203 } else if( lsame( cmach, 'b' ) ) { in dlamch()
[all …]
/dports/math/blis/blis-0.8.1/frame/compat/check/
H A Dbla_herk_check.h44 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
45 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
46 lower = PASTEF770(lsame)( uploc, "L", (ftnlen)1, (ftnlen)1 ); \
47 upper = PASTEF770(lsame)( uploc, "U", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_her2k_check.h44 nota = PASTEF770(lsame)( trans, "N", (ftnlen)1, (ftnlen)1 ); \
45 conja = PASTEF770(lsame)( trans, "C", (ftnlen)1, (ftnlen)1 ); \
46 lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 ); \
47 upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_hemm_check.h44 left = PASTEF770(lsame)( sidea, "L", (ftnlen)1, (ftnlen)1 ); \
45 right = PASTEF770(lsame)( sidea, "R", (ftnlen)1, (ftnlen)1 ); \
46 lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 ); \
47 upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 ); \
H A Dbla_gemv_check.h42 nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 ); \
43 ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 ); \
44 conja = PASTEF770(lsame)( transa, "C", (ftnlen)1, (ftnlen)1 ); \
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/INSTALL/
H A DMakefile5 testdlamch: dlamch.o lsame.o dlamchtst.o
6 $(LOADER) $(LOADOPTS) -o testdlamch dlamch.o lsame.o dlamchtst.o
8 testslamch: slamch.o lsame.o slamchtst.o
9 $(LOADER) $(LOADOPTS) -o testslamch slamch.o lsame.o slamchtst.o
/dports/math/blis/blis-0.8.1/frame/compat/f2c/
H A Dbla_tpmv.c170 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
173 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
177 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
666 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
669 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
673 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1014 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
1017 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
1021 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1367 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
[all …]
H A Dbla_tbsv.c216 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
219 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
223 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
774 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
777 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
781 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1189 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
1192 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
1196 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1609 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
[all …]
H A Dbla_tbmv.c212 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
215 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
219 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
778 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
781 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
785 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1189 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
1192 } else if (! PASTEF770(lsame)(trans, "N", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(trans, in PASTEF77()
1196 } else if (! PASTEF770(lsame)(diag, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(diag, in PASTEF77()
1604 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
[all …]
H A Dbla_spr.c149 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
180 if (PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1)) { in PASTEF77()
376 if (! PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1) && ! PASTEF770(lsame)(uplo, "L", ( in PASTEF77()
407 if (PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1)) { in PASTEF77()
/dports/science/py-paida/paida-3.2.1_2.10.1/paida/math/pylapack/
H A Ddgetrs.py3 from paida.math.pylapack.pyblas.dgemm import lsame
68 notran = lsame(trans, 'N')
69 if (not notran) and (not lsame(trans, 'T')) and (not lsame(trans, 'C')):
/dports/science/nwchem-data/nwchem-7.0.2-release/src/blas/
H A DGNUmakefile48 lsame.o zaxpy.o dcabs1.o zcopy.o \
76 OBJ_OPTIMIZE = lsame.o
81 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
87 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
93 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
98 OBJ_OPTIMIZE = lsame.o xerbla.o dcabs1.o izamax.o
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/blas/
H A DGNUmakefile48 lsame.o zaxpy.o dcabs1.o zcopy.o \
76 OBJ_OPTIMIZE = lsame.o
81 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
87 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
93 OBJ_OPTIMIZE = lsame.o xerbla.o izamax.o dcabs1.o
98 OBJ_OPTIMIZE = lsame.o xerbla.o dcabs1.o izamax.o
/dports/math/openblas/OpenBLAS-0.3.18/relapack/src/
H A Ddtrtri.c20 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_dtrtri()
21 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_dtrtri()
22 const blasint nounit = LAPACK(lsame)(diag, "N"); in RELAPACK_dtrtri()
23 const blasint unit = LAPACK(lsame)(diag, "U"); in RELAPACK_dtrtri()
H A Dstrtri.c20 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_strtri()
21 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_strtri()
22 const blasint nounit = LAPACK(lsame)(diag, "N"); in RELAPACK_strtri()
23 const blasint unit = LAPACK(lsame)(diag, "U"); in RELAPACK_strtri()
H A Dsgemmt.c35 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_sgemmt()
36 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_sgemmt()
37 const blasint notransA = LAPACK(lsame)(transA, "N"); in RELAPACK_sgemmt()
38 const blasint tranA = LAPACK(lsame)(transA, "T"); in RELAPACK_sgemmt()
39 const blasint notransB = LAPACK(lsame)(transB, "N"); in RELAPACK_sgemmt()
40 const blasint tranB = LAPACK(lsame)(transB, "T"); in RELAPACK_sgemmt()
H A Ddgemmt.c35 const blasint lower = LAPACK(lsame)(uplo, "L"); in RELAPACK_dgemmt()
36 const blasint upper = LAPACK(lsame)(uplo, "U"); in RELAPACK_dgemmt()
37 const blasint notransA = LAPACK(lsame)(transA, "N"); in RELAPACK_dgemmt()
38 const blasint tranA = LAPACK(lsame)(transA, "T"); in RELAPACK_dgemmt()
39 const blasint notransB = LAPACK(lsame)(transB, "N"); in RELAPACK_dgemmt()
40 const blasint tranB = LAPACK(lsame)(transB, "T"); in RELAPACK_dgemmt()
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/
H A Dzlanhe.lisp41 ((lsame norm "M")
44 ((lsame uplo "U")
95 ((or (lsame norm "I") (lsame norm "O") (f2cl-lib:fstring-= norm "1"))
98 ((lsame uplo "U")
191 ((or (lsame norm "F") (lsame norm "E"))
195 ((lsame uplo "U")
/dports/math/maxima/maxima-5.43.2/share/lapack/blas/
H A Ddtrmv.lisp38 ((and (not (lsame uplo "U")) (not (lsame uplo "L")))
40 ((and (not (lsame trans "N"))
41 (not (lsame trans "T"))
42 (not (lsame trans "C")))
44 ((and (not (lsame diag "U")) (not (lsame diag "N")))
57 (setf nounit (lsame diag "N"))
67 ((lsame trans "N")
69 ((lsame uplo "U")
270 ((lsame uplo "U")

12345678910>>...20