anchor.diff:    ! Parse the keywords
     select case(lnSplit(1))
   
  -  case("ONESIDED")
  +  case("ONESIDED") ! Treatment of one-sided collimators
  +
       if(nSplit /= 3) then
         write(lerr,"(a,i0)") "COLLDB> ERROR ONESIDED expects 2 values, got ",nSplit-1
         write(lerr,"(a)")    "COLLDB>       ONESIDED collname|famname 1|2"
  
positive.code: 
  end subroutine cdb_writeDB_HDF5
  #endif
  
  ! ================================================================================================ !
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  
negative.code:     if(isFam) then
        do i=1,cdb_nColl
          if(cdb_cFamily(iFam) == iFam) then
            if(iTemp == 2) then
              call cdb_rotateCollimator(i, pi)
              write(lout,"(a,i0,a)") "COLLDB> Collimator family '"//trim(lnSplit(2))//"' is set as onesided and rotated (",iTemp,")"
            else
              write(lout,"(a,i0,a)") "COLLDB> Collimator family '"//trim(lnSplit(2))//"' is set as onesided (",iTemp,")"
            end if
            cdb_cSides(i) = 1
          end if
        end do
      else
        if(iTemp == 2) then
          call cdb_rotateCollimator(iColl, pi)
          write(lout,"(a,i0,a)") "COLLDB> Collimator '"//trim(lnSplit(2))//"' is set as onesided and rotated (",iTemp,")"
        else
          write(lout,"(a,i0,a)") "COLLDB> Collimator '"//trim(lnSplit(2))//"' is set as onesided (",iTemp,")"
        end if
        cdb_cSides(iColl) = 1
      end if
  
  
    ! ============= !
  
    case default
      write(lerr,"(a)") "COLLDB> ERROR Unknown keyword '"//trim(lnSplit(1))//"' in SETTINGS section"
  