program main

      include 'mpif.h'

      integer dim_num
      parameter ( dim_num = 4 )

      double precision f
      integer id, ierr, master
      parameter ( master = 0 )
      integer p
      double precision q, q_error, q_exact
      parameter ( q_exact = 1.0D+00 )
      double precision q_total
      integer sample, sample_num
      parameter ( sample_num = 1000 )
      integer sample_total, seed
      double precision wtime, wtime1, wtime2, x(dim_num)

      call MPI_Init ( ierr )
      call MPI_Comm_rank ( MPI_COMM_WORLD, id, ierr )
      call MPI_Comm_size ( MPI_COMM_WORLD, p, ierr )

      if ( id .eq. master ) then
        wtime1 = MPI_Wtime ( )
      end if