WeightObj_t Derived Type

type, public :: WeightObj_t


Source Code


Type Visibility Attributes Name Initial
logical, public :: initialized
type(WeightData_t), public :: dat
type(WeightProc_t), public :: proc
type(WeightObj_t), public, pointer :: ptr => null()

Source Code

    type :: WeightObj_t
        logical :: initialized
        type(WeightData_t) :: dat
        type(WeightProc_t) :: proc
        ! is it possible to put a type into the same type?
        ! i still only need one pointer variable, since the other one in case
        ! of a full double excitation will be contained in the pointer weight
        ! object as another pointer
        type(WeightObj_t), pointer :: ptr => null()
    end type WeightObj_t