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