[Previous]
[Next]
NAME:
UlyssesOrbit
PURPOSE:
Calculate Ulysses orbit (position and velocity vectors)
CATEGORY:
Celestial mechanics
CALLING SEQUENCE:
subroutine UlyssesOrbit(iYr,Doy,RR,VV)
INPUTS:
iYr integer year
Doy real day of year
OUTPUTS:
RR(3) real position vector: ecliptic longitude and
latitude (deg), radial distance (AU)
VV(5) real velocity vector: ecliptic longitude and
latitude (deg), magnitude, radial and
tangential velocity (AU/day)
(will be zero if the Ulysses orbital
data base is used; see PROCEDURE).
CALLS: ***
Julian, KeplerOrbit, Say
CALLED BY:
ExtractPosition, ExtractPositionn8
INCLUDE:
include 'sun.h'
include 'filparts.h'
include 'dirspec.h'
PROCEDURE:
> If the data base with Ulysses orbital coordinates exists (file
$dat:UlyssesPos.txt) the position vector is obtained by
linear interpolation on the data base.
> If the data base does not exist, approximate orbital parameters
are used. These parameters were determined by least-square fitting
Ulysses orbital data from the years 1993 to 1996 (first polar passage).
MODIFICATION HISTORY:
JUN-1997, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
uppercase
PURPOSE:
Convert string to uppercase
CATEGORY:
String manipulation
CALLING SEQUENCE:
subroutine uppercase(C)
INPUTS:
C character*(*) string to be processed
OUTPUTS:
C character*(*) modified string
CALLED BY:
AskChar, AskWhatPrmpt, DATE_DOY, ForeignArg, ForeignFile, ForeignInput, SD, Say
SetLog2Dir, Str2Dbl, Str2Flt, Str2Flt_Exp, Str2Flt_FforI, Str2Flt_Int, Str2Flt_Mask
Str2Flt_XforA, Str2Int, Time2Month, WR2DARR, bAskChar, bOpenFile, bValidFileName
iAskChar, iAskWhatEntry, iFilePath, iFileStructure, iGetDirectoryFragment
iGetFileSpec, iGetParentDirectory, iGetTopDirectory, iSetFileSpec, sprint
SEE ALSO:
bCompareStr, icompress, itrim, iwhitespace, lowercase
PROCEDURE:
Each character in the string is converted separately.
The intrinsic FORTRAN functions ICHAR is used to find the ASCII code
for the character. For lowercase characters (ASCII code 97-122) 32 is
subtracted from the ASCII code.The FORTRAN function CHAR is used to
convert the corrected code back to a character.
MODIFICATION HISTORY:
JAN-1992, Paul Hick (UCSD)
