anchor.diff:      ! Otherwise, we look up the name and require that it exists. We also save the family ID.
       famID = cdb_getFamilyID(lnSplit(2))
       if(famID == -1) then
  -      write(lout,"(a,i0,a)") "COLLDB> ERROR Collimator opening '"//trim(adjustl(lnSplit(2)))//"' on line ",iLine,&
  +      write(lerr,"(a,i0,a)") "COLLDB> ERROR Collimator opening '"//trim(adjustl(lnSplit(2)))//"' on line ",iLine,&
           " is not in family database"
         call prror
       else
  
positive.code: 
    ! If not a family definition, it should be a collimator
    if(nSplit < 6) then
      write(lout,"(a,i0,a)") "COLLDB> ERROR Collimator description on line ",iLine," has less than 6 values."
      call prror
    end if
  
  
negative.code:   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
      write(lerr,"(a)") "COLLDB> ERROR Cannot read from '"//trim(cdb_fileName)//"'"
      call prror
    end if
  
  