SUBROUTINE HBKINI(IERR)
C
C  This routine opens an HBOOK RZ file defined by the environment variable
C  KOFIA_HIS on Unix and KOFIA$HIS on Vax.  The Zebra directory to which
C  we will write ntuples and histograms is called KOFIA.
C
C  It appears that just doing a SAVE/HBOOK inside KOFIA doesn't do the job.
C
C  Author:
C  =======
C  G.R.
C
C  History:
C  ========
C  09-Sep-92     Born
C
C  Return parameters
C  =================
C  IERR          (I*4)           Error code. 0 means ok.
C
C  Global Declarations
C  ===================
C
$$IMPLICIT
$$INCLUDE 'KOFIA$LIB:LUNS.CMN'
C
C  Local Declarations
C  ==================
c
      INTEGER*4    IERR
      CHARACTER*80 WFILE
      INTEGER*4    STATUS
C
C  External functions
C  ==================
C
$$IF VAX
      INTEGER*4 SYS$TRNLOG
$$ENDIF
C
C  Start of executable code
C  =====================================================================

C-- No errors so far

      IERR = 0

C-- Translate the environment variable

$$IF UNIX
      CALL GETENV('KOFIA_HIS',WFILE)
$$ELSE
      STATUS = SYS$TRNLOG('KOFIA$HIS',,WFILE,,,)
      IF(STATUS.NE.1) GO TO 7734
$$ENDIF

C-- Open the file

      IF(WFILE.EQ.' ') THEN
        GO TO 7734
      ELSE
        OPEN(LHIST,FILE=WFILE,FORM='UNFORMATTED',RECL=1024,
     &         ACCESS='DIRECT',STATUS='NEW',ERR=7734)
        CALL HRFILE(LHIST,'KOFIA','N')
        RETURN
      ENDIF

7734  CONTINUE
      IERR=1
      RETURN
      END