| /dports/www/carbonapi/carbonapi-0.14.1/vendor/gonum.org/v1/gonum/lapack/gonum/ |
| H A D | dlatbs.go | 75 jlen := min(j, kd)
76 if jlen > 0 {
77 cnorm[j] = bi.Dasum(jlen, ab[(j-jlen)*ldab+jlen:], kld)
85 if jlen > 0 {
321 if jlen > 0 {
322 bi.Daxpy(jlen, -x[j]*tscal, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
331 if jlen > 0 {
372 if jlen > 0 {
373 sumj = bi.Ddot(jlen, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
377 if jlen > 0 {
[all …]
|
| H A D | dlaqr5.go | 493 jlen := min(nh, jbot-jcol+1)
494 bi.Dgemm(blas.Trans, blas.NoTrans, nu, jlen, nu,
503 jlen := min(nv, max(ktop, incol)-jrow)
514 jlen := min(nv, ihiz-jrow+1)
541 jlen := min(nh, jbot-jcol+1)
548 impl.Dlaset(blas.All, kzs, jlen, 0, 0, wh, ldwh)
553 bi.Dgemm(blas.Trans, blas.NoTrans, i2, jlen, j2,
575 jlen := min(nv, max(incol, ktop)-jrow)
582 impl.Dlaset(blas.All, jlen, kzs, 0, 0, wv, ldwv)
612 jlen := min(nv, ihiz-jrow+1)
[all …]
|
| /dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/gonum/ |
| H A D | dlatbs.go | 75 jlen := min(j, kd)
76 if jlen > 0 {
77 cnorm[j] = bi.Dasum(jlen, ab[(j-jlen)*ldab+jlen:], kld)
85 if jlen > 0 {
321 if jlen > 0 {
322 bi.Daxpy(jlen, -x[j]*tscal, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
331 if jlen > 0 {
372 if jlen > 0 {
373 sumj = bi.Ddot(jlen, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
377 if jlen > 0 {
[all …]
|
| H A D | dlaqr5.go | 493 jlen := min(nh, jbot-jcol+1)
494 bi.Dgemm(blas.Trans, blas.NoTrans, nu, jlen, nu,
503 jlen := min(nv, max(ktop, incol)-jrow)
514 jlen := min(nv, ihiz-jrow+1)
541 jlen := min(nh, jbot-jcol+1)
548 impl.Dlaset(blas.All, kzs, jlen, 0, 0, wh, ldwh)
553 bi.Dgemm(blas.Trans, blas.NoTrans, i2, jlen, j2,
575 jlen := min(nv, max(incol, ktop)-jrow)
582 impl.Dlaset(blas.All, jlen, kzs, 0, 0, wv, ldwv)
612 jlen := min(nv, ihiz-jrow+1)
[all …]
|
| /dports/sysutils/kubectl/kubernetes-1.22.2/vendor/gonum.org/v1/gonum/lapack/gonum/ |
| H A D | dlatbs.go | 75 jlen := min(j, kd)
76 if jlen > 0 {
77 cnorm[j] = bi.Dasum(jlen, ab[(j-jlen)*ldab+jlen:], kld)
85 if jlen > 0 {
321 if jlen > 0 {
322 bi.Daxpy(jlen, -x[j]*tscal, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
331 if jlen > 0 {
372 if jlen > 0 {
373 sumj = bi.Ddot(jlen, ab[(j-jlen)*ldab+jlen:], kld, x[j-jlen:], 1)
377 if jlen > 0 {
[all …]
|
| H A D | dlaqr5.go | 493 jlen := min(nh, jbot-jcol+1)
494 bi.Dgemm(blas.Trans, blas.NoTrans, nu, jlen, nu,
503 jlen := min(nv, max(ktop, incol)-jrow)
514 jlen := min(nv, ihiz-jrow+1)
541 jlen := min(nh, jbot-jcol+1)
548 impl.Dlaset(blas.All, kzs, jlen, 0, 0, wh, ldwh)
553 bi.Dgemm(blas.Trans, blas.NoTrans, i2, jlen, j2,
575 jlen := min(nv, max(incol, ktop)-jrow)
582 impl.Dlaset(blas.All, jlen, kzs, 0, 0, wv, ldwv)
612 jlen := min(nv, ihiz-jrow+1)
[all …]
|
| /dports/japanese/sj3-lib/sj3-2.0.1.20/kanakan/ |
| H A D | cvtdict.c | 49 Int jlen; in cvtdict() local
65 jlen = jrec -> jlen; in cvtdict()
85 jlen -= sttlen; in cvtdict()
100 jlen -= i; in cvtdict()
106 jlen--; in cvtdict()
116 jlen -= stblen; in cvtdict()
131 yptr += jlen * 2; in cvtdict()
134 while (jlen-- > 0) { in cvtdict()
151 i = cllen - (jrec -> jlen); in cvtdict()
191 Int jlen; in cvtwakachi() local
[all …]
|
| H A D | wakachi.c | 88 while ((Int)jrec -> jlen < maxlen) { in wakachi()
96 next = cnvstart + jrec->jlen + gobilen; in wakachi()
105 && (jrec -> jlen)) { in wakachi()
116 (jrec -> jlen)++; in wakachi()
120 if ((maxclptr) && (Chrtbl[*(cnvstart + jrec -> jlen)] & FZKTOP)) in wakachi()
123 if (jrec -> jlen) { in wakachi()
124 if (clrec = argclrec((Int)jrec -> jlen)) { in wakachi()
|
| /dports/biology/molden/molden5.8/ |
| H A D | runjob.f | 28 jlen = linlen(jname)
220 nstr = jlen+14
472 jlen = linlen(jname)
494 jlen = linlen(jname)
513 jlen = linlen(jname)
824 jlent = jlen
828 jlen = jlen + 1 + 3
832 jlen = jlen + 1 + 3
836 jlen = jlen + 1 + 4
840 jlen = jlen + 1 + 5
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slatbs.c | 247 integer jinc, jlen; in slatbs_() local
361 jlen = min(i__2,i__3); in slatbs_()
362 cnorm[j] = sasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & c__1); in slatbs_()
377 jlen = min(i__2,i__3); in slatbs_()
378 if (jlen > 0) in slatbs_()
714 … saxpy_(&jlen, &r__1, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in slatbs_()
729 if (jlen > 0) in slatbs_()
795 … sumj = sdot_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], &c__1, &x[j - jlen], &c__1); in slatbs_()
818 i__3 = jlen; in slatbs_()
823 … sumj += ab[*kd + i__ - jlen + j * ab_dim1] * uscal * x[j - jlen - 1 + i__]; in slatbs_()
[all …]
|
| H A D | dlatbs.c | 247 integer jinc, jlen; in dlatbs_() local
360 jlen = min(i__2,i__3); in dlatbs_()
361 cnorm[j] = dasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & c__1); in dlatbs_()
376 jlen = min(i__2,i__3); in dlatbs_()
377 if (jlen > 0) in dlatbs_()
713 … daxpy_(&jlen, &d__1, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in dlatbs_()
728 if (jlen > 0) in dlatbs_()
794 … sumj = ddot_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], &c__1, &x[j - jlen], &c__1); in dlatbs_()
817 i__3 = jlen; in dlatbs_()
822 … sumj += ab[*kd + i__ - jlen + j * ab_dim1] * uscal * x[j - jlen - 1 + i__]; in dlatbs_()
[all …]
|
| H A D | clatbs.c | 252 integer jinc, jlen; in clatbs_() local
385 cnorm[j] = scasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & c__1); in clatbs_()
401 if (jlen > 0) in clatbs_()
796 … caxpy_(&jlen, &q__1, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in clatbs_()
812 if (jlen > 0) in clatbs_()
893 … cdotu_f2c_(&q__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in clatbs_()
920 i__3 = jlen; in clatbs_()
944 i__3 = jlen; in clatbs_()
1137 … cdotc_f2c_(&q__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in clatbs_()
1164 i__3 = jlen; in clatbs_()
[all …]
|
| H A D | zlatbs.c | 252 integer jinc, jlen; in zlatbs_() local
383 cnorm[j] = dzasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & c__1); in zlatbs_()
399 if (jlen > 0) in zlatbs_()
794 … zaxpy_(&jlen, &z__1, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in zlatbs_()
810 if (jlen > 0) in zlatbs_()
891 … zdotu_f2c_(&z__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in zlatbs_()
918 i__3 = jlen; in zlatbs_()
942 i__3 = jlen; in zlatbs_()
1135 … zdotc_f2c_(&z__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] , &c__1, &x[j - jlen], &c__1); in zlatbs_()
1162 i__3 = jlen; in zlatbs_()
[all …]
|
| H A D | dlaqr5.c | 266 integer mend, jcol, jlen, jbot, mbot; in dlaqr5_() local
861 jlen = min(i__5,i__7); in dlaqr5_()
863 … dlacpy_("ALL", &nu, &jlen, &wh[wh_offset], ldwh, &h__[ incol + k1 + jcol * h_dim1], ldh); in dlaqr5_()
876 jlen = min(i__5,i__7); in dlaqr5_()
893 jlen = min(i__5,i__7); in dlaqr5_()
924 jlen = min(i__5,i__7); in dlaqr5_()
929 dlaset_("ALL", &kzs, &jlen, &c_b7, &c_b7, &wh[wh_offset], ldwh); in dlaqr5_()
955 jlen = min(i__5,i__7); in dlaqr5_()
960 dlaset_("ALL", &jlen, &kzs, &c_b7, &c_b7, &wv[wv_offset], ldwv); in dlaqr5_()
989 jlen = min(i__5,i__7); in dlaqr5_()
[all …]
|
| H A D | slaqr5.c | 266 integer mend, jcol, jlen, jbot, mbot; in slaqr5_() local
863 jlen = min(i__5,i__7); in slaqr5_()
865 … slacpy_("ALL", &nu, &jlen, &wh[wh_offset], ldwh, &h__[ incol + k1 + jcol * h_dim1], ldh); in slaqr5_()
878 jlen = min(i__5,i__7); in slaqr5_()
895 jlen = min(i__5,i__7); in slaqr5_()
926 jlen = min(i__5,i__7); in slaqr5_()
931 slaset_("ALL", &kzs, &jlen, &c_b7, &c_b7, &wh[wh_offset], ldwh); in slaqr5_()
957 jlen = min(i__5,i__7); in slaqr5_()
962 slaset_("ALL", &jlen, &kzs, &c_b7, &c_b7, &wv[wv_offset], ldwv); in slaqr5_()
991 jlen = min(i__5,i__7); in slaqr5_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | dlatbs.c | 25 static integer jinc, jlen; in dlatbs_() local
293 jlen = min(i__2,i__3); in dlatbs_()
294 cnorm[j] = dasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & in dlatbs_()
306 jlen = min(i__2,i__3); in dlatbs_()
307 if (jlen > 0) { in dlatbs_()
639 daxpy_(&jlen, &d__1, &ab[*kd + 1 - jlen + j * ab_dim1] in dlatbs_()
654 if (jlen > 0) { in dlatbs_()
717 sumj = ddot_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], in dlatbs_()
723 if (jlen > 0) { in dlatbs_()
736 i__3 = jlen; in dlatbs_()
[all …]
|
| H A D | slatbs.c | 25 static integer jinc, jlen; in slatbs_() local
292 jlen = min(i__2,i__3); in slatbs_()
293 cnorm[j] = sasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & in slatbs_()
305 jlen = min(i__2,i__3); in slatbs_()
306 if (jlen > 0) { in slatbs_()
638 saxpy_(&jlen, &r__1, &ab[*kd + 1 - jlen + j * ab_dim1] in slatbs_()
653 if (jlen > 0) { in slatbs_()
716 sumj = sdot_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], in slatbs_()
722 if (jlen > 0) { in slatbs_()
735 i__3 = jlen; in slatbs_()
[all …]
|
| H A D | clatbs.c | 314 cnorm[j] = scasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & in clatbs_()
327 if (jlen > 0) { in clatbs_()
711 caxpy_(&jlen, &q__1, &ab[*kd + 1 - jlen + j * ab_dim1] in clatbs_()
802 cdotu_(&q__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] in clatbs_()
809 if (jlen > 1) { in clatbs_()
823 i__3 = jlen; in clatbs_()
842 i__3 = jlen; in clatbs_()
1017 cdotc_(&q__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] in clatbs_()
1024 if (jlen > 1) { in clatbs_()
1038 i__3 = jlen; in clatbs_()
[all …]
|
| H A D | zlatbs.c | 317 cnorm[j] = dzasum_(&jlen, &ab[*kd + 1 - jlen + j * ab_dim1], & in zlatbs_()
330 if (jlen > 0) { in zlatbs_()
714 zaxpy_(&jlen, &z__1, &ab[*kd + 1 - jlen + j * ab_dim1] in zlatbs_()
805 zdotu_(&z__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] in zlatbs_()
812 if (jlen > 1) { in zlatbs_()
826 i__3 = jlen; in zlatbs_()
845 i__3 = jlen; in zlatbs_()
1020 zdotc_(&z__1, &jlen, &ab[*kd + 1 - jlen + j * ab_dim1] in zlatbs_()
1027 if (jlen > 1) { in zlatbs_()
1041 i__3 = jlen; in zlatbs_()
[all …]
|
| /dports/security/aws-iam-authenticator/aws-iam-authenticator-0.5.2/vendor/gonum.org/v1/gonum/lapack/gonum/ |
| H A D | dlaqr5.go | 493 jlen := min(nh, jbot-jcol+1)
494 bi.Dgemm(blas.Trans, blas.NoTrans, nu, jlen, nu,
503 jlen := min(nv, max(ktop, incol)-jrow)
514 jlen := min(nv, ihiz-jrow+1)
541 jlen := min(nh, jbot-jcol+1)
548 impl.Dlaset(blas.All, kzs, jlen, 0, 0, wh, ldwh)
553 bi.Dgemm(blas.Trans, blas.NoTrans, i2, jlen, j2,
575 jlen := min(nv, max(incol, ktop)-jrow)
582 impl.Dlaset(blas.All, jlen, kzs, 0, 0, wv, ldwv)
612 jlen := min(nv, ihiz-jrow+1)
[all …]
|
| /dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/gonum/ |
| H A D | dlaqr5.go | 493 jlen := min(nh, jbot-jcol+1)
494 bi.Dgemm(blas.Trans, blas.NoTrans, nu, jlen, nu,
503 jlen := min(nv, max(ktop, incol)-jrow)
514 jlen := min(nv, ihiz-jrow+1)
541 jlen := min(nh, jbot-jcol+1)
548 impl.Dlaset(blas.All, kzs, jlen, 0, 0, wh, ldwh)
553 bi.Dgemm(blas.Trans, blas.NoTrans, i2, jlen, j2,
575 jlen := min(nv, max(incol, ktop)-jrow)
582 impl.Dlaset(blas.All, jlen, kzs, 0, 0, wv, ldwv)
612 jlen := min(nv, ihiz-jrow+1)
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/moints/ |
| H A D | moints_aux2.F | 128 integer ilen, jlen, klen
197 jlen = jbfhi - jbflo + 1
240 integer ilen, jlen
296 do j=1,jlen
657 do j = 1, jlen
783 do j=1,jlen
813 do j=1,jlen
843 do j=1,jlen
874 do j=1,jlen
915 jlen = jhi - jlo + 1
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/moints/ |
| H A D | moints_aux2.F | 128 integer ilen, jlen, klen
197 jlen = jbfhi - jbflo + 1
240 integer ilen, jlen
296 do j=1,jlen
657 do j = 1, jlen
783 do j=1,jlen
813 do j=1,jlen
843 do j=1,jlen
874 do j=1,jlen
915 jlen = jhi - jlo + 1
[all …]
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dlaqr5.c | 302 integer mend, jcol, jlen, jbot, mbot; in igraphdlaqr5_() local
901 jlen = min(i__5,i__7); in igraphdlaqr5_()
918 jlen = min(i__5,i__7); in igraphdlaqr5_()
936 jlen = min(i__5,i__7); in igraphdlaqr5_()
972 jlen = min(i__5,i__7); in igraphdlaqr5_()
1028 jlen = min(i__5,i__7); in igraphdlaqr5_()
1087 jlen = min(i__5,i__7); in igraphdlaqr5_()
1098 igraphdlaset_("ALL", &jlen, &kzs, &c_b7, &c_b7, &wv[ in igraphdlaqr5_()
1119 igraphdtrmm_("R", "L", "N", "N", &jlen, &i__5, &c_b8, &u[( in igraphdlaqr5_()
1127 igraphdgemm_("N", "N", &jlen, &i__5, &i__7, &c_b8, &z__[ in igraphdlaqr5_()
[all …]
|
| /dports/graphics/xli/xli-2006-11-10/ |
| H A D | xlito.c | 27 static char *find_text(int file, char *key, char **junk, int *jlen, int show,
49 int jlen; in main() local
98 if ((text = find_text(file,key,&junk,&jlen, 1, 0)) != NULL) in main()
113 if ((text = find_text(file,key,&junk,&jlen, 1, 0)) != NULL) in main()
137 if ((text = find_text(file,key,&junk,&jlen, 1, 0)) != NULL) in main()
163 if ((text = find_text(file,key,&junk,&jlen, 0, 1)) != NULL) in main()
201 if (!find_text(file,key,&junk,&jlen,0, 0)) in main()
219 || write(file, junk,jlen) != jlen) in main()
285 *jlen = count + (buf1 - pp) - 1; in find_text()
343 *jlen = 0; in find_text()
[all …]
|