if { $argc > 0 } {
set opt(adhocRouting) [lindex $argv 0]
  set opt(tr) [lindex $argv 0].tr
  set opt(nam)   [lindex $argv 0].nam
set opt(datafile) [lindex $argv 0].data
  set opt(stop) [lindex $argv 1]
set opt(initialenergy) [lindex $argv 2]
set opt(nn) [lindex $argv 3]
set opt(interval_) [lindex $argv 4]
}
