c
c  "Clean up" the result.
c
      if ( id .eq. 0 ) then
        q_total = q_total / dble ( p )
        q_error = abs ( q_total - q_exact )
        sample_total = p * sample_num
        write ( *, '(2x,a8,2x,i8,2x,i8,2x,f16.10,2x,g16.6)' ) 
     &    '   Total', sample_total, dim_num, q_total, q_error

        wtime2 = MPI_Wtime ( )
        wtime = wtime2 - wtime1
        write ( *, '(a,f14.6)' ) '  Elapsed wall clock seconds = ', 
     &    wtime

      end if

      call MPI_Finalize ( ierr )

      stop
      end