Blame view

fvn_test/test_bsin.f90 616 Bytes
f26a262db   daniau   git-svn-id: https...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
  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