diff --git a/fvn_test/test_bsin.f90 b/fvn_test/test_bsin.f90
index 1727299..5a0f69b 100644
--- a/fvn_test/test_bsin.f90
+++ b/fvn_test/test_bsin.f90
@@ -4,17 +4,7 @@ implicit none
 integer :: n,npoints,i
 real(4) :: xmin,xmax,xstep,x,y
 real(4),dimension(200,0:5) :: bes
-!    interface
-!    real(4) function besjn(n,x,factor,big)
-!        integer :: n
-!        real(4) :: x
-!        integer,optional :: factor
-!        real(4),optional :: big
-!    end function besjn
-!end interface
-!bsyn
-!y=besjn(2,0.5)
-!stop
+
 open(2,file='bsin.dat')
 
 xmin=-5.
diff --git a/fvn_test/test_bsjn.f90 b/fvn_test/test_bsjn.f90
index 0adf580..a41b991 100644
--- a/fvn_test/test_bsjn.f90
+++ b/fvn_test/test_bsjn.f90
@@ -4,17 +4,7 @@ implicit none
 integer :: n,npoints,i
 real(4) :: xmin,xmax,xstep,x,y
 real(4),dimension(200,0:5) :: bes
-!    interface
-!    real(4) function besjn(n,x,factor,big)
-!        integer :: n
-!        real(4) :: x
-!        integer,optional :: factor
-!        real(4),optional :: big
-!    end function besjn
-!end interface
-!bsyn
-!y=besjn(2,0.5)
-!stop
+
 open(2,file='bsjn.dat')
 
 xmin=-20.
diff --git a/fvn_test/test_bskn.f90 b/fvn_test/test_bskn.f90
index 1cc2e91..530d2d4 100644
--- a/fvn_test/test_bskn.f90
+++ b/fvn_test/test_bskn.f90
@@ -4,17 +4,7 @@ implicit none
 integer :: n,npoints,i
 real(4) :: xmin,xmax,xstep,x,y
 real(4),dimension(200,0:5) :: bes
-!    interface
-!    real(4) function besjn(n,x,factor,big)
-!        integer :: n
-!        real(4) :: x
-!        integer,optional :: factor
-!        real(4),optional :: big
-!    end function besjn
-!end interface
-!bsyn
-!y=besjn(2,0.5)
-!stop
+
 open(2,file='bskn.dat')
 
 xmin=0.
diff --git a/fvn_test/test_bsyn.f90 b/fvn_test/test_bsyn.f90
index f175d87..92fd117 100644
--- a/fvn_test/test_bsyn.f90
+++ b/fvn_test/test_bsyn.f90
@@ -4,17 +4,7 @@ implicit none
 integer :: n,npoints,i
 real(4) :: xmin,xmax,xstep,x,y
 real(4),dimension(200,0:5) :: bes
-!    interface
-!    real(4) function besjn(n,x,factor,big)
-!        integer :: n
-!        real(4) :: x
-!        integer,optional :: factor
-!        real(4),optional :: big
-!    end function besjn
-!end interface
-!bsyn
-!y=besjn(2,0.5)
-!stop
+
 open(2,file='bsyn.dat')
 
 xmin=0.