CGFIT_ROUTINES Module


Used by

  • module~~cgfit_routines~~UsedByGraph module~cgfit_routines CGFIT_ROUTINES module~sf_optimize SF_OPTIMIZE module~sf_optimize->module~cgfit_routines module~scifor SCIFOR module~scifor->module~sf_optimize

Variables

Type Visibility Attributes Name Initial
integer, public :: ncom
real(kind=8), public, dimension(:), pointer :: pcom
real(kind=8), public, dimension(:), pointer :: xicom
procedure(cgfit_func), public, pointer :: func
procedure(cgfit_fjac), public, pointer :: fjac

Abstract Interfaces

abstract interface

  • public function cgfit_func(a)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: a

    Return Value real(kind=8)

abstract interface

  • public function cgfit_fjac(a)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: a

    Return Value real(kind=8), dimension(size(a))


Functions

public function f1dim(x)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x

Return Value real(kind=8)

public function df1dim(x)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x

Return Value real(kind=8)

public function brent_(ax, bx, cx, func, tol, xmin)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: ax
real(kind=8), intent(in) :: bx
real(kind=8), intent(in) :: cx
public function func(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
Return Value real(kind=8)
real(kind=8), intent(in) :: tol
real(kind=8), intent(out) :: xmin

Return Value real(kind=8)

public function dbrent_(ax, bx, cx, func, fjac, tol, xmin, itmax) result(dbrent)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: ax
real(kind=8), intent(in) :: bx
real(kind=8), intent(in) :: cx
public function func(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
Return Value real(kind=8)
public function fjac(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
Return Value real(kind=8)
real(kind=8), intent(in) :: tol
real(kind=8), intent(out) :: xmin
integer, optional :: itmax

Return Value real(kind=8)

public function isinfty(a) result(bool)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: a

Return Value logical

public function isnan(a) result(bool)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: a

Return Value logical


Subroutines

public subroutine linmin(p, xi, fret, ftol)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout), dimension(:), target :: p
real(kind=8), intent(inout), dimension(:), target :: xi
real(kind=8), intent(out) :: fret
real(kind=8), optional :: ftol

public subroutine dlinmin(p, xi, fret, ftol, itmax)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout), dimension(:), target :: p
real(kind=8), intent(inout), dimension(:), target :: xi
real(kind=8), intent(out) :: fret
real(kind=8), optional :: ftol
integer, optional :: itmax

public subroutine mnbrak(ax, bx, cx, fa, fb, fc, func)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout) :: ax
real(kind=8), intent(inout) :: bx
real(kind=8), intent(out) :: cx
real(kind=8), intent(out) :: fa
real(kind=8), intent(out) :: fb
real(kind=8), intent(out) :: fc
public function func(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
Return Value real(kind=8)