Lines Matching refs:nsidg
190 integer sid, nsidg local
218 call gensidcount(nsidg)
221 if(nsidg.gt.0) then ! if there are any surfID's
223 do k = 1, nsidg ! loop over Surface ID's
517 subroutine gensidcount(nsidg) argument
539 integer nsidg ! number of surface IDs globally local
559 nsidg=0
681 nsidg=nsidt ! assume there are no duplicate SurfID's
683 if(temp(j).eq.temp(j-1)) nsidg = nsidg - 1 ! correction
686 allocate( sidmapg(nsidg) )
688 nsidg = 1
691 nsidg = nsidg + 1
692 sidmapg(nsidg)=temp(j)
698 nsidg=nsidl
699 allocate( sidmapg(nsidg) )