;+
; PROJECT
;           SolarB EIS
;
; NAME
;           EIS_RASTER_VOLUME
;
; PURPOSE
;           This procedure takes a raster structure and calculates it data
;           volume - in bits
;
; CATEGORY
;           EIS technical planning
;
; WRITTEN
;           John A Rainnie, RAL
;
; VERSION
;           V0.1 Sept-2005
;               nSteps + 1 changed to nSteps September 2005
;-
;______________________________________________________________________________
FUNCTION eis_raster_volume, raster

IF (KEYWORD_SET(units) NE 1) THEN units = 0

v = LONG64(0)

for i = 0, raster.nWindows-1 do begin
   v = v + raster.dataWindows[i]
endfor
v = v * raster.windHeight

CASE raster.rasterType OF
    0:  BEGIN
            ; Scanning Mode
            v = v * raster.nExp * (raster.scan_FM_nSteps + 1)
        END
    1:  BEGIN
            ; SNS Mode
            v = v * raster.nExp * raster.sns_nExps
        END
ENDCASE

v = v * 16

RETURN , v

END