# $Id: CDFgetinfo,v 1.2 1993/08/20 21:31:33 mintha Exp mintha $
# 
# Get all info about a named CDF file
#
# $Log: CDFgetinfo,v $
# Revision 1.2  1993/08/20  21:31:33  mintha
# Added write parameter to cdf_open
#
# Revision 1.1  1993/08/10  23:27:57  mintha
# Initial revision
#
"CDFgetinfo"<-
function(fname, close=T)
{
	cdfopen <- .C("cdf_open",
		as.character(fname),
		ncid = integer(1),
		write = as.integer(1),
		ndims = integer(1),
		nvars = integer(1),
		ngatts = integer(1),
		unlimd = integer(1))

	if(cdfopen$ncid == -1)
		return(NULL)
	info <- vector("list",cdfopen$nvars+1)
	names(info) <- vector("list",cdfopen$nvars+1)
	names(info)[[1]] <- c("global")
	info$global <- CDFginfo(cdfopen)

	for(ctr in seq(to = cdfopen$nvars)){
		info[[ctr+1]] <- CDFvinfo(info$global, ctr-1)
		names(info)[[ctr+1]] <- info[[ctr+1]]$name
	}
	
	if(close)  temp <- .C("cdf_close", as.integer(cdfopen$ncid))
	info
}