SUBROUTINE YCLACC(NAME,LABEL,TYPE,ISTAT)
*
*  Module number:
*
*  Module name: YCLACC
*
*  Keyphrase:
*  ----------
*       Check that the reference relation tables and files exist
*  Description:
*  ------------
*       This routine inquires about the existence of a file and prints 
*       an error message if unable to find the files.
*
*  FORTRAN name: YCLACC.FOR
*
*  Keywords of accessed files and tables:
*  --------------------------------------
*  Name                         I/O     Description / Comments
*
*  Subroutines Called:
*  -------------------
*  CDBS:
*       none
*  SDAS:
*       uttacc, uufacc, ymsput
*
*  History:
*  --------
*  Version      Date        Author          Description
*       1       Sep 89      S J Hulbert     Designed and coded
*-------------------------------------------------------------------------------
C
C     YMSPUT DESTINATIONS -- CB, DAO, 4-SEP-87
C
      INTEGER STDOUT
      PARAMETER (STDOUT = 1)
      INTEGER STDERR
      PARAMETER (STDERR = 2)
C
      CHARACTER * 80 CONTXT
      CHARACTER * 64 NAME 
      CHARACTER *  8 LABEL
      CHARACTER *  5 TYPE
      LOGICAL EXIST
      INTEGER ISTAT
C
C--------------------------------------------------------------------------
C
      IF (TYPE .EQ. 'TABLE') THEN
         CALL UTTACC(NAME,EXIST,ISTAT)
      ELSE IF (TYPE .EQ. 'FILE') THEN
         CALL UUFACC(NAME,EXIST,ISTAT)
      ENDIF
C
C notify, if any problems 
C
      IF (ISTAT .NE. 0 .OR. .NOT. EXIST) GO TO 999
C
      ISTAT = 0
      GO TO 1000
C
 999  CONTINUE
      WRITE(CONTXT,991)TYPE,LABEL
 991  FORMAT('WARNING: Reference ',A5,' not found for keyword ',
     *     A8)
      CALL YMSPUT(CONTXT,STDOUT+STDERR,0,ISTAT)
      CONTXT='       = '//NAME
      CALL YMSPUT(CONTXT,STDOUT+STDERR,0,ISTAT)
      ISTAT = 1
 1000 RETURN
      END