// Main program MAIN__()
int main()
{
/* System generated locals */
integer i__1;
/* Builtin functions */
/* Subroutine */ int s_stop(char *, ftnlen);
/* Local variables */
extern /* Subroutine */ int sfun_();
// extern /* Subroutine */ int sfun_(...);
doublereal f, g[50];
integer i__, n;
doublereal w[700], x[50];
extern /* Subroutine */ int tn_(integer *, integer *, doublereal *,
doublereal *, doublereal *, doublereal *, integer *, U_fp);
integer lw, ierror;
/* DEFINE SUBROUTINE PARAMETERS */
/* N - NUMBER OF VARIABLES */
/* X - INITIAL ESTIMATE OF THE SOLUTION */
/* F - ROUGH ESTIMATE OF FUNCTION VALUE AT SOLUTION */
/* LW - DECLARED LENGTH OF THE ARRAY W */
n = 10;
i__1 = n;
for (i__ = 1; i__ <= i__1; ++i__) {
x[i__ - 1] = i__ / (real) (n + 1);
/* L10: */
}
f = 1.;
lw = 700;
tn_(&ierror, &n, x, &f, g, w, &lw, (U_fp)sfun_);
// s_stop("", (ftnlen)0);
// STOP - what is it for?
return 0;
} /* MAIN__ */
doublereal Ionosphere::tn(real *h, real *tinf, real *tlbd, real *s)
{
return tn_(h, tinf, tlbd, s);
} /* tn */
