C**************************************************************    
C*                                                            *    
C*                C R G E O A D . C D E                       *
C*                                                            *    
C**************************************************************    
C---             
C--- This file contains a common block with the read out CAMAC
C--- organization. Each detector is described by an array which
C--- gives all the geographical characteristics associated to
C--- the crate,slot,VSN and channel of the CAMAC.
C--- The array name is made by ICR followed by the mnemonic name
C--- associated to the detector as defined in PARDEF.CDE.
C--- When more than one R/o type is used for the same detector the order
C--- is given by
C---          FERA / TDC / PCOS / ROC
C---
C--- Detector read out will be described as follows:
C---      j=1 : # of streams
C---        2 : # of DYC in each stream
C---        3 : first DYC in first stream (DYC1 = 1 etc.. ROC=15 ) 
C---        4 : first DYC in second stream (only CCAL/FIBE)
C---        5 : # of VSN [slabs], 
C---        6 : first VSN [slab],
C---        7 : # of channels, 
C---        8 : # of channels/VSN [slab], 
C---        9 : first channel connected to r/o 
C---       10 : element # corresponding to first r/o channel
C---
C---
C--- * Detectors having both FERA and TDC(or PCOS) read out on same DYC:
C---   H1,HP,H2,Cherenkov,SciFi,FCAL,FCAS, CNTR
C---
C---   ICRHOD1(j,i),ICRHODP(j,i),ICRHOD2(j,i),ICRCRNK(j,i)
C---   ICRFCAL(j,i),ICRFCAS(j,i),ICRCNTR(j,i) (all counters)
C---   ICRCCAL(j,i),ICRFIBE(j,i)
C--- i=1   : FERA read out description, 
C--- i=2   : TDC(/PCOS) read out description
C---                       j=1-NMXCRP as described above
C---
C---
C--- * Detectord having only TDC readout (Straws, trigger, SciFi-Sums)
C---
C---  ICRSTR1(j),ICRSTR2(j),ICRTRIG(j),ICRFIBS(j)
C---         TDC read out description,
C---                    j=1-NMXCRP as described above
C---
C--- * SILIcon Barrel
C---
C---  ICRSILI(j): 
C---         ROC read out description,
C---                    j=1-NMXCRP as described above
C---
C--- * C.Cal.Sum: 
C---
C--- ICRCCAS(j,i)   
C---
C--- i=1   : FERA read out description 
C--- i=2   : Fera "             "             "                 " delayed,
C--- i=3   : FERA read out description Ring Sums
C--- i=4   : TDC read/out       (2nd group 4 blocks x 9 wedges)
C--- i=5   : TDC read/out   Ring Sums
C---                     j=1-NMXCRP as described above
C---
C---  =================================================================
C---  FIBE  ---- SPECIAL TREATMENT!!!!  VLPC may force strange cabling!
C---  =================================================================
C---
C---   MRFIBE(1,i,m)  fiber number corresponding to  channel i, VSN=m 
C---          (2,i,m)  layer corresponding to  channel i, VSN=m 
C---                                (PCOS R/O)
C---                   
C---   INVMRFIB(1,j,k) VSN corresponding to fiber j, layer k
C---           (2,j,k) channel number    "          "
C---                                (PCOS R/O)
C---
C---   MPFIBE(1,i,m)  fiber number corresponding to  channel i, VSN=m 
C---          (2,i,m)  layer corresponding to  channel i, VSN=m 
C---                                (FERA R/O)
C---                   
C---   INVMPFIB(1,j,k) VSN corresponding to fiber j, layer k
C---           (2,j,k) channel number    "          "
C---                                (FERA R/O)
C---
C--- All these arrays are put in equivalence with the array
C--- ICRATES(j,i) and the pointers to it can be found in
C--- MAPCRA (1, idet, ieq) = # of crates descriprions associated
C---        (2, idet, ieq) = pointer in ICRATES of the first crate description
C---
      INTEGER NMXCRP
      PARAMETER (NMXCRP=10)
      INTEGER MAPCRA(2,NMXDET,NMXEQP)
      INTEGER ICRATES(NMXCRP, NMXCRA )
      INTEGER MRFIBE(2,32,32),INVMRFIB(2,430,2)
      INTEGER MPFIBE(2,16,80),INVMPFIB(2,430,2)

      COMMON/CRATES/MAPCRA, ICRATES, MRFIBE,INVMRFIB, MPFIBE,INVMPFIB

      INTEGER ICRHOD1(NMXCRP,2), ICRHOD2(NMXCRP,2), ICRCRNK(NMXCRP,2)
     &,       ICRFCAL(NMXCRP,2), ICRCNTR(NMXCRP,2), ICRCCAL(NMXCRP,2)
     &,       ICRHODP(NMXCRP,2), ICRVETO(NMXCRP,2), ICRFCAS(NMXCRP,2)
     &,       ICRFIBE(NMXCRP,2)

      INTEGER ICRSTR1(NMXCRP),ICRSTR2(NMXCRP),ICRTRIG(NMXCRP)
     &,       ICRFIBS(NMXCRP),ICRSILI(NMXCRP)

      INTEGER ICRCCAS(NMXCRP,5)


      EQUIVALENCE ( ICRATES(1, 1), ICRHOD1(1,1) )
     +,           ( ICRATES(1, 3), ICRSTR1(1)   )
     +,           ( ICRATES(1, 4), ICRHODP(1,1) )
     +,           ( ICRATES(1, 6), ICRSILI(1)   )
     +,           ( ICRATES(1, 7), ICRSTR2(1)   )
     +,           ( ICRATES(1, 8), ICRFIBE(1,1) )
     +,           ( ICRATES(1,10), ICRHOD2(1,1) )
     +,           ( ICRATES(1,12), ICRCRNK(1,1) )
     +,           ( ICRATES(1,14), ICRCCAL(1,1) )
     +,           ( ICRATES(1,16), ICRFCAL(1,1) )
     +,           ( ICRATES(1,18), ICRVETO(1,1) )
     +,           ( ICRATES(1,20), ICRTRIG(1)   )
     +,           ( ICRATES(1,21), ICRCNTR(1,1) )
     +,           ( ICRATES(1,23), ICRFIBS(1)   )
     +,           ( ICRATES(1,24), ICRCCAS(1,1) )
     +,           ( ICRATES(1,29), ICRFCAS(1,1) )
C==============================================================================