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:   ! Parse the keywords
    select case(lnSplit(1))
  
    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"
  