set_xyz Subroutine

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

Type Bound

color

Arguments

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

Called by

proc~~set_xyz~~CalledByGraph proc~set_xyz color%set_xyz proc~set~2 color%set proc~set~2->proc~set_xyz program~demo_color demo_color program~demo_color->proc~set~2 program~example26 example26 program~example26->proc~set~2 program~example27 example27 program~example27->proc~set~2 program~example28 example28 program~example28->proc~set~2

Source Code

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

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