c----------------------------------------------------------------------
      function CLEBSCHG(j1,j2,m1,m2,j,m)
c  constructs the clebsch gordan coefficient for the 
c  special case <j1,1d0,m1,m2,|j,m>
c
c  author: Heiko Appel,  5.18.99
c      in: j1,j2,m1,m2,j,m the arguments of the Clebsch-Gordan Coefficient
c          in standard notation
c     out: return value of function: value of Clebsch-Gordan Coefficient
c   calls: --
      implicit real*8(a-h,o-z)
      real*8 j1,j2,m1,m2,j,m