/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/ecp/ |
H A D | ecp_t2_ghq.F | 32 integer i,j,k,l,m,n,nt,ind(nt),order,maxord local 33 parameter (maxord = 12) 34 double precision root(maxord),weight(maxord),work(maxord), 39 if (order.gt.maxord) call errquit( 40 & 'ecp_t2_ghq: Order gt maxord diff is',(order-maxord),
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/ |
H A D | ecp_t2_ghq.F | 32 integer i,j,k,l,m,n,nt,ind(nt),order,maxord 33 parameter (maxord = 12) 34 double precision root(maxord),weight(maxord),work(maxord), 39 if (order.gt.maxord) call errquit( 40 & 'ecp_t2_ghq: Order gt maxord diff is',(order-maxord),
|
/dports/x11-toolkits/pangolin/Pangolin-0.6/include/pangolin/gl/ |
H A D | gldraw.h | 228 const GLfloat maxord = grid*scale; in glDraw_x0() local 230 glDrawLine(0.0, i*scale, -maxord, 0.0, i*scale, +maxord); in glDraw_x0() 231 glDrawLine(0.0, -maxord, i*scale, 0.0, +maxord, i*scale); in glDraw_x0() 237 const GLfloat maxord = grid*scale; in glDraw_y0() local 239 glDrawLine(i*scale, 0.0, -maxord, i*scale, 0.0, +maxord); in glDraw_y0() 240 glDrawLine(-maxord, 0.0, i*scale, +maxord, 0.0, i*scale); in glDraw_y0() 246 const GLfloat maxord = grid*scale; in glDraw_z0() local 248 glDrawLine(i*scale,-maxord, i*scale,+maxord); in glDraw_z0() 249 glDrawLine(-maxord, i*scale, +maxord, i*scale); in glDraw_z0()
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | lsode.f | 953 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 983 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 1032 maxord = mord(meth) 1039 40 maxord = iwork(5) 1040 if (maxord .lt. 0) go to 611 1041 if (maxord .eq. 0) maxord = 100 1042 maxord = min(maxord,mord(meth)) 1066 lwm = lyh + (maxord + 1)*nyh 1094 if (nq .le. maxord) go to 90 1103 i2 = lyh + (maxord + 1)*nyh - 1 [all …]
|
H A D | lsodi.f | 1143 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nre, nje, nqu 1174 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nre, nje, nqu 1224 maxord = mord(meth) 1231 40 maxord = iwork(5) 1232 if (maxord .lt. 0) go to 611 1233 if (maxord .eq. 0) maxord = 100 1234 maxord = min(maxord,mord(meth)) 1258 lwm = lyh + (maxord + 1)*nyh 1283 if (nq .le. maxord) go to 90 1292 i2 = lyh + (maxord + 1)*nyh - 1 [all …]
|
H A D | stodi.f | 9 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nre, nje, nqu local 26 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nre, nje, nqu local 127 lmax = maxord + 1 155 lmax = maxord + 1 160 if (nq .gt. maxord) go to 120 164 110 if (nq .le. maxord) go to 160 165 120 nq = maxord
|
H A D | stode.f | 10 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 26 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 120 lmax = maxord + 1 149 lmax = maxord + 1 154 if (nq .gt. maxord) go to 120 158 110 if (nq .le. maxord) go to 160 159 120 nq = maxord
|
H A D | solsy.f | 7 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 19 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local
|
H A D | intdy.f | 7 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 19 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local
|
H A D | lsoda.f | 983 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 1018 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 1186 i2 = lyh + (maxord + 1)*nyh - 1 1201 maxord = mxordn 1384 maxord = mxordn 1385 if (meth .eq. 2) maxord = mxords
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/tests/unit/ |
H A D | unit_Intg_Rep.cpp | 134 Number minord=4, maxord=6, stepord=2, expord=4; in unit_Intg_Rep() local 172 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 187 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 210 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 225 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 270 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 282 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 304 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep() 319 for(Number ord=minord; ord<=maxord; ord+=stepord) //quadrature method in unit_Intg_Rep()
|
/dports/math/octave/octave-6.4.0/liboctave/numeric/ |
H A D | LSODE.cc | 154 octave_idx_type maxord = maximum_order (); in do_integrate() local 156 if (maxord >= 0) in do_integrate() 158 if (maxord > 0 && maxord <= max_maxord) in do_integrate() 160 iwork(4) = octave::to_f77_int (maxord); in do_integrate()
|
H A D | DASSL.cc | 224 F77_INT maxord = octave::to_f77_int (maximum_order ()); in do_integrate() local 225 if (maxord >= 0) in do_integrate() 227 if (maxord > 0 && maxord < 6) in do_integrate() 230 iwork(2) = maxord; in do_integrate() 235 ("dassl: invalid value for maximum order: %d", maxord); in do_integrate()
|
H A D | DASRT.cc | 173 F77_INT maxord = octave::to_f77_int (maximum_order ()); in integrate() local 174 if (maxord >= 0) in integrate() 176 if (maxord > 0 && maxord < 6) in integrate() 179 iwork(2) = maxord; in integrate()
|
H A D | DASPK.cc | 268 octave_idx_type maxord = maximum_order (); in do_integrate() local 269 if (maxord >= 0) in do_integrate() 271 if (maxord > 0 && maxord < 6) in do_integrate() 274 iwork(2) = octave::to_f77_int (maxord); in do_integrate()
|
/dports/math/pari/pari-2.13.3/src/functions/algebras/ |
H A D | algtensor | 5 Help: algtensor(al1,al2,{maxord=1}): tensor product of al1 and al2. 8 setting $\var{maxord}=0$.
|
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/odepack/ |
H A D | solsy.f | 6 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 17 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local
|
H A D | intdy.f | 6 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 17 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local
|
H A D | lsoda.f | 975 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 1009 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu local 1175 i2 = lyh + (maxord + 1)*nyh - 1 1190 maxord = mxordn 1374 maxord = mxordn 1375 if (meth .eq. 2) maxord = mxords
|
/dports/cad/abc/abc-a4518e6f833885c905964f1233d11e5b941ec24c/src/misc/espresso/ |
H A D | unate.c | 312 int maxord, ord; local 317 maxord = 0; 329 if ((ord = set_ord(pt)) > maxord) { 339 maxord = ord; 340 } else if (ord < maxord) {
|
/dports/astro/py-ephem/ephem-4.1.3/libastro/ |
H A D | magdecl.c | 118 static int maxord,i,icomp,n,m,j,D1,D2,D3,D4; in E0000() local 133 maxord = *maxdeg; in E0000() 179 for (n=1; n<=maxord; n++) in E0000() 244 for (m=2; m<=maxord; m++) in E0000() 253 for (n=1; n<=maxord; n++) in E0000()
|
/dports/science/PETSc/petsc-3.14.1/src/ts/impls/implicit/sundials/ftn-auto/ |
H A D | sundialsf.c | 92 PETSC_EXTERN void tssundialssetmaxord_(TS ts,PetscInt *maxord, int *__ierr) in tssundialssetmaxord_() argument 95 (TS)PetscToPointer((ts) ),*maxord); in tssundialssetmaxord_()
|
/dports/math/math77/MATH77/demo/ |
H A D | drddasl7.f | 22 INTEGER neq,liw,lrw,ml,mu,maxord,maxcon variable 28 PARAMETER (ml=5,mu=0,maxord=5,maxcon=0,lrw=45+(maxord+maxcon+4)*
|
H A D | drsdasl7.f | 22 INTEGER neq,liw,lrw,ml,mu,maxord,maxcon variable 28 PARAMETER (ml=5,mu=0,maxord=5,maxcon=0,lrw=45+(maxord+maxcon+4)*
|
/dports/science/PETSc/petsc-3.14.1/src/ts/impls/implicit/sundials/ |
H A D | sundials.c | 344 if (cvode->maxord != PETSC_DEFAULT) { in TSSetUp_Sundials() 345 flag = CVodeSetMaxOrd(mem,cvode->maxord); in TSSetUp_Sundials() 404 …rd","Max Order for BDF/Adams method","TSSundialsSetMaxOrd",cvode->maxord,&cvode->maxord,NULL);CHKE… in TSSetFromOptions_Sundials() 435 ierr = PetscViewerASCIIPrintf(viewer,"Sundials maxord %D\n",cvode->maxord);CHKERRQ(ierr); in TSView_Sundials() 656 PetscErrorCode TSSundialsSetMaxord(TS ts,PetscInt maxord) in TSSundialsSetMaxord() argument 661 PetscValidLogicalCollectiveInt(ts,maxord,2); in TSSundialsSetMaxord() 662 ierr = PetscTryMethod(ts,"TSSundialsSetMaxOrd_C",(TS,PetscInt),(ts,maxord));CHKERRQ(ierr); in TSSundialsSetMaxord() 925 cvode->maxord = PETSC_DEFAULT; in TSCreate_Sundials()
|