&plot
 afigname='/home/jeffery/public_html/aalib/052_Ibc/f6.eps'
 afile= './d1990/sn1993j_IIb/dif/sn1993j_1993_04_15.dif'
        './d1980/sn1987k_IIb/dif/sn1987k_1987_08_09.dif'
 idash=0,1,
 idif=1,1,1,1       ! The dif files take a different read-in. 
 ifile=2
 iformat=-1,-1,
 iformat=-1,1,
 ixlog=1
 ! ixlog=0
 xtick=-.2,-1.,
 iylog=1
 ! iylog=0
 ytick=-1.,-1.
 scale=1.,1.,1.,1.      ! Scaling 2 and 3 shows there are three spectra, but with the same scaling one can only see one no matter where one looks.
 ismooth=0
 smooth_x=.00167,smooth_zone=1.d+30
 title='\rm ' 
 v_helio=-39.,-39.,-39.,-39.   ! A minus signs on the format statements prevent further shifting.
 v_helio=-39.,999.304          ! Here we are doing a DIFF2 velocity shift.   Remember these
                               !  are for deredshifting, and so a positive will cause a shift to the blue. 
 xmin=3600.
 xmax=8000.
 ylabel='\rm Locally Normalized Flux'
 ymin=.58
 ymax=1.6

 itable=2
 xytable=3650.,.715
 caption='\rm SN 1993J (IIb) 1993apr15 (day -2)'
         '\rm SN 1987K (IIb) 1987aug09 (day 9)'
 ycorr=1.5


 iputlabel=14
 aputlabel=
        '\rm MgII'
        '\rm CaII'
        '\rm H\delta'
        '\rm H\gamma'
        '\rm FeII'
        '\rm H\beta'
        '\rm FeII'
        '\rm HeI'
        '\rm H\alpha'
        '\rm residual'
        '\rm telluric'
        '\rm absorption'
        '\rm lines'
        '\rm OI?'
        '\rm CaII'
 putlabel=
          2717.,1.8
          3850.,.8
          4000.,1.5
          4250.,1.2
          4440.,.8 ! Fe II
          4750.,1.2
          5100.,.82  ! Fe II
          5700.,1.2
          6250.,1.2
          7200.,.775
          7200.,.75
          7200.,.725
          7200.,.70
          7550.,.85
          8250.,1.25
/