*
* $Id: zepend.F,v 1.1.1.1 1996/03/08 12:01:12 mclareni Exp $
*
* $Log: zepend.F,v $
* Revision 1.1.1.1  1996/03/08 12:01:12  mclareni
* Zbook
*
*
#include "zbook/pilot.h"
      SUBROUTINE ZEPEND(IZ,LUN,IERR)
C
C     ******************************************************************
C     *                                                                *
C     *       IF LUN IS INPUT UNIT  DELETE SYSTEM BANK                 *
C     *       IF LUN IS OUTPUT      DELETE SYSTEM BANK                 *
C     *                             CALL EPEND                         *
C     *       IF LUN=0  CLOSE ALL OPEN FILES                           *
C     *                                                                *
C     ******************************************************************
C
      DIMENSION IZ(1)
C
C     ------------------------------------------------------------------
C
      IERR   = 0
      JZ     = IZ(1)
      JD     = IZ(JZ - 3)
      IF (JD.LE.0)                               GO TO 99
      NL     = IZ(JD) - 2
C
      DO 10 NLUN = 1,NL
      IF (LUN.NE.0.AND.LUN.NE.IZ(JD + NLUN))     GO TO 10
C
      JBUF   = IZ(JD - NLUN)
      IF (JBUF.LE.0)                             GO TO 10
      LU=IZ(JD+NLUN)
C
      IF(IZ(JBUF+1).GT.3) CALL EPEND(LU,IZ(JBUF+3),IERR)
C
      CALL ZDELET(IZ,JBUF)
C
      IZ(JD + NLUN) = 0
  10  CONTINUE
C
  99  RETURN
      END