/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/ |
H A D | dcgdrv.c | 701 &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 D | scgdrv.c | 690 &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 D | zbbcsd.c | 421 --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 D | cbbcsd.c | 424 --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 D | clalsd.c | 258 --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_() 697 …rwork[u + st1], n, &rwork[vt + st1], &iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1], &rwo… in clalsd_() 703 …rwork[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 D | zlalsd.c | 254 --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_() 693 …rwork[u + st1], n, &rwork[vt + st1], &iwork[k + st1], &rwork[difl + st1], &rwork[difr + st1], &rwo… in zlalsd_() 699 …rwork[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 D | ddasls.f | 313 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 D | sdasls.f | 313 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 D | ddaslx.f | 1124 & 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 D | sdaslx.f | 1124 & 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 D | ddasj.f | 121 & 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 D | sdasj.f | 121 & 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 D | ddastp.f | 183 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 D | sdastp.f | 183 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 D | ddas1.f | 68 & 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 D | sdas1.f | 68 & 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 D | zlalsd.c | 216 --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 D | clalsd.c | 213 --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 D | rkqc.f | 38 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 D | lsodi.f | 1352 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 D | lsode.f | 1097 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 D | lsodar.f | 1377 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 D | odeint.f | 22 $ 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 D | lsoda.f | 1086 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 D | lsoda.f | 1075 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 …]
|