Ignore:
Timestamp:
03/27/07 15:43:18 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/Calendar/date2jul.pro

    r231 r238  
    11;+ 
    22; 
    3 ; @file_comments  
     3; @file_comments 
    44; gives Julian day equivalent of a date in yyyymmdd format 
    55; 
     
    1414; if 50 <= year <= 99 --> year = 1900 + year 
    1515; 
    16 ; @returns  
     16; @returns 
    1717; date in Julian day 
    1818; 
     
    2525;       1 
    2626; 
    27 ; @history  
     27; @history 
    2828; Sebastien Masson (smasson\@lodyc.jussieu.fr) June 2005 
    2929; 
     
    4646;------------------------------------------------------------ 
    4747  IF array_equal(date, long(date)) THEN return, julday(month, day, year) 
    48    
     48 
    4949  fraction = date - long(date) 
    5050  hour = floor(fraction * 24d) 
     
    5252  minute = floor(fraction*1440d) 
    5353  second = (TEMPORARY(fraction) - minute/1440d) * 86400d 
    54    
     54 
    5555  return, julday(month, day, year, hour, minute, second) 
    5656 
Note: See TracChangeset for help on using the changeset viewer.