home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / CLMFEB85.ZIP / FORTRN.7 < prev    next >
Encoding:
Text File  |  1988-07-25  |  512 b   |  21 lines
  1.  
  2.                             Listing 7
  3.                       C Instead of FORTRAN?
  4.  
  5.  
  6.     double f(x)        /* black box form for data */
  7.     double x;        /* point to evaluate at */
  8.     {
  9.         double y;
  10.  
  11.         extern double xarray[],yarray[]; /* our data defined
  12.                                 as external */
  13.         extern int npoints;         /* points in arrays */
  14.  
  15.         y = linterp(xarray,yarray,x,npoints);
  16.                 /* compute answer */
  17.  
  18.         return(y);    /* return answer (no error check) */
  19.     }
  20.  
  21.