anchor.diff:      end if
       cdb_cFamily(j) = famID
   
  +    call cdb_getCollType(cdb_cName(j), collType)
  +    cdb_famType(famID) = collType
  +
       matID = collmat_getCollMatID(cdb_cMaterial(j))
       if(matID > 0) then
         cdb_cMaterialID(j) = matID
  
positive.code: 
  ! ================================================================================================ !
  !  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
  
negative.code:   integer,                  public,  save :: cdb_nColl    = 0       ! Number of collimators
    integer,                  public,  save :: cdb_nFam     = 0       ! Number of collimator families
    integer,                  public,  save :: cdb_setPos   = 0       ! The position in the DB file of the SETTINGS keyword
  
    ! Collimator Types (must be integer of power of 2)
    integer, parameter :: cdb_typPrimary   = 1
    integer, parameter :: cdb_typSecondary = 2
    integer, parameter :: cdb_typTertiary  = 4
    integer, parameter :: cdb_typOther     = 8
    integer, parameter :: cdb_typCrystal   = 16
  
    ! Main Database Arrays
    character(len=:), allocatable, public, save :: cdb_cName(:)       ! Collimator name
  