Procedure

     ACCEPT ( Accept New Long Error Message )

     LOGICAL FUNCTION ACCEPT ( OK )

Abstract

     Indicate to the SPICELIB error handling mechanism whether or not
     a replacement or modification of the long error message can be
     accepted.  

     DO NOT CALL THIS ROUTINE.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

     IMPLICIT NONE

     LOGICAL               OK

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     OK         I   Indicates whether long error msg changes are ok.

     The function takes an UNSPECIFIED value on exit.

Detailed_Input

     OK       indicates to the error handling mechanism whether
              replacement of or changes to the long error message
              are to be allowed; for them to be allowed,
              both of the following must be true:

              1. No error condition exists, or the error response
                 action is not 'RETURN'.

              2. The current error response mode is not 'IGNORE'.

Detailed_Output

     The function is assigned a value on output, but the
     value is not meaningful.

Parameters

     None.

Exceptions

     Error free.

     1)  This routine does not detect any errors.

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

Files

     None.

Particulars

     DO NOT CALL THIS ROUTINE.

Examples

     None.

Restrictions

     1)  DO NOT 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)

        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)