# $Id: CDFget,v 1.2 1993/08/13 22:09:53 mintha Exp $
#
# Given a cdf data file, get the specified variable
# and return the data.
#
# $Log: CDFget,v $
# Revision 1.2  1993/08/13  22:09:53  mintha
# Changed param names to start & count from startdims & slicedims
#
# Revision 1.1  1993/08/10  23:27:13  mintha
# Initial revision
#
"CDFget" <-
function(fname, var, start=NULL, count=NULL)
{
	info <- CDFgetinfo(fname, close=F)
	data <- CDFgetdata(info, var, start, count)
	temp <- .C("cdf_close",
		as.integer(info$global$ncid))
	data
}