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