| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(abst_vhc), | public, | allocatable | :: | p |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(holder_vhcs), | intent(inout) | :: | self | |||
| type(type_input), | intent(in) | :: | input | |||
| integer(kind=int32), | intent(in) | :: | material_id |
type :: holder_vhcs class(abst_vhc), allocatable :: p contains procedure, pass(self) :: initialize => initialize_holder_vhcs end type holder_vhcs