C****************************************************************
C*                                                              *
C*             G E O M F C A L . C D E                          *
C*                                                              *
C****************************************************************
C---
C---  This file contains common blocks describing forward
C---  calorimeter geometry in the detector system.
C---  (General description of fcal geometry is in DETREP.CDE)
C---
C---  XFCAL(i,j)    - x,y,z coordinates of blocks where 
C---  YFCAL(i,j)      i = the x elememt number for the block
C---  ZFCAL(i,j)      j = the y elememt number for the block
c---  ZEFFCAL(i,j)  - A distance into the block defined
c---                  as the "effective" z coordinate of the
c---                  the block.  For example it may be defined
c---                  as the depth of the shower maximum.
c---  ZSTGFCAL(i,j) - The displacement of the front face of the 
c---                  blocks from their nominal z=0 position.
c---                  This will be nonzero if the blocks are "staggered".
c---
C---                The element numbers form a 13 x 13 matrix
C---                element 1,1 is the lower left position looking
C---                downstream from the target at the FCAL.  The
c---                first block therfore is element 1,4
c   
c     MPXFCAL       - The x element number for each FCAL block
c     MPYFCAL       - The y element number for each FCAL block
c     MODFCAL       - In a 13 x 13 array of the FCAL this is the
c                     module number.  For example the first module
c                     in location x=4, y=1 is module number 1.  
c                     The last module in locaton x=10, y=13 is
c                     module number 144.
c
c
c  Written By: John Reid 9/89

      REAL XFCAL(13,13), YFCAL(13,13), ZFCAL(13,13)
      REAL ZEFFCAL(13,13), ZSTGFCAL(13,13) 

      integer MPXFCAL(144),MPYFCAL(144),MODFCAL(169)


      COMMON /GEFCAL/ XFCAL, YFCAL, ZFCAL, ZEFFCAL, ZSTGFCAL
     &      , MPXFCAL ,MPYFCAL, MODFCAL