anchor.diff:      goto 30
     end if
     if(nSplit == 0) goto 10 ! Skip empty lines
  -  
  +
     ! Look up the target collimator or family
     iFam  = -1
     iColl = -1
  
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"
  