FITSGetSize <- function(fileName)
{
        fileName  <- as.character(fileName)

        width     <- 0
        height    <- 0
        numPixels <- 0

	numPixels <- .C("RFitsio_GetSize", as.integer(numPixels), 
                                           as.integer(width), 
                                           as.integer(height), 
                                           as.character(fileName))[[1]]
	numPixels 
}