Searched refs:nsidl (Results 1 – 1 of 1) sorted by relevance
537 integer nsidl ! number of surface IDs on-proc local558 nsidl=0 ! initialize # of sids on this processor566 if(nsidl.eq.0) then ! if this is the first sid we've seen567 nsidl=1 ! increment our count and573 do j = 1, nsidl ! check the assumption577 if(j.ne.nsidl) then ! ...582 nsidl = nsidl + 1 ! increment our count593 if(nsidl.gt.0) then594 allocate( sidmapl(nsidl) )596 do j = 1, nsidl[all …]