anchor.diff:  ! ================================================================================================ !
   subroutine cdb_readCollDB
   
  +  use parpro
     use crcoall
     use mod_units
     use mod_common
  
positive.code:   public :: cdb_getFamilyNSig
  
    integer,                  parameter     :: cdb_fNameLen  = 16     ! Length of collimator family name
    real(kind=fPrec),         parameter     :: cdb_defColGap = c1e3   ! Default collimator gap in sigma
  
    character(len=mFileName), public,  save :: cdb_fileName = " "     ! Database file
    logical,                  private, save :: cdb_dbOld    = .false. ! Old or new DB format
  
negative.code: ! ================================================================================================ !
  module coll_db
  
    use floatPrecision
    use parpro, only : mFileName
    use numerical_constants, only : zero
  
    implicit none
  
  