Home
last modified time | relevance | path

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

12

/phasta/phSolver/common/
H A Dctypes.f42 numseg = ilwork (itkbeg + 4)
48 if (numseg .gt. maxseg)
49 & call error('ctypes ','numseg ',numseg )
54 do is = 1,numseg
84 ioffset(1:numseg) = isbegin(1:numseg) - isbegin(1)
103 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
106 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
157 itkbeg = itkbeg + 4 + 2*numseg
H A DcommuInt.f103 numseg = ilwork (itkbeg + 4)
137 do is = 1,numseg
154 itkbeg = itkbeg + 4 + 2*numseg
173 numseg = ilwork (itkbeg + 4)
184 do is = 1,numseg
194 itkbeg = itkbeg + 4 + 2*numseg
H A Dcommu.f142 numseg = ilwork (itkbeg + 4)
198 do is = 1,numseg
239 itkbeg = itkbeg + 4 + 2*numseg
272 numseg = ilwork (itkbeg + 4)
283 do is = 1,numseg
293 itkbeg = itkbeg + 4 + 2*numseg
H A Dgetvel.f53 numseg = ilwork (itkbeg + 4)
56 do is = 1,numseg
65 itkbeg = itkbeg + 4 + 2*numseg
H A Dgen_ncorp.c145 int numseg = ilwork[itkbeg+4]; //number of segments in count_owned() local
146 for(j=0;j<numseg;j++) in count_owned()
179 itkbeg+= 4+2*numseg; in count_owned()
H A Dgetdmc.f226 numseg = ilwork (itkbeg + 4)
229 do is = 1,numseg
238 itkbeg = itkbeg + 4 + 2*numseg
H A Dbardmc.f398 numseg = ilwork (itkbeg + 4)
401 do is = 1,numseg
410 itkbeg = itkbeg + 4 + 2*numseg
/phasta/AcuStat/src/
H A Dctypes.f44 numseg = ilwork (itkbeg + 4)
50 if (numseg .gt. maxseg)
51 & call error('ctypes ','numseg ',numseg )
56 do is = 1,numseg
86 ioffset(1:numseg) = isbegin(1:numseg) - isbegin(1)
105 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
158 itkbeg = itkbeg + 4 + 2*numseg
H A DcommuMax.f139 numseg = ilwork (itkbeg + 4)
179 do is = 1,numseg
204 itkbeg = itkbeg + 4 + 2*numseg
228 numseg = ilwork (itkbeg + 4)
239 do is = 1,numseg
253 itkbeg = itkbeg + 4 + 2*numseg
/phasta/M2NFixBnd/src/
H A Dctypes.f44 numseg = ilwork (itkbeg + 4)
50 if (numseg .gt. maxseg)
51 & call error('ctypes ','numseg ',numseg )
56 do is = 1,numseg
86 ioffset(1:numseg) = isbegin(1:numseg) - isbegin(1)
105 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
160 itkbeg = itkbeg + 4 + 2*numseg
H A DcommuMax.f140 numseg = ilwork (itkbeg + 4)
180 do is = 1,numseg
205 itkbeg = itkbeg + 4 + 2*numseg
229 numseg = ilwork (itkbeg + 4)
240 do is = 1,numseg
254 itkbeg = itkbeg + 4 + 2*numseg
/phasta/M2N/src/
H A Dctypes.f43 numseg = ilwork (itkbeg + 4)
49 if (numseg .gt. maxseg)
50 & call error('ctypes ','numseg ',numseg )
55 do is = 1,numseg
85 ioffset(1:numseg) = isbegin(1:numseg) - isbegin(1)
104 call MPI_TYPE_INDEXED (numseg, lenseg, ioffset,
155 itkbeg = itkbeg + 4 + 2*numseg
H A Dcommu.f136 numseg = ilwork (itkbeg + 4)
176 do is = 1,numseg
201 itkbeg = itkbeg + 4 + 2*numseg
225 numseg = ilwork (itkbeg + 4)
236 do is = 1,numseg
251 itkbeg = itkbeg + 4 + 2*numseg
/phasta/phSolver/AMG/
H A Dramg_paratools.f33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
94 numseg = ilwork(itkbeg+4)
97 sub_nshg%p(i) = numseg
99 allocate(sub_map%pp(i)%p(numseg))
106 do j=1,numseg
115 allocate(sub_colm%pp(i)%p(numseg+1))
116 allocate(sub_colm2%pp(i)%p(numseg+1))
120 do j=1,numseg
138 sub_colm%pp(i)%p(numseg+1) = sub_nnz%p(i) + 1
141 call MPI_ISEND(sub_colm%pp(i)%p(1),numseg+1,MPI_INTEGER,
[all …]
H A Dramg_tools.f317 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
326 numseg = ilwork(itkbeg+4)
328 do j=1,numseg
335 itkbeg = itkbeg+4+2*numseg
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
369 numseg = ilwork(itkbeg+4)
371 do j=1,numseg
H A Dramg_ggb.f208 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
234 numseg = ilwork(itkbeg+4)
244 itkbeg = itkbeg + 4 + 2*numseg
H A Dramg_control.f148 integer :: i,numtask,itkbeg,numseg,iacc local
/phasta/phSolver/compressible/
H A Dau1gmr.f87 numseg = ilwork (itkbeg + 4)
90 do is = 1,numseg
98 itkbeg = itkbeg + 4 + 2*numseg
183 numseg = ilwork (itkbeg + 4)
186 do is = 1,numseg
194 itkbeg = itkbeg + 4 + 2*numseg
H A Dbc3res.f183 numseg = ilwork (itkbeg + 4)
186 do is = 1,numseg
194 itkbeg = itkbeg + 4 + 2*numseg
274 numseg = ilwork (itkbeg + 4)
277 do is = 1,numseg
285 itkbeg = itkbeg + 4 + 2*numseg
H A Dsparseap.f120 numseg = ilwork (itkbeg + 4)
123 do is = 1,numseg
131 itkbeg = itkbeg + 4 + 2*numseg
H A Dbc3bdg.f366 numseg = ilwork (itkbeg + 4)
369 do is = 1,numseg
382 itkbeg = itkbeg + 4 + 2*numseg
456 numseg = ilwork (itkbeg + 4)
459 do is = 1,numseg
467 itkbeg = itkbeg + 4 + 2*numseg
/phasta/phSolver/common/test/
H A DphIOreadIlwork.cc80 int numseg = ilwork [itkbeg + 4]; in main() local
83 itkbeg = itkbeg + 4 + 2*numseg; in main()
115 int numseg = ilwork [itkbeg + 4]; in main() local
119 for(int is=1;is<=numseg;is++) { in main()
123 … %d:\ttag %d\townership %d\trank %d\tnumseg %d\tnumvtx %d\n",itask,itag,iacc,iother,numseg,lfront); in main()
124 itkbeg = itkbeg + 4 + 2*numseg; in main()
/phasta/phSolver/incompressible/
H A Dbc3per.f47 numseg = ilwork (itkbeg + 4)
50 do is = 1,numseg
58 itkbeg = itkbeg + 4 + 2*numseg
H A DadvLES.f636 numseg = ilwork (itkbeg + 4)
639 do is = 1,numseg
647 itkbeg = itkbeg + 4 + 2*numseg
749 numseg = ilwork (itkbeg + 4)
752 do is = 1,numseg
761 itkbeg = itkbeg + 4 + 2*numseg
1174 numseg = ilwork (itkbeg + 4)
1177 do is = 1,numseg
1186 itkbeg = itkbeg + 4 + 2*numseg
1525 numseg = ilwork (itkbeg + 4)
[all …]
H A Dfilters.f1158 numseg = ilwork (itkbeg + 4)
1161 do is = 1,numseg
1169 itkbeg = itkbeg + 4 + 2*numseg
1893 numseg = ilwork (itkbeg + 4)
1896 do is = 1,numseg
1910 itkbeg = itkbeg + 4 + 2*numseg
2634 numseg = ilwork (itkbeg + 4)
2637 do is = 1,numseg
2651 itkbeg = itkbeg + 4 + 2*numseg

12