From fdbb9bb0a5c5ee1811ed27aace4452bd92e8529e Mon Sep 17 00:00:00 2001
From: daniau <daniau@b657c933-2333-4658-acf2-d3c7c2708721>
Date: Fri, 3 Oct 2008 13:52:34 +0000
Subject: [PATCH] git-svn-id: https://lxsd.femto-st.fr/svn/fvn@47
 b657c933-2333-4658-acf2-d3c7c2708721

---
 fvn_test/test_bsin.f90 | 12 +-----------
 fvn_test/test_bsjn.f90 | 12 +-----------
 fvn_test/test_bskn.f90 | 12 +-----------
 fvn_test/test_bsyn.f90 | 12 +-----------
 4 files changed, 4 insertions(+), 44 deletions(-)

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.
-- 
2.16.4