tem_init_sparta Subroutine

public subroutine tem_init_sparta(me, nParts)

Arguments

Type IntentOptional Attributes Name
type(tem_sparta_type), intent(inout) :: me
integer, intent(in) :: nParts

Source Code

  subroutine tem_init_sparta( me, nParts )
    type( tem_sparta_type ), intent(inout) :: me
    integer, intent(in) :: nParts

    allocate( me%send_count(0:nParts-1) )
    allocate( me%recv_count(0:nParts-1) )
    allocate( me%send_index(0:nParts-1) )
    allocate( me%recv_index(0:nParts-1) )

  end subroutine tem_init_sparta