Searched refs:CumClosestParticle (Results 1 – 1 of 1) sorted by relevance
85 INTEGER, POINTER :: CumClosestParticle(:) => NULL() component4748 ALLOCATE( Particles % CumClosestParticle( NoNodes+1 ) ) 4803 Particles % CumClosestParticle(1) = 14808 Particles % CumClosestParticle(i+1) = Particles % CumClosestParticle(i)+j4816 ALLOCATE( Particles % ClosestParticle(Particles % CumClosestParticle(NoNodes+1)) )4825 k = Particles % CumClosestParticle(node)5120 DO k=Particles % CumClosestParticle(j),Particles % CumClosestParticle(j+1)-1