*
*=== Vxlgcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Include file: VoXeL Geometry CoMmon                              *
*                                                                      *
*     Created on  16 April 1996    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Never used in practice before March 2001                         *
*                                                                      *
*         Vvxroi(i) = volume (cm**3) of the i_th ROI                   *
*        X,Y,Z0vxlg = starting point of the voxel geometry             *
*        DX,Y,Zvxlg = step in x,y and z directions                     *
*        NX,Y,Zvxlg = number of voxels in x,y and z directions         *
*            Dstvxl = current "Dist0" value                            *
*            Nrvxlg = number of voxel regions                          *
*            Mxrvxl = maximum   index of voxel regions                 *
*            Nr0vxl = "mother" region of voxel geometry                *
*            Nbvxlg = "running" body  of voxel geometry                *
*            Nb0vxl = "mother"  body  of voxel geometry                *
*            Jvobgn = start of voxel-to-organ I*2 storage in blank     *
*                     common (for I*2 zero address)                    *
*            Jvrbgn = start of voxel I*2 organ-to-region correspon-    *
*                     dence storage in blank common                    *
*                     (for I*2 zero address)                           *
*            Kvrbgn = start of voxel I*4 body-to-index correspondence  *
*                     storage in blank common. There are twice Nrvxlg  *
*                     fields which contain the current voxel indeces   *
*                     for the two running bodies of each region        *
*                     (for I*4 zero address)                           *
*            Kvvbgn = start of voxel I*4 organ volume (in unit of elem-*
*                     entary cells) storage in blank common            *
*                     (for I*4 zero address)                           *
*            Jvcbgn = start of ROI combination I*2 array               *
*            Jvibgn = start of the voxel-to-ROI I*2 array              *
*            Lvxlgm = if true a "voxel" geometry is present            *
*            Lvxovl = if true organ volumes are computed (in units of  *
*                     the elementary cell)                             *
*            Lvxcrd = if true the voxel file contains extra input card *
*                     infos                                            *
*            Lvxchk = if true various consistency checks are performed *
*            Lvxdbg = if true hard debugging is performed at every step*
*            Linvxl = if true the last step was actually in a voxel    *
*                     (possibly entering/exiting), the one with index  *
*                     icrvxl, entering/exiting from face ifcvxl (- for *
*                     entering, + for exiting)                         *
*            Irtvxl = index of a possible rototranslation to be asso-  *
*                     ciated with the voxel phantom                    *
*            Nvxroi = number of Region Of Interest                     *
*            Nvxcmb = number of ROI combinations                       *
*            Mxvxcm = maximum length of a combination                  *
*            Nvxrpl = number of ROI planar structures                  *
*         Iabroi(i) = index of the cellular line radiobiological info  *
*                     to be associated to the i_th ROI                 *
*                                                                      *
*----------------------------------------------------------------------*
*
*  Maximum number of Regions of Interest
      PARAMETER ( MXVXRO = 400 )
      COMMON / VXLGCM / VVXROI(MXVXRO), XEXROI(2,3,MXVXRO),
     &                  X0VXLG, Y0VXLG, Z0VXLG, DXVXLG, DYVXLG, DZVXLG,
     &                  DSTVXL, NXVXLG, NYVXLG, NZVXLG, NRVXLG, MXRVXL,
     &                  NR0VXL, NBVXLG, NB0VXL, JVOBGN, JVRBGN, JVCBGN,
     &                  JVIBGN, KVRBGN, KVVBGN, LVXLGM, LVXOVL, LVXCRD,
     &                  LVXCHK, LVXDBG, LINVXL, ICRVXL, IFCVXL, IRTVXL,
     &                  NVXROI, NVXCMB, MXVXCM, NVXRPL, IABROI (MXVXRO)
      COMMON / CHVXLG / TIVXLG, FILVXL, TVXROI (MXVXRO)
      LOGICAL LVXLGM, LVXOVL, LVXCRD, LVXCHK, LVXDBG, LINVXL
      CHARACTER*80 TIVXLG, FILVXL
      CHARACTER*64 TVXROI
      SAVE / VXLGCM /
      SAVE / CHVXLG /