Home
last modified time | relevance | path

Searched refs:fncorp (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/common/
H A Dfncorp.f3 integer*8, allocatable :: fncorp(:) variable
9 if ( allocated(fncorp) ) then
10 deallocate(fncorp)
H A Dreadnblk.f197 allocate(fncorp(fncorpsize))
198 call gen_ncorp(fncorp, ilworkread, nlwork, fncorpsize)
203 minowned=maxval(fncorp)
205 if(fncorp(i).gt.0) then ! don't consider remote copies
206 maxowned=max(maxowned,fncorp(i))
207 minowned=min(minowned,fncorp(i))
213 call commuInt(fncorp, point2ilwork, 1, 'out')
218 ltg(:)=fncorp(:)
223 allocate(fncorp(fncorpsize))
228 fncorp(i)=i
H A Dgensav.f36 ienG(:,i) = fncorp(abs(ientmp(:,i)))
/phasta/phSolver/compressible/
H A Dsolgmrpetsc.c65 double* shglb, double* Dy, double* rerr, long long int* fncorp) in SolGMRp() argument
141 if((fncorp[k] < mbeg) || (fncorp[k] >mend)){ in SolGMRp()
147 glbNZ=fncorp[row[j]-1]; in SolGMRp()
260 nodetoinsert = fncorp[i]-1; in SolGMRp()
319 PetscRow = (fncorp[i]-1)*nflow+(j-1); in SolGMRp()
324 assert(fncorp[i]<=nshgt); in SolGMRp()
325 assert(fncorp[i]>0); in SolGMRp()
411 double* shglb, double* res, double* Dy, long long int* fncorp) in SolGMRpSclr() argument
490 if((fncorp[k] < mbeg) || (fncorp[k] >mend)){ in SolGMRpSclr()
494 glbNZ=fncorp[row[j]-1]; in SolGMRpSclr()
[all …]
H A Ditrdrv.f471 & rerr, fncorp )
569 & solinc(1,isclr+5),fncorp)