/dports/math/octave/octave-6.4.0/liboctave/numeric/ |
H A D | Quad.cc | 103 F77_INT leniw = 183*npts - 122; in do_integrate() local 104 Array<F77_INT> iwork (dim_vector (leniw, 1)); in do_integrate() 107 F77_INT lenw = 2*leniw - npts; in do_integrate() 148 F77_INT leniw = 128; in do_integrate() local 149 Array<F77_INT> iwork (dim_vector (leniw, 1)); in do_integrate() 152 F77_INT lenw = 8*leniw; in do_integrate() 220 F77_INT leniw = 183*npts - 122; in do_integrate() local 221 Array<F77_INT> iwork (dim_vector (leniw, 1)); in do_integrate() 224 F77_INT lenw = 2*leniw - npts; in do_integrate() 265 F77_INT leniw = 128; in do_integrate() local [all …]
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/cvode/serial/ |
H A D | cvKrylovDemo_ls_1.out | 14 lenrw = 2689 leniw = 53 32 lenrw = 2689 leniw = 53 50 lenrw = 2689 leniw = 53 68 lenrw = 2689 leniw = 53 86 lenrw = 2689 leniw = 53 104 lenrw = 2689 leniw = 53 122 lenrw = 2689 leniw = 53 140 lenrw = 2689 leniw = 53 158 lenrw = 2689 leniw = 53 176 lenrw = 2689 leniw = 53 [all …]
|
/dports/math/sundials/sundials-5.7.0/examples/cvode/serial/ |
H A D | cvKrylovDemo_ls_0_1.out | 14 lenrw = 2689 leniw = 53 32 lenrw = 2689 leniw = 53 50 lenrw = 2689 leniw = 53 68 lenrw = 2689 leniw = 53 86 lenrw = 2689 leniw = 53 104 lenrw = 2689 leniw = 53 122 lenrw = 2689 leniw = 53 140 lenrw = 2689 leniw = 53 158 lenrw = 2689 leniw = 53 176 lenrw = 2689 leniw = 53 [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/ |
H A D | dqawo.f | 2 * neval,ier,leniw,maxp1,lenw,last,iwork,work) argument 190 integer ier,integr,iwork,last,limit,lenw,leniw,lvl,l1,l2,l3,l4, local 193 dimension iwork(leniw),work(lenw) 205 if(leniw.lt.2.or.maxp1.lt.1.or.lenw.lt.(leniw*2+maxp1*25)) 210 limit = leniw/2
|
H A D | dqagp.f | 2 * neval,ier,leniw,lenw,last,iwork,work) argument 189 integer ier,iwork,last,leniw,lenw,limit,lvl,l1,l2,l3,l4,neval, local 192 dimension iwork(leniw),points(npts2),work(lenw) 204 if(leniw.lt.(3*npts2-2).or.lenw.lt.(leniw*2-npts2).or.npts2.lt.2) 209 limit = (leniw-npts2)/2
|
H A D | dqawf.f | 2 * limlst,lst,leniw,maxp1,lenw,iwork,work) argument 193 integer ier,integr,iwork,last,leniw,lenw,limit,limlst,ll2,lvl, local 196 dimension iwork(leniw),work(lenw) 208 if(limlst.lt.3.or.leniw.lt.(limlst+2).or.maxp1.lt.1.or.lenw.lt. 209 * (leniw*2+maxp1*25)) go to 10 213 limit = (leniw-limlst)/2
|
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
H A D | qagp.f | 2 * neval,ier,leniw,lenw,last,iwork,work) argument 188 integer ier,iwork,leniw,lenw,limit,lvl,l1,l2,l3,neval,npts2 local 190 dimension iwork(leniw),points(npts2),work(lenw) 202 if(leniw.lt.(3*npts2-2).or.lenw.lt.(leniw*2-npts2).or.npts2.lt.2) 207 limit = (leniw-npts2)/2
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/src/dlsolvers/ |
H A D | dl_snopt72.C | 16 int *lencw, int *iw, int *leniw, double *rw, int *lenrw, 43 int *minrw, char *cw, int *lencw, int *iw, int *leniw, 47 int *inform, char *cw, int *lencw, int *iw, int *leniw, 235 lencw = leniw = lenrw = 500; in my_findopt() 237 iw = new int[leniw]; in my_findopt() 246 cw, &lencw, iw, &leniw, rw, &lenrw, cw_len); in my_findopt() 251 leniw = miniw + i; in my_findopt() 265 Li = leniw + 1 + nm; in my_findopt() 267 hs = iw + leniw; in my_findopt() 289 cw, &lencw, iw, &leniw, rw, &lenrw, cw_len); in my_findopt() [all …]
|
H A D | dl_snopt1.C | 16 int *lencw, int *iw, int *leniw, double *rw, int *lenrw, 28 int *leniw, double *rw, int *lenrw, ftnlen start_len, 34 int *minrw, char *cw, int *lencw, int *iw, int *leniw, 38 int *inform, char *cw, int *lencw, int *iw, int *leniw, 228 lencw = leniw = lenrw = 500; in my_findopt() 230 iw = new int[leniw]; in my_findopt() 238 cw, &lencw, iw, &leniw, rw, &lenrw, cw_len); in my_findopt() 243 leniw = miniw + i; in my_findopt() 257 Li = leniw + 1 + nm; in my_findopt() 260 hs = iw + leniw; in my_findopt() [all …]
|
H A D | dl_snopt.C | 18 int *lencw, int *iw, int *leniw, double *rw, int *lenrw, 30 int *leniw, double *rw, int *lenrw, ftnlen start_len, 36 int *minrw, char *cw, int *lencw, int *iw, int *leniw, 40 int *inform, char *cw, int *lencw, int *iw, int *leniw, 252 lencw = leniw = lenrw = 500; in my_findopt() 254 iw = new int[leniw]; in my_findopt() 260 cw, &lencw, iw, &leniw, rw, &lenrw, cw_len); in my_findopt() 265 leniw = miniw + i; in my_findopt() 279 Li = leniw + 1 + nm; in my_findopt() 282 hs = iw + leniw; in my_findopt() [all …]
|
/dports/misc/dartsim/dart-6.11.1/dart/optimizer/snopt/ |
H A D | SnoptInterface.cpp | 230 int *iw, int *leniw, double *rw, int *lenrw); 250 int *iw, int *leniw, double *rw, int *lenrw); 263 char *cw, int *lencw, int *iw, int *leniw, double *rw, int *lenrw) in S1USER() argument 375 static int leniw = 800 * nm; in solve() local 378 static int* iw = new int[leniw]; in solve() 392 leniw = 800 * nm; in solve() 399 iw = new int[leniw]; in solve() 404 SNINIT(&iprint, &isum, cw, &lencw, iw, &leniw, rw, &lenrw); in solve() 405 SNSPEC(&ispec, &inform, cw, &lencw, iw, &leniw, rw, &lenrw); in solve() 437 cw, &lencw, iw, &leniw, rw, &lenrw, in solve() [all …]
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/ |
H A D | dqagp.lisp | 21 (f a b npts2 points epsabs epsrel result abserr neval ier leniw lenw 25 (type (f2cl-lib:integer4) last$ lenw leniw ier neval npts2) 39 (or (< leniw (f2cl-lib:int-sub (f2cl-lib:int-mul 3 npts2) 2)) 40 (< lenw (f2cl-lib:int-sub (f2cl-lib:int-mul leniw 2) npts2)) 43 (setf limit (the f2cl-lib:integer4 (truncate (- leniw npts2) 2)))
|
H A D | dqawo.lisp | 21 (f a b omega integr epsabs epsrel result abserr neval ier leniw maxp1 25 (type (f2cl-lib:integer4) last$ lenw maxp1 leniw ier neval integr) 38 (or (< leniw 2) 41 (f2cl-lib:int-add (f2cl-lib:int-mul leniw 2) 44 (setf limit (the f2cl-lib:integer4 (truncate leniw 2)))
|
H A D | dqawf.lisp | 21 (f a omega integr epsabs result abserr neval ier limlst lst leniw maxp1 25 (type (f2cl-lib:integer4) lenw maxp1 leniw lst limlst ier neval 39 (< leniw (f2cl-lib:int-add limlst 2)) 42 (f2cl-lib:int-add (f2cl-lib:int-mul leniw 2) 45 (setf limit (the f2cl-lib:integer4 (truncate (- leniw limlst) 2)))
|
H A D | quadpack.lisp | 193 (let* ((leniw limit) 194 (lenw (+ (* 2 leniw) (* 25 maxp1))) 196 (iwork (make-array leniw :element-type 'f2cl-lib:integer4)) 211 limlst 0 leniw maxp1 lenw iwork work) 230 (let* ((leniw limit) 231 (lenw (+ (* 2 leniw) (* 25 maxp1))) 233 (iwork (make-array leniw :element-type 'f2cl-lib:integer4)) 249 leniw maxp1 lenw 0 iwork work) 300 (leniw (max limit (- (* 3 npts2) 2))) 301 (lenw (- (* 2 leniw) npts2)) [all …]
|
/dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/test/ |
H A D | DLSODAR-test.f | 14 1 kroot, leniw, lenrw, liw, lrw, lout, neq, nerr, ng, variable 108 leniw = iwork(18) 111 write (lout,190) lenrw,leniw,nst,nfe,nfea,nje,nge,ero 199 leniw = iwork(18) 202 write (lout,280) lenrw,leniw,nst,nfe,nfea,nje,nge
|
H A D | DLSODE-test-funC.f | 15 1 leniw, lenrw, liw, lout, lrw, mband, meth, mf, miter, variable 79 leniw = iwork(18) 83 write (lout,180) lenrw,leniw,nst,nfe,nfea,nje,ero
|
H A D | DLSODE-test.f | 15 1 leniw, lenrw, liw, lout, lrw, mband, meth, mf, miter, variable 79 leniw = iwork(18) 83 write (lout,180) lenrw,leniw,nst,nfe,nfea,nje,ero 147 leniw = iwork(18) 151 write (lout,180) lenrw,leniw,nst,nfe,nfea,nje,ero
|
H A D | DLSODA-test.f | 15 1 jt, leniw, lenrw, liw, lout, lrw, mband, mused, variable 83 leniw = iwork(18) 86 write (lout,180) lenrw,leniw,nst,nfe,nfea,nje,ero 150 leniw = iwork(18) 153 write (lout,280) lenrw,leniw,nst,nfe,nfea,nje,ero
|
/dports/math/stanmath/math-4.2.0/lib/sundials_5.7.0/src/kinsol/ |
H A D | kinsol_direct.c | 37 int KINDlsGetWorkSpace(void *kinmem, long int *lenrw, long int *leniw) in KINDlsGetWorkSpace() argument 38 { return(KINGetLinWorkSpace(kinmem, lenrw, leniw)); } in KINDlsGetWorkSpace()
|
/dports/devel/upp/upp/bazaar/plugin/sundials/src/kinsol/ |
H A D | kinsol_direct.c | 37 int KINDlsGetWorkSpace(void *kinmem, long int *lenrw, long int *leniw) in KINDlsGetWorkSpace() argument 38 { return(KINGetLinWorkSpace(kinmem, lenrw, leniw)); } in KINDlsGetWorkSpace()
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/src/kinsol/ |
H A D | kinsol_direct.c | 37 int KINDlsGetWorkSpace(void *kinmem, long int *lenrw, long int *leniw) in KINDlsGetWorkSpace() argument 38 { return(KINGetLinWorkSpace(kinmem, lenrw, leniw)); } in KINDlsGetWorkSpace()
|
/dports/math/sundials/sundials-5.7.0/src/kinsol/ |
H A D | kinsol_direct.c | 37 int KINDlsGetWorkSpace(void *kinmem, long int *lenrw, long int *leniw) in KINDlsGetWorkSpace() argument 38 { return(KINGetLinWorkSpace(kinmem, lenrw, leniw)); } in KINDlsGetWorkSpace()
|
/dports/math/cmlib/cmlib-3.0_8/test/ |
H A D | cdriv.f | 83 8 hmax /1.e0/, lenw /264/, leniw /24/, nde /0/, 111 8 mint, work, lenw, iwork, leniw, g) 120 8 hmax, work, lenw, iwork, leniw, jacobn, fa, nde,
|
H A D | ddriv.f | 85 8 hmax /1.d0/, lenw /264/, leniw /24/, nde /0/, 112 8 mint, work, lenw, iwork, leniw, g) 121 8 hmax, work, lenw, iwork, leniw, jacobn, fa, nde,
|