anchor.diff:    iLine = 0
     iColl = 0
   
  +  write(lout,"(a)") "COLLDB> Reading collimator database, new format"
  +
     call f_requestUnit(cdb_fileName, dbUnit)
     call f_open(unit=dbUnit,file=cdb_fileName,formatted=.true.,mode="r",status="old",err=fErr)
     if(fErr) then
  
positive.code:   if(cErr) then
      write(lerr,"(a,i0)") "COLLDB> ERROR Failed to parse database line ",iLine
      call prror
    end if
  
    if(lnSplit(1) == "NSIG_FAM") then
  
negative.code: 
  end subroutine cdb_readCollDB
  
  ! ================================================================================================ !
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Created: 2019-03-19
  !  Updated: 2019-08-30
  !  Parsing the collimator section of the new database format. That is, the sigma settings and the
  !  collimator descriptions. The parsing ends when it reaches the SETTINGS keyword.
  ! ================================================================================================ !
  subroutine cdb_readDB_newFormat
  
    use parpro
  