Fconv Function

private function Fconv(b, ipara)

function called by Simplex

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: b(:)
integer(kind=short), intent(in) :: ipara

Return Value real


Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: i
real(kind=float), public :: xmed
real(kind=float), public :: xval

Source Code

REAL FUNCTION Fconv &
!
(b, ipara)

IMPLICIT NONE

!Arguments with intent (in):
REAL (KIND = float), INTENT(IN) :: b (:)
INTEGER (KIND = short), INTENT(IN) :: ipara

!local declarations:
REAL (KIND = float) :: xmed, xval
INTEGER (KIND = short) :: i

!--------------------------------------end of declarations---------------------


xmed = 0.0

DO  i = 1, ipara + 1
    xmed = xmed + b (i)
END DO

xmed = xmed / (ipara + 1.0)
xval = 0.0
DO  i = 1, ipara + 1
    xval = xval + (b(i) - xmed )**2
END DO
Fconv = SQRT( xval / (ipara + 1.0) )
       
RETURN
END FUNCTION Fconv