function getc1dat, month, day, cx, cy, rconv

;
; PURPOSE:	Returns an array from the .dat file in birch:/../kraemer/images/c1images
;
; PARAMETERS:	month, day:	all integers or floating point
;		im:		integer array, comes empty, returns with image
;		cx,cy:		pixel coordinates of center
;		rconv:		radius in pixels
;
; HISTORY:	formerly part of newc1carr.pro by Julia Kraemer, June 1996
;
; WRITTEN:	961008 by N. Rich
;

month= FIX(month)
numfile = strtrim(string(100*month+day),2)
filenames = strtrim(FINDFILE('/export/home/birch/kraemer/images/c1images/c1_i'+numfile+'*.dat'),2)
filename=filenames(0)
print,'Loading ',filename

   im=INTARR(512,512)
   cx=253
   cy=236
   rconv=163

   IF month eq 5 AND day ge 12 AND day le 14 THEN BEGIN
     cx=254
     cy=240
   ENDIF

   IF (month eq 5 AND day gt 14) OR month ge 6 THEN BEGIN
      im=intarr(832,672)
      cx=415
      cy=335
      rconv=164
   ENDIF

   IF month eq 2 AND ((day ge 1 AND day le 5) OR (day eq 11)) THEN BEGIN
      im=intarr(1024,512)
      cx=510
      cy=275
      rconv=163
   ENDIF

   IF month eq 2 AND day eq 4 THEN BEGIN
      im=intarr(1024,1024)
      cx=512
      cy=530
      rconv=163
   ENDIF 

openr,1,filename
readu,1,im
close,1

return, im

end ; getc1dat.pro