#! /bin/sh
# \
exec mxtclsh_script "$0" ${1+"$@"}

proc main { record_list argv } {

	if { [ llength $argv ] != 2 } {
		puts stderr ""
		puts stderr "Usage: testsoft_sca_put sca_name new_gain"
		puts stderr ""
		exit
	}

        set sca_name [ lindex $argv 0 ]

	set new_gain [ lindex $argv 1 ]

        set sca [ $record_list get_record $sca_name ]

        $sca set_gain $new_gain
}