tem_destroy_sparta Subroutine

public subroutine tem_destroy_sparta(me)

Arguments

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

Source Code

  subroutine tem_destroy_sparta( me )
    type( tem_sparta_type ), intent(inout) :: me

    deallocate( me%send_count )
    deallocate( me%recv_count )
    deallocate( me%send_index )
    deallocate( me%recv_index )
  end subroutine tem_destroy_sparta