Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
class(abst_thc), | public, | allocatable | :: | p |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(holder_thcs), | intent(inout) | :: | self | |||
type(type_input), | intent(in) | :: | Input | |||
integer(kind=int32), | intent(in) | :: | i_material |
type :: holder_thcs class(abst_thc), allocatable :: p contains procedure, pass(self) :: initialize => initialize_holder_thcs end type holder_thcs