view src/gsl-test.c @ 6039:8fe63bf59527 release

Added tag octave-rc-7.0.90 for changeset 99125d7343bf
author John W. Eaton <jwe@octave.org>
date Thu, 06 Jan 2022 12:37:39 -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;
}