Home
last modified time | relevance | path

Searched refs:lenseg (Results 1 – 23 of 23) sorted by relevance

/phasta/phSolver/common/
H A DcommuInt.f138 lenseg = ilwork (itkbeg + 4 + 2*is)
139 lfront = lfront + lenseg
186 lenseg = ilwork (itkbeg + 4 + 2*is)
187 isgend = isgbeg + lenseg - 1
189 & + rtemp (itemp:itemp+lenseg-1,jdl)
190 itemp = itemp + lenseg
H A Dctypes.f12 dimension isbegin(maxseg), lenseg(maxseg), ioffset(maxseg)
62 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
66 lfront = lfront + lenseg(is)
72 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
103 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
106 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
H A Dcommu.f199 lenseg = ilwork (itkbeg + 4 + 2*is)
200 lfront = lfront + lenseg
285 lenseg = ilwork (itkbeg + 4 + 2*is)
286 isgend = isgbeg + lenseg - 1
288 & + rtemp (itemp:itemp+lenseg-1,jdl)
289 itemp = itemp + lenseg
H A Dgen_ncorp.c149 int lenseg = ilwork[itkbeg+6+(j*2)]; //length of seg in count_owned() local
153 for(k=0;k<lenseg;k++) in count_owned()
166 for(k=0;k<lenseg;k++) in count_owned()
H A Dgetvel.f58 lenseg = ilwork (itkbeg + 4 + 2*is)
59 isgend = isgbeg + lenseg - 1
H A Dgetdmc.f231 lenseg = ilwork (itkbeg + 4 + 2*is)
232 isgend = isgbeg + lenseg - 1
H A Dbardmc.f403 lenseg = ilwork (itkbeg + 4 + 2*is)
404 isgend = isgbeg + lenseg - 1
/phasta/AcuStat/src/
H A Dctypes.f12 dimension isbegin(maxseg), lenseg(maxseg), ioffset(maxseg)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
68 lfront = lfront + lenseg(is)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
105 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
H A DcommuMax.f180 lenseg = ilwork (itkbeg + 4 + 2*is)
181 lfront = lfront + lenseg
241 lenseg = ilwork (itkbeg + 4 + 2*is)
242 isgend = isgbeg + lenseg - 1
/phasta/M2NFixBnd/src/
H A Dctypes.f12 dimension isbegin(maxseg), lenseg(maxseg), ioffset(maxseg)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
68 lfront = lfront + lenseg(is)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
105 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
H A DcommuMax.f181 lenseg = ilwork (itkbeg + 4 + 2*is)
182 lfront = lfront + lenseg
242 lenseg = ilwork (itkbeg + 4 + 2*is)
243 isgend = isgbeg + lenseg - 1
/phasta/M2N/src/
H A Dctypes.f12 dimension isbegin(maxseg), lenseg(maxseg), ioffset(maxseg)
63 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
67 lfront = lfront + lenseg(is)
73 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
104 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
H A Dcommu.f177 lenseg = ilwork (itkbeg + 4 + 2*is)
178 lfront = lfront + lenseg
238 lenseg = ilwork (itkbeg + 4 + 2*is)
239 isgend = isgbeg + lenseg - 1
/phasta/phSolver/compressible/
H A Dau1gmr.f92 lenseg = ilwork (itkbeg + 4 + 2*is)
93 isgend = isgbeg + lenseg - 1
188 lenseg = ilwork (itkbeg + 4 + 2*is)
189 isgend = isgbeg + lenseg - 1
H A Dbc3res.f188 lenseg = ilwork (itkbeg + 4 + 2*is)
189 isgend = isgbeg + lenseg - 1
279 lenseg = ilwork (itkbeg + 4 + 2*is)
280 isgend = isgbeg + lenseg - 1
H A Dsparseap.f125 lenseg = ilwork (itkbeg + 4 + 2*is)
126 isgend = isgbeg + lenseg - 1
H A Dbc3bdg.f371 lenseg = ilwork (itkbeg + 4 + 2*is)
372 isgend = isgbeg + lenseg - 1
461 lenseg = ilwork (itkbeg + 4 + 2*is)
462 isgend = isgbeg + lenseg - 1
/phasta/phSolver/incompressible/
H A Dbc3per.f52 lenseg = ilwork (itkbeg + 4 + 2*is)
53 isgend = isgbeg + lenseg - 1
H A DadvLES.f641 lenseg = ilwork (itkbeg + 4 + 2*is)
642 isgend = isgbeg + lenseg - 1
754 lenseg = ilwork (itkbeg + 4 + 2*is)
755 isgend = isgbeg + lenseg - 1
1179 lenseg = ilwork (itkbeg + 4 + 2*is)
1180 isgend = isgbeg + lenseg - 1
1530 lenseg = ilwork (itkbeg + 4 + 2*is)
1531 isgend = isgbeg + lenseg - 1
1966 lenseg = ilwork (itkbeg + 4 + 2*is)
1967 isgend = isgbeg + lenseg - 1
[all …]
H A Dfilters.f1163 lenseg = ilwork (itkbeg + 4 + 2*is)
1164 isgend = isgbeg + lenseg - 1
1898 lenseg = ilwork (itkbeg + 4 + 2*is)
1899 isgend = isgbeg + lenseg - 1
2639 lenseg = ilwork (itkbeg + 4 + 2*is)
2640 isgend = isgbeg + lenseg - 1
/phasta/phSolver/common/test/
H A DphIOreadIlwork.cc120 int lenseg = ilwork [itkbeg + 4 + 2*is]; in main() local
121 lfront = lfront + lenseg; in main()
/phasta/phSolver/AMG/
H A Dramg_tools.f318 integer :: numtask,lenseg local
330 lenseg = ilwork(itkbeg+4+j*2)
331 isgend = isgbeg + lenseg -1
H A Dramg_paratools.f757 integer :: i,j,k,lenseg,nr,nj,mi,mj variable
843 lenseg = ilwork(itkbeg+4+j*2)
844 isgend = isgbeg + lenseg - 1