program tclebschg
      
      implicit real*8(a-h,o-z)
      
c----------------------------------------------------------------------
c Program to test the function CLEBSCHG
c----------------------------------------------------------------------


      write(*,*) 'j1   m1   j2   m2   j   m   analytical value:       |
     &   output of CLEBSCHG'
      write(*,*) '
     &                   '
      write(*,*) ' 0    0    1    0   1   0           1               |
     & ',clebschg(0d0,1d0,0d0,0d0,1d0,0d0)

      write(*,*) ' 1    0    1    0   1   0           0               |
     & ',clebschg(1d0,1d0,0d0,0d0,1d0,0d0)

      write(*,*) ' 2    0    1    0   1   0       -sqrt(2/5)          |
     & ',clebschg(2d0,1d0,0d0,0d0,1d0,0d0)

      write(*,*) ' 1    1    1    0   1   1        1/sqrt(2)          |
     & ',clebschg(1d0,1d0,1d0,0d0,1d0,1d0)

      write(*,*) ' 2    1    1    0   1   1       -sqrt(3/10)         |
     & ',clebschg(2d0,1d0,1d0,0d0,1d0,1d0)

      write(*,*) ' 2    1    1    0   2   1        1/sqrt(6)          |
     & ',clebschg(2d0,1d0,1d0,0d0,2d0,1d0)

      write(*,*) ' 3    1    1    1   1   2      -2*sqrt(2/21)        |
     & ',clebschg(3d0,1d0,1d0,0d0,2d0,1d0)


      stop
      end