FTN4
      SUBROUTINE OPEN1(LU1,NAMR,DCB1,DCB1SZ,IERR) 
     +,92069-16192 REV.2013 790413
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-18192
C     RELOC:     92069-16192
C 
C 
C****************************************************************:
C 
C 
C*************************************************************
C OPEN1 EXCLUSIVELY OPENS NAMR TO DCB1 AS A TYPE 1 FILE WITH
C BINARY DATA. IF AN ERROR OCCURS, OPEN1
C PRINTS AN ERROR MESSAGE ON LU1, SETS IERR NEGATIVE, AND RETURNS.
C************************************************************** 
      INTEGER LU1,NAMR(1),DCB1(1),DCB1SZ,IERR 
C************************************************************** 
C OPEN THE FILE.
      ISECU=NAMR(5) 
      ICR= NAMR(6)
      IOPTN=104B
      CALL OPENF(DCB1,IERR,NAMR,IOPTN,ISECU,ICR,DCB1SZ) 
      IF (IERR .GE. 0) IERR=0 
      CALL DBER2(LU1,IERR,NAMR,6HOPEN1 ,2HXX) 
      RETURN
      END 
                                                                                                                                                                                                                                                        