Aim: Compute median of an array (either integer or real).
The routine declaration is:
function localMedian(toto,nval) ! toto: 1-D input array of integer or real values ! nval: number of values in toto to consider (optional) integer or real, dimension(:), intent(in) :: toto integer, optional, intent(in) :: nval