| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Abstract_Hetero_Couples), | intent(out) | :: | this | |||
| integer, | intent(in) | :: | num_partners |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | num_couples | = | 0 | ||
| integer, | private, | allocatable | :: | couples(:,:) |
| procedure(Abstract_construct), public :: construct | |
| procedure, public :: destroy => Abstract_destroy | |
| procedure, public :: get_num => Abstract_get_num | |
| procedure, public :: get => Abstract_get |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Abstract_Hetero_Couples), | intent(in) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Abstract_Hetero_Couples), | intent(in) | :: | this | |||
| integer, | intent(in) | :: | i_couple |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Null_Hetero_Couples), | intent(in) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Null_Hetero_Couples), | intent(in) | :: | this | |||
| integer, | intent(in) | :: | i_couple |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Abstract_Hetero_Couples), | intent(inout) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Half_Hetero_Couples), | intent(out) | :: | this | |||
| integer, | intent(in) | :: | num_partners |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Full_Hetero_Couples), | intent(out) | :: | this | |||
| integer, | intent(in) | :: | num_partners |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Null_Hetero_Couples), | intent(out) | :: | this | |||
| integer, | intent(in) | :: | num_partners |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Null_Hetero_Couples), | intent(inout) | :: | this |