* initialize BST Strip variables
*----------------------------------
      integer NTRK, NTMAX
      parameter (NTMAX = 5)

      real INRAD(NTMAX), PHBST(NTMAX), THBST(NTMAX)
      real XVBST(NTMAX), YVBST(NTMAX), ZVBST(NTMAX)
 
      real dIR(NTMAX), dPH(NTMAX), dTH(NTMAX)
      real dXV(NTMAX), dYV(NTMAX), dZV(NTMAX)

      integer NTRHIT(NTMAX)

      common /BSTRIP/ NTRK, INRAD, dIR, PHBST, dPH,
     +                THBST, dTH, XVBST, dXV, YVBST,
     +                dYV, ZVBST, dZV, NTRHIT