Searched refs:nsidg (Results 1 – 1 of 1) sorted by relevance
190 integer sid, nsidg local218 call gensidcount(nsidg)221 if(nsidg.gt.0) then ! if there are any surfID's223 do k = 1, nsidg ! loop over Surface ID's517 subroutine gensidcount(nsidg) argument539 integer nsidg ! number of surface IDs globally local559 nsidg=0681 nsidg=nsidt ! assume there are no duplicate SurfID's683 if(temp(j).eq.temp(j-1)) nsidg = nsidg - 1 ! correction686 allocate( sidmapg(nsidg) )[all …]