idss Function

function idss(name)

FOR USE WITH SOLSYS VERSION 1. THIS FUNCTION RETURNS THE ID NUMBER OF A SOLAR SYSTEM BODY FOR THE VERSION OF SOLSYS (OR SOLSYS-AUXPOS COMBINATION) IN USE. FOR SOLSYS VERSION 1, THE ID NUMBER OF A BODY REFERS TO ITS ORDER WITHIN EACH RECORD OF THE COORDINATE FILE, WITH ID NUMBERS BEGINNING AT 0 FOR THE FIRST BODY (NORMALLY THE SUN).

NAME   = NAME OF BODY WHOSE ID NUMBER IS DESIRED, E.G.,
         'SUN', 'MOON, 'MERCURY', ETC., EXPRESSED AS ALL
         UPPER-CASE LETTERS (IN)
IDSS   = ID NUMBER OF BODY, FOR USE IN CALLS TO SOLSYS
         (FUNCTION VALUE RETURNED)

NOTE 1: IN THIS VERSION, ONLY THE FIRST THREE LETTERS OF THE BODY'S NAME ARE USED FOR IDENTIFICATION. ALTERNATIVE VERSIONS MIGHT USE MORE LETTERS.

NOTE 2: IF NAME IS 'JD', IDSS RETURNS IDSS=1, SINCE SOLSYS VERSION 1 DOES NOT PROCESS SPLIT JULIAN DATES.

NOTE 3: ALL VERSIONS OF IDSS MUST RETURN IDSS=-9999 FOR OBJECTS THAT IT CANNOT IDENTIFY OR ARE UNSUPPORTED BY SOLSYS.

Arguments

Type IntentOptional Attributes Name
character(len=1) :: name*(*)

Return Value integer


Calls

proc~~idss~2~~CallsGraph proc~idss~2 NOVAS_F3.1_solsys1.f90::idss ids ids proc~idss~2->ids