get_xyz Subroutine

private pure elemental subroutine get_xyz(this, x, y, z)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this
real(kind=rk), intent(out) :: x
real(kind=rk), intent(out) :: y
real(kind=rk), intent(out) :: z

Called by

proc~~get_xyz~~CalledByGraph proc~get_xyz color%get_xyz proc~get color%get proc~get->proc~get_xyz program~demo_color demo_color program~demo_color->proc~get program~example26 example26 program~example26->proc~get

Source Code

   elemental pure subroutine get_xyz(this, x, y, z)
      class(color), intent(in)  :: this
      real(rk),    intent(out) :: x, y, z

      x = this%xyz_x
      y = this%xyz_y
      z = this%xyz_z
   end subroutine get_xyz