tem_commbuf_real_fintyped Subroutine

private subroutine tem_commbuf_real_fintyped(me)

free the communication buffer allocated by the fillindexed routine again.

Arguments

Type IntentOptional Attributes Name
type(tem_realbuffer_type), intent(inout) :: me

Calls

proc~~tem_commbuf_real_fintyped~~CallsGraph proc~tem_commbuf_real_fintyped tem_commbuf_real_fintyped mpi_type_free mpi_type_free proc~tem_commbuf_real_fintyped->mpi_type_free proc~check_mpi_error check_mpi_error proc~tem_commbuf_real_fintyped->proc~check_mpi_error mpi_error_string mpi_error_string proc~check_mpi_error->mpi_error_string proc~tem_abort tem_abort proc~check_mpi_error->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Source Code

  subroutine tem_commbuf_real_fintyped(me)
    ! -------------------------------------------------------------------- !
    type(tem_realbuffer_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    integer :: ierror
    ! -------------------------------------------------------------------- !

    me%nvals = 0
    call mpi_type_free(me%memindexed, ierror)
    call check_mpi_error(ierror,'free memindexed in tem_commbuf_real_fintyped')

  end subroutine tem_commbuf_real_fintyped