Procedure

     PUTSMS ( Store Short Error Message )

     SUBROUTINE PUTSMS ( MSG )

Abstract

     Store a short error message.

     PUTSMS is a low-level data structure access routine.
     DO NOT CALL THIS ROUTINE. USE SIGERR, NOT PUTSMS, TO SIGNAL
     ERRORS.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

     IMPLICIT NONE

     INCLUDE 'errhnd.inc'

     CHARACTER*(*)          MSG

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     MSG        I   A short error message.

Detailed_Input

     MSG      is the current short error message. This value will be
              saved.

Detailed_Output

     None.

Parameters

     SMSGLN   is the maximum length of the short error message. See
              the include file errhnd.inc for the value of SMSGLN.

Exceptions

     None.

Files

     None.

Particulars

     This is a data structure access routine for the
     toolkit short error message. This routine should be
     used for no other purpose; in particular, it should
     not be used to signal errors. Use SIGERR for that.

Examples

     None.

Restrictions

     1)  Calls to this routine by routines other than the
         SPICELIB error handling routines may interfere
         with error processing.

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, 27-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Added
        $Index_Entries entry.

    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)