*
*=== geodeb ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     GEOmetry DEBugging:                                              *
*                                                                      *
*     Created on   27 April 1998       by        Alfredo Ferrari       *
*                                                  Infn - Milan        *
*                                                                      *
*     Variable description:                                            *
*                                                                      *
*        Igprfl = >=1 print out the calls to geofar and all other geo- *
*                 metry routines, skipping the first igprfl lines      *
*        Linegm = number of lines already printed                      *
*        Ljomes = flag controlling geometry error message printout     *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LJOMES
      COMMON / GEODEB / IGPRFL, LINEGM, NFROMM, LJOMES
      SAVE / GEODEB /