########################################################################/**
 # @RdocFunction cdfGetFields
 #
 # @title "Gets a subset of groups fields in a CDF structure"
 #
 # \description{
 #  @get "title".
 #

 #  This @function is designed to be used with @see "applyCdfGroups".

 # }
 #
 # @synopsis
 #
 # \arguments{
 #  \item{groups}{A @list of groups.}
 #  \item{fields}{A @character @vector of names of fields to be returned.}
 #  \item{...}{Not used.}
 # }
 #
 # \value{
 #  Returns a @list structure of groups.
 # }
 #
 # \details{

 #   Note that an error is \emph{not} generated for missing fields.

 #   Instead the field is returned with value @NA.  The reason for this
 #   is that it is much faster.
 # }
 #
 # \seealso{
 #  @see "applyCdfGroups".
 # }
 #

 # @author "HB"

 #
 # @keyword programming

 # @keyword internal

 #**/#######################################################################
 cdfGetFields <- function(groups, fields, ...) {

   lapply(groups, function(group) .subset(group, fields))

 }
 
 ############################################################################
 # HISTORY:

 # 2006-03-21 (Stockholm, Sveavagen)

 # o Created.

 ############################################################################