PRO DOP_JPEG,sph,outpath,measurement,line_name,rok,mesic,den,tfirst,sph2
;
;Stores JPEG picture of the dopplergram to the disk.
;Annotates the JPEG picture (ANOT_JPEG4)
;INPUTS: sph - dopplergram array to be stored
;        outpath - output directory (string)
;        measurement - measurement name incl. date (string)
;        line_name - code of spectral line or continuum (string)
;        rok,mesic,den - year, month, day of observations (integers)
;        tfirst - UT in seconds (float)
;OUTPUT: sph2 - 2D byte array with picture of the dopplergram
;
; Copyright M. Klvana and M. Sobotka, ASU AVCR Ondrejov, Czech Rep., 2008

si=size(sph)
sph0=float(sph)
meas_num=strmid(measurement,6,2)   ;seq.number of measurement

;dopplergram
    sph1=sph0>(-4000.)   ;visualization limits +/- 4 km/s
    sph1=sph1<4000.
    ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
    write_jpeg,outpath+measurement+line_name+'.jpg',sph2
    print,' SAVED  ',outpath+measurement+line_name+'.jpg'

wdelete,2
END