Ignore:
Timestamp:
04/17/14 10:49:43 (10 years ago)
Author:
pinsard
Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/Interpolation/inquad.pro

    r371 r495  
    3434; 
    3535; @keyword DELTA {default=4} 
    36 ; to speed up the program, we reduce the aera where we look for potential 
     36; to speed up the program, we reduce the area where we look for potential 
    3737; quadrilaterals containing (x,y). Delta defines the limit of the box 
    3838; centred on (x,y) with a zonal and meridional extent of delta degrees. 
     
    202202  ENDIF 
    203203; 
    204 ; 
    205204; the point is inside the quadrilateral if test eq 1 
    206205; with test equal to: 
     
    217216; row j of test corresponds to all the points localized in cell j 
    218217 
    219   IF keyword_set(double) THEN one = 1.d ELSE one = 1.  
     218  IF keyword_set(double) THEN one = 1.d ELSE one = 1. 
    220219  nquad_1 = replicate(one, nquad) 
    221220  ntofind_1 = replicate(one, ntofind) 
Note: See TracChangeset for help on using the changeset viewer.