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