FTN4
      SUBROUTINE CKLU8(LU1,TAPE,DFLT,IERR)
     +,92069-16188 REV.2013 790126
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18188
C     RELOC:     92069-16188
C 
C 
C****************************************************************:
C 
C 
C********************************************************** 
C SUBR TO CHECK ON THE BACKUP TAPE DEVICE. IF NO PARAMETER
C WAS PASSED IN FOR PARAMETER 2, IT DEFAULTS TO DFLT. 
C********************************************************** 
      INTEGER LU1,TAPE,DFLT,IERR
      DIMENSION TAPE(1) 
      INTEGER EQT23,RING2 
      DATA EQT23/11400/,RING2/4B/ 
C*********************************************************
C BRANCH ON THE TYPE OF THE  PARAMETER(0=NONE,1=INTEGER,3=NAMR) 
      ITYPE = TAPE(4) 
      IERR = 0
      IF (ITYPE .EQ. 0) GO TO 10
      IF (ITYPE .EQ. 1) GO TO 20
      IF (ITYPE .EQ. 3) RETURN
C*************************************************************
C PROCESS INTERNAL ERROR THAT SHOULDN'T HAVE HAPPENED.
C 
      CALL DBER2(LU1,7777,6HXXXXXX,6HCKLU8 ,2HAB) 
C*************************************************************
C PROCESS NO PARAMETER PASSED IN. 
10    TAPE=DFLT 
      TAPE(4)=1 
      RETURN
C*************************************************************
C FOR NOW, ASSUME THAT ANY NUMBER SPECIFIED IS OK.
C 
20    RETURN
      END 
                                                                    