program TestANGINT
      
      implicit real*8(a-h,o-z)
      

c----------------------------------------------------------------------
c This program tests the function ANGINT
c----------------------------------------------------------------------


      write(*,*) 'l1   m1   l2   m2     analytical value:         |
     &   output of angint'
      write(*,*) '
     &                   '
      write(*,*) ' 1    0    0    0         1/sqrt(3)             |
     & ',angint(1d0,0d0,0d0,0d0)
      write(*,*) ' 1    0    1    0            0                  |
     & ',angint(1d0,0d0,1d0,0d0) 
      write(*,*) ' 1    1    1    0            0                  |
     & ',angint(1d0,1d0,1d0,0d0)
      write(*,*) ' 1    1    1    1            0                  |
     & ',angint(1d0,1d0,1d0,1d0)
      write(*,*) ' 2    0    0    0            0                  |
     & ',angint(2d0,0d0,0d0,0d0)
      write(*,*) ' 2    0    1    0         2/sqrt(15)            |
     & ',angint(2d0,0d0,1d0,0d0)
      write(*,*) ' 8    0    9    0         9/sqrt(323)           |
     & ',angint(8d0,0d0,9d0,0d0)
      write(*,*) '11    0   10    0        11/sqrt(483)           |
     & ',angint(11d0,0d0,10d0,0d0)
 
      stop
      end