proc CreateIgmpSourceGroupAddrNgpfHlt { igmpSrcGroupAddrParams } {
    upvar $igmpSrcGroupAddrParams params

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

    set igmpSourceAddrStatus [eval ::ixiangpf::emulation_multicast_source_config $paramList]
    
    if {[keylget igmpSourceAddrStatus status] != $::SUCCESS} {
	puts "\nError CreateIgmpSourceGroupAddr: $igmpSourceAddrStatus\n"
	return 1
    }
    return $igmpSourceAddrStatus
}