average_and_comm_pert_overlaps Subroutine

public subroutine average_and_comm_pert_overlaps(nrepeats)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nrepeats

Contents

Source Code

average_and_comm_pert_overlaps

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