Esempio n. 1
0
File: MAINS.C Progetto: pyal/eos_cpp
// 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__ */
Esempio n. 2
0
doublereal Ionosphere::tn(real *h, real *tinf, real *tlbd, real *s)
{
    return tn_(h, tinf, tlbd, s);
} /* tn */