Home
last modified time | relevance | path

Searched refs:isgbeg (Results 1 – 19 of 19) sorted by relevance

/phasta/phSolver/common/
H A DcommuInt.f104 isgbeg = ilwork (itkbeg + 5)
114 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
121 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
149 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
174 isgbeg = ilwork (itkbeg + 5)
185 isgbeg = ilwork (itkbeg + 3 + 2*is)
187 isgend = isgbeg + lenseg - 1
188 global(isgbeg:isgend,idof) = global(isgbeg:isgend,idof)
H A Dcommu.f143 isgbeg = ilwork (itkbeg + 5)
159 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
178 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
228 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
273 isgbeg = ilwork (itkbeg + 5)
284 isgbeg = ilwork (itkbeg + 3 + 2*is)
286 isgend = isgbeg + lenseg - 1
287 global(isgbeg:isgend,idof) = global(isgbeg:isgend,idof)
H A Dgen_ncorp.c148 int isgbeg = ilwork[itkbeg+5+(j*2)]; //first idx of seg in count_owned() local
155 if(ncorp_tmp[isgbeg-1+k] == 0) in count_owned()
158 assert(ncorp_tmp[isgbeg-1+k] != -1); in count_owned()
159 ncorp_tmp[isgbeg-1+k] = 1; in count_owned()
160 assert(isgbeg-1+k < *num_nodes); in count_owned()
168 ncorp_tmp[isgbeg-1+k] = -1; in count_owned()
169 assert(isgbeg-1+k < *num_nodes); in count_owned()
H A Dgetvel.f57 isgbeg = ilwork (itkbeg + 3 + 2*is)
59 isgend = isgbeg + lenseg - 1
60 velo(isgbeg:isgend,:) = zero
61 velo(isgbeg:isgend,:) = zero
H A Dgetdmc.f230 isgbeg = ilwork (itkbeg + 3 + 2*is)
232 isgend = isgbeg + lenseg - 1
233 xnum(isgbeg:isgend) = zero
234 xden(isgbeg:isgend) = zero
H A Dbardmc.f402 isgbeg = ilwork (itkbeg + 3 + 2*is)
404 isgend = isgbeg + lenseg - 1
405 xnum(isgbeg:isgend) = zero
406 xden(isgbeg:isgend) = zero
/phasta/M2N/src/
H A Dcommu.f137 isgbeg = ilwork (itkbeg + 5)
149 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
160 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
194 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
226 isgbeg = ilwork (itkbeg + 5)
237 isgbeg = ilwork (itkbeg + 3 + 2*is)
239 isgend = isgbeg + lenseg - 1
242 do j=isgbeg,isgend ! break this into an explicit loop an max instead of accumulate
/phasta/M2NFixBnd/src/
H A DcommuMax.f141 isgbeg = ilwork (itkbeg + 5)
153 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
164 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
198 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
230 isgbeg = ilwork (itkbeg + 5)
241 isgbeg = ilwork (itkbeg + 3 + 2*is)
243 isgend = isgbeg + lenseg - 1
246 do k=isgbeg,isgend ! break this into an explicit loop an max instead of accumulate
/phasta/AcuStat/src/
H A DcommuMax.f140 isgbeg = ilwork (itkbeg + 5)
152 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
163 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
197 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
229 isgbeg = ilwork (itkbeg + 5)
240 isgbeg = ilwork (itkbeg + 3 + 2*is)
242 isgend = isgbeg + lenseg - 1
245 do k=isgbeg,isgend ! break this into an explicit loop an max instead of accumulate
/phasta/phSolver/compressible/
H A Dau1gmr.f91 isgbeg = ilwork (itkbeg + 3 + 2*is)
93 isgend = isgbeg + lenseg - 1
94 uBrg(isgbeg:isgend,:) = zero
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
189 isgend = isgbeg + lenseg - 1
190 uBrg(isgbeg:isgend) = zero
H A Dbc3res.f187 isgbeg = ilwork (itkbeg + 3 + 2*is)
189 isgend = isgbeg + lenseg - 1
190 res(isgbeg:isgend,:) = zero
278 isgbeg = ilwork (itkbeg + 3 + 2*is)
280 isgend = isgbeg + lenseg - 1
281 rest(isgbeg:isgend) = zero
H A Dbc3bdg.f370 isgbeg = ilwork (itkbeg + 3 + 2*is)
372 isgend = isgbeg + lenseg - 1
373 BDiag(isgbeg:isgend,:,:) = zero
374 BDiag(isgbeg:isgend,1,1) = one
375 BDiag(isgbeg:isgend,2,2) = one
376 BDiag(isgbeg:isgend,3,3) = one
377 BDiag(isgbeg:isgend,4,4) = one
378 BDiag(isgbeg:isgend,5,5) = one
460 isgbeg = ilwork (itkbeg + 3 + 2*is)
462 isgend = isgbeg + lenseg - 1
[all …]
H A Dsparseap.f124 isgbeg = ilwork (itkbeg + 3 + 2*is)
126 isgend = isgbeg + lenseg - 1
127 p(isgbeg:isgend,:) = zero
/phasta/phSolver/incompressible/
H A Dbc3per.f51 isgbeg = ilwork (itkbeg + 3 + 2*is)
53 isgend = isgbeg + lenseg - 1
54 res(isgbeg:isgend,:) = zero
H A DadvLES.f640 isgbeg = ilwork (itkbeg + 3 + 2*is)
642 isgend = isgbeg + lenseg - 1
643 fres(isgbeg:isgend,:) = zero
753 isgbeg = ilwork (itkbeg + 3 + 2*is)
755 isgend = isgbeg + lenseg - 1
756 xnum(isgbeg:isgend) = zero
757 xden(isgbeg:isgend) = zero
1178 isgbeg = ilwork (itkbeg + 3 + 2*is)
1180 isgend = isgbeg + lenseg - 1
1181 xnum(isgbeg:isgend) = zero
[all …]
H A Dfilters.f1162 isgbeg = ilwork (itkbeg + 3 + 2*is)
1164 isgend = isgbeg + lenseg - 1
1165 xave(isgbeg:isgend,:) = zero
1897 isgbeg = ilwork (itkbeg + 3 + 2*is)
1899 isgend = isgbeg + lenseg - 1
1900 xnum(isgbeg:isgend) = zero
1901 xden(isgbeg:isgend) = zero
1902 strnrm(isgbeg:isgend) = zero
1903 xfac(isgbeg:isgend,:) = zero
1904 xmij(isgbeg:isgend,:) = zero
[all …]
/phasta/phSolver/AMG/
H A Dramg_tools.f317 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
329 isgbeg = ilwork(itkbeg+3+j*2)
331 isgend = isgbeg + lenseg -1
332 u(isgbeg:isgend) = 0
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
370 isgbeg = ilwork(itkbeg+5)
H A Dramg_paratools.f33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
95 isgbeg = ilwork(itkbeg+5)
179 isgbeg = ilwork(itkbeg+5)
756 integer :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg variable
842 isgbeg = ilwork(itkbeg+3+j*2)
844 isgend = isgbeg + lenseg - 1
845 flag(isgbeg:isgend) = neimap(i)!iother+1!note*
H A Dramg_ggb.f208 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
235 isgbeg = ilwork(itkbeg+5)