cost_func_skku Subroutine

private subroutine cost_func_skku(me, x, f)

Quantify de distance between desired moments and calculated moments

Arguments

Type IntentOptional Attributes Name
class(pikaia_class), intent(inout) :: me
real(kind=R8), intent(in), dimension(:) :: x
real(kind=R8), intent(out) :: f

Calls

proc~~cost_func_skku~~CallsGraph proc~cost_func_skku cost_func_skku proc~fitness_skku_anal fitness_skku_anal proc~cost_func_skku->proc~fitness_skku_anal proc~calculs_skku_exp calculs_skku_exp proc~fitness_skku_anal->proc~calculs_skku_exp proc~calculs_skku_tan calculs_skku_tan proc~fitness_skku_anal->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 cost_func_skku(me, x, f)
   !! Quantify de distance between desired moments and calculated moments
   implicit none
   class(pikaia_class), intent(inout)               :: me
   real(kind=R8)      , intent(in   ), dimension(:) :: x
   real(kind=R8)      , intent(  out)               :: f

      f = fitness_skku_anal(n = PARAM%nparam, x = x(1:PARAM%nparam) )

   return
   endsubroutine cost_func_skku