git-svn-id: https://lxsd.femto-st.fr/svn/fvn@37 b657c933-2333-4658-acf2-d3c7c2708721

daniau
1 parent 27d3b84d60
Showing 6 changed files with 149 additions and 1 deletions Side-by-side Diff
fvn_test/Makefile
fvn_test/test_bsin.f90
fvn_test/test_bsjn.f90
fvn_test/test_bskn.f90
fvn_test/test_bsyn.f90
fvn_test/test_specfunc.f90
@@ -4,7 +4,7 @@
 programs = test_fac test_matinv test_specfunc  \
 test_det test_matcon test_matev test_sparse test_inter1d \
 test_inter2d test_inter3d test_akima test_lsp test_muller \
-test_integ
+test_integ test_bsyn test_bsjn test_bskn test_bsin
  
 prog:$(programs)
  
+program test_bsin
+use fvn_fnlib
+implicit none
+integer :: n,npoints,i
+real(4) :: xmin,xmax,xstep,x,y
+real(4),dimension(200,6) :: 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.
+xmax=5.
+npoints=200
+xstep=(xmax-xmin)/dble(npoints)
+do i=1,npoints
+      x=xmin+i*xstep
+      do n=0,5
+        bes(i,n)=bsin(n,x)
+      end do
+      write(2,'(7e22.14)') x,bes(i,0:5)
+end do
+close(2)
+
+end program
+program test_bsjn
+use fvn_fnlib
+implicit none
+integer :: n,npoints,i
+real(4) :: xmin,xmax,xstep,x,y
+real(4),dimension(200,6) :: 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.
+xmax=20.
+npoints=200
+xstep=(xmax-xmin)/dble(npoints)
+do i=1,npoints
+      x=xmin+i*xstep
+      do n=0,5
+        bes(i,n)=bsjn(n,x)
+      end do
+      write(2,'(7e22.14)') x,bes(i,0:5)
+end do
+close(2)
+
+end program
+program test_bskn
+use fvn_fnlib
+implicit none
+integer :: n,npoints,i
+real(4) :: xmin,xmax,xstep,x,y
+real(4),dimension(200,6) :: 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.
+xmax=10.
+npoints=200
+xstep=(xmax-xmin)/dble(npoints)
+do i=1,npoints
+      x=xmin+i*xstep
+      do n=0,5
+        bes(i,n)=bskn(n,x)
+      end do
+      write(2,'(7e22.14)') x,bes(i,0:5)
+end do
+close(2)
+
+! with gnuplot -> set yrange [-1:1]
+
+end program
+program test_bsyn
+use fvn_fnlib
+implicit none
+integer :: n,npoints,i
+real(4) :: xmin,xmax,xstep,x,y
+real(4),dimension(200,6) :: 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.
+xmax=20.
+npoints=200
+xstep=(xmax-xmin)/dble(npoints)
+do i=1,npoints
+      x=xmin+i*xstep
+      do n=0,5
+        bes(i,n)=bsyn(n,x)
+      end do
+      write(2,'(7e22.14)') x,bes(i,0:5)
+end do
+close(2)
+
+! with gnuplot -> set yrange [-1:1]
+
+end program
@@ -164,6 +164,18 @@
 end do
 close(2)
  
+! dawson
+xmin=-5.
+xmax=5.
+xstep=(xmax-xmin)/dble(npoints)
+open(2,file='daws.dat')
+do i=1,npoints
+x=xmin+i*xstep
+y=daws(x)
+write(2,'(2e22.14)') x,y
+end do
+close(2)
+
  
  
 end program test_specfunc
...	...	@@ -4,7 +4,7 @@
4	4	programs = test_fac test_matinv test_specfunc \
5	5	test_det test_matcon test_matev test_sparse test_inter1d \
6	6	test_inter2d test_inter3d test_akima test_lsp test_muller \
7		-test_integ
	7	+test_integ test_bsyn test_bsjn test_bskn test_bsin
