max_reduce_real_array Subroutine

private subroutine max_reduce_real_array(a, dest)

Arguments

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