Home
last modified time | relevance | path

Searched refs:leniw (Results 1 – 25 of 325) sorted by relevance

12345678910>>...13

/dports/math/octave/octave-6.4.0/liboctave/numeric/
H A DQuad.cc103 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 DcvKrylovDemo_ls_1.out14 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 DcvKrylovDemo_ls_0_1.out14 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 Ddqawo.f2 * 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 Ddqagp.f2 * 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 Ddqawf.f2 * 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 Dqagp.f2 * 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 Ddl_snopt72.C16 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 Ddl_snopt1.C16 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 Ddl_snopt.C18 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 DSnoptInterface.cpp230 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 Ddqagp.lisp21 (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 Ddqawo.lisp21 (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 Ddqawf.lisp21 (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 Dquadpack.lisp193 (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 DDLSODAR-test.f14 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 DDLSODE-test-funC.f15 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 DDLSODE-test.f15 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 DDLSODA-test.f15 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 Dkinsol_direct.c37 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 Dkinsol_direct.c37 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 Dkinsol_direct.c37 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 Dkinsol_direct.c37 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 Dcdriv.f83 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 Dddriv.f85 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,

12345678910>>...13