RECIO_ERRTRAN - translate an error number

SUBROUTINE RECIO_ERRTRAN ( ERRMSG, STATUS )

   ERRMSG = CHARACTER*(*) (returned)
            error message
   STATUS = INTEGER (given and returned) */
            global status