/* bodc2n.f -- translated by f2c (version 19980913).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "f2c.h"

/* $Procedure      BODC2N ( Body ID code to name translation ) */
/* Subroutine */ int bodc2n_(integer *code, char *name__, logical *found, 
	ftnlen name_len)
{
    extern /* Subroutine */ int zzbodc2n_(integer *, char *, logical *, 
	    ftnlen), chkin_(char *, ftnlen), chkout_(char *, ftnlen);
    extern logical return_(void);

/* $ Abstract */

/*     Translate the SPICE integer code of a body into a common name */
/*     for that body. */

/* $ Disclaimer */

/*     THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
/*     CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
/*     GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
/*     ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
/*     PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
/*     TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
/*     WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
/*     PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
/*     SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
/*     SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */

/*     IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
/*     BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
/*     LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
/*     INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
/*     REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
/*     REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */

/*     RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
/*     THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
/*     CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
/*     ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */

/* $ Required_Reading */

/*     NAIF_IDS */

/* $ Keywords */

/*     BODY */
/*     CONVERSION */

/* $ Declarations */
/* $ Brief_I/O */

/*     Variable  I/O  Description */
/*     --------  ---  -------------------------------------------------- */
/*     CODE       I   Integer ID code to be translated into a name. */
/*     NAME       O   A common name for the body identified by CODE. */
/*     FOUND      O   True if translated, otherwise false. */
/*     MAXL       P   Maximum length of NAME string. */

/* $ Detailed_Input */

/*     CODE        is an integer code for a body --- */
/*                 a planet, satellite, barycenter, spacecraft, */
/*                 asteroid, comet, or other ephemeris object. */

/* $ Detailed_Output */

/*     NAME        is a common name of the body identified by CODE. */
/*                 If CODE has more than one translation, then the */
/*                 most recently defined NAME corresponding to CODE */
/*                 is returned.  NAME will have the exact format (case */
/*                 and blanks) as when the name/code pair was defined. */
/*                 If the input value of CODE is not recognized, NAME */
/*                 will remain unchanged from its input value. */

/*     FOUND       is true if CODE has a translation.  Otherwise, FOUND */
/*                 is false. */

/* $ Parameters */

/*     MAXL        is the maximum allowable length of a body name. */
/*                 This amount of storage space should be declared */
/*                 to receive NAME, otherwise truncation may occur. */
/*                 The value of this parameter may be found in the */
/*                 include file 'zzbodtrn.inc'. */

/* $ Exceptions */

/*     None. */

/* $ Files */

/*     None. */

/* $ Particulars */

/*     BODC2N is one of three related subroutines, */

/*        BODN2C      Body name to code */

/*        BODC2N      Body code to name */

/*        BODDEF      Body name/code definition */

/*     BODN2C and BODC2N perform translations between body names */
/*     and their corresponding integer ID codes which are used */
/*     in SPK and PCK files and routines.  A set of name/code */
/*     pairs are automatically defined during the first call to */
/*     one of these subroutines.  Additional name/code pairs may */
/*     be defined via BODDEF. */

/* $ Examples */

/*     1.  Suppose you ran the utility program SPACIT to summarize */
/*         an SPK ephemeris file and the following data was output */
/*         to the terminal screen. */

/*            ---------------------------------------------------------- */
/*            Segment identifier: JPL archive 21354 */
/*            Body        : -77                         Center     : 399 */
/*            From        : 1990 DEC 08 18:00:00.000 */
/*            To          : 1990 DEC 10 21:10:00.000 */
/*            Reference   : DE-200                      SPK Type    :1 */
/*            ---------------------------------------------------------- */

/*        You could write a program to translate the body codes */
/*        shown in the SPACIT output: */

/*           CALL BODC2N ( -77, BODY,   FOUND ) */
/*           CALL BODC2N ( 399, CENTER, FOUND ) */

/*           IF ( FOUND ) THEN */

/*              WRITE ( *,* ) 'BODY:    -77 = ', BODY */
/*              WRITE ( *,* ) 'CENTER:  399 = ', CENTER */

/*           END IF */

/*        You could also read the body and center codes directly from */
/*        the SPK files, using the appropriate DAF routines, and then */
/*        translate them, as above. */


/*     2.  In this example, we assume that BODDEF has not been called, */
/*         so only the set of default name/code pairs has */
/*         been defined. */

/*         Given these names, BODN2C will return the following codes: */

/*            Name                         Code    Found? */
/*            ------------------------   ------    ------ */
/*            'EARTH'                       399    Yes */
/*            '  Earth '                    399    Yes */
/*            'EMB'                           3    Yes */
/*            'Solar System Barycenter'       0    Yes */
/*            'SolarSystemBarycenter'         -    No */
/*            'SSB'                           0    Yes */
/*            'Voyager 2'                   -32    Yes */
/*            'U.S.S. Enterprise'             -    No */
/*            ' '                             -    No */
/*            'Halley's Comet'                -    No */


/*         Given these codes, BODC2N will return the following names: */

/*            Code        Name                        Found? */
/*            -------     -------------------         ------ */
/*            399         'EARTH'                     Yes */
/*              0         'SOLAR SYSTEM BARYCENTER'   Yes */
/*              3         'EARTH BARYCENTER'          Yes */
/*            -77         'GALILEO ORBITER'           Yes */
/*             11          -                          No */
/*             -1          -                          No */

/* $ Restrictions */

/*     None. */

/* $ Literature_References */

/*     None. */

/* $ Author_and_Institution */

/*     K.R. Gehringer  (JPL) */
/*     B.V. Semenov    (JPL) */
/*     F.S. Turner     (JPL) */
/*     W.L. Taber      (JPL) */

/* $ Version */

/* -    SPICELIB Version 1.0.3, 28-FEB-2008 (BVS) */

/*        Corrected the contents of the Required_Reading section. */

/* -    SPICELIB Version 1.0.2, 26-AUG-2002 (FST) */

/*        Added documentation discussing the parameter MAXL. */

/* -    SPICELIB Version 1.0.1, 01-DEC-1998 (WLT) */

/*        Added documentation that describes the output NAME if CODE */
/*        is not a recognized body ID. */

/* -    SPICELIB Version 1.0.0, 23-JAN-1996 (KRG) */

/*        This was the BODC2N entry point from the original BODTRN */
/*        subroutine that was in the NAIF toolkit SUPPORT library. */
/*        When the private subroutine ZZBODTRN was added to SPICELIB, */
/*        superceding the BODTRN from SUPPORT, the body ID code/name */
/*        translation interface from the original BODTRN was moved to */
/*        SPICELIB so that ID codes did not have to be hard codedby */
/*        users of the toolkit. */

/*        This subroutine simply calls the private subroutine ZZBODC2N */
/*        to perform its job. */

/* -& */
/* $ Index_Entries */

/*     body id code to name */

/* -& */

/*     SPICELIB functions */


/*     Standard SPICELIB error handling. */

    if (return_()) {
	return 0;
    } else {
	chkin_("BODC2N", (ftnlen)6);
    }
    zzbodc2n_(code, name__, found, name_len);

/*     No need for any error checking, since all we do is check out */
/*     and return anyway. We leave the error checking to the caller. */

    chkout_("BODC2N", (ftnlen)6);
    return 0;
} /* bodc2n_ */

