/dports/math/qrupdate/qrupdate-1.1.2/src/ |
H A D | cqrot.f | 39 external crot,lsame 40 logical lsame,fwd 46 fwd = lsame(dir,'F') 47 if (.not.(fwd .or. lsame(dir,'B'))) then
|
H A D | dqrot.f | 38 external drot,lsame 39 logical lsame,fwd 45 fwd = lsame(dir,'F') 46 if (.not.(fwd .or. lsame(dir,'B'))) then
|
H A D | sqrot.f | 38 external srot,lsame 39 logical lsame,fwd local 45 fwd = lsame(dir,'F') 46 if (.not.(fwd .or. lsame(dir,'B'))) then
|
H A D | zqrot.f | 39 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 D | dgels.c | 21 #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 D | dlasr.c | 18 #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 D | dgecon.c | 18 #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 D | bla_herk_check.h | 44 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 D | bla_her2k_check.h | 44 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 D | bla_hemm_check.h | 44 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 D | bla_gemv_check.h | 42 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 D | Makefile | 5 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 D | bla_tpmv.c | 170 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 D | bla_tbsv.c | 216 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 D | bla_tbmv.c | 212 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 D | bla_spr.c | 149 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 D | dgetrs.py | 3 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 D | GNUmakefile | 48 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 D | GNUmakefile | 48 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 D | dtrtri.c | 20 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 D | strtri.c | 20 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 D | sgemmt.c | 35 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 D | dgemmt.c | 35 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 D | zlanhe.lisp | 41 ((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 D | dtrmv.lisp | 38 ((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")
|