*
* $Id: zexam9.F,v 1.1.1.1 1996/03/08 12:01:14 mclareni Exp $
*
* $Log: zexam9.F,v $
* Revision 1.1.1.1  1996/03/08 12:01:14  mclareni
* Zbook
*
*
#include "zbook/pilot.h"
      SUBROUTINE ZEXAM9
C
C   EXAMPLE  9:  - USAGE OF ZTRAP
C
      COMMON/ZCOMM/Z(1),ID1,ID2,ID3,WS(1)
      DIMENSION IZ(1000),IWS(1)
      EQUIVALENCE (IZ(1),Z(1)), (IWS(1),WS(1))
C
      COMMON//B(1),BWS(1)
      DIMENSION IB(2000),IBWS(1)
      EQUIVALENCE (B(1),IB(1)), (BWS(1),IBWS(1))
C
      COMMON/POINTS/IP1,IP2,IP3
C
      EXTERNAL RECOVZ, RECOVB
C
C   INITIALISATION
C
      CALL ZINIT (Z,WS,1000)
      CALL ZINIT (B,BWS,2000)
      CALL VZERO (IP1,3)
C
C   MANAGEMENT OF DYNAMIC MEMORY 'Z': IN CASE OF ZBOOK ERROR
C   CALL RECOVZ
C
      CALL ZTRAP (Z,RECOVZ)
C
      CALL ZDROP (Z,ID1)
C
C   MANAGEMENT OF DYNAMIC MEMORY 'B': IN CASE OF ZBOOK ERROR
C   CALL RECOVB
C
      CALL ZTRAP (B,RECOVB)
C
      CALL ZBOOK (B,IP1,3000)
C
  999 RETURN
      END