HOW TO CALL THE IMSL FORTRAN LIBRARIES FROM C by ...

More documents

Recommendations

Info

$Intel(R) Math Kernel Library for Linux* OS User's Guide$

5.4 Example /* * This example solves a linear system of l00x100 by using IMSL dlslrg. */ #include #include #include #include #define MAXN 100 main ( ) { int long int long int double i, nerr; n=MAXN, nn=MAXN*MAXN, lda=MAXN; ipath=2, seed=123457; doubleermax=1.e-12; a[MAXN] [MAXN], b[MAXN], x[MAXN], ans[MAXN]; /* generate a random matrix, a */ RNSET (&seed); DRNUN (&nn, a); /* generate a pre-determined answer, ans */ for (i=0; i < n; i++) { ans[i] = (double) (i%5) + 1.; } /* calculate b
if (nerr) printf ("IMSL: %2 differences occurred.\n", nerr); else printf ("IMSL: dlslrg is correct with ermax = %g.\n”, ermax); } The output from Visual C++ is: IMSL: dlslrg is correct with ermax = le-012. 28
Page 1 and 2: HOW TO CALL THE IMSL FORTRAN LIBRAR
Page 3 and 4: How to Call the IMSL Fortran Librar
Page 5 and 6: 1. Syntax Differences Between C and
Page 7 and 8: double a[2] [3] = {11., 12., 13., 2
Page 9 and 10: 2. Unix Platforms The topics discus
Page 11 and 12: * * myfunc calculates and returns *
Page 13 and 14: #include #define MAXN 100 main ()
Page 15 and 16: 3. Cray The Cray UNICOS environment
Page 17 and 18: main () { double exp(), fabs(), myf
Page 19 and 20: * print the result */ if (nerr) pri
Page 21 and 22: 2x3 matrix 1 2 3 1 11 12 13 2 21 22
Page 23 and 24: drnun (&nn, a); /* generate a pre-d
Page 25 and 26: 5.1 Passing a Character String Argu
Page 27: Exact answer = 8.38906 IMSL dqdng =
Page 31 and 32: The user should compile C and Fortr

HOW TO CALL THE IMSL FORTRAN LIBRARIES FROM C by ...

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?