/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/uipack/ |
H A D | uipk01.c | 28 static real c_b25 = 64.f; variable 81 uxaxdv_("T", &c_b24, &c_b25, (ftnlen)1); in MAIN__() 82 uxaxdv_("B", &c_b24, &c_b25, (ftnlen)1); in MAIN__() 83 uyaxdv_("L", &c_b24, &c_b25, (ftnlen)1); in MAIN__() 84 uyaxdv_("R", &c_b24, &c_b25, (ftnlen)1); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph1/sgpack/ |
H A D | sgtonz.c | 25 static real c_b25 = 0.f; variable 102 slmgn_(&c_b25, &c_b25, &c_b27, &c_b28); in MAIN__() 103 slsttl_("TEST OF SGTONE", "T", &c_b25, &c_b32, &c_b33, &c__1, (ftnlen)14, in MAIN__() 107 sgswnd_(&c_b25, &c_b24, &c_b25, &c_b24); in MAIN__()
|
H A D | sgpk06.c | 24 static real c_b25 = .1f; variable 96 sgsvpt_(&c_b25, &c_b26, &c_b27, &c_b28); in MAIN__() 119 sgsvpt_(&c_b25, &c_b26, &c_b25, &c_b26); in MAIN__() 131 sgsvpt_(&c_b27, &c_b28, &c_b25, &c_b26); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/uxyzpk/ |
H A D | uxyz04.c | 30 static real c_b25 = 0.f; variable 88 uxsttl_("B", "LATITUDE", &c_b25, (ftnlen)1, (ftnlen)8); in MAIN__() 93 uysttl_("L", "PRESSURE (MB)", &c_b25, (ftnlen)1, (ftnlen)13); in MAIN__() 94 uxmttl_("T", "UXAXLB/UYAXLB", &c_b25, (ftnlen)1, (ftnlen)13); in MAIN__()
|
H A D | uxyz10.c | 32 static real c_b25 = 20.f; variable 84 uxaxdv_("B", &c_b24, &c_b25, (ftnlen)1); in MAIN__() 98 uyaxdv_("L", &c_b24, &c_b25, (ftnlen)1); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/uxyz/ |
H A D | uxyz5.c | 30 static real c_b25 = 0.f; variable 88 uxsttl_("B", "LATITUDE", &c_b25, (ftnlen)1, (ftnlen)8); in MAIN__() 93 uysttl_("L", "PRESSURE (hPa)", &c_b25, (ftnlen)1, (ftnlen)14); in MAIN__() 94 uxmttl_("T", "UXAXLB/UYAXLB", &c_b25, (ftnlen)1, (ftnlen)13); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph1/slpack/ |
H A D | slpk01.c | 25 static real c_b25 = .5f; variable 83 sgtxv_(&c_b25, &c_b25, ctxt, (ftnlen)7); in MAIN__()
|
/dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
H A D | dnaitr.c | 19 static doublereal c_b25 = 1.; variable 549 igraphdlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &v[j * v_dim1 in igraphdnaitr_() 551 igraphdlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &workd[ipj], in igraphdnaitr_() 654 igraphdgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in igraphdnaitr_() 663 &c_b25, &resid[1], &c__1); in igraphdnaitr_() 761 igraphdgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in igraphdnaitr_() 771 igraphdgemv_("N", n, &j, &c_b50, &v[v_offset], ldv, &workd[irj], &c__1, &c_b25, in igraphdnaitr_() 773 igraphdaxpy_(&j, &c_b25, &workd[irj], &c__1, &h__[j * h_dim1 + 1], &c__1); in igraphdnaitr_()
|
H A D | dlarfb.c | 19 static doublereal c_b25 = -1.; variable 322 igraphdgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in igraphdlarfb_() 386 igraphdgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in igraphdlarfb_() 458 igraphdgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in igraphdlarfb_() 525 igraphdgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in igraphdlarfb_() 601 igraphdgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( in igraphdlarfb_() 666 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in igraphdlarfb_() 738 igraphdgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in igraphdlarfb_() 805 c_b25, &work[work_offset], ldwork, &v[v_offset], in igraphdlarfb_()
|
/dports/science/hypre/hypre-2.23.0/src/lapack/ |
H A D | dlarfb.c | 103 static doublereal c_b25 = -1.; in dlarfb_() local 197 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 259 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 331 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 398 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 473 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 536 c_b25, &work[work_offset], ldwork, &v_ref(1, *k + in dlarfb_() 607 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in dlarfb_() 674 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_()
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | slarfb.c | 6 static real c_b25 = -1.f; variable 282 …sgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & v[*k + 1 + v_dim1], ldv, &work[work_off… in slarfb_() 331 …sgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & work[work_offset], ldwork, &v[*k + 1 + … in slarfb_() 387 …sgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & v[v_offset], ldv, &work[work_offset], l… in slarfb_() 436 …sgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & work[work_offset], ldwork, &v[v_offset]… in slarfb_() 494 …sgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( *k + 1) * v_dim1 + 1], ldv, &work[work_… in slarfb_() 543 …sgemm_("No transpose", "No transpose", m, &i__1, k, & c_b25, &work[work_offset], ldwork, &v[(*k + … in slarfb_() 598 …sgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ v_offset], ldv, &work[work_offset], ldwo… in slarfb_() 647 …sgemm_("No transpose", "No transpose", m, &i__1, k, & c_b25, &work[work_offset], ldwork, &v[v_offs… in slarfb_()
|
H A D | dlarfb.c | 6 static doublereal c_b25 = -1.; variable 284 …dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & v[*k + 1 + v_dim1], ldv, &work[work_off… in dlarfb_() 333 …dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & work[work_offset], ldwork, &v[*k + 1 + … in dlarfb_() 389 …dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & v[v_offset], ldv, &work[work_offset], l… in dlarfb_() 438 …dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & work[work_offset], ldwork, &v[v_offset]… in dlarfb_() 496 …dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( *k + 1) * v_dim1 + 1], ldv, &work[work_… in dlarfb_() 545 …dgemm_("No transpose", "No transpose", m, &i__1, k, & c_b25, &work[work_offset], ldwork, &v[(*k + … in dlarfb_() 600 …dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ v_offset], ldv, &work[work_offset], ldwo… in dlarfb_() 649 …dgemm_("No transpose", "No transpose", m, &i__1, k, & c_b25, &work[work_offset], ldwork, &v[v_offs… in dlarfb_()
|
/dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
H A D | template_lapack_larfb.h | 134 Treal c_b25 = -1.; in template_lapack_larfb() local 220 template_blas_gemm("No transpose", "Transpose", &i__1, n, k, &c_b25, & in template_lapack_larfb() 282 template_blas_gemm("No transpose", "Transpose", m, &i__1, k, &c_b25, & in template_lapack_larfb() 354 template_blas_gemm("No transpose", "Transpose", &i__1, n, k, &c_b25, & in template_lapack_larfb() 421 template_blas_gemm("No transpose", "Transpose", m, &i__1, k, &c_b25, & in template_lapack_larfb() 496 template_blas_gemm("Transpose", "Transpose", &i__1, n, k, &c_b25, & in template_lapack_larfb() 559 c_b25, &work[work_offset], ldwork, &v_ref(1, *k + in template_lapack_larfb() 630 template_blas_gemm("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in template_lapack_larfb() 697 c_b25, &work[work_offset], ldwork, &v[v_offset], in template_lapack_larfb()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/u2d/ |
H A D | u2d6.c | 28 static real c_b25 = .1f; variable 86 ugrset_("VXUNIT", &c_b25, (ftnlen)6); in MAIN__() 87 ugrset_("VYUNIT", &c_b25, (ftnlen)6); in MAIN__()
|
/dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/ARPACK/ |
H A D | snaitr.c | 39 static real c_b25 = 1.f; variable 569 slascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &v[j * v_dim1 in snaitr_() 571 slascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &workd[ipj], in snaitr_() 674 sgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in snaitr_() 683 &c_b25, &resid[1], &c__1, (ftnlen)1); in snaitr_() 781 sgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in snaitr_() 791 sgemv_("N", n, &j, &c_b50, &v[v_offset], ldv, &workd[irj], &c__1, &c_b25, in snaitr_() 793 saxpy_(&j, &c_b25, &workd[irj], &c__1, &h__[j * h_dim1 + 1], &c__1); in snaitr_()
|
H A D | dnaitr.c | 39 static doublereal c_b25 = 1.; variable 573 dlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &v[j * v_dim1 in dnaitr_() 575 dlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &workd[ipj], in dnaitr_() 678 dgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in dnaitr_() 687 &c_b25, &resid[1], &c__1, (ftnlen)1); in dnaitr_() 785 dgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in dnaitr_() 795 dgemv_("N", n, &j, &c_b50, &v[v_offset], ldv, &workd[irj], &c__1, &c_b25, in dnaitr_() 797 daxpy_(&j, &c_b25, &workd[irj], &c__1, &h__[j * h_dim1 + 1], &c__1); in dnaitr_()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/ |
H A D | snaitr.c | 32 static real c_b25 = 1.f; variable 562 slascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &v[j * v_dim1 in snaitr_() 564 slascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &workd[ipj], in snaitr_() 667 sgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in snaitr_() 676 &c_b25, &resid[1], &c__1, (ftnlen)1); in snaitr_() 774 sgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in snaitr_() 784 sgemv_("N", n, &j, &c_b50, &v[v_offset], ldv, &workd[irj], &c__1, &c_b25, in snaitr_() 786 saxpy_(&j, &c_b25, &workd[irj], &c__1, &h__[j * h_dim1 + 1], &c__1); in snaitr_()
|
H A D | dnaitr.c | 32 static doublereal c_b25 = 1.; variable 566 dlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &v[j * v_dim1 in dnaitr_() 568 dlascl_("General", &i__, &i__, rnorm, &c_b25, n, &c__1, &workd[ipj], in dnaitr_() 671 dgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in dnaitr_() 680 &c_b25, &resid[1], &c__1, (ftnlen)1); in dnaitr_() 778 dgemv_("T", n, &j, &c_b25, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b47, in dnaitr_() 788 dgemv_("N", n, &j, &c_b50, &v[v_offset], ldv, &workd[irj], &c__1, &c_b25, in dnaitr_() 790 daxpy_(&j, &c_b25, &workd[irj], &c__1, &h__[j * h_dim1 + 1], &c__1); in dnaitr_()
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dlarfb.c | 22 static doublereal c_b25 = -1.; variable 254 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 340 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 435 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 522 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 623 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( in dlarfb_() 710 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in dlarfb_() 804 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in dlarfb_() 891 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_()
|
/dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
H A D | dlarfb.c | 20 static doublereal c_b25 = -1.; variable 224 c_b25, &v[*k + 1 + v_dim1], ldv, &work[ in dlarfb_() 294 c_b25, &work[work_offset], ldwork, &v[*k + 1 + in dlarfb_() 372 c_b25, &v[v_offset], ldv, &work[work_offset], in dlarfb_() 443 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_() 522 dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, in dlarfb_() 593 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in dlarfb_() 670 dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, in dlarfb_() 742 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | slarfb.c | 12 static real c_b25 = -1.f; variable 210 sgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in slarfb_() 278 sgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in slarfb_() 353 sgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in slarfb_() 422 sgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in slarfb_() 501 sgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( in slarfb_() 570 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in slarfb_() 644 sgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in slarfb_() 713 c_b25, &work[work_offset], ldwork, &v[v_offset], in slarfb_()
|
H A D | dlarfb.c | 12 static doublereal c_b25 = -1.; variable 211 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 279 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 354 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 423 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 502 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( in dlarfb_() 571 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in dlarfb_() 645 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in dlarfb_() 714 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_()
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
H A D | dlarfb.c | 22 static doublereal c_b25 = -1.; variable 254 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 340 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 435 dgemm_("No transpose", "Transpose", &i__1, n, k, &c_b25, & in dlarfb_() 522 dgemm_("No transpose", "Transpose", m, &i__1, k, &c_b25, & in dlarfb_() 623 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[( in dlarfb_() 710 c_b25, &work[work_offset], ldwork, &v[(*k + 1) * in dlarfb_() 804 dgemm_("Transpose", "Transpose", &i__1, n, k, &c_b25, &v[ in dlarfb_() 891 c_b25, &work[work_offset], ldwork, &v[v_offset], in dlarfb_()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/umpack/ |
H A D | umpk01.c | 28 static real c_b25 = .1f; variable 96 sgsvpt_(&c_b25, &c_b26, &c_b25, &c_b26); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/map3d/ |
H A D | map3d1.c | 29 static real c_b25 = .9f; variable 101 sgsvpt_(&c_b24, &c_b25, &c_b24, &c_b25); in MAIN__()
|