c fringlib.for c*******************************************************************************
c fringlib.for -- FORTRAN wrappers for those RingLib routines that handle
c character strings.
c
c Mark Showalter, PDS Ring-Moon Systems Node, January 1997
c*******************************************************************************
c*******************************************************************************
c FORTRAN string conversion routines for rlerrors.c
c*******************************************************************************
subroutine FRL_RaiseError(error_id, message)
character*(*) error_id, message
logical*1 array1(80), array2(256)
call FORT_CSTRING(error_id, array1, 80)
call FORT_CSTRING(message, array2, 256)
call GRL_RaiseError(array1, array2)
return
end
c***************************************
subroutine FRL_PipeErrors(filename)
character*(*) filename
logical*1 array(256)
call FORT_CSTRING(filename, array, 256)
call GRL_PipeErrors(array)
return
end
c***************************************
logical*4 function FRL_TestError(error_id)
character*(*) error_id
logical*1 array(80)
logical*4 GRL_TestError
FRL_TestError = GRL_TestError(array, 80)
call FORT_FSTRING(array, error_id)
return
end
c***************************************
logical*4 function FRL_ClearError(error_id)
character*(*) error_id
logical*1 array(80)
logical*4 GRL_ClearError
FRL_ClearError = GRL_ClearError(array, 80)
call FORT_FSTRING(array, error_id)
return
end
c***************************************
logical*4 function FRL_TestError1(error_id)
character*(*) error_id
logical*1 array(80)
logical*4 GRL_TestError1
call FORT_CSTRING(error_id, array, 80)
FRL_TestError1 = GRL_TestError1(array)
return
end
c***************************************
logical*4 function FRL_ClearError1(error_id)
character*(*) error_id
logical*1 array(80)
logical*4 GRL_ClearError1
call FORT_CSTRING(error_id, array, 80)
FRL_ClearError1 = GRL_ClearError1(array)
return
end
c***************************************
integer*4 function FRL_SetErrorType(error_id, error_type)
character*(*) error_id
integer*4 error_type
logical*1 array(80)
integer*4 GRL_SetErrorType
call FORT_CSTRING(error_id, array, 80)
FRL_SetErrorType = GRL_SetErrorType(array, error_type)
return
end
c***************************************
integer*4 function FRL_GetErrorType(error_id)
character*(*) error_id
logical*1 array(80)
integer*4 GRL_GetErrorType
call FORT_CSTRING(error_id, array, 80)
FRL_GetErrorType = GRL_GetErrorType(array)
return
end
c*******************************************************************************
c