Procedure

     GETSMS ( Get Short Error Message )

      ENTRY GETSMS ( MSG )

Abstract

     Return the value of the current short error message.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

    IMPLICIT NONE

    CHARACTER*(*)          MSG

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     MSG        O   The current short error message.

Detailed_Input

     None.

Detailed_Output

     MSG      is the current short error message. See the
              "required reading" file for a detailed discussion
              of error messages.

Parameters

     None.

Exceptions

     Error free.

     1)  However, this routine is part of the SPICELIB error
         handling mechanism.

Files

     None.

Particulars

     See the required reading file for details of error processing.

Examples

     None.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)

Version

    SPICELIB Version 1.2.0, 03-JUN-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Added
        $Index_Entries entry. Removed unnecessary $Revisions section.

    SPICELIB Version 1.1.0, 29-JUL-1997 (NJB)

        Maximum length of the short error message is now represented
        by the parameter SMSGLN. Miscellaneous header fixes were
        made. Some indentation and vertical white space abnormalities
        in the code were fixed. Some dubious comments were deleted
        from the code.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (NJB)