marker_set_SetObjectType Subroutine

private pure subroutine marker_set_SetObjectType(this)

Sets the sample type used in allocation of polymorphic variables.

Type Bound

marker_set

Arguments

Type IntentOptional Attributes Name
class(marker_set), intent(inout) :: this

A collection of tessellation elements

Called by

proc~~marker_set_setobjecttype~~CalledByGraph proc~marker_set_setobjecttype marker_set%marker_set_SetObjectType proc~marker_set_init marker_set%marker_set_Init proc~marker_set_init->proc~marker_set_setobjecttype

Source Code

    pure subroutine marker_set_SetObjectType(this)
      !> Sets the sample type used in allocation of polymorphic variables.
      implicit none
      class(marker_set), intent(inout) :: this                                 !! A collection of tessellation elements
      ! Work variable
      type(marker_obj) :: sample                                               !! My sample

      allocate(this%sample,source=sample)

      return
    end subroutine marker_set_SetObjectType