*
* $Id: c326m.F,v 1.1 1996/04/02 16:23:49 mclareni Exp $
*
* $Log: c326m.F,v $
* Revision 1.1  1996/04/02 16:23:49  mclareni
* More precise dclaus64 (C326), test added and C344 removed from TESTALL
*
*
      SUBROUTINE C326M

C     C326 RCLAUS, DCLAUS
 
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      LOGICAL LOK
 
      DIMENSION X(12),TST(12)
 
      PARAMETER (R1 = 1)
 
      DATA EPS /1D-15/
 
      DATA X( 1),TST( 1) /-2.45D0, -0.963900225025517D0/
      DATA X( 2),TST( 2) / 0.02D0,  0.236709452977620D0/
      DATA X( 3),TST( 3) / 0.30D0,  1.009992452806288D0/
      DATA X( 4),TST( 4) / 0.50D0,  0.915965594177219D0/
      DATA X( 5),TST( 5) / 0.67D0,  0.670859652431799D0/
      DATA X( 6),TST( 6) / 0.94D0,  0.130375860631878D0/
      DATA X( 7),TST( 7) / 1.11D0, -0.237809750272603D0/
      DATA X( 8),TST( 8) / 1.29D0, -0.599310111126993D0/
      DATA X( 9),TST( 9) / 1.53D0, -0.946337252128296D0/
      DATA X(10),TST(10) / 1.80D0, -0.923755168100536D0/
      DATA X(11),TST(11) / 1.99D0, -0.140129295431774D0/
      DATA X(12),TST(12) / 2.25D0,  0.981872151050203D0/
 
      LOK=.TRUE.
      PI=4*ATAN(R1)
      DO 1 I = 1,12
      RES=DCLAUS(PI*X(I))
    1 LOK=LOK .AND. ABS(RES-TST(I))/RES .LE. EPS
      WRITE(6,'(1X)')
      IF(LOK) WRITE(6,'(7X,''C326 DCLAUS  ** TEST SUCCESSFUL **'')')
      IF(.NOT.LOK) WRITE(6,'(7X,''C326 DCLAUS  ** TEST FAILED **'')')
      END
