MINICERN/mathlib/gen/u/dwig3j.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:01:48  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if !defined(CERNLIB_DOUBLE)
  11       FUNCTION DWIG3J(A,B,C,X,Y,Z)
  12 #include "gen/imp128.inc"
  13       CHARACTER*6 NAME
  14       DWIG3J=0
  15       NAME  ='DWIG3J'
  16       CALL MTLPRT(NAME,'U111',
  17      +'not available on this machine - see documentation')
  18       RETURN
  19
  20       ENTRY DCLEBG(A,B,C,X,Y,Z)
  21       DCLEBG=0
  22       NAME  ='DCLEBG'
  23       CALL MTLPRT(NAME,'U111',
  24      +'not available on this machine - see documentation')
  25       RETURN
  26
  27       ENTRY DWIG6J(A,B,C,X,Y,Z)
  28       DWIG6J=0
  29       NAME  ='DWIG6J'
  30       CALL MTLPRT(NAME,'U111',
  31      +'not available on this machine - see documentation')
  32       RETURN
  33
  34       ENTRY DRACAW(A,B,C,X,Y,Z)
  35       DRACAW=0
  36       NAME  ='DRACAW'
  37       CALL MTLPRT(NAME,'U111',
  38      +'not available on this machine - see documentation')
  39       RETURN
  40
  41       ENTRY DJAHNU(A,B,C,X,Y,Z)
  42       DJAHNU=0
  43       NAME  ='DJAHNU'
  44       CALL MTLPRT(NAME,'U111',
  45      +'not available on this machine - see documentation')
  46       RETURN
  47
  48       ENTRY DWIG9J(A,B,C,P,Q,R,X,Y,Z)
  49       DWIG9J=0
  50       NAME  ='DWIG9J'
  51       CALL MTLPRT(NAME,'U111',
  52      +'not available on this machine - see documentation')
  53       RETURN
  54       END
  55 #endif