;   Cone-Shaped Surface
;
PRO LINE,R,A,F,PDER
   R = R > (0.001);
   F = A(0) + A(1)*R

   PDER = FLTARR(N_ELEMENTS(R),2)

   PDER(0,0) = replicate(1.,n_elements(R))
   PDER(0,1) = R;

;   print, F, PDER

RETURN
END

;   (28-Mar-93)
;
;   Plateau Function -- To be called by CURVEFIT
;
misspelled function name "line"? in line:
PRO PLATEAU2,XY,A,F,PDER