tem_commbuf_long_finpos Subroutine

private subroutine tem_commbuf_long_finpos(me)

free the communication buffer allocated by the fillpos routine again.

Arguments

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

Source Code

  subroutine tem_commbuf_long_finpos(me)
    ! -------------------------------------------------------------------- !
    type(tem_longbuffer_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !

    me%nvals = 0
    if ( allocated(me%pos) ) deallocate(me%pos)
    if ( associated(me%val) ) deallocate(me%val)

  end subroutine tem_commbuf_long_finpos