Procedure

     PUTACT ( Store Error Response Action )

     SUBROUTINE PUTACT ( ACTION )

Abstract

     Store the error response action.

     PUTACT is a low-level data structure access routine.
     DO NOT CALL THIS ROUTINE. USE ERRACT, NOT PUTACT, TO SET THE
     CURRENT ERROR RESPONSE ACTION.

Required_Reading

     ERROR

Keywords

     ERROR

Declarations

     IMPLICIT NONE

     INTEGER               ACTION

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     ACTION     I   The integer code for the error response action.

Detailed_Input

     ACTION   is the new integer code for the error response action.
              This code is saved for use by the error handling
              system.

Detailed_Output

     None.

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     DO NOT CALL THIS ROUTINE.

     This is a data structure access routine for the SPICELIB
     error response action. This routine should be used for
     no other purpose. In particular, it should not be used
     by non-SPICELIB routines to set up an error response;
     use ERRACT for that.

Examples

     None.

Restrictions

     1)  DO NOT CALL THIS ROUTINE.

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

     3)  See the subroutine ERRACT for the definitions of the error
         action codes.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 2.1.0, 27-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

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

    SPICELIB Version 2.0.0, 22-APR-1996 (KRG)

        This subroutine has been modified in an attempt to improve
        the general performance of the SPICELIB error handling
        mechanism. The specific modification has been to change the
        type of the saved error action from a short character string
        to an integer. This change is backwardly incompatible
        because the type of the input argument has changed. This
        should pose no difficulties because it is a private subroutine
        used by the error handling system, and hence isolated from
        direct use.

    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)