8	8
9	9	prog:$(programs)
10	10
	1	+program test_bsin
	2	+use fvn_fnlib
	3	+implicit none
	4	+integer :: n,npoints,i
	5	+real(4) :: xmin,xmax,xstep,x,y
	6	+real(4),dimension(200,6) :: 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
	18	+open(2,file='bsin.dat')
	19	+
	20	+xmin=-5.
	21	+xmax=5.
	22	+npoints=200
	23	+xstep=(xmax-xmin)/dble(npoints)
	24	+do i=1,npoints
	25	+ x=xmin+i*xstep
	26	+ do n=0,5
	27	+ bes(i,n)=bsin(n,x)
	28	+ end do
	29	+ write(2,'(7e22.14)') x,bes(i,0:5)
	30	+end do
	31	+close(2)
	32	+
	33	+end program
	1	+program test_bsjn
	2	+use fvn_fnlib
	3	+implicit none
	4	+integer :: n,npoints,i
	5	+real(4) :: xmin,xmax,xstep,x,y
	6	+real(4),dimension(200,6) :: 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
	18	+open(2,file='bsjn.dat')
	19	+
	20	+xmin=-20.
	21	+xmax=20.
	22	+npoints=200
	23	+xstep=(xmax-xmin)/dble(npoints)
	24	+do i=1,npoints
	25	+ x=xmin+i*xstep
	26	+ do n=0,5
	27	+ bes(i,n)=bsjn(n,x)
	28	+ end do
	29	+ write(2,'(7e22.14)') x,bes(i,0:5)
	30	+end do
	31	+close(2)
	32	+
	33	+end program
	1	+program test_bskn
	2	+use fvn_fnlib
	3	+implicit none
	4	+integer :: n,npoints,i
	5	+real(4) :: xmin,xmax,xstep,x,y
	6	+real(4),dimension(200,6) :: 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
	18	+open(2,file='bskn.dat')
	19	+
	20	+xmin=0.
	21	+xmax=10.
	22	+npoints=200
	23	+xstep=(xmax-xmin)/dble(npoints)
	24	+do i=1,npoints
	25	+ x=xmin+i*xstep
	26	+ do n=0,5
	27	+ bes(i,n)=bskn(n,x)
	28	+ end do
	29	+ write(2,'(7e22.14)') x,bes(i,0:5)
	30	+end do
	31	+close(2)
	32	+
	33	+! with gnuplot -> set yrange [-1:1]
	34	+
	35	+end program
	1	+program test_bsyn
	2	+use fvn_fnlib
	3	+implicit none
	4	+integer :: n,npoints,i
	5	+real(4) :: xmin,xmax,xstep,x,y
	6	+real(4),dimension(200,6) :: 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
	18	+open(2,file='bsyn.dat')
	19	+
	20	+xmin=0.
	21	+xmax=20.
	22	+npoints=200
	23	+xstep=(xmax-xmin)/dble(npoints)
	24	+do i=1,npoints
	25	+ x=xmin+i*xstep
	26	+ do n=0,5
	27	+ bes(i,n)=bsyn(n,x)
	28	+ end do
	29	+ write(2,'(7e22.14)') x,bes(i,0:5)
	30	+end do
	31	+close(2)
	32	+
	33	+! with gnuplot -> set yrange [-1:1]
	34	+
	35	+end program
...	...	@@ -164,6 +164,18 @@
164	164	end do
165	165	close(2)
166	166
	167	+! dawson
	168	+xmin=-5.
	169	+xmax=5.
	170	+xstep=(xmax-xmin)/dble(npoints)
	171	+open(2,file='daws.dat')
	172	+do i=1,npoints
	173	+x=xmin+i*xstep
	174	+y=daws(x)
	175	+write(2,'(2e22.14)') x,y
	176	+end do
	177	+close(2)
	178	+
167	179
168	180
169	181	end program test_specfunc