Changeset 495 for trunk/SRC/Interpolation/inquad.pro
- Timestamp:
- 04/17/14 10:49:43 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/inquad.pro
r371 r495 34 34 ; 35 35 ; @keyword DELTA {default=4} 36 ; to speed up the program, we reduce the a era where we look for potential36 ; to speed up the program, we reduce the area where we look for potential 37 37 ; quadrilaterals containing (x,y). Delta defines the limit of the box 38 38 ; centred on (x,y) with a zonal and meridional extent of delta degrees. … … 202 202 ENDIF 203 203 ; 204 ;205 204 ; the point is inside the quadrilateral if test eq 1 206 205 ; with test equal to: … … 217 216 ; row j of test corresponds to all the points localized in cell j 218 217 219 IF keyword_set(double) THEN one = 1.d ELSE one = 1. 218 IF keyword_set(double) THEN one = 1.d ELSE one = 1. 220 219 nquad_1 = replicate(one, nquad) 221 220 ntofind_1 = replicate(one, ntofind)
Note: See TracChangeset
for help on using the changeset viewer.