| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=int32), | public | :: | x | ||||
| integer(kind=int32), | public | :: | y | ||||
| integer(kind=int32), | public | :: | z |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_3d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | x_val | |||
| integer(kind=int32), | intent(in) | :: | y_val | |||
| integer(kind=int32), | intent(in) | :: | z_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_3d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | value(3) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_3d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | x_val | |||
| integer(kind=int32), | intent(in) | :: | y_val | |||
| integer(kind=int32), | intent(in) | :: | z_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_3d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | value(3) |
type :: type_int_vector_3d integer(int32) :: x integer(int32) :: y integer(int32) :: z contains procedure, private, pass(self) :: set_int_vector_3d procedure, private, pass(self) :: set_int_vector_3d_array generic, public :: set => set_int_vector_3d, set_int_vector_3d_array end type type_int_vector_3d