| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=int32), | public | :: | x | ||||
| integer(kind=int32), | public | :: | y |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_2d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | x_val | |||
| integer(kind=int32), | intent(in) | :: | y_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_2d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | value(2) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_2d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | x_val | |||
| integer(kind=int32), | intent(in) | :: | y_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_int_vector_2d), | intent(inout) | :: | self | |||
| integer(kind=int32), | intent(in) | :: | value(2) |
type :: type_int_vector_2d integer(int32) :: x integer(int32) :: y contains procedure, private, pass(self) :: set_int_vector_2d procedure, private, pass(self) :: set_int_vector_2d_array generic, public :: set => set_int_vector_2d, set_int_vector_2d_array end type type_int_vector_2d