Changeset 44 for trunk/Obsolete/nlec.pro

Timestamp:

05/02/06 18:13:44 (18 years ago)

Author:

pinsard

Message:

upgrade of LECTURE/ReadWrite according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/Obsolete/nlec.pro (copied) (copied from trunk/LECTURE/nlec.pro) (2 diffs)

trunk/Obsolete/nlec.pro

@@ -132 +132 @@
 ;------------------------------------------------------------
 testjour:
-      numsortie=(1+julday(month,day,year)-julday(1,1,year))/5.
+      numsortie=((1+julday(month,day,year)-julday(1,1,year))/5.)[0]
       if numsortie ne floor(numsortie) then begin
          if n_elements(date2) ne 0 then begin
@@ -266 +266 @@
 ;------------------------------------------------------------
    if keyword_set(key_performance) THEN print, 'temps nlec', systime(1)-tempsun 
-   time = time-3l
+   time = time-2l
    return,res
 ;------------------------------------------------------------