Procedure

     ALLOWD    (Are Changes of Long Error Message Allowed?)

      ENTRY  ALLOWD ()

Abstract

     Return .TRUE. if replacement or modification of the long error 
     message is allowed. 

     DO NOT CALL THIS ROUTINE.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

     None.

Brief_I/O

     The function takes the value, .TRUE., if replacement or
     modification of the long error message is currently allowed.

Detailed_Input

     None.

Detailed_Output

     The function takes the value, .TRUE., if 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'.

Parameters

     None.

Exceptions

     1)  This routine does not detect any errors.

Files

     None.

Particulars

     DO NOT CALL THIS ROUTINE.

     Non-error handling routines should not call this routine. Such
     routines can set the long error message using SETMSG, which
     itself calls this routine to test whether an update is allowed.

     The initial value returned by ALLOWD is .FALSE.

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)
     H.A. Neilan        (JPL)
     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) (HAN)