C
C
      PROGRAM MGAUSS1
C
      IMPLICIT REAL*8(A-H,O-Z)
      EXTERNAL FUNC
C
      A=0.D0
      B=3.141592654D0
      CALL GAUSS1(FUNC,A,B,6,S,IER)
C
      WRITE(*,*)' S=',S
C
      STOP
      END
C
C
C
      REAL*8 FUNCTION FUNC(X)
      IMPLICIT REAL*8(A-H,O-Z)
C
      FUNC=DSIN(X)
C
      RETURN
      END
