pro plotlabels,fname,magfile,prLoc

;----------------------------------------------------------------------------------
;
;       Put nice labels on the plots
;       - B.Bhattacharya, 12/6/96
;
;	Modification History: 
;
;----------------------------------------------------------------------------------

    COMMON plot_params
    fileloc = 'thaddeus::~bhattach/production/'
    case strupcase(prloc) of
    'S': begin
         drawjupiter
         showfield,magfile
         ;xyouts,0.33,0.74,'L=1.5',charsize= .7,/norm
         ;xyouts,0.28,0.80,'L=2.0',charsize= .7,/norm
         ;xyouts,0.23,0.86,'L=2.5',charsize= .7,/norm
         ;xyouts,0.18,0.92,'L=3.0',charsize= .7,/norm
         xyouts, 1.00,0.05,fileloc+fname+'!C'+s_date, charsize= .7, alignment= 1., /norm
         end
    'P': begin
         !P.color = 175
         drawjupiter
         showfield,magfile
         ;xyouts,0.35,0.68,'L=1.5',charsize= .7,/norm
         ;xyouts,0.30,0.74,'L=2.0',charsize= .7,/norm
         ;xyouts,0.25,0.79,'L=2.5',charsize= .7,/norm
         ;xyouts,0.20,0.84,'L=3.0',charsize= .7,/norm
         !P.color = 0
         xyouts, 1.00,0.00,fileloc+fname+'!C'+s_date, charsize= .7, alignment= 1., /norm
         end
    endcase

END