PRO ucles_exam,nw,w,f,wm,fm,wb,fs,xr,sc

  nj = n_elements(w)/nw

red = GETCOLOR('red', 100)
green = getcolor('green',100)
yellow = getcolor('yellow',100)

  plot,wm,fm,xrange=xr,yrange=[0,1.2]
  FOR j=0,nj-1 DO oplot,w(*,j),f(*,j,0)/sc,color=yellow
  FOR j=0,nj-1 DO oplot,wb(*,j),fs(*,j)/sc,linestyle=2,color=red

END