anchor.diff:    call alloc(cdb_cBy,                 cdb_nColl, zero,          "cdb_cBy")
     call alloc(cdb_cFound,              cdb_nColl, .false.,       "cdb_cFound")
   
  +  ! Additional Settings Arrays
  +  call alloc(cdb_cSides,              cdb_nColl, 0,             "cdb_cSides")
  +
   end subroutine cdb_allocDB
   
  +! ================================================================================================ !
  +!  V.K. Berglyd Olsen, BE-ABP-HSS
  +!  Created: 2019-03-19
  +!  Updated: 2019-08-30
  +!  Change the size of the collimator family arrays
  +! ================================================================================================ !
   subroutine cdb_allocFam
   
     use parpro
  
positive.code:   call prror
  
  end subroutine cdb_readDB_oldFormat
  
  #ifdef ROOT
  subroutine cdb_writeDB_ROOT
  
negative.code:   real(kind=fPrec), allocatable, public, save :: cdb_cBy(:)         ! Collimator beta y
    logical,          allocatable, public, save :: cdb_cFound(:)      ! Found in lattice
  
    ! Additional Settings Arrays
    integer,          allocatable, public, save :: cdb_cSides(:)      ! 0 = two-sided, or 1,2 for single side 1 or 2
  
    ! Family Arrays
    character(len=:), allocatable, public, save :: cdb_famName(:)     ! Family name
    real(kind=fPrec), allocatable, public, save :: cdb_famNSig(:)     ! Family sigma
  