calculs_skku_generique Subroutine

public subroutine calculs_skku_generique(bounds, lg, ssk, sku)

Note

Function that calls the right series generator.

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(in), dimension(:) :: bounds

interval limits
integer(kind=I4), intent(in) :: lg

vec size
real(kind=R8), intent(out) :: ssk

theoretical Ssk
real(kind=R8), intent(out) :: sku

theoretical Sku

Calls

proc~~calculs_skku_generique~~CallsGraph proc~calculs_skku_generique calculs_skku_generique proc~calculs_skku_exp calculs_skku_exp proc~calculs_skku_generique->proc~calculs_skku_exp proc~calculs_skku_tan calculs_skku_tan proc~calculs_skku_generique->proc~calculs_skku_tan proc~add_expo add_expo proc~calculs_skku_exp->proc~add_expo proc~add_tang add_tang proc~calculs_skku_tan->proc~add_tang proc~tang tang proc~calculs_skku_tan->proc~tang proc~expo expo proc~add_expo->proc~expo proc~add_tang->proc~tang

Source Code

   subroutine calculs_skku_generique(bounds, lg, ssk, sku)
   !================================================================================================
   !<@note Function that calls the right series generator.
   !<
   !<@endnote
   !------------------------------------------------------------------------------------------------
   implicit none
   real   (kind=R8), intent(in), dimension(:)   :: bounds  !! *interval limits*
   integer(kind=I4), intent(in)                 :: lg      !! *vec size*
   real   (kind=R8), intent(out)                :: ssk     !! *theoretical Ssk*
   real   (kind=R8), intent(out)                :: sku     !! *theoretical Sku*

      select case (PARAM%func_gen)
         case(FCT_TANG) ; call calculs_skku_tan(bounds, lg, ssk, sku)
         case(FCT_EXPO) ; call calculs_skku_exp(bounds, lg, ssk, sku)
      endselect
   return
   endsubroutine calculs_skku_generique