Mercurial > mxe-octave

annotate src/gsl-test.c @ 7207:9ed6500e56d3 default tip @

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge release to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Fri, 17 May 2024 20:16:41 +0200
parents 14b3f5ea78ae
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2351
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
1 /*
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
2 * This file is part of MXE.
2353
99516e73b368 Move doc/index.html -> index.html
Volker Grabsch <vog@notjusthosting.com>
parents: 2351
diff changeset
3 * See index.html for further information.
2351
8a6c466753e2 Improve comment style of all test programs
Volker Grabsch <vog@notjusthosting.com>
parents: 2333
diff changeset
4 */
1926
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
5
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
6 #include <stdio.h>
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
7 #include <gsl/gsl_sf_bessel.h>
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
8
2358
14b3f5ea78ae Cleanup coding style via "make cleanup-style"
Volker Grabsch <vog@notjusthosting.com>
parents: 2353
diff changeset
9 int main(int argc, char *argv[])
1926
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
10 {
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
11 double x, y;
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
12
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
13 (void)argc;
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
14 (void)argv;
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
15
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
16 x = 5.0;
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
17 y = gsl_sf_bessel_J0 (x);
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
18 printf ("J0(%g) = %.18e\n", x, y);
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
19 return 0;
c57294700cfd add test program to package gsl
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
20 }