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