c fringlib.inc
c*******************************************************************************
c fringlib.inc -- Include file for standard RingLib features, FORTRAN version
c
c Mark Showalter & Neil Heather, PDS Rings Node, January 1997
c*******************************************************************************
c Error type definitions
integer*4 RL_IGNORE, RL_INFORM, RL_RECORD, RL_SIGNAL,
& RL_ABORT
parameter (RL_IGNORE = -1)
parameter (RL_INFORM = 1)
parameter (RL_RECORD = -2)
parameter (RL_SIGNAL = 2)
parameter (RL_ABORT = 3)
c Error routines
logical*4 FRL_TestError, FRL_ClearError
logical*4 FRL_TestError1, FRL_ClearError1
integer*4 FRL_SetErrorType, FRL_GetErrorType
c*******************************************************************************
c