************************************************************************
*				BEGIN				       *
*                                                                      *
*      NUM_ common block definitions for numerical error trapping      *
*      ----------------------------------------------------------      *
*                                                                      *
*				BEGIN                                  *
************************************************************************
*
*    Authors :
*     R.F. Warren-Smith (DUVAD::RFWS)
*
*    History :
*     16-AUG-1988:  Original version (DUVAD::RFWS)
*    endhistory
*


*   Exception status variable to indicate a numerical error has been
*   detected. 
      INTEGER NUM_ERROR


*   Common block.
      COMMON /NUM_CMN/ NUM_ERROR


*   Save the common block contents.
      SAVE /NUM_CMN/


*   Prevent compiler optimisation of common variables accessed by a
*   condition/signal handler. 
*      VOLATILE /NUM_CMN/



************************************************************************
*				END				       *
*                                                                      *
*      NUM_ common block definitions for numerical error trapping      *
*                                                                      *
*				END                                    *
************************************************************************
