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() |
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