GA_ Derived Type

type, public :: GA_


Contents


Components

TypeVisibility AttributesNameInitial
type(GA_Individual_), public, allocatable:: plants(:)
real(kind=real64), public, allocatable:: score(:)
integer(kind=int32), public, allocatable:: selected(:)
real(kind=real64), public, allocatable:: selectedScore(:)
integer(kind=int32), public :: num_individual
logical, public :: initialized =.false.
logical, public :: registered =.false.
logical, public :: realRegistered =.false.
logical, public :: intRegistered =.false.

Type-Bound Procedures

procedure, public :: init => initGA

  • public subroutine initGA(obj, num_individual, num_real, num_int)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(inout) :: obj
    integer(kind=int32), intent(in) :: num_individual
    integer(kind=int32), intent(in) :: num_real
    integer(kind=int32), intent(in) :: num_int

procedure, public :: setup => setupGA

  • public subroutine setupGA(obj, DataType, DataID, DataRange, DataAnnotation)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(inout) :: obj
    integer(kind=int32), intent(in) :: DataType
    integer(kind=int32), intent(in) :: DataID
    real(kind=real32), intent(in) :: DataRange(2)
    character(len=*), intent(in) :: DataAnnotation

procedure, public :: show => showGA

  • public subroutine showGA(obj, KeyWord)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(in) :: obj
    character(len=*), intent(in) :: KeyWord

procedure, public :: parse => parseGA

  • public function parseGA(obj, KeyWord) result(ret)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(in) :: obj
    character(len=*), intent(in) :: KeyWord

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: select => selectGA

  • public subroutine selectGA(obj, score, SurvivalRate)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(inout) :: obj
    real(kind=real64), intent(in) :: score(:)
    real(kind=real64), intent(in) :: SurvivalRate

procedure, public :: cross => crossGA

  • public subroutine crossGA(obj)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(inout) :: obj

procedure, public :: mutate => mutateGA

  • public subroutine mutateGA(obj, KeyWord, sigma)

    Arguments

    Type IntentOptional AttributesName
    class(GA_), intent(inout) :: obj
    character(len=*), intent(in) :: KeyWord
    real(kind=real64), intent(in) :: sigma