anchor.diff:    call alloc(db_name1,    mNameLen, db_ncoll,    " ",  "db_name1")
     call alloc(db_name2,    mNameLen, db_ncoll,    " ",  "db_name2")
     call alloc(db_material, 4,        db_ncoll,    " ",  "db_material")
  +  call alloc(db_family,             db_ncoll,    -1,   "db_family")
     call alloc(db_nsig,               db_ncoll,    zero, "db_nsig")
     call alloc(db_length,             db_ncoll,    zero, "db_length")
     call alloc(db_offset,             db_ncoll,    zero, "db_offset")
  
positive.code: 30 continue
  
    call readcollimator
    goto 100
  
  ! ============================================================================ !
  
negative.code:   character(len=:), allocatable, private, save :: db_name1(:)    ! (mNameLen)(db_ncoll)
    character(len=:), allocatable, private, save :: db_name2(:)    ! (mNameLen)(db_ncoll)
    character(len=:), allocatable, private, save :: db_material(:) ! (4)(db_ncoll)
  
    integer,          allocatable, private, save :: db_family(:)   ! (db_ncoll)
  
    real(kind=fPrec), allocatable, private, save :: db_nsig(:)     ! (db_ncoll)
    real(kind=fPrec), allocatable, private, save :: db_length(:)   ! (db_ncoll)
  