Home
last modified time | relevance | path

Searched refs:imin1 (Results 1 – 25 of 26) sorted by relevance

12

/dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/
H A Dinv.pas111 imin1, jmin1, iplus1 : ArbInt;
140 imin1:=1; i:=2;
143 imin2:=imin1; imin1:=i; i:=i+1; ind:=imin1*rwidth;
144 l^[imin1]:=pa^[ind+imin1]; d^[i]:=pa^[ind+i]; di:=d^[i];
145 u^[imin1]:=pa^[ind-rwidth+i]; v^[imin2]:=pa^[ind-2*rwidth+i]
155 imin1:=i; i:=i+1; h:=0;
157 while j<imin1 do
166 i:=n+1; imin1:=n;
169 iplus1:=i; i:=imin1; imin1:=imin1-1; h:=e1^[i];
171 h:=h-pa^[(j-1)*rwidth+imin1]*e1^[j];
H A Ddsl.pas242 imin1 := i;
246 while j<imin1 Do
263 imin1 := 1;
267 imin2 := imin1;
268 imin1 := i;
271 l^[imin1] := palt^[ii+imin1];
279 imin1 := n;
283 i := imin1;
284 imin1 := imin1-1;
345 imin1 := i-1;
[all …]
H A Dmdt.pas448 imin1 := i;
450 u^[imin1] := alt^[(i-1)*rwidth+imin1];
451 l^[imin1] := u^[imin1];
460 imin1 := 1;
464 imin2 := imin1;
465 imin1 := i;
468 alt^[indi+imin1] := l1^[imin1];
470 alt^[(imin1-1)*rwidth+i] := u1^[imin1];
501 imin1 := n;
506 i := imin1;
[all …]
H A Dsle.pas1629 imin1, jmin1, indexpivot, iplus1, indi, indj, indk, indp : ArbInt;
1778 imin1 := i;
1780 u^[imin1] := alt^[(i-1)*n+imin1];
1781 l^[imin1] := u^[imin1];
1814 imin1 := i;
1819 while j<imin1 Do
1832 imin1 := n;
1837 i := imin1;
1838 imin1 := imin1-1;
1843 indj := (j-1)*n+imin1;
/dports/lang/fpc-source/fpc-3.2.2/packages/numlib/src/
H A Dinv.pas111 imin1, jmin1, iplus1 : ArbInt;
140 imin1:=1; i:=2;
143 imin2:=imin1; imin1:=i; i:=i+1; ind:=imin1*rwidth;
144 l^[imin1]:=pa^[ind+imin1]; d^[i]:=pa^[ind+i]; di:=d^[i];
145 u^[imin1]:=pa^[ind-rwidth+i]; v^[imin2]:=pa^[ind-2*rwidth+i]
155 imin1:=i; i:=i+1; h:=0;
157 while j<imin1 do
166 i:=n+1; imin1:=n;
169 iplus1:=i; i:=imin1; imin1:=imin1-1; h:=e1^[i];
171 h:=h-pa^[(j-1)*rwidth+imin1]*e1^[j];
H A Ddsl.pas242 imin1 := i;
246 while j<imin1 Do
263 imin1 := 1;
267 imin2 := imin1;
268 imin1 := i;
271 l^[imin1] := palt^[ii+imin1];
279 imin1 := n;
283 i := imin1;
284 imin1 := imin1-1;
345 imin1 := i-1;
[all …]
H A Dmdt.pas448 imin1 := i;
450 u^[imin1] := alt^[(i-1)*rwidth+imin1];
451 l^[imin1] := u^[imin1];
460 imin1 := 1;
464 imin2 := imin1;
465 imin1 := i;
468 alt^[indi+imin1] := l1^[imin1];
470 alt^[(imin1-1)*rwidth+i] := u1^[imin1];
501 imin1 := n;
506 i := imin1;
[all …]
H A Dsle.pas1629 imin1, jmin1, indexpivot, iplus1, indi, indj, indk, indp : ArbInt;
1778 imin1 := i;
1780 u^[imin1] := alt^[(i-1)*n+imin1];
1781 l^[imin1] := u^[imin1];
1814 imin1 := i;
1819 while j<imin1 Do
1832 imin1 := n;
1837 i := imin1;
1838 imin1 := imin1-1;
1843 indj := (j-1)*n+imin1;
/dports/science/cdcl/dcl-5.4.8-C/src/math1/ifalib/
H A DMakefile10 LIBFSRCS = imax.c imax0.c imax1.c imin.c imin0.c imin1.c \
14 LIBFOBJS = imax.o imax0.o imax1.o imin.o imin0.o imin1.o \
/dports/science/dcl/dcl-5.4.8/src/math1/ifalib/
H A DMakefile10 LIBFSRCS = imax.f imax0.f imax1.f imin.f imin0.f imin1.f \
14 LIBFOBJS = imax.o imax0.o imax1.o imin.o imin0.o imin1.o \
H A DMakefile.win10 FSRC = imax.f imax0.f imax1.f imin.f imin0.f imin1.f \
/dports/science/hypre/hypre-2.23.0/src/sstruct_mv/
H A Dsstruct_grid.c603 hypre_Index imin0, imin1; in hypre_SStructGridAssembleBoxManagers() local
659 hypre_CopyIndex(hypre_SStructNeighborILower(vneighbor), imin1); in hypre_SStructGridAssembleBoxManagers()
662 hypre_SStructBoxToNborBox(int_box, imin0, imin1, coord, dir); in hypre_SStructGridAssembleBoxManagers()
722 hypre_Index imin0, imin1; in hypre_SStructGridAssembleNborBoxManagers() local
827 hypre_CopyIndex(hypre_SStructNeighborILower(vneighbor), imin1); in hypre_SStructGridAssembleNborBoxManagers()
834 hypre_SStructBoxToNborBox(nbor_box, imin0, imin1, coord, dir); in hypre_SStructGridAssembleNborBoxManagers()
846 hypre_SStructNborBoxToBox(int_box, imin0, imin1, coord, dir); in hypre_SStructGridAssembleNborBoxManagers()
1067 hypre_Index imin0, imin1; in hypre_SStructGridCreateCommInfo() local
1112 hypre_CopyIndex(hypre_SStructNeighborILower(vneighbor), imin1); in hypre_SStructGridCreateCommInfo()
1130 hypre_SStructBoxToNborBox(vn_box, imin0, imin1, coord, dir); in hypre_SStructGridCreateCommInfo()
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dgauss_colloc.F195 imax, imax1, imin, imin1, istart, istart2, j, jend, jJump, jmax, jmax1, jmin, & local
366 imin1 = MODULO(imin+shiftPos(0), ndim(0))
367 imax1 = imin1+imax-imin+1
368 IF (imin1 < l_bounds(1, 0)) THEN
371 …has_overlap = imin1 <= l_bounds(2, 0) .OR. (imax1 >= ndim(0) .AND. l_bounds(1, 0) <= imax1+ndim(0))
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/grid/
H A Dgauss_colloc.F188 imax, imax1, imin, imin1, istart, istart2, j, jend, jJump, jmax, jmax1, jmin, & local
353 imin1 = MODULO(imin + shiftPos(0), ndim(0))
354 imax1 = imin1 + imax - imin + 1
355 IF (imin1 < l_bounds(1, 0)) THEN
358 …has_overlap = imin1 <= l_bounds(2, 0) .OR. (imax1 >= ndim(0) .AND. l_bounds(1, 0) <= imax1 + ndim(…
/dports/devel/geany-legacy/geany-1.37.1/data/filedefs/
H A Dfiletypes.f7723 …ifix iint iior iiqint iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint i…
H A Dfiletypes.fortran7 …or iiqint iiqnnt iishft iishftc iisign ilen image_index imax0 imax1 imin0 imin1 imod index inint i…
/dports/devel/geany/geany-1.38/data/filedefs/
H A Dfiletypes.f7723 …ifix iint iior iiqint iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint i…
H A Dfiletypes.fortran7 …or iiqint iiqnnt iishft iishftc iisign ilen image_index imax0 imax1 imin0 imin1 imod index inint i…
/dports/x11-toolkits/scintilla/scite/src/
H A Dfortran.properties54 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
H A DEmbedded.properties3973 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
/dports/editors/scite/scite/src/
H A Dfortran.properties54 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
/dports/graphics/plotutils/plotutils-2.6/spline/
H A Dspline.c1717 int imin1 = (int)((abscissa0 - first_t) / spacing_t - 1); in do_bessel_range() local
1724 imin = IMAX (imin1, imin2); in do_bessel_range()
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufr_exports/synop2bufr/
H A Dsynop2bufr.f10042 imin1=ihour*60+imin+idelta
10044 ihour2=imin1/60
10045 imin2=imin1-ihour2*60
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/f/
H A Dintrin.def214 DEFNAME ("IMIN1", "imin1", "IMin1", genNONE, specIMIN1) /* VXT */
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/f/
H A Dintrin.def214 DEFNAME ("IMIN1", "imin1", "IMin1", genNONE, specIMIN1) /* VXT */

12