ResPart_set_SetObjectType Subroutine

private pure subroutine ResPart_set_SetObjectType(this)

Sets the sample type used in allocation of polymorphic variables.

Type Bound

ResPart_set

Arguments

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

Set of resolved particles

Called by

proc~~respart_set_setobjecttype~~CalledByGraph proc~respart_set_setobjecttype ResPart_set%ResPart_set_SetObjectType proc~respart_set_init ResPart_set%ResPart_set_Init proc~respart_set_init->proc~respart_set_setobjecttype none~initialize~26 marker_set%Initialize proc~respart_set_init->none~initialize~26 none~initialize~25 ResPart_set%Initialize none~initialize~25->proc~respart_set_init none~initialize~26->proc~respart_set_init none~initialize~27 solid_obj%Initialize none~initialize~27->proc~respart_set_init proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->none~initialize~25 proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->none~initialize~26 proc~solid_set_init solid_set%solid_set_Init proc~solid_set_init->none~initialize~27 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    pure subroutine ResPart_set_SetObjectType(this)
      !> Sets the sample type used in allocation of polymorphic variables.
      implicit none
      class(ResPart_set), intent(inout) :: this                                !! Set of resolved particles
      ! Work variables
      type(ResPart_obj) :: sample                                              !! My sample

      allocate (this%sample,source=sample)

      return
    end subroutine ResPart_set_SetObjectType