*
* $Id: zexam2.F,v 1.1.1.1 1996/03/08 12:01:14 mclareni Exp $
*
* $Log: zexam2.F,v $
* Revision 1.1.1.1  1996/03/08 12:01:14  mclareni
* Zbook
*
*
#include "zbook/pilot.h"
      SUBROUTINE ZEXAM2
C
C   EXAMPLE  2:  - INITIALISATION OF A DYNAMIC STRUCTURE
C                - BOOKING AND FILLING OF BANKS
C                - USAGE OF WORKING SPACE
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/MOREID/IDMORE(10)
C
C   INITIALISATION
C
      CALL ZINIT (Z,WS,1000)
C
C   BOOKING OF BANKS
C
      NWORDS = 23
      CALL ZBOOK0 (Z,ID1,NWORDS)
      CALL ZBOOK0 (Z,ID2,NWORDS)
      CALL ZBOOK0 (Z,ID3,NWORDS)
C
C   MORE BANKS (IDENTIFIERS STORED IN A LABELLED COMMON BLOCK)
C
      NWORDS = 11
C
      DO  10 I = 1,10
   10 CALL ZBOOK0 (Z,IDMORE(I),NWORDS)
C
C   IDENTIFIERS CAN BE LOCAL VARIABLES
C
      LOCAL  = 0
      CALL ZBOOK0 (Z,LOCAL,NWORDS)
C
C   WORKING SPACE
C
      NWORK  = 11
      CALL ZLEFT (Z,NLEFT)
      IF (NLEFT.LT.NWORK)                        GO TO 999
C
      CALL ZWORK (Z,NWORK)
C
      DO  20 I = 1,NWORK
   20 WS(I)  = FLOAT (I)
C
  999 RETURN
      END