Changeset 434 for trunk/SRC

Timestamp:

06/17/10 09:35:20 (14 years ago)

Author:

smasson

Message:

bugfix in angle lbc

File:

• trunk/SRC/Interpolation/angle.pro (modified) (1 diff)

trunk/SRC/Interpolation/angle.pro

@@ -248 +248 @@
   gsinu[*, 0] = gsinu[*, 1]
 ;
-  IF keyword_set(double) THEN sgn = 1.d ELSE sgn = 1.
-  dummy = lbcorca(gcost, 'T',  sgn, /correction)
-  dummy = lbcorca(gsint, 'T', -sgn, /correction)
-  dummy = lbcorca(gcosu, 'U',  sgn, /correction)
-  dummy = lbcorca(gsinu, 'U', -sgn, /correction)
-  dummy = lbcorca(gcosv, 'V',  sgn, /correction)
-  dummy = lbcorca(gsinv, 'V', -sgn, /correction)
-  dummy = lbcorca(gcosf, 'F',  sgn, /correction)
-  dummy = lbcorca(gsinf, 'F', -sgn, /correction)
+  IF keyword_set(double) THEN sgn = -1.d ELSE sgn = -1.
+  dummy = lbcorca(gcost, 'T', sgn, /correction)
+  dummy = lbcorca(gsint, 'T', sgn, /correction)
+  dummy = lbcorca(gcosu, 'U', sgn, /correction)
+  dummy = lbcorca(gsinu, 'U', sgn, /correction)
+  dummy = lbcorca(gcosv, 'V', sgn, /correction)
+  dummy = lbcorca(gsinv, 'V', sgn, /correction)
+  dummy = lbcorca(gcosf, 'F', sgn, /correction)
+  dummy = lbcorca(gsinf, 'F', sgn, /correction)
 ;