Skip to content
Snippets Groups Projects
Select Git revision
  • 82-cmake-integration-issues
  • devel default
  • 107-compilation-error-when-building-maestro-core-on-m1-apple-processors
  • 108-implement-cpu-id-query-for-apple-m1-hardware
  • 58-scripting-interface-to-maestro-core
  • 101-need-ci-test-using-installed-maestro
  • 57-sphinx-documentation
  • 105-memory-leak-in-pm-message-envelope-handling
  • 104-permit-disabling-memory-pool
  • 103-liberl-installation-issue-on-devel
  • 94-maestro-rdma-transport-ignores-max_msg_size-2
  • main protected
  • 102-possible-race-in-check_pm_redundant_interlock-test
  • 97-check-if-shm-provider-can-be-enabled-after-libfabric-1-14-is-in-our-tree-2
  • 100-include-maestro-attributes-h-cannot-include-mamba-header-from-deps-path
  • 97-check-if-shm-provider-can-be-enabled-after-libfabric-1-14-is-in-our-tree
  • 17-job-failed-282354-needs-update-of-mio-interface-and-build-rules
  • 96-test-libfabric-update-to-1-13-or-1-14
  • feature/stop-telemetry-after-all-left
  • 94-maestro-rdma-transport-ignores-max_msg_size
  • 93-improve-performance-of-mstro_attribute_val_cmp_str
  • v0.3_rc1
  • maestro_d65
  • d65_experiments_20211113
  • v0.2
  • v0.2_rc1
  • d3.3
  • d3.3-review
  • d5.5
  • d5.5-review
  • v0.1
  • d3.2
  • d3.2-draft
  • v0.0
34 results

maestro-valgrind.supp

Blame
  • pi_serial.f90 1.13 KiB
    program pi
    
    implicit none
    
    integer, parameter :: DARTS = 50000, ROUNDS = 10, MASTER = 0
    
    real(8) :: pi_est
    real(8) :: homepi, avepi, pirecv, pisum
    integer :: rank
    integer :: i, n
    integer, allocatable :: seed(:)
    
    ! we set it to zero in the sequential run
    rank = 0
    
    ! initialize the random number generator
    ! we make sure the seed is different for each task
    call random_seed()
    call random_seed(size = n)
    allocate(seed(n))
    seed = 12 + rank*11
    call random_seed(put=seed(1:n))
    deallocate(seed)
    
    avepi = 0
    do i = 0, ROUNDS-1
       pi_est = dboard(DARTS)
    
       ! calculate the average value of pi over all iterations
       avepi = ((avepi*i) + pi_est)/(i + 1)
    
       print *, "After ", DARTS*(i+1), " throws, average value of pi =", avepi
    end do
    
    contains
    
       real(8) function dboard(darts)
    
          integer, intent(in) :: darts
    
          real(8) :: x_coord, y_coord
          integer :: score, n
    
          score = 0
          do n = 1, darts
             call random_number(x_coord)
             call random_number(y_coord)
    
             if ((x_coord**2 + y_coord**2) <= 1.0d0) then
                score = score + 1
             end if
          end do
          dboard = 4.0d0*score/darts
    
       end function
    
    end program