myfunc_spec Function

  1. mod_optimize.f90
  2. mod_optimize
  3. myfunc_spec

public pure function myfunc_spec(residual)

Arguments

Type IntentOptional AttributesName
real(kind=xp), intent(in), dimension(:), allocatable:: residual

Return Value real(kind=xp)


Called by

proc~~myfunc_spec~~CalledByGraph proc~myfunc_spec myfunc_spec proc~minimize_spec minimize_spec proc~minimize_spec->proc~myfunc_spec proc~f_g_cube f_g_cube proc~f_g_cube->proc~myfunc_spec proc~upgrade upgrade proc~upgrade->proc~minimize_spec proc~minimize minimize proc~minimize->proc~f_g_cube proc~init_spectrum init_spectrum proc~init_spectrum->proc~minimize_spec proc~update update proc~update->proc~minimize

Contents

Source Code

myfunc_spec

Source Code

  pure function  myfunc_spec(residual)
    implicit none
    
    real(xp), intent(in), dimension(:), allocatable :: residual
    real(xp) :: myfunc_spec
    
    myfunc_spec = 0._xp
    
    myfunc_spec = 0.5_xp * sum(residual**2._xp)    
  end function  myfunc_spec