* initialize SPACAL variables
*----------------------------------
      integer NSEL, NSELMAX
      parameter (NSELMAX = 100)

      real ESEL(NSELMAX), XSEL(NSELMAX),
     +     YSEL(NSELMAX), ZSEL(NSELMAX), RSEL(NSELMAX)

      integer LIET(25)

      common /SPACAL/ NSEL, ESEL, XSEL, YSEL, ZSEL, RSEL, LIET