*$ CREATE ORGI.ADD
*COPY ORGI
*
*=== Orgi =============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Include file: Orgi (Combinatorial geometry)                      *
*                                                                      *
*     Created on 01 december 1990  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 05-jan-02     by    Alfredo Ferrari               *
*                                                                      *
*======================================================================*
*  Dist0 is the requested step starting from Xb along Wb (if this call *
*  is the continuation of a previous one Dist0 is the sum of the       *
*  previous steps = Dist and the requested one), Markg = 0 means that  *
*  a boundary crossing (region change) has been met during the current *
*  call, Markg = 1 means that the requested step lies inside the       *
*  current region                                                      *
*======================================================================*
*                                                                      *
*======================================================================*
*
      COMMON / ORGI / DIST0, MARKG, NMEDG
      SAVE / ORGI /