FUNCTION WINEJ(J11,J12,J13,J21,J22,J23,J31,J32,J33)
C
C CALCULATION OF THE WIGNER NINEJ SYMBOL
C THE UPPER ROW IS J11,J12,J13 ,  THE SECOND ROW J21,J22,J23
C AND THE LOWER ROW IS J31,J32,J33
C
      COMMON/VN06FC/FCT(40)
      WINEJ=0.
      IF(J11+J21-J31)2,1,1
 1    IF(IABS(J11-J21)-J31)3,3,2
 3    IF(J11+J21+J31-2*((J11+J21+J31)/2))2,4,2
 4    IF(J21+J22-J23)2,5,5
 5    IF(IABS(J21-J22)-J23)6,6,2
 6    IF(J21+J22+J23-2*((J21+J22+J23)/2))2,7,2
 7    IF(J31+J32-J33)2,8,8
 8    IF(IABS(J31-J32)-J33)9,9,2
 9    IF(J31+J32+J33-2*((J31+J32+J33)/2))2,10,2
 10   IF(J11+J12-J13)2,11,11
 11   IF(IABS(J11-J12)-J13)12,12,2
 12   IF(J11+J12+J13-2*((J11+J12+J13)/2))2,13,2
 13   IF(J12+J22-J32)2,14,14
 14   IF(IABS(J12-J22)-J32)15,15,2
 15   IF(J12+J22+J32-2*((J12+J22+J32)/2))2,16,2
 16   IF(J13+J23-J33)2,17,17
 17   IF(IABS(J13-J23)-J33)18,18,2
 18   IF(J13+J23+J33-2*((J13+J23+J33)/2))2,19,2
 19   KMIN=MAX0(IABS(J11-J33),IABS(J32-J21),IABS(J23-J12))
      KMAX=MIN0(J11+J33,J32+J21,J23+J12)
      DO 28 K=KMIN,KMAX
 28   WINEJ=WINEJ+(-1)**K*(FLOAT(K)+1.)*VN02B9(J11,J21,J31,J32,J33,K)*
     1VN02B9(J12,J22,J32,J21,K,J23)*VN02B9(J13,J23,J33,K,J11,J12)
 2    RETURN
      END