Changeset 434 for trunk/SRC/Interpolation/angle.pro
- Timestamp:
- 06/17/10 09:35:20 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/angle.pro
r327 r434 248 248 gsinu[*, 0] = gsinu[*, 1] 249 249 ; 250 IF keyword_set(double) THEN sgn = 1.d ELSE sgn =1.251 dummy = lbcorca(gcost, 'T', 252 dummy = lbcorca(gsint, 'T', -sgn, /correction)253 dummy = lbcorca(gcosu, 'U', 254 dummy = lbcorca(gsinu, 'U', -sgn, /correction)255 dummy = lbcorca(gcosv, 'V', 256 dummy = lbcorca(gsinv, 'V', -sgn, /correction)257 dummy = lbcorca(gcosf, 'F', 258 dummy = lbcorca(gsinf, 'F', -sgn, /correction)250 IF keyword_set(double) THEN sgn = -1.d ELSE sgn = -1. 251 dummy = lbcorca(gcost, 'T', sgn, /correction) 252 dummy = lbcorca(gsint, 'T', sgn, /correction) 253 dummy = lbcorca(gcosu, 'U', sgn, /correction) 254 dummy = lbcorca(gsinu, 'U', sgn, /correction) 255 dummy = lbcorca(gcosv, 'V', sgn, /correction) 256 dummy = lbcorca(gsinv, 'V', sgn, /correction) 257 dummy = lbcorca(gcosf, 'F', sgn, /correction) 258 dummy = lbcorca(gsinf, 'F', sgn, /correction) 259 259 ; 260 260
Note: See TracChangeset
for help on using the changeset viewer.