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

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

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