/dports/math/slatec/ |
H A D | itest.f | 2 SUBROUTINE ITEST (LEN, ICOMP, ITRUE, KPRINT) argument 25 INTEGER ICOMP(*), ITRUE(*) 30 IF (ICOMP(I) .NE. ITRUE(I)) THEN 45 ID = ICOMP(I) - ITRUE(I) 47 + ITRUE(I), ID
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | chfcm.f | 93 INTEGER ISMON, ITRUE 118 ITRUE = SIGN (ONE, DELTA) 125 ISMON = ITRUE 135 ISMON = ITRUE 141 ISMON = 3*ITRUE
|
H A D | dchfcm.f | 93 INTEGER ISMON, ITRUE 119 ITRUE = DSIGN (ONE, DELTA) 126 ISMON = ITRUE 136 ISMON = ITRUE 142 ISMON = 3*ITRUE
|
/dports/math/slatec/src/ |
H A D | chfcm.f | 93 INTEGER ISMON, ITRUE 118 ITRUE = SIGN (ONE, DELTA) 125 ISMON = ITRUE 135 ISMON = ITRUE 141 ISMON = 3*ITRUE
|
H A D | dchfcm.f | 93 INTEGER ISMON, ITRUE 119 ITRUE = DSIGN (ONE, DELTA) 126 ISMON = ITRUE 136 ISMON = ITRUE 142 ISMON = 3*ITRUE
|
/dports/math/math77/MATH77/ |
H A D | idsm.f | 465 INTEGER BWA(N), ITRUE, IFALSE local 544 BWA(JCOL) = ITRUE 570 BWA(IC) = ITRUE 601 INTEGER BWA(N), ITRUE, IFALSE local 760 BWA(JCOL) = ITRUE 784 BWA(IC) = ITRUE 847 INTEGER BWA(N), ITRUE, IFALSE local 936 BWA(N) = ITRUE 970 BWA(L) = ITRUE 1195 BWA(JCOL) = ITRUE [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/pchips/ |
H A D | chfmc.f | 67 INTEGER ISMON, ITRUE 90 ITRUE = SIGN (ONE, DELTA) 97 ISMON = ITRUE 107 ISMON = ITRUE
|
/dports/math/cmlib/cmlib-3.0_8/src/pchipd/ |
H A D | dchfmc.f | 67 INTEGER ISMON, ITRUE 91 ITRUE = DSIGN (ONE, DELTA) 98 ISMON = ITRUE 108 ISMON = ITRUE
|
/dports/graphics/netpbm/netpbm-10.91.01/other/pamx/ |
H A D | image.h | 30 #define ITRUE 3 /* image is true color */ macro 34 #define TRUEP(IMAGE) ((IMAGE)->type == ITRUE)
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/test/ |
H A D | zblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 653 INTEGER ICOMP, ITRUE local 662 IF (ICOMP.EQ.ITRUE) GO TO 40 671 20 ID = ICOMP - ITRUE 672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/ctest/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE local 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/xlapack/lapack-3.10.0/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/eigen3/eigen-3.3.9/blas/testing/ |
H A D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 696 INTEGER ICOMP, ITRUE 705 IF (ICOMP.EQ.ITRUE) GO TO 40 714 20 ID = ICOMP - ITRUE 715 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/blas/lapack-3.10.0/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/stanmath/math-4.2.0/lib/eigen_3.3.9/blas/testing/ |
H A D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 696 INTEGER ICOMP, ITRUE 705 IF (ICOMP.EQ.ITRUE) GO TO 40 714 20 ID = ICOMP - ITRUE 715 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/lapack/lapack-3.10.0/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/lapacke/lapack-3.10.0/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/test/ |
H A D | zblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 653 INTEGER ICOMP, ITRUE local 662 IF (ICOMP.EQ.ITRUE) GO TO 40 671 20 ID = ICOMP - ITRUE 672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/ctest/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE local 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/BLAS/TESTING/ |
H A D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 696 INTEGER ICOMP, ITRUE 705 IF (ICOMP.EQ.ITRUE) GO TO 40 714 20 ID = ICOMP - ITRUE 715 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/libmesh/libmesh-1.6.2/contrib/eigen/3.2.9/blas/testing/ |
H A D | zblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 653 INTEGER ICOMP, ITRUE 662 IF (ICOMP.EQ.ITRUE) GO TO 40 671 20 ID = ICOMP - ITRUE 672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/libsemigroups/libsemigroups-1.3.7/extern/eigen-3.3.7/blas/testing/ |
H A D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 696 INTEGER ICOMP, ITRUE 705 IF (ICOMP.EQ.ITRUE) GO TO 40 714 20 ID = ICOMP - ITRUE 715 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/CBLAS/testing/ |
H A D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 654 INTEGER ICOMP, ITRUE local 663 IF (ICOMP.EQ.ITRUE) GO TO 40 672 20 ID = ICOMP - ITRUE 673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/BLAS/TESTING/ |
H A D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument 696 INTEGER ICOMP, ITRUE local 705 IF (ICOMP.EQ.ITRUE) GO TO 40 714 20 ID = ICOMP - ITRUE 715 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|