max_reduce_real Subroutine

private subroutine max_reduce_real(a, dest)

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: a
integer, intent(in) :: dest