Changeset 133 for trunk/SRC/Calendar/caldat.pro
- Timestamp:
- 07/07/06 11:57:27 (18 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Calendar/caldat.pro
r132 r133 1 ; $Id$1 ;+ 2 2 ; 3 ; Copyright (c) 1992-2003, Research Systems, Inc. All rights reserved. 4 ; Unauthorized reproduction prohibited. 5 ; 6 7 ;+ 8 ; NAME: 9 ; CALDAT 10 ; 11 ; PURPOSE: 3 ; @file_comments 12 4 ; Return the calendar date and time given julian date. 13 5 ; This is the inverse of the function JULDAY. 14 ; CATEGORY:15 ; Misc.6 ; 7 ; @categories Calendar 16 8 ; 17 ; CALLING SEQUENCE:18 ; CALDAT, Julian, Month, Day, Year, Hour, Minute, Second19 ; See also: julday, the inverse of this function.20 9 ; 21 ; INPUTS: 22 ; JULIAN contains the Julian Day Number (which begins at noon) of the 10 ; @param JULIAN {in}{required} contains the Julian Day Number (which begins at noon) of the 23 11 ; specified calendar date. It should be a long integer. 24 ; OUTPUTS:25 ; (Trailing parameters may be omitted if not required.)26 ; MONTH: Number of the desired month (1 = January, ..., 12 = December).27 12 ; 28 ; DAY: Number of day of the month.13 ; @param MONTH {out} Number of the desired month (1 = January, ..., 12 = December). 29 14 ; 30 ; YEAR: Number of the desired year.15 ; @param DAY {out} Number of day of the month. 31 16 ; 32 ; HOUR: Hour of the day 33 ; Minute: Minute of the day 34 ; Second: Second (and fractions) of the day. 17 ; @param YEAR {out} Number of the desired year. 35 18 ; 36 ; KEYWORD PARAMETERS:19 ; @param HOUR {out} Hour of the day 37 20 ; 38 ; NDAYSPM: for using a calendar with fixed number of days per 39 ; months. defaut value of NDAYSPM=30 21 ; @param Minute {out} Minute of the day 40 22 ; 41 ; COMMON BLOCKS: cm_4cal23 ; @param Second {out} Second (and fractions) of the day. 42 24 ; 43 ; SIDE EFFECTS:44 ; None.45 25 ; 46 ; RESTRICTIONS: 47 ; Accuracy using IEEE double precision numbers is approximately 26 ; @keyword NDAYSPM {default=30} for using a calendar with fixed number of days per 27 ; months. 28 ; 29 ; @uses cm_4cal 30 ; 31 ; 32 ; @restrictions Accuracy using IEEE double precision numbers is approximately 48 33 ; 1/10000th of a second. 49 34 ; 50 ; MODIFICATION HISTORY: 51 ; Translated from "Numerical Recipies in C", by William H. Press, 35 ; @history Translated from "Numerical Recipies in C", by William H. Press, 52 36 ; Brian P. Flannery, Saul A. Teukolsky, and William T. Vetterling. 53 37 ; Cambridge University Press, 1988 (second printing). … … 61 45 ; 62 46 ; AB, 3 January 2000, Make seconds output as DOUBLE in array output. 47 ; 48 ; @version $Id$ 63 49 ;- 64 ;65 50 pro CALDAT, julian, month, day, year, hour, minute, second, NDAYSPM = ndayspm 66 51 ;------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.