anchor.diff:  ! ============================================================================ !
   !  Post-Processing DB
   ! ============================================================================ !
  +
  +  ! Set collimator types from family type
  +  do i=1,cdb_nColl
  +    cdb_cType(i) = cdb_famType(cdb_cFamily(i))
  +  end do
   
     ! Map single elements to collimators
     do i=1,iu
  
positive.code:     end if
      cdb_cFamily(j) = famID
  
      matID = collmat_getCollMatID(cdb_cMaterial(j))
      if(matID > 0) then
        cdb_cMaterialID(j) = matID
  
negative.code:   write(dbNew,"(a)") "# Automatically converted collimator DB from old format file '"//trim(cdb_fileName)//"'"
    write(dbNew,"(a)") "# Families"
    do j=1,cdb_nFam
      write(dbNew,"(a,1x,a16,1x,f13.6,1x,a)") "NSIG_FAM",cdb_famName(j),&
        cdb_famNSig(j),trim(cdb_getTypeName(cdb_famType(j)))
    end do
    write(dbNew,"(a)") "#"
    write(dbNew,"(a)") "# Collimators"
  