From e93f80fc630e5ff34c9bfd35f652cd47b1cf184e Mon Sep 17 00:00:00 2001 From: daniau Date: Fri, 3 Oct 2008 12:56:41 +0000 Subject: [PATCH] git-svn-id: https://lxsd.femto-st.fr/svn/fvn@46 b657c933-2333-4658-acf2-d3c7c2708721 --- fvn_test/test_bsin.f90 | 2 +- fvn_test/test_bsjn.f90 | 2 +- fvn_test/test_bskn.f90 | 2 +- fvn_test/test_bsyn.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/fvn_test/test_bsin.f90 b/fvn_test/test_bsin.f90 index 6a8ea70..1727299 100644 --- a/fvn_test/test_bsin.f90 +++ b/fvn_test/test_bsin.f90 @@ -3,7 +3,7 @@ use fvn_fnlib implicit none integer :: n,npoints,i real(4) :: xmin,xmax,xstep,x,y -real(4),dimension(200,6) :: bes +real(4),dimension(200,0:5) :: bes ! interface ! real(4) function besjn(n,x,factor,big) ! integer :: n diff --git a/fvn_test/test_bsjn.f90 b/fvn_test/test_bsjn.f90 index 457fda9..0adf580 100644 --- a/fvn_test/test_bsjn.f90 +++ b/fvn_test/test_bsjn.f90 @@ -3,7 +3,7 @@ use fvn_fnlib implicit none integer :: n,npoints,i real(4) :: xmin,xmax,xstep,x,y -real(4),dimension(200,6) :: bes +real(4),dimension(200,0:5) :: bes ! interface ! real(4) function besjn(n,x,factor,big) ! integer :: n diff --git a/fvn_test/test_bskn.f90 b/fvn_test/test_bskn.f90 index b412b36..1cc2e91 100644 --- a/fvn_test/test_bskn.f90 +++ b/fvn_test/test_bskn.f90 @@ -3,7 +3,7 @@ use fvn_fnlib implicit none integer :: n,npoints,i real(4) :: xmin,xmax,xstep,x,y -real(4),dimension(200,6) :: bes +real(4),dimension(200,0:5) :: bes ! interface ! real(4) function besjn(n,x,factor,big) ! integer :: n diff --git a/fvn_test/test_bsyn.f90 b/fvn_test/test_bsyn.f90 index 87f22fe..f175d87 100644 --- a/fvn_test/test_bsyn.f90 +++ b/fvn_test/test_bsyn.f90 @@ -3,7 +3,7 @@ use fvn_fnlib implicit none integer :: n,npoints,i real(4) :: xmin,xmax,xstep,x,y -real(4),dimension(200,6) :: bes +real(4),dimension(200,0:5) :: bes ! interface ! real(4) function besjn(n,x,factor,big) ! integer :: n -- 2.16.4