| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public | :: | x | ||||
| real(kind=real64), | public | :: | y | ||||
| real(kind=real64), | public | :: | z |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_dp_vector_3d), | intent(inout) | :: | self | |||
| real(kind=real64), | intent(in) | :: | x_val | |||
| real(kind=real64), | intent(in) | :: | y_val | |||
| real(kind=real64), | intent(in) | :: | z_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_dp_vector_3d), | intent(inout) | :: | self | |||
| real(kind=real64), | intent(in) | :: | value(3) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_dp_vector_3d), | intent(inout) | :: | self | |||
| real(kind=real64), | intent(in) | :: | x_val | |||
| real(kind=real64), | intent(in) | :: | y_val | |||
| real(kind=real64), | intent(in) | :: | z_val |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_dp_vector_3d), | intent(inout) | :: | self | |||
| real(kind=real64), | intent(in) | :: | value(3) |
type :: type_dp_vector_3d real(real64) :: x real(real64) :: y real(real64) :: z contains procedure, private, pass(self) :: set_dp_vector_3d procedure, private, pass(self) :: set_dp_vector_3d_array generic, public :: set => set_dp_vector_3d, set_dp_vector_3d_array end type type_dp_vector_3d