view src/gsl-test.c @ 5778:580d6e6b0025 release

openblas: update to v0.3.13 * src/openblas.mk: update version, checksum * src/mingw-openblas-1-xerbla.patch: update patch (grafted from 4420fb1dbc9950f966f15d8d0d7c0477b6f7b4b9)
author John Donoghue <john.donoghue@ieee.org>
date Sun, 27 Dec 2020 14:28:37 -0500
parents 14b3f5ea78ae
children
line wrap: on
line source

/*
 * This file is part of MXE.
 * See index.html for further information.
 */

#include <stdio.h>
#include <gsl/gsl_sf_bessel.h>

int main(int argc, char *argv[])
{
    double x, y;

    (void)argc;
    (void)argv;

    x = 5.0;
    y = gsl_sf_bessel_J0 (x);
    printf ("J0(%g) = %.18e\n", x, y);
    return 0;
}