Line data    Source code

       1             : !> \file    mo_your_module.f90
       2             : !> \copydoc mo_your_module
       3             : 
       4             : !> \brief   Your module
       5             : !> \details This module performs something very simple. But you should describe it.
       6             : !> \version 0.1
       7             : !> \authors Sebastian Mueller
       8             : !> \date    May 2021
       9             : !> \copyright Copyright 2005-\today, the CHS Developers, Sabine Attinger: All rights reserved.
      10             : !! This code is released under the LGPLv3+ license \license_note
      11             : module mo_your_module
      12             : 
      13             :   use mo_kind,   only: i4, dp
      14             : 
      15             :   implicit none
      16             :   private
      17             :   public :: first_two_moments ! first two statistical moments of an array
      18             : 
      19             : contains
      20             : 
      21             :   !> \brief   Calculate first two statistical moments of an array.
      22             :   !> \return  array with first two moments
      23           4 :   function first_two_moments(dat) result(output)
      24             : 
      25             :     use mo_moment, only: central_moment
      26             : 
      27             :     implicit none
      28             : 
      29             :     !> array with values to analyze
      30             :     real(dp), dimension(:), intent(in) :: dat
      31             : 
      32             :     ! output
      33             :     real(dp), dimension(2) :: output
      34             :     ! looping variable
      35             :     integer(i4) :: i
      36             : 
      37           3 :     do i = 1, 2
      38           3 :       output(i) = central_moment(dat, i)
      39             :     end do
      40             : 
      41           1 :   end function first_two_moments
      42             : 
      43             : end module mo_your_module