anchor.diff:  
   ! ================================================================================================ !
   !  V.K. Berglyd Olsen, BE-ABP-HSS
  +!  Created: 2019-10-07
  +!  Updated: 2019-10-07
  +!  Checks the type of the collimator based on LHC naming convention (for support with old format)
  +! ================================================================================================ !
  +subroutine cdb_getCollType(inElem, collType)
  +
  +  use string_tools
  +
  +  character(len=mNameLen), intent(in)  :: inElem
  +  integer,                 intent(out) :: collType
  +
  +  character(len=mNameLen) elemName
  +
  +  collType = cdb_typOther
  +  elemName = chr_toLower(inElem)
  +
  +  if(elemName(1:3) == "tcp") then
  +    collType = cdb_typPrimary
  +  else if(elemName(1:3) == "tcs") then
  +    collType = cdb_typSecondary
  +  else if(elemName(1:3) == "tcl" .or. elemName(1:3) == "tct" .or. &
  +          elemName(1:3) == "tcd" .or. elemName(1:3) == "tdi") then
  +    collType = cdb_typTertiary
  +  end if
  +
  +end subroutine cdb_getCollType
  +
  +! ================================================================================================ !
  +!  V.K. Berglyd Olsen, BE-ABP-HSS
   !  Created: 2019-09-02
   !  Updated: 2019-09-02
   !  Checks for one sided collimators from old input block and DB using the COLL block flag and
  
positive.code: 
  ! ================================================================================================ !
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Created: 2019-03-21
  !  Updated: 2019-03-21
  !  Write family database to file
  
negative.code:   character(len=cdb_fNameLen) famName
    character(len=mNameLen) collDummy
    logical cErr
    integer j, dbUnit, ioStat, iLine, famID, matID, collType
  
    cErr = .false.
  
  