tem_comm_env_fin Subroutine

public subroutine tem_comm_env_fin(proc)

Finalize the environment. This routine is called by tem_finalize which should be the very last action in a program.

Arguments

Type IntentOptional Attributes Name
type(tem_comm_env_type) :: proc

The process communicator type

Calls

proc~~tem_comm_env_fin~~CallsGraph proc~tem_comm_env_fin tem_comm_env_fin mpi_comm_free mpi_comm_free proc~tem_comm_env_fin->mpi_comm_free

Source Code

  subroutine tem_comm_env_fin( proc )
    ! ---------------------------------------------------------------------------
    !> The process communicator type
    type( tem_comm_env_type ) :: proc
    ! ---------------------------------------------------------------------------
    !> Error flag
    integer :: iError
    ! ---------------------------------------------------------------------------

    ! Free the communicator again
    call mpi_comm_free( proc%comm, iError )

  end subroutine tem_comm_env_fin