anchor.diff:    if(cErr) then
       write(lerr,"(a,i0)") "COLLDB> ERROR Failed to parse database line ",iLine
       call prror
  +  end if
  +  if(nSplit == 0) goto 10 ! Skip empty lines
  +
  +  if(lnSplit(1) == "SETTINGS") then
  +    write(lout,"(a,i0)") "COLLDB> SETTINGS flag encountered in collimator database on line ",iLine
  +    cdb_setPos = iLine
  +    goto 20
     end if
   
     if(lnSplit(1) == "NSIG_FAM") then
  
positive.code:   end if
  
  end function cdb_getFamilyID
  
  ! ================================================================================================ !
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  
negative.code: 
  end subroutine cdb_readDB_newFormat
  
  ! ================================================================================================ !
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Created: 2019-03-19
  !  Updated: 2019-03-20
  !  Parses the old style database format with one calue per line. The routine also writes back out
  !  the same database with the new file format.
  ! ================================================================================================ !
  subroutine cdb_readDB_oldFormat
  
    use crcoall
  