tem_commbuf_real_fillpos Subroutine

private subroutine tem_commbuf_real_fillpos(me, pos, nvals)

fill the positions that describe how the data in the state vector relates to the entries in the buffer.

Arguments

Type IntentOptional Attributes Name
type(tem_realbuffer_type), intent(inout) :: me
integer, intent(in) :: pos(nvals)
integer, intent(in) :: nvals

Called by

proc~~tem_commbuf_real_fillpos~~CalledByGraph proc~tem_commbuf_real_fillpos tem_commbuf_real_fillpos proc~tem_comm_createbuffer tem_comm_createBuffer proc~tem_comm_createbuffer->proc~tem_commbuf_real_fillpos

Source Code

  subroutine tem_commbuf_real_fillpos( me, pos, nvals )
    ! -------------------------------------------------------------------- !
    type(tem_realbuffer_type), intent(inout) :: me
    integer, intent(in) :: nvals
    integer, intent(in) :: pos(nvals)
    ! -------------------------------------------------------------------- !

    me%nvals = nvals

    if ( allocated(me%pos) ) deallocate(me%pos)
    allocate(me%pos(nvals))
    me%pos = pos

    if ( associated(me%val) ) deallocate(me%val)
    allocate(me%val(nvals))

  end subroutine tem_commbuf_real_fillpos