Searched refs:iBCpart (Results 1 – 2 of 2) sorted by relevance
40 integer, allocatable :: iBCpart(:) local73 allocate (iBCpart(nshg))74 iBCpart = 083 call iBCupdate(iBCpart, mienb(iblk)%p, miBCB(iblk)%p)85 iBC = iBC + iBCpart86 deallocate(iBCpart)
1 subroutine iBCupdate(iBCpart, ienb, iBCB) argument11 dimension iBCpart(nshg), iBCB(npro,ndiBCB),18 iBCpart(iglobal) = 8192