home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
comp_lan
/
85_febr
/
fortrn.8
< prev
next >
Wrap
Text File
|
1988-07-25
|
512b
|
21 lines
Listing 8
C Instead of FORTRAN?
double g(y) /* inverse black box form for data */
double y; /* point to evaluate at */
{
double x;
extern double xarray[],yarray[]; /* our data defined
as external */
extern int npoints; /* points in arrays */
x = linterp(yarray,xarray,y,npoints);
/* compute answer */
return(x); /* return answer (no error check) */
}