anchor.diff:    character(len=:), allocatable, public, save :: cdb_famName(:)     ! Family name
     real(kind=fPrec), allocatable, public, save :: cdb_famNSig(:)     ! Family sigma
     real(kind=fPrec), allocatable, public, save :: cdb_famNSigOrig(:) ! Family sigma (original value from DB)
  -  integer,          allocatable, public, save :: cdb_famStage(:)    ! Family type
  +  integer,          allocatable, public, save :: cdb_famStage(:)    ! Family stage
   
     ! Element Map
     integer,          allocatable, public, save :: cdb_elemMap(:)     ! Map from single elements to DB
  
positive.code:       famName = " "
      end if
      write(dbUnit,"(a20,1x,a16,1x,a3,2(1x,f13.6),1x,a4,5(1x,f13.6))") cdb_cName(j),famName,          &
        cdb_getTypeName(cdb_cStage(j)),cdb_cNSig(j),cdb_cNSigOrig(j),cdb_cMaterial(j),cdb_cLength(j),  &
        cdb_cRotation(j),cdb_cOffset(j),cdb_cBx(j),cdb_cBy(j)
    end do
  
  
negative.code:       case("CRY")
          cdb_famStage(famID) = cdb_stgCrystal
        case default
          write(lerr,"(a,i0)") "COLLDB> ERROR Unknown collimator stage '"//trim(lnSplit(4))//"' on line ",iLine
          call prror
        end select
        goto 10
  