average_and_comm_pert_overlaps Subroutine

public subroutine average_and_comm_pert_overlaps(nrepeats)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nrepeats

Source Code

    subroutine average_and_comm_pert_overlaps(nrepeats)

        ! Average and perform MPI communication.

        integer, intent(in) :: nrepeats

        pert_overlaps = pert_overlaps / nrepeats
        call MPISum(pert_overlaps, kp_all_pert_overlaps)

    end subroutine average_and_comm_pert_overlaps