function getc2c3norm,mon,day,cam, sttime

;
;PURPOSE: 
;     Returns an image, 1024x1024 or 1024x576, for getc1c2carr.
;
;INPUTS:
;     	mon = int:	month
;	day = int:	day
;	cam = string:	camera 
;	sttime = float:	fractional day of beginning of carrington rotation
;
; OUTPUTS:	im = fltarr(1024,1024 or 1024,576)
;		
;
;ROUTINES CALLED:
;    getmelasco2.pro
;
; AUTHOR:	Julia Kraemer, NRL, June 7, 1996
;
; MODIFID:
;	961023 by N. Rich	made into a function
;

COMMON carrvar,cx,cy,rconv

  im = fltarr(1024,1024)

  IF mon eq 6 AND day eq 9 AND cam eq 'c3' then $
    im=readfits('/juke/lz_05/0022/lasco_lz/level_05/960609/c3/32005875.fts',h)
  IF mon eq 6 AND day eq 25 AND cam eq 'c2' then $
    im=readfits('/juke/ql_05/0031/lasco_ql/level_05/960625/c2/21002282.fts',h)
  IF mon eq 9 AND day eq 10 AND cam eq 'c3' then $
    im=readfits('/net/corona/cplex1/flight_data/level_05/960910/c3/31006584.fts',h)
  IF mon EQ 5 AND day EQ 21 AND cam EQ 'c2' THEN $
    im=readfits('/net/corona/cplex2/lz_data/level_05/960521/c2/22001640.fts',h)


  hour=FLOOR(sttime*24)
  IF median(im) eq 0 THEN BEGIN
      REPEAT BEGIN
	 hhour=STRTRIM(STRING(hour,format='(I2.2)'),2)
	 ttime=hhour+':00:00'
	 print,'Searching after ',ttime
	 im=getmelasco2(mon,day,96,cam,TIME=ttime,HEADER=h,polar='Clear', $
	    xsize=1024,ysize=1024) 
	 sz=SIZE(im)
	 IF sz(0) eq 2 AND sz(1) eq 2 THEN BEGIN
		hour = -1
		print,'skipping iterative query'
		GOTO, skipped
	 ENDIF
	 IF sz(0) eq 0 THEN im=intarr(1024,1024)
	 
	 hour=hour-1
      ENDREP UNTIL (median(im) ne 0) OR hour eq -1  
  ENDIF

  hour=FLOOR(sttime*24)
  IF median(im) eq 0 THEN BEGIN
      REPEAT BEGIN
	 hhour=STRTRIM(STRING(hour,format='(I2.2)'),2)
	 ttime=hhour+':00:00'
	 print,'Searching after ',ttime
	 im=getmelasco2(mon,day,96,cam,TIME=ttime,HEADER=h,polar='Clear', $
	    xsize=1024,ysize=576) 
	 sz=SIZE(im)
	 IF sz(0) eq 0 THEN im=intarr(1024,1024)
	 hour=hour-1
      ENDREP UNTIL (median(im) ne 0) OR (hour eq -1)   
  ENDIF

  hour=FLOOR(sttime*24)
  IF median(im) eq 0 THEN BEGIN
      REPEAT BEGIN
	 hhour=STRTRIM(STRING(hour,format='(I2.2)'),2)
	 ttime=hhour+':00:00'
	 print,'Searching after ',ttime
	 im=getmelasco2(mon,day,96,cam,TIME=ttime,HEADER=h,polar='Clear', $
	    xsize=512,ysize=512) 
	 sz=SIZE(im)
	 IF sz(0) eq 0 THEN im=intarr(1024,1024)
	 hour=hour-1
      ENDREP UNTIL (median(im) ne 0) OR (hour eq -1)   
  ENDIF

  IF median(im) ne 0 THEN BEGIN
     bias=fxpar(h,'OFFSET')
     exp=fxpar(h,'exptime')
     im=(im-bias)/exp
  ENDIF

  skipped:

  IF hour eq -1 THEN BEGIN
     im=FLTARR(512,512)
     im(*,*)=0
  ENDIF

return,im

END ; getc2c3norm