| /dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
| H A D | ewset.f | 2 subroutine ewset (n, itol, rtol, atol, ycur, ewt) argument
12 integer n, itol local
20 if (itol .ge. 3) rtoli = rtol(i)
21 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
|
| H A D | lsode.f | 1 subroutine lsode (f, neq, y, t, tout, itol, rtol, atol, itask, argument
5 integer neq, itol, itask, istate, iopt, lrw, iwork, liw, mf local
1018 if (itol .lt. 1 .or. itol .gt. 4) go to 606
1086 if (itol .ge. 3) rtoli = rtol(i)
1087 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1145 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1170 if (itol .le. 2) go to 140
1176 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1241 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1431 1 30, 6, 1, 1, itol, 0, 0, 0.0d+0, 0.0d+0)
|
| H A D | lsodi.f | 2 subroutine lsodi (res, adda, jac, neq, y, ydoti, t, tout, itol,
5 integer neq, itol, itask, istate, iopt, lrw, iwork, liw, mf
1209 if (itol .lt. 1 .or. itol .gt. 4) go to 606
1275 if (itol .ge. 3) rtoli = rtol(i)
1276 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1352 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1377 if (itol .le. 2) go to 145
1383 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1448 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1685 1 30, 6, 1, 1, itol, 0, 0, 0.0d+0, 0.0d+0)
|
| H A D | lsoda.f | 1 subroutine lsoda (f, neq, y, t, tout, itol, rtol, atol, itask, argument
4 integer neq, itol, itask, istate, iopt, lrw, iwork, liw, jt local
1055 if (itol .lt. 1 .or. itol .gt. 4) go to 606
1175 if (itol .ge. 3) rtoli = rtol(i)
1176 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1231 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1259 if (itol .le. 2) go to 140
1265 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1338 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1575 1 30, 6, 1, 1, itol, 0, 0, 0.0d+0, 0.0d+0)
|
| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/rol/src/step/krylov/ |
| H A D | ROL_ConjugateResiduals.hpp | 86 Real itol = std::sqrt(ROL_EPSILON<Real>()); in run() local
90 M.applyInverse(*r_,b,itol); in run()
97 itol = rtol/((Real)Krylov<Real>::getMaximumIteration() * rnorm); in run()
101 A.apply(*v_, *r_, itol); in run()
114 itol = std::sqrt(ROL_EPSILON<Real>()); in run()
115 M.applyInverse(*MAp_, *Ap_, itol); in run()
132 itol = rtol/((Real)Krylov<Real>::getMaximumIteration() * rnorm); in run()
134 A.apply(*v_, *r_, itol); in run()
|
| H A D | ROL_ConjugateGradients.hpp | 82 Real itol = std::sqrt(ROL_EPSILON<Real>()); in run() local
87 M.applyInverse(*v_, *r_, itol); in run()
98 itol = rtol/((Real)Krylov<Real>::getMaximumIteration() * rnorm); in run()
100 A.apply(*Ap_, *p_, itol); in run()
117 itol = std::sqrt(ROL_EPSILON<Real>()); in run()
118 M.applyInverse(*v_, *r_, itol); in run()
|
| /dports/graphics/pfstools/pfstools-2.1.0/src/tmo/fattal02/ |
| H A D | pde.cpp | 692 if (itol <= 3) { in snrm()
730 if (itol == 1) bnrm=snrm(n,b,itol); in linbcg()
731 else if (itol == 2) { in linbcg()
733 bnrm=snrm(n,z,itol); in linbcg()
735 else if (itol == 3 || itol == 4) { in linbcg()
737 bnrm=snrm(n,z,itol); in linbcg()
739 znrm=snrm(n,z,itol); in linbcg()
772 if (itol == 1 || itol == 2) { in linbcg()
775 } else if (itol == 3 || itol == 4) { in linbcg()
776 znrm=snrm(n,z,itol); in linbcg()
[all …]
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/sci_gateway/cpp/ |
| H A D | sci_odedc.cpp | 621 int itol = 1; in sci_odedc() local
737 itol += 2; in sci_odedc()
763 itol ++; in sci_odedc()
954 if (itol == 1 || itol == 3) in sci_odedc()
958 if (itol < 3) in sci_odedc()
1130 if (itol == 1 || itol == 3) in sci_odedc()
1245 if (itol == 1 || itol == 3) in sci_odedc()
1440 if (itol == 1 || itol == 3) in sci_odedc()
1444 if (itol < 3) in sci_odedc()
1496 if (itol == 1 || itol == 3) in sci_odedc()
[all …]
|
| H A D | sci_ode.cpp | 594 int itol = 1; in sci_ode() local
693 itol += 2; in sci_ode()
719 itol ++; in sci_ode()
913 if (itol == 1 || itol == 3) in sci_ode()
917 if (itol < 3) in sci_ode()
1149 if (itol == 1 || itol == 3) in sci_ode()
1153 if (itol < 3) in sci_ode()
1372 if (itol == 1 || itol == 3) in sci_ode()
1376 if (itol < 3) in sci_ode()
1585 if (itol == 1 || itol == 3) // atol is scalar in sci_ode()
[all …]
|
| H A D | sci_impl.cpp | 505 int itol = 1; in sci_impl() local
548 itol += 2; in sci_impl()
567 itol ++; in sci_impl()
604 if (itol == 1 || itol == 3) in sci_impl()
608 if (itol < 3) in sci_impl()
645 …C2F(lsodi)(impl_f, impl_g, impl_jac, YSize, pdYData, pDblYdot0->get(), &t0, &t, &itol, rtol, atol,… in sci_impl()
681 if (itol == 1 || itol == 3) in sci_impl()
685 if (itol < 3) in sci_impl()
754 if (itol == 1 || itol == 3) // atol is scalar in sci_impl()
759 if (itol < 3) // rtol is scalar in sci_impl()
|
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | predgmres_struct.f | 26 subroutine predgmres_struct(n,b,x,nelt,ia,ja,a,isym,itol,tol, argument
31 integer n,nelt,ia(*),ja(*),isym,itol,itmax,iter,ierr,
39 itol=0
52 & msolve_struct,itol,tol,itmax,
|
| /dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/test/ |
| H A D | DLSODAR-test.f | 13 integer iopt, iout, istate, itask, itol, iwork, jroot, jt, variable
36 itol = 1
46 write (lout,110) itol,rtol,atol(1),jt
61 call dlsodar(f1,neq,y,t,tout,itol,rtol,atol,itask,istate,
131 itol = 2
135 write (lout,200) itol,rtol,atol(1),atol(2)
161 call dlsodar(f2,neq,y,t,tout,itol,rtol,atol,itask,istate,
|
| H A D | DLSODE-test-funC.f | 14 integer i, iopar, iopt, iout, istate, itask, itol, iwork, variable
23 itol = 1
34 write (lout,110) neq,itol,rtol,atol
56 call dlsode(f1,neq,y,t,tout,itol,rtol,atol,itask,istate,
|
| H A D | DLSODIS-test.f | 50 integer i, io, istate, itol, iw, j, lout, lrw, liw, lyh, variable
68 data itol/1/, rtol/1.0d-3, 1.0d-6/, atol/1.0d-3, 1.0d-6/
118 write(lout,1500) itol, rtol(j), atol(j), mf
125 1 tout(io), itol, rtol(j), atol(j), 1, istate, 0,
141 errfac = elkup(n, y, rw(lyh), itol, rtol(j), atol(j), lout)
327 double precision function elkup (n, y, ewt, itol, rtol,atol, lout)
334 integer n, itol, lout, i local
390 call dewset(n, itol, rtol, atol, y12, ewt)
399 100 call dewset( n, itol, rtol, atol, y120, ewt )
|
| H A D | DLSODI-test.f | 34 integer i, io, istate, itol, iwork, j, variable
57 data itol/1/, rtol/1.0d-3, 1.0d-6/, atol/1.0d-3, 1.0d-6/
131 1 ydoti, t, tout(io), itol, rtol(j), atol(j),
134 1 ydoti, t, tout(io), itol, rtol(j), atol(j),
151 errfac = elkup( n, y, rwork(21), itol, rtol(j), atol(j) )
414 double precision function elkup (n, y, ewt, itol, rtol, atol)
421 integer n, itol, i local
470 call dewset( n, itol, rtol, atol, y9, ewt )
481 99 call dewset( n, itol, rtol, atol, y99, ewt )
|
| H A D | DLSODE-test.f | 14 integer i, iopar, iopt, iout, istate, itask, itol, iwork, variable
23 itol = 1
34 write (lout,110) neq,itol,rtol,atol
56 call dlsode(f1,neq,y,t,tout,itol,rtol,atol,itask,istate,
103 write (lout,210) neq,ml,mu,itol,rtol,atol
126 call dlsode(f2,neq,y,t,tout,itol,rtol,atol,itask,istate,
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/hondo/ |
| H A D | hnd_tol.fh | 4 c Holds the tolerance information (itol). normf and normp are still
8 integer normf, normp, itol
9 common/hnd_baspar/normf,normp,itol
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/hondo/ |
| H A D | hnd_tol.fh | 4 c Holds the tolerance information (itol). normf and normp are still
8 integer normf, normp, itol
9 common/hnd_baspar/normf,normp,itol
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/integrate/odepack/ |
| H A D | ewset.f | 1 subroutine ewset (n, itol, rtol, atol, ycur, ewt) argument
9 integer n, itol local
14 go to (10, 20, 30, 40), itol
|
| H A D | lsoda.f | 1 subroutine lsoda (f, neq, y, t, tout, itol, rtol, atol, itask, argument
4 integer neq, itol, itask, istate, iopt, lrw, iwork, liw, jt, isav local
1044 if (itol .lt. 1 .or. itol .gt. 4) go to 606
1164 if (itol .ge. 3) rtoli = rtol(i)
1165 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1223 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1251 if (itol .le. 2) go to 140
1257 if (itol .eq. 2 .or. itol .eq. 4) atoli = atol(i)
1327 call ewset (n, itol, rtol, atol, rwork(lyh), rwork(lewt))
1560 1 30, 6, 0, 1, itol, 0, 0, 0.0d0, 0.0d0)
|
| /dports/math/math77/MATH77/ |
| H A D | ddaswt.f | 40 integer itol, ismoot local
41 parameter(itol=2, ismoot=13)
48 IF (info(itol) .ne. 0) THEN
|
| H A D | sdaswt.f | 40 integer itol, ismoot local
41 parameter(itol=2, ismoot=13)
48 IF (info(itol) .ne. 0) THEN
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/fortran/ |
| H A D | optml2.f | 100 itol = 4
165 call lsode(feq,neq,q,t,tout,itol,w(lrtol),w(latol),itask,
195 & call outl2(34,nq,itol,w(latol),w(lrtol),t,tout)
197 itol = 4
200 if (info .gt. 1) call outl2(35,nq,itol,w(latol),w(lrtol),x,x)
217 call domout(neq,q,w(lqi),nbout,ti,t,itol,w(lrtol),
|
| /dports/math/octave/octave-6.4.0/liboctave/numeric/ |
| H A D | LSODE.h | 44 itask (0), iopt (0), itol (0), liw (0), lrw (0), in LSODE()
49 itask (0), iopt (0), itol (0), liw (0), lrw (0), in LSODE()
69 octave_f77_int_type itol; variable
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/integrate/tests/ |
| H A D | banded5x5.f | 190 integer itol, iopt, itask, istate, lrw, liw local
203 itol = 1
220 & itol, rtol, atol, itask, istate, iopt,
225 & itol, rtol, atol, itask, istate, iopt,
|