std_array Subroutine

public subroutine std_array(tab, mx)

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(..) :: tab

1D array
type(moment_stat), intent(out), optional :: mx

moment_stat statistical moments

Calls

proc~~std_array~~CallsGraph proc~std_array std_array proc~std_array1d std_array1D proc~std_array->proc~std_array1d proc~std_array2d std_array2D proc~std_array->proc~std_array2d proc~calc_moments calc_moments proc~std_array1d->proc~calc_moments proc~std_array2d->proc~calc_moments proc~calc_moments_1d calc_moments_1D proc~calc_moments->proc~calc_moments_1d

Source Code

   subroutine std_array(tab, mx)
   implicit none
   real(kind=R8), intent(inout), dimension(..) :: tab    !! *1D array*
   type(moment_stat), intent(out), optional    :: mx     !! [[moment_stat]] *statistical moments*

      select rank (tab)

         rank (1)

            call std_array1D(tab, mx)

         rank (2)

            call std_array2D(tab, mx)

         rank default

            stop "bad rank in 'std_array'"

      endselect

   return
   endsubroutine std_array