Procedure

     SETERR ( Set Error Status )

     LOGICAL FUNCTION SETERR ( STATUS )

Abstract

     Set the SPICELIB error status.  DO NOT CALL THIS ROUTINE.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

     IMPLICIT NONE

     LOGICAL               STATUS

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     STATUS     I   Status indicator.

     The function takes an UNSPECIFIED (and meaningless) value
     on exit.

Detailed_Input

     STATUS   is a flag that provides the new status. When .TRUE., it
              means that an error condition exists.

Detailed_Output

     None.

     This purpose of this routine is to set status; the
     function takes an UNSPECIFIED value on exit. The
     assigned value does not have any meaning.

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     DO NOT CALL THIS ROUTINE.

     This is a data structure access routine for the
     SPICELIB status. This routine should be used for no
     other purpose; in particular, it should not be used
     to signal errors. Use SIGERR or FAILED for that.

     This routine assigns a value to SETERR on exit.
     However, the value is not meaningful.

Examples

     None.  DON'T CALL THIS ROUTINE.

     No examples. If you don't know EXACTLY what a
     ``data structure access routine'' is, don't call
     this routine. If you do know, you don't need an
     example.

Restrictions

     1)  DON'T CALL THIS ROUTINE.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 1.1.0, 26-OCT-2021 (JDR) (NJB)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    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)