anchor.diff:    character(len=:), allocatable   :: lnSplit(:)
     character(len=mInputLn) inLine
     character(len=mNameLen) elemName
  -  integer dbUnit, ioStat, nLines, nSplit, collID
  +  character(len=16) cFam
  +  real(kind=fPrec)  cNSig
  +  integer dbUnit, ioStat, nLines, nSplit, collID, famID
     integer i, j, ix
     logical dbErr, spErr, oldDB
   
  
positive.code: 30 continue
  
    call readcollimator
    goto 100
  
  ! ============================================================================ !
  
negative.code:   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")
  