/dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/ |
H A D | inv.pas | 111 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 D | dsl.pas | 242 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 D | mdt.pas | 448 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 D | sle.pas | 1629 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 D | inv.pas | 111 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 D | dsl.pas | 242 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 D | mdt.pas | 448 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 D | sle.pas | 1629 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 D | Makefile | 10 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 D | Makefile | 10 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 D | Makefile.win | 10 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 D | sstruct_grid.c | 603 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 D | gauss_colloc.F | 195 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 D | gauss_colloc.F | 188 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 D | filetypes.f77 | 23 …ifix iint iior iiqint iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint i…
|
H A D | filetypes.fortran | 7 …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 D | filetypes.f77 | 23 …ifix iint iior iiqint iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint i…
|
H A D | filetypes.fortran | 7 …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 D | fortran.properties | 54 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
|
H A D | Embedded.properties | 3973 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
|
/dports/editors/scite/scite/src/ |
H A D | fortran.properties | 54 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
|
/dports/graphics/plotutils/plotutils-2.6/spline/ |
H A D | spline.c | 1717 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 D | synop2bufr.f | 10042 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 D | intrin.def | 214 DEFNAME ("IMIN1", "imin1", "IMin1", genNONE, specIMIN1) /* VXT */
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/f/ |
H A D | intrin.def | 214 DEFNAME ("IMIN1", "imin1", "IMin1", genNONE, specIMIN1) /* VXT */
|