lagrangian_set_FreeMPIType Subroutine

private impure subroutine lagrangian_set_FreeMPIType(this)

Frees the MPI data type.

Type Bound

lagrangian_set

Arguments

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

Calls

proc~~lagrangian_set_freempitype~~CallsGraph proc~lagrangian_set_freempitype lagrangian_set%lagrangian_set_FreeMPIType mpi_type_free mpi_type_free proc~lagrangian_set_freempitype->mpi_type_free

Called by

proc~~lagrangian_set_freempitype~~CalledByGraph proc~lagrangian_set_freempitype lagrangian_set%lagrangian_set_FreeMPIType proc~lagrangian_set_final lagrangian_set%lagrangian_set_Final proc~lagrangian_set_final->proc~lagrangian_set_freempitype proc~marker_set_final marker_set%marker_set_Final proc~marker_set_final->proc~lagrangian_set_freempitype proc~particle_set_changeparttype particle_set%particle_set_ChangePartType proc~particle_set_changeparttype->proc~lagrangian_set_freempitype proc~respart_set_final ResPart_set%ResPart_set_Final proc~respart_set_final->proc~lagrangian_set_freempitype none~finalize~26 marker_set%Finalize proc~respart_set_final->none~finalize~26 none~finalize~25 ResPart_set%Finalize none~finalize~25->proc~respart_set_final none~finalize~26->proc~respart_set_final none~finalize~27 solid_obj%Finalize none~finalize~27->proc~respart_set_final proc~particle_set_prepare particle_set%particle_set_Prepare proc~particle_set_prepare->proc~particle_set_changeparttype proc~cdifs_obj_final cdifs_obj%cdifs_obj_Final proc~cdifs_obj_final->none~finalize~25 proc~grans_obj_final grans_obj%grans_obj_Final proc~grans_obj_final->none~finalize~25 proc~solid_set_final solid_set%solid_set_Final proc~solid_set_final->none~finalize~27

Source Code

    impure subroutine lagrangian_set_FreeMPIType(this)
      !> Frees the MPI data type.
      implicit none
      class(lagrangian_set), intent(inout) :: this
      ! Work variables
      integer :: ierr

      if (this%is_initialized) then
          if (this%MPI_TYPE.ne.MPI_DATATYPE_NULL) &
            call MPI_TYPE_FREE(this%MPI_TYPE,ierr)
      end if

      return
    end subroutine lagrangian_set_FreeMPIType