Lines Matching refs:temp
550 integer, allocatable :: temp(:) ! temp space local
635 allocate (temp(nsidt))
665 & MPI_INTEGER,temp(:),nsid,idisp,
672 if(temp(j).lt.temp(j-1)) then ! ID exceeds predecessor
673 itmp=temp(j-1)
674 temp(j-1)=temp(j)
675 temp(j)=itmp
683 if(temp(j).eq.temp(j-1)) nsidg = nsidg - 1 ! correction
687 sidmapg(1)=temp(1)
690 if(temp(j).ne.temp(j-1)) then
692 sidmapg(nsidg)=temp(j)
695 deallocate( temp )