proc CreateIgmpHostNgpfHlt { igmpHostParams } {
    upvar $igmpHostParams params

    puts "\nCreateIgmpHostNgpfHlt ...\n"
    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }

    set igmpHostStatus [eval ::ixiangpf::emulation_igmp_config $paramList]
    
    if {[keylget igmpHostStatus status] != $::SUCCESS} {
	puts "\nError CreateIgmpHostNgpfHlt:\n$igmpHostStatus"
    }

    return $igmpHostStatus
}