Home
last modified time | relevance | path

Searched refs:rwork (Results 1 – 25 of 2600) sorted by relevance

12345678910>>...104

/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/
H A Ddcgdrv.c701 &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in dcgdrv_()
708 &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in dcgdrv_()
709 rwork[*n * 3 + 1], &rwork[*n * 3 + kmax + 2], &rwork[*n * 3 + ( in dcgdrv_()
715 1], &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in dcgdrv_()
716 rwork[*n * 3 + 1], &rwork[(*n << 2) + 1], &rwork[*n * 5 + 1], & in dcgdrv_()
724 1], &rwork[(*n << 1) + 1], &rwork[(*n << 1) + kmax + 2], &rwork[(* in dcgdrv_()
730 1], &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in dcgdrv_()
745 + 1], &rwork[(*n << 1) + 1], &rwork[*n * 3 + 1], &rwork[*n * 3 + in dcgdrv_()
752 + 1], &rwork[(*n << 1) + 1], &rwork[*n * 3 + 1], &rwork[*n * 3 + in dcgdrv_()
760 1], &rwork[*n * 5 + 1], &rwork[*n * 6 + 1], &rwork[*n * 6 + kmax in dcgdrv_()
[all …]
H A Dscgdrv.c690 &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in scgdrv_()
697 &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in scgdrv_()
698 rwork[*n * 3 + 1], &rwork[*n * 3 + kmax + 2], &rwork[*n * 3 + ( in scgdrv_()
704 1], &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in scgdrv_()
705 rwork[*n * 3 + 1], &rwork[(*n << 2) + 1], &rwork[*n * 5 + 1], & in scgdrv_()
713 1], &rwork[(*n << 1) + 1], &rwork[(*n << 1) + kmax + 2], &rwork[(* in scgdrv_()
719 1], &iwork[1], &rwork[1], &rwork[*n + 1], &rwork[(*n << 1) + 1], & in scgdrv_()
734 + 1], &rwork[(*n << 1) + 1], &rwork[*n * 3 + 1], &rwork[*n * 3 + in scgdrv_()
741 + 1], &rwork[(*n << 1) + 1], &rwork[*n * 3 + 1], &rwork[*n * 3 + in scgdrv_()
749 1], &rwork[*n * 5 + 1], &rwork[*n * 6 + 1], &rwork[*n * 6 + kmax in scgdrv_()
[all …]
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Dzbbcsd.c421 --rwork; in zbbcsd_()
736 rwork[iu2cs + imin - 1] = -rwork[iu2cs + imin - 1]; in zbbcsd_()
737 rwork[iu2sn + imin - 1] = -rwork[iu2sn + imin - 1]; in zbbcsd_()
746 temp = rwork[iu1cs + imin - 1] * b12d[imin] + rwork[iu1sn + imin - 1] * b12e[imin]; in zbbcsd_()
759 temp = rwork[iu2cs + imin - 1] * b22d[imin] + rwork[iu2sn + imin - 1] * b22e[imin]; in zbbcsd_()
839 rwork[iv1tcs + i__ - 1] = -rwork[iv1tcs + i__ - 1]; in zbbcsd_()
840 rwork[iv1tsn + i__ - 1] = -rwork[iv1tsn + i__ - 1]; in zbbcsd_()
930 dlartgp_(&x2, &x1, &rwork[iu1sn + i__ - 1], &rwork[iu1cs + i__ - 1], &r__); in zbbcsd_()
950 dlartgp_(&y2, &y1, &rwork[iu2sn + i__ - 1], &rwork[iu2cs + i__ - 1], &r__); in zbbcsd_()
968 rwork[iu2cs + i__ - 1] = -rwork[iu2cs + i__ - 1]; in zbbcsd_()
[all …]
H A Dcbbcsd.c424 --rwork; in cbbcsd_()
740 rwork[iu2cs + imin - 1] = -rwork[iu2cs + imin - 1]; in cbbcsd_()
741 rwork[iu2sn + imin - 1] = -rwork[iu2sn + imin - 1]; in cbbcsd_()
750 temp = rwork[iu1cs + imin - 1] * b12d[imin] + rwork[iu1sn + imin - 1] * b12e[imin]; in cbbcsd_()
763 temp = rwork[iu2cs + imin - 1] * b22d[imin] + rwork[iu2sn + imin - 1] * b22e[imin]; in cbbcsd_()
843 rwork[iv1tcs + i__ - 1] = -rwork[iv1tcs + i__ - 1]; in cbbcsd_()
844 rwork[iv1tsn + i__ - 1] = -rwork[iv1tsn + i__ - 1]; in cbbcsd_()
934 slartgp_(&x2, &x1, &rwork[iu1sn + i__ - 1], &rwork[iu1cs + i__ - 1], &r__); in cbbcsd_()
954 slartgp_(&y2, &y1, &rwork[iu2sn + i__ - 1], &rwork[iu2cs + i__ - 1], &r__); in cbbcsd_()
972 rwork[iu2cs + i__ - 1] = -rwork[iu2cs + i__ - 1]; in cbbcsd_()
[all …]
H A Dclalsd.c258 --rwork; in clalsd_()
376 …"U", &c__0, n, n, n, &c__0, &d__[1], &e[1], &rwork[irwvt], n, &rwork[irwu], n, &rwork[irwwrk], &c_… in clalsd_()
402 … sgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwu], n, &rwork[irwb], n, &c_b35, &rwork[irwrb], n); in clalsd_()
420 … sgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwu], n, &rwork[irwb], n, &c_b35, &rwork[irwib], n); in clalsd_()
486 … sgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwvt], n, &rwork[irwb], n, &c_b35, &rwork[irwrb], n); in clalsd_()
504 … sgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwvt], n, &rwork[irwb], n, &c_b35, &rwork[irwib], n); in clalsd_()
622 …size, &nsize, &c__0, &d__[st], & e[st], &rwork[vt + st1], n, &rwork[u + st1], n, & rwork[nrwork], … in clalsd_()
697rwork[u + st1], n, &rwork[vt + st1], &iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1], &rwo… in clalsd_()
703rwork[u + st1], n, &rwork[vt + st1], & iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1] , &r… in clalsd_()
776 …sgemm_("T", "N", &nsize, nrhs, &nsize, &c_b10, &rwork[vt + st1], n, &rwork[irwb], &nsize, &c_b35, … in clalsd_()
[all …]
H A Dzlalsd.c254 --rwork; in zlalsd_()
372 …"U", &c__0, n, n, n, &c__0, &d__[1], &e[1], &rwork[irwvt], n, &rwork[irwu], n, &rwork[irwwrk], &c_… in zlalsd_()
398 … dgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwu], n, &rwork[irwb], n, &c_b35, &rwork[irwrb], n); in zlalsd_()
416 … dgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwu], n, &rwork[irwb], n, &c_b35, &rwork[irwib], n); in zlalsd_()
482 … dgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwvt], n, &rwork[irwb], n, &c_b35, &rwork[irwrb], n); in zlalsd_()
500 … dgemm_("T", "N", n, nrhs, n, &c_b10, &rwork[irwvt], n, &rwork[irwb], n, &c_b35, &rwork[irwib], n); in zlalsd_()
618 …size, &nsize, &c__0, &d__[st], & e[st], &rwork[vt + st1], n, &rwork[u + st1], n, & rwork[nrwork], … in zlalsd_()
693rwork[u + st1], n, &rwork[vt + st1], &iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1], &rwo… in zlalsd_()
699rwork[u + st1], n, &rwork[vt + st1], & iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1] , &r… in zlalsd_()
772 …dgemm_("T", "N", &nsize, nrhs, &nsize, &c_b10, &rwork[vt + st1], n, &rwork[irwb], &nsize, &c_b35, … in zlalsd_()
[all …]
/dports/math/math77/MATH77/
H A Dddasls.f313 CALL ddasf (t, y, yprime, rwork(iroff+1), c, ldc, cj, ires, rwork,
447 rwork(irow+iroff)=rwork(i+iroff)
474 rwork(j+iroff)=rwork(i+iroff)
497 CALL dcopy (neq, rwork(iroff+1), 1, rwork(2*neq+iroff+1), 1)
547 CALL dcopy (neq, rwork(iroff+1), 1, rwork(neq+iroff+1), 1)
656 rwork(irow+iroff)=rwork(i+iroff)
679 CALL dcopy (irank, rwork(neq+iroff+1), 1, rwork(iroff+1), 1)
706 rwork(j+iroff)=rwork(i+iroff)
788 rwork(neq+iroff+2*j-1)=rwork(2*neq+iroff+j)
790 rwork(neq+iroff+2*j)=rwork(iroff+j)
[all …]
H A Dsdasls.f313 CALL sdasf (t, y, yprime, rwork(iroff+1), c, ldc, cj, ires, rwork,
447 rwork(irow+iroff)=rwork(i+iroff)
474 rwork(j+iroff)=rwork(i+iroff)
497 CALL scopy (neq, rwork(iroff+1), 1, rwork(2*neq+iroff+1), 1)
547 CALL scopy (neq, rwork(iroff+1), 1, rwork(neq+iroff+1), 1)
656 rwork(irow+iroff)=rwork(i+iroff)
679 CALL scopy (irank, rwork(neq+iroff+1), 1, rwork(iroff+1), 1)
706 rwork(j+iroff)=rwork(i+iroff)
788 rwork(neq+iroff+2*j-1)=rwork(2*neq+iroff+j)
790 rwork(neq+iroff+2*j)=rwork(iroff+j)
[all …]
H A Dddaslx.f1124 & rwork(lcj), ires, rwork, iwork)
1291 & rwork(iwork(lwt)), idid, rwork(iwork(lphi)), rwork(ldelta),
1292 & rwork(iwork(le)), rwork(iwork(lwm)), iwork, rwork)
1348 & rwork(iwork(lphi)), rwork(lpsi))
1356 & rwork(iwork(lphi)),rwork(lpsi))
1397 & rwork(iwork(lphi)),rwork(lpsi))
1446 & rwork(iwork(lwt)),rwork, iwork)
1454 r = ddasnm(neq,rwork(iwork(lphi)),rwork(iwork(lwt)),rwork,iwork) *
1482 & rwork(iwork(lwt)), idid, rwork(iwork(lphi)), rwork(ldelta),
1483 & rwork(iwork(le)), rwork(iwork(lwm)), iwork, rwork,
[all …]
H A Dsdaslx.f1124 & rwork(lcj), ires, rwork, iwork)
1291 & rwork(iwork(lwt)), idid, rwork(iwork(lphi)), rwork(ldelta),
1292 & rwork(iwork(le)), rwork(iwork(lwm)), iwork, rwork)
1348 & rwork(iwork(lphi)), rwork(lpsi))
1356 & rwork(iwork(lphi)),rwork(lpsi))
1397 & rwork(iwork(lphi)),rwork(lpsi))
1446 & rwork(iwork(lwt)),rwork, iwork)
1454 r = sdasnm(neq,rwork(iwork(lphi)),rwork(iwork(lwt)),rwork,iwork) *
1482 & rwork(iwork(lwt)), idid, rwork(iwork(lphi)), rwork(ldelta),
1483 & rwork(iwork(le)), rwork(iwork(lwm)), iwork, rwork,
[all …]
H A Dddasj.f121 & info, rwork, iwork, ires, rwork, rwork)
151 & info, rwork, iwork, ires, rwork, rwork)
168 & info, rwork, iwork, ires, rwork, rwork)
188 & info, rwork, iwork, ires, rwork, rwork)
210 & info, rwork, iwork, ires, rwork, rwork)
217 & rwork, iwork)
247 & info, rwork, iwork, ires, rwork, rwork)
270 & info, rwork, iwork, ires, rwork, rwork)
290 & info, rwork, iwork, ires, rwork, rwork)
315 & info, rwork, iwork, ires, rwork, rwork)
[all …]
H A Dsdasj.f121 & info, rwork, iwork, ires, rwork, rwork)
151 & info, rwork, iwork, ires, rwork, rwork)
168 & info, rwork, iwork, ires, rwork, rwork)
188 & info, rwork, iwork, ires, rwork, rwork)
210 & info, rwork, iwork, ires, rwork, rwork)
217 & rwork, iwork)
247 & info, rwork, iwork, ires, rwork, rwork)
270 & info, rwork, iwork, ires, rwork, rwork)
290 & info, rwork, iwork, ires, rwork, rwork)
315 & info, rwork, iwork, ires, rwork, rwork)
[all …]
H A Dddastp.f183 rwork(lcj) = rwork(lcjold)
251 if ((rwork(lcj)/rwork(lcjold).lt.temp1) .or.
302 & info, rwork, iwork, ires, rwork, rwork)
316 & info, rwork, iwork, ires, rwork, rwork)
345 rwork(lcjold) = rwork(lcj)
367 temp1 = 2.0d0/(1.0d0+rwork(lcj)/rwork(lcjold))
383 & info, rwork, iwork, ires, wt, rwork)
419 & info, rwork, iwork, ires, rwork, rwork)
431 & info, rwork, iwork, ires, rwork, rwork)
461 & info, rwork, iwork, ires, rwork, rwork)
[all …]
H A Dsdastp.f183 rwork(lcj) = rwork(lcjold)
251 if ((rwork(lcj)/rwork(lcjold).lt.temp1) .or.
302 & info, rwork, iwork, ires, rwork, rwork)
316 & info, rwork, iwork, ires, rwork, rwork)
345 rwork(lcjold) = rwork(lcj)
367 temp1 = 2.0e0/(1.0e0+rwork(lcj)/rwork(lcjold))
383 & info, rwork, iwork, ires, wt, rwork)
419 & info, rwork, iwork, ires, rwork, rwork)
431 & info, rwork, iwork, ires, rwork, rwork)
461 & info, rwork, iwork, ires, rwork, rwork)
[all …]
H A Dddas1.f68 & delta(*), e(*), wm(*), rwork(*) local
149 20 rwork(lcj) = 1.0d0/h
166 & rwork, iwork, ires,rwork, rwork)
169 & rwork, iwork)
179 & info, rwork, iwork, ires, rwork, rwork)
231 & iwork, rwork)
294 err = ddasnm(neq,e,wt,rwork,iwork)
348 & info, rwork, iwork, ires, rwork, rwork)
350 & ires, rwork, iwork)
359 & info, rwork, iwork, ires, rwork, rwork)
[all …]
H A Dsdas1.f68 & delta(*), e(*), wm(*), rwork(*) local
149 20 rwork(lcj) = 1.0e0/h
166 & rwork, iwork, ires,rwork, rwork)
169 & rwork, iwork)
179 & info, rwork, iwork, ires, rwork, rwork)
231 & iwork, rwork)
294 err = sdasnm(neq,e,wt,rwork,iwork)
348 & info, rwork, iwork, ires, rwork, rwork)
350 & ires, rwork, iwork)
359 & info, rwork, iwork, ires, rwork, rwork)
[all …]
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/
H A Dzlalsd.c216 --rwork; in zlalsd_()
323 &rwork[irwu], n, &rwork[irwwrk], &c__1, &rwork[irwwrk], info, in zlalsd_()
371 z__1.r = rwork[i__4], z__1.i = rwork[i__5]; in zlalsd_()
437 z__1.r = rwork[i__4], z__1.i = rwork[i__5]; in zlalsd_()
549 e[st], &rwork[vt + st1], n, &rwork[u + st1], n, & in zlalsd_()
600 z__1.r = rwork[i__5], z__1.i = rwork[i__6]; in zlalsd_()
615 &rwork[difl + st1], &rwork[difr + st1], &rwork[z__ + in zlalsd_()
627 , &rwork[z__ + st1], &rwork[poles + st1], &iwork[ in zlalsd_()
629 st1], &rwork[givnum + st1], &rwork[c__ + st1], &rwork[ in zlalsd_()
726 z__1.r = rwork[i__5], z__1.i = rwork[i__6]; in zlalsd_()
[all …]
H A Dclalsd.c213 --rwork; in clalsd_()
320 &rwork[irwu], n, &rwork[irwwrk], &c__1, &rwork[irwwrk], info, in clalsd_()
368 q__1.r = rwork[i__4], q__1.i = rwork[i__5]; in clalsd_()
434 q__1.r = rwork[i__4], q__1.i = rwork[i__5]; in clalsd_()
545 e[st], &rwork[vt + st1], n, &rwork[u + st1], n, & in clalsd_()
596 q__1.r = rwork[i__5], q__1.i = rwork[i__6]; in clalsd_()
611 &rwork[difl + st1], &rwork[difr + st1], &rwork[z__ + in clalsd_()
623 , &rwork[z__ + st1], &rwork[poles + st1], &iwork[ in clalsd_()
625 st1], &rwork[givnum + st1], &rwork[c__ + st1], &rwork[ in clalsd_()
722 q__1.r = rwork[i__5], q__1.i = rwork[i__6]; in clalsd_()
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Drkqc.f38 double precision rwork(*) local
52 call dcopy(n,y,1,rwork(lysav),1)
53 call dcopy(n,dydx,1,rwork(ldysav),1)
56 call rk4(rwork(lysav),rwork(ldysav),n,xsav,hh,rwork(lytemp),
57 $ derivs,rwork(lwork))
60 call derivs(n,x,rwork(lytemp),dydx)
62 call rk4(rwork(lytemp),dydx,n,x,hh,y,derivs,rwork(lwork))
68 call rk4(rwork(lysav),rwork(ldysav),n,xsav,h,rwork(lytemp),
69 $ derivs,rwork(lwork))
74 rwork(lytemp+i)=y(i+1)-rwork(lytemp+i)
[all …]
H A Dlsodi.f1352 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1355 135 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1389 sum = vnorm (n, rwork(lyd0), rwork(lewt))
1400 190 rwork(i+lyd0-1) = h0*rwork(i+lyd0-1)
1448 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1451 260 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1452 270 tolsf = uround*vnorm (n, rwork(lyh), rwork(lewt))
1478 call stodi (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
1479 1 ydoti, rwork(lsavr), rwork(lacor), rwork(lwm),
1626 size = abs(rwork(i+lacor-1)*rwork(i+lewt-1))
[all …]
H A Dlsode.f1097 80 rwork(i+lsavf-1) = rwork(i+lwm-1)
1145 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1148 120 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1182 sum = vnorm (n, rwork(lf0), rwork(lewt))
1193 190 rwork(i+lf0-1) = h0*rwork(i+lf0-1)
1241 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1244 260 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1245 270 tolsf = uround*vnorm (n, rwork(lyh), rwork(lewt))
1269 call stode (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
1270 1 rwork(lsavf), rwork(lacor), rwork(lwm), iwork(liwm),
[all …]
H A Dlsodar.f1377 120 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1)
1414 sum = vmnorm (n, rwork(lf0), rwork(lewt))
1425 190 rwork(i+lf0-1) = h0*rwork(i+lf0-1)
1432 1 rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
1451 1 rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
1515 260 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1)
1516 270 tolsf = uround*vmnorm (n, rwork(lyh), rwork(lewt))
1540 call stoda (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
1541 1 rwork(lsavf), rwork(lacor), rwork(lwm), iwork(liwm),
1579 1 rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
[all …]
H A Dodeint.f22 $ derivs,rkqc,rwork) argument
30 double precision rwork(*) local
43 h=sign(rwork(lh),x2-x1)
47 call dcopy(nvar,ystart,1,rwork(ly),1)
50 call derivs(nvar,x,rwork(ly),rwork(ldydx))
53 rwork(lyscal+i)=abs(rwork(ly+i))+abs(h*rwork(ldydx+i))+tiny
57 call rkqc(rwork(ly),rwork(ldydx),nvar,x,h,rtol,
58 $ rwork(lyscal),hdid,hnext,derivs,rwork(lwork))
67 rwork(lh)=hnext
68 call dcopy(nvar,rwork(ly),1,ystart,1)
H A Dlsoda.f1086 h0 = rwork(5)
1231 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1234 120 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1271 sum = vmnorm (n, rwork(lf0), rwork(lewt))
1282 190 rwork(i+lf0-1) = h0*rwork(i+lf0-1)
1338 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1341 260 rwork(i+lewt-1) = 1.0d+0/rwork(i+lewt-1)
1342 270 tolsf = uround*vmnorm (n, rwork(lyh), rwork(lewt))
1366 call stoda (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
1367 1 rwork(lsavf), rwork(lacor), rwork(lwm), iwork(liwm),
[all …]
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/odepack/
H A Dlsoda.f1075 h0 = rwork(5)
1223 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1226 120 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1)
1263 sum = vmnorm (n, rwork(lf0), rwork(lewt))
1274 190 rwork(i+lf0-1) = h0*rwork(i+lf0-1)
1327 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1330 260 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1)
1331 270 tolsf = uround*vmnorm (n, rwork(lyh), rwork(lewt))
1355 call stoda (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
1356 1 rwork(lsavf), rwork(lacor), rwork(lwm), iwork(liwm),
[all …]

12345678910>>...104