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) | :: | i_material |
type :: holder_vhcs class(abst_vhc), allocatable :: p contains procedure, pass(self) :: initialize => initialize_holder_vhcs end type holder_vhcs