/dports/science/cdcl/dcl-5.4.8-C/demo/grph1/sgpack/ |
H A D | sgpk02.c | 23 static real c_b18 = .8f; variable 76 sglnzu_(&c_b17, &c_b18, &c_b18, &c_b17, &c__2); in MAIN__() 78 sglnu_(&c_b17, &c_b17, &c_b18, &c_b18); in MAIN__() 89 sglnzu_(&c_b17, &c_b18, &c_b18, &c_b17, &c__2); in MAIN__() 90 sglnu_(&c_b17, &c_b17, &c_b18, &c_b18); in MAIN__() 99 sglnzu_(&c_b17, &c_b18, &c_b18, &c_b17, &c__2); in MAIN__() 100 sglnu_(&c_b17, &c_b17, &c_b18, &c_b18); in MAIN__() 109 sglnzu_(&c_b17, &c_b18, &c_b18, &c_b17, &c__2); in MAIN__() 110 sglnu_(&c_b17, &c_b17, &c_b18, &c_b18); in MAIN__() 121 sglnzu_(&c_b17, &c_b18, &c_b18, &c_b17, &c__2); in MAIN__() [all …]
|
H A D | sgfont.c | 22 static real c_b18 = 0.f; variable 94 sgswnd_(&c_b18, &c_b19, &c_b18, &c_b19); in MAIN__() 95 sgsvpt_(&c_b22, &c_b23, &c_b18, &c_b25); in MAIN__() 101 sglnzu_(&r__1, &c_b18, &r__2, &c_b19, &c__2); in MAIN__() 104 sglnzu_(&c_b18, &r__1, &c_b19, &r__2, &c__2); in MAIN__()
|
H A D | sgltyp.c | 24 static real c_b18 = .1f; variable 93 sgtxzv_(&c_b18, y, cttl, &c_b19, &c__0, &c_n1, &c__3, (ftnlen)16); in MAIN__() 101 sgtxzv_(&c_b18, &r__1, ch__1, &c_b26, &c__0, &c_n1, &c__3, ( in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph1/slpack/ |
H A D | slpk03.c | 26 static real c_b18 = .02f; variable 69 slsttl_("FIGURE TITLE", "T", &c_b8, &c_b17, &c_b18, &c__1, (ftnlen)12, ( in MAIN__() 71 slsttl_("page:#PAGE", "B", &c_b12, &c_b12, &c_b18, &c__2, (ftnlen)10, ( in MAIN__() 73 slsttl_("PROG.NAME", "B", &c_b17, &c_b12, &c_b18, &c__3, (ftnlen)9, ( in MAIN__() 77 sgtxzv_(&c_b33, &c_b18, "LOWER LEFT", &c_b18, &c__0, &c_n1, &c__3, ( in MAIN__() 79 sgtxzv_(&c_b33, &c_b41, "UPPER LEFT", &c_b18, &c__0, &c_n1, &c__3, ( in MAIN__() 81 sgtxzv_(&c_b47, &c_b18, "LOWER RIGHT", &c_b18, &c__0, &c__1, &c__3, ( in MAIN__() 83 sgtxzv_(&c_b47, &c_b41, "UPPER RIGHT", &c_b18, &c__0, &c__1, &c__3, ( in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/ucpack/ |
H A D | ucpk01.c | 27 static real c_b18 = .9f; variable 83 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 92 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 101 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 110 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 119 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 130 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__() 141 sgsvpt_(&c_b17, &c_b18, &c_b17, &c_b20); in MAIN__()
|
H A D | ucpk02.c | 27 static real c_b18 = .14f; variable 84 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 93 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 102 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 111 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 120 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 131 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__() 142 sgsvpt_(&c_b17, &c_b18, &c_b19, &c_b20); in MAIN__()
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | dpbtrf.c | 6 static doublereal c_b18 = 1.; variable 286 …dtrsm_("Left", "Upper", "Transpose", "Non-unit", &ib, &i2, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], &… in dpbtrf_() 290 …e", &i2, &ib, &c_b21, &ab[* kd + 1 - ib + (i__ + ib) * ab_dim1], &i__3, & c_b18, &ab[*kd + 1 + (i_… in dpbtrf_() 312 …dtrsm_("Left", "Upper", "Transpose", "Non-unit", &ib, &i3, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], &… in dpbtrf_() 318 …, &c_b21, &ab[*kd + 1 - ib + (i__ + ib) * ab_dim1], &i__3, work, &c__33, &c_b18, & ab[ib + 1 + (i_… in dpbtrf_() 322 …dsyrk_("Upper", "Transpose", &i3, &ib, &c_b21, work, & c__33, &c_b18, &ab[*kd + 1 + (i__ + *kd) * … in dpbtrf_() 410 …dtrsm_("Right", "Lower", "Transpose", "Non-unit", &i2, &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3,… in dpbtrf_() 414 …, "No Transpose", &i2, &ib, &c_b21, &ab[ ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[( i__ + ib) *… in dpbtrf_() 436 …dtrsm_("Right", "Lower", "Transpose", "Non-unit", &i3, &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3,… in dpbtrf_() 442 …&i3, &i2, &ib, &c_b21, work, &c__33, &ab[ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[*kd + 1 - ib … in dpbtrf_() [all …]
|
H A D | spbtrf.c | 6 static real c_b18 = 1.f; variable 284 …strsm_("Left", "Upper", "Transpose", "Non-unit", &ib, &i2, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], &… in spbtrf_() 288 …e", &i2, &ib, &c_b21, &ab[* kd + 1 - ib + (i__ + ib) * ab_dim1], &i__3, & c_b18, &ab[*kd + 1 + (i_… in spbtrf_() 310 …strsm_("Left", "Upper", "Transpose", "Non-unit", &ib, &i3, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], &… in spbtrf_() 316 …, &c_b21, &ab[*kd + 1 - ib + (i__ + ib) * ab_dim1], &i__3, work, &c__33, &c_b18, & ab[ib + 1 + (i_… in spbtrf_() 320 …ssyrk_("Upper", "Transpose", &i3, &ib, &c_b21, work, & c__33, &c_b18, &ab[*kd + 1 + (i__ + *kd) * … in spbtrf_() 408 …strsm_("Right", "Lower", "Transpose", "Non-unit", &i2, &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3,… in spbtrf_() 412 …, "No Transpose", &i2, &ib, &c_b21, &ab[ ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[( i__ + ib) *… in spbtrf_() 434 …strsm_("Right", "Lower", "Transpose", "Non-unit", &i3, &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3,… in spbtrf_() 440 …&i3, &i2, &ib, &c_b21, work, &c__33, &ab[ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[*kd + 1 - ib … in spbtrf_() [all …]
|
H A D | dtftri.c | 5 static doublereal c_b18 = 1.; variable 316 dtrmm_("L", "U", "T", diag, &n2, &n1, &c_b18, &a[*n], n, &a[ n1], n); in dtftri_() 338 dtrmm_("R", "U", "N", diag, &n1, &n2, &c_b18, &a[n1], n, a, n); in dtftri_() 363 dtrmm_("R", "L", "T", diag, &n1, &n2, &c_b18, &a[1], &n1, &a[ n1 * n1], &n1); in dtftri_() 384 dtrmm_("L", "L", "N", diag, &n2, &n1, &c_b18, &a[n1 * n2], & n2, a, &n2); in dtftri_() 420 dtrmm_("L", "U", "T", diag, &k, &k, &c_b18, a, &i__1, &a[k + 1], &i__2) ; in dtftri_() 448 dtrmm_("R", "U", "N", diag, &k, &k, &c_b18, &a[k], &i__1, a, & i__2); in dtftri_() 475 dtrmm_("R", "L", "T", diag, &k, &k, &c_b18, a, &k, &a[k * (k + 1)], &k) ; in dtftri_() 498 dtrmm_("L", "L", "N", diag, &k, &k, &c_b18, &a[k * k], &k, a, &k); in dtftri_()
|
H A D | stftri.c | 5 static real c_b18 = 1.f; variable 314 strmm_("L", "U", "T", diag, &n2, &n1, &c_b18, &a[*n], n, &a[ n1], n); in stftri_() 336 strmm_("R", "U", "N", diag, &n1, &n2, &c_b18, &a[n1], n, a, n); in stftri_() 361 strmm_("R", "L", "T", diag, &n1, &n2, &c_b18, &a[1], &n1, &a[ n1 * n1], &n1); in stftri_() 382 strmm_("L", "L", "N", diag, &n2, &n1, &c_b18, &a[n1 * n2], & n2, a, &n2); in stftri_() 418 strmm_("L", "U", "T", diag, &k, &k, &c_b18, a, &i__1, &a[k + 1], &i__2) ; in stftri_() 446 strmm_("R", "U", "N", diag, &k, &k, &c_b18, &a[k], &i__1, a, & i__2); in stftri_() 473 strmm_("R", "L", "T", diag, &k, &k, &c_b18, a, &k, &a[k * (k + 1)], &k) ; in stftri_() 496 strmm_("L", "L", "N", diag, &k, &k, &c_b18, &a[k * k], &k, a, &k); in stftri_()
|
H A D | sstedc.c | 8 static real c_b18 = 1.f; variable 390 slaset_("Full", n, n, &c_b17, &c_b18, &z__[z_offset], ldz); in sstedc_() 431 slascl_("G", &c__0, &c__0, &orgnrm, &c_b18, &m, &c__1, &d__[ start], &m, info); in sstedc_() 434 slascl_("G", &c__0, &c__0, &orgnrm, &c_b18, &i__1, &c__1, &e[ start], &i__2, info); in sstedc_() 450 slascl_("G", &c__0, &c__0, &c_b18, &orgnrm, &m, &c__1, &d__[ start], &m, info); in sstedc_() 461 …sgemm_("N", "N", n, &m, &m, &c_b18, &work[storez], n, & work[1], &m, &c_b17, &z__[start * z_dim1 +… in sstedc_()
|
H A D | dstedc.c | 8 static doublereal c_b18 = 1.; variable 393 dlaset_("Full", n, n, &c_b17, &c_b18, &z__[z_offset], ldz); in dstedc_() 434 dlascl_("G", &c__0, &c__0, &orgnrm, &c_b18, &m, &c__1, &d__[ start], &m, info); in dstedc_() 437 dlascl_("G", &c__0, &c__0, &orgnrm, &c_b18, &i__1, &c__1, &e[ start], &i__2, info); in dstedc_() 453 dlascl_("G", &c__0, &c__0, &c_b18, &orgnrm, &m, &c__1, &d__[ start], &m, info); in dstedc_() 464 …dgemm_("N", "N", n, &m, &m, &c_b18, &work[storez], n, & work[1], &m, &c_b17, &z__[start * z_dim1 +… in dstedc_()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/uxyzpk/ |
H A D | uxyz08.c | 29 static real c_b18 = 0.f; variable 78 uzrset_("UXUSER", &c_b18, (ftnlen)6); in MAIN__() 79 uzrset_("UYUSER", &c_b18, (ftnlen)6); in MAIN__() 84 uxsttl_("B", "LONGITUDE", &c_b18, (ftnlen)1, (ftnlen)9); in MAIN__() 87 uysttl_("L", "LATITUDE", &c_b18, (ftnlen)1, (ftnlen)8); in MAIN__() 88 uxmttl_("T", "UXAXDV/UYAXDV", &c_b18, (ftnlen)1, (ftnlen)13); in MAIN__()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | dpbtrf.c | 12 static doublereal c_b18 = 1.; variable 255 &i2, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], & in dpbtrf_() 266 c_b18, &ab[*kd + 1 + (i__ + ib) * ab_dim1], & in dpbtrf_() 289 &i3, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], & in dpbtrf_() 300 ab_dim1], &i__3, work, &c__33, &c_b18, & in dpbtrf_() 309 c__33, &c_b18, &ab[*kd + 1 + (i__ + *kd) * in dpbtrf_() 394 &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3, & in dpbtrf_() 403 ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[( in dpbtrf_() 427 &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3, in dpbtrf_() 438 ab_dim1], &i__3, &c_b18, &ab[*kd + 1 - ib in dpbtrf_() [all …]
|
H A D | spbtrf.c | 12 static real c_b18 = 1.f; variable 254 &i2, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], & in spbtrf_() 265 c_b18, &ab[*kd + 1 + (i__ + ib) * ab_dim1], & in spbtrf_() 288 &i3, &c_b18, &ab[*kd + 1 + i__ * ab_dim1], & in spbtrf_() 299 ab_dim1], &i__3, work, &c__33, &c_b18, & in spbtrf_() 308 c__33, &c_b18, &ab[*kd + 1 + (i__ + *kd) * in spbtrf_() 393 &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3, & in spbtrf_() 402 ib + 1 + i__ * ab_dim1], &i__3, &c_b18, &ab[( in spbtrf_() 426 &ib, &c_b18, &ab[i__ * ab_dim1 + 1], &i__3, in spbtrf_() 437 ab_dim1], &i__3, &c_b18, &ab[*kd + 1 - ib in spbtrf_() [all …]
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/ulpack/ |
H A D | ulpk02.c | 28 static real c_b18 = .13f; variable 89 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 100 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 110 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 120 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 130 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 140 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 151 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__()
|
H A D | ulpk02n.c | 29 static real c_b18 = .13f; variable 90 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 101 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 111 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 121 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 131 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 141 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__() 152 sgsvpt_(&c_b18, &c_b19, &c_b20, &c_b21); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/map3d/ |
H A D | map3d5.c | 27 static real c_b18 = 0.f; variable 111 scspln_(&c__1, &c__2, &c_b18); in MAIN__() 117 uxsttl_("B", "X-axis", &c_b18, (ftnlen)1, (ftnlen)6); in MAIN__() 120 uysttl_("L", "Y-axis", &c_b18, (ftnlen)1, (ftnlen)6); in MAIN__() 141 sgswnd_(&c_b7, &c_b8, &c_b18, &c_b68); in MAIN__() 142 sgsvpt_(&c_b11, &c_b12, &c_b18, &c_b72); in MAIN__() 149 uysttl_("L", "Z-axis", &c_b18, (ftnlen)1, (ftnlen)6); in MAIN__()
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/arpack/ |
H A D | dsaitr.c | 42 static doublereal c_b18 = 1.; variable 628 dlascl_("General", &i__, &i__, rnorm, &c_b18, n, &c__1, &v[j * v_dim1 in dsaitr_() 631 dlascl_("General", &i__, &i__, rnorm, &c_b18, n, &c__1, &workd[ipj], in dsaitr_() 796 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ipj], &c__1, & in dsaitr_() 801 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ivj], &c__1, & in dsaitr_() 812 dgemv_("N", n, &j, &c_b51, &v[v_offset], ldv, &workd[irj], &c__1, &c_b18, in dsaitr_() 952 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b43, in dsaitr_() 964 dgemv_("N", n, &j, &c_b51, &v[v_offset], ldv, &workd[irj], &c__1, &c_b18, in dsaitr_()
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/arpack/ |
H A D | dsaitr.c | 42 static doublereal c_b18 = 1.; variable 628 dlascl_("General", &i__, &i__, rnorm, &c_b18, n, &c__1, &v[j * v_dim1 in dsaitr_() 631 dlascl_("General", &i__, &i__, rnorm, &c_b18, n, &c__1, &workd[ipj], in dsaitr_() 796 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ipj], &c__1, & in dsaitr_() 801 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ivj], &c__1, & in dsaitr_() 812 dgemv_("N", n, &j, &c_b51, &v[v_offset], ldv, &workd[irj], &c__1, &c_b18, in dsaitr_() 952 dgemv_("T", n, &j, &c_b18, &v[v_offset], ldv, &workd[ipj], &c__1, &c_b43, in dsaitr_() 964 dgemv_("N", n, &j, &c_b51, &v[v_offset], ldv, &workd[irj], &c__1, &c_b18, in dsaitr_()
|
/dports/science/cdcl/dcl-5.4.8-C/src/math1/gt2dlib/ |
H A D | g2ibl2.c | 18 static real c_b18 = 1.f; variable 91 if (lrge1_(&p1, &c_b2) && lrle1_(&p1, &c_b18)) { in g2ibl2_() 93 } else if (lrge1_(&p2, &c_b2) && lrle1_(&p2, &c_b18)) { in g2ibl2_() 133 if (lrge1_(&p1, &c_b2) && lrle1_(&p1, &c_b18)) { in g2ibl2_() 135 } else if (lrge1_(&p2, &c_b2) && lrle1_(&p2, &c_b18)) { in g2ibl2_() 183 if (lrge1_(&p1, &c_b2) && lrle1_(&p1, &c_b18)) { in g2ibl2_() 185 } else if (lrge1_(&p2, &c_b2) && lrle1_(&p2, &c_b18)) { in g2ibl2_()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/layout/ |
H A D | lay2.c | 23 static real c_b18 = -1.f; variable 62 slsttl_("PROGRAM.NAME", "B", &c_b18, &c_b19, &c_b20, &c__2, (ftnlen)12, ( in MAIN__() 66 slsttl_("page:#PAGE", "B", &c_b19, &c_b18, &c_b20, &c__4, (ftnlen)10, ( in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/rakuraku/uxyz/ |
H A D | uxyz6.c | 27 static real c_b18 = 60.f; variable 75 uxaxdv_("B", &c_b17, &c_b18, (ftnlen)1); in MAIN__() 76 uxaxdv_("T", &c_b17, &c_b18, (ftnlen)1); in MAIN__()
|
/dports/science/cdcl/dcl-5.4.8-C/demo/grph2/udegpk/ |
H A D | u2df06.c | 26 static real c_b18 = .8f; variable 92 grsvpt_(&c_b17, &c_b18, &c_b17, &c_b18); in MAIN__()
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
H A D | strtri.cpp | 18 float c_b18 = 1.; in F77_FUNC() local 67 c_b18, &a[a_offset], lda, &a[j * a_dim1 + 1], lda); in F77_FUNC() 86 &c_b18, &a[j + jb + (j + jb) * a_dim1], lda, &a[j in F77_FUNC()
|