Commit fdbb9bb0a5c5ee1811ed27aace4452bd92e8529e
1 parent
e93f80fc63
Exists in
master
and in
3 other branches
git-svn-id: https://lxsd.femto-st.fr/svn/fvn@47 b657c933-2333-4658-acf2-d3c7c2708721
Showing 4 changed files with 4 additions and 44 deletions Side-by-side Diff
fvn_test/test_bsin.f90
| ... | ... | @@ -4,17 +4,7 @@ |
| 4 | 4 | integer :: n,npoints,i |
| 5 | 5 | real(4) :: xmin,xmax,xstep,x,y |
| 6 | 6 | real(4),dimension(200,0:5) :: bes |
| 7 | -! interface | |
| 8 | -! real(4) function besjn(n,x,factor,big) | |
| 9 | -! integer :: n | |
| 10 | -! real(4) :: x | |
| 11 | -! integer,optional :: factor | |
| 12 | -! real(4),optional :: big | |
| 13 | -! end function besjn | |
| 14 | -!end interface | |
| 15 | -!bsyn | |
| 16 | -!y=besjn(2,0.5) | |
| 17 | -!stop | |
| 7 | + | |
| 18 | 8 | open(2,file='bsin.dat') |
| 19 | 9 | |
| 20 | 10 | xmin=-5. |
fvn_test/test_bsjn.f90
| ... | ... | @@ -4,17 +4,7 @@ |
| 4 | 4 | integer :: n,npoints,i |
| 5 | 5 | real(4) :: xmin,xmax,xstep,x,y |
| 6 | 6 | real(4),dimension(200,0:5) :: bes |
| 7 | -! interface | |
| 8 | -! real(4) function besjn(n,x,factor,big) | |
| 9 | -! integer :: n | |
| 10 | -! real(4) :: x | |
| 11 | -! integer,optional :: factor | |
| 12 | -! real(4),optional :: big | |
| 13 | -! end function besjn | |
| 14 | -!end interface | |
| 15 | -!bsyn | |
| 16 | -!y=besjn(2,0.5) | |
| 17 | -!stop | |
| 7 | + | |
| 18 | 8 | open(2,file='bsjn.dat') |
| 19 | 9 | |
| 20 | 10 | xmin=-20. |
fvn_test/test_bskn.f90
| ... | ... | @@ -4,17 +4,7 @@ |
| 4 | 4 | integer :: n,npoints,i |
| 5 | 5 | real(4) :: xmin,xmax,xstep,x,y |
| 6 | 6 | real(4),dimension(200,0:5) :: bes |
| 7 | -! interface | |
| 8 | -! real(4) function besjn(n,x,factor,big) | |
| 9 | -! integer :: n | |
| 10 | -! real(4) :: x | |
| 11 | -! integer,optional :: factor | |
| 12 | -! real(4),optional :: big | |
| 13 | -! end function besjn | |
| 14 | -!end interface | |
| 15 | -!bsyn | |
| 16 | -!y=besjn(2,0.5) | |
| 17 | -!stop | |
| 7 | + | |
| 18 | 8 | open(2,file='bskn.dat') |
| 19 | 9 | |
| 20 | 10 | xmin=0. |
fvn_test/test_bsyn.f90
| ... | ... | @@ -4,17 +4,7 @@ |
| 4 | 4 | integer :: n,npoints,i |
| 5 | 5 | real(4) :: xmin,xmax,xstep,x,y |
| 6 | 6 | real(4),dimension(200,0:5) :: bes |
| 7 | -! interface | |
| 8 | -! real(4) function besjn(n,x,factor,big) | |
| 9 | -! integer :: n | |
| 10 | -! real(4) :: x | |
| 11 | -! integer,optional :: factor | |
| 12 | -! real(4),optional :: big | |
| 13 | -! end function besjn | |
| 14 | -!end interface | |
| 15 | -!bsyn | |
| 16 | -!y=besjn(2,0.5) | |
| 17 | -!stop | |
| 7 | + | |
| 18 | 8 | open(2,file='bsyn.dat') |
| 19 | 9 | |
| 20 | 10 | xmin=0. |