Changeset 295 for trunk/SRC/Grid
- Timestamp:
- 09/25/07 12:16:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Grid/numbisland.pro
r240 r295 5 5 ; @file_comments 6 6 ; recursive function. 7 ; for one given point on an island, check if its neighbo urgs are on the same island7 ; for one given point on an island, check if its neighbors are on the same island 8 8 ; 9 9 ; @param msk {in}{required}{type=2D array of 0 and 1} … … 30 30 ; flag the point 31 31 msk[indin] = numb 32 ; find its neighbo urgs32 ; find its neighbors 33 33 indx = (indin MOD nx) + [-1L, 0L, 1L] 34 34 indx = (temporary(indx) + nx) MOD nx ; x periodicity … … 37 37 ; build 1d index 38 38 ind = temporary(indx)#replicate(1L, 3) + replicate(nx, 3)#temporary(indy) 39 ; for each neighbo urgon the same island, call again mskneig39 ; for each neighbor on the same island, call again mskneig 40 40 FOR i = 0, n_elements(ind)-1 DO BEGIN 41 41 IF msk[ind[i]] EQ 0 THEN mskneig, msk, nx, ny, ind[i], numb
Note: See TracChangeset
for help on using the changeset viewer.