Application/LEACH instproc recvDATA {msg} {

  global ns_ opt
  $self instvar TDMAschedule_ receivedFrom_ dataReceived_

  set chID [$self nodeID]
  set nodeID [lindex $msg 0]
  pp "CH $chID received data ($msg) from $nodeID at [$ns_ now] - ns-leach.tcl"
  set receivedFrom_ [lappend receivedFrom_ $nodeID]

  set last_node [expr [llength $TDMAschedule_] - 1]
  if {$chID == [lindex $TDMAschedule_ $last_node]} {
    set last_node [expr $last_node - 1]
  }
  if {$nodeID == [lindex $TDMAschedule_ $last_node]} {
    # After an entire frame of data has been received, the cluster-head
    # must perform data aggregation functions and transmit the aggregate
    # signal to the base station.
    pp "CH $chID must now perform comp and xmit to BS. - ns-leach.tcl"
    set num_sigs [llength $TDMAschedule_]
    set compute_energy [bf $opt(sig_size) $num_sigs]
    pp "\tcompute_energy = $compute_energy - ns-leach.tcl"
    [$self getER] remove $compute_energy
    set receivedFrom_ [lappend receivedFrom_ $chID]
    set dataReceived_ $receivedFrom_
    set receivedFrom_ ""

    $self SendDataToBS
  }
}

t 20: - mit/uAMPS/stats.tcl
		Total Energy = 27.862826740743788
		Total Data = 1935
		Total Alive = 96

BS Received data 40 , 10.362460469054881 from 40 at time 20.027104310090241 - mit/uAMPS/ns-bsapp.tcl 
This represents data from nodes: 25 61 64 72 76 97 40 - mit/uAMPS/ns-bsapp.tcl
Only received info from 0 nodes. - mit/uAMPS/ns-bsapp.tcl
There are currently 96 alive ==>  14 cluster-heads needed. - mit/uAMPS/ns-bsapp.tcl

At 20.029599999999999: - mit/uAMPS/stats.tcl
		Total Energy = 27.867691302444101
		Total Data = 1942
		Total Alive = 96

Simulation complete. - mit/uAMPS/stats.tcl

311 Warning dst_ is no longer being supported in NS. dst_ 0xffffffff
Use dst_addr_ and dst_port_ instead

At 502.30000000004571: - mit/uAMPS/stats.tcl
		Total Energy = 328.286714546854
		Total Data = 51150
		Total Alive = 4

ns: _o1442 checkAlive: can't read "sens_energy": no such variable
    while executing
"close $sens_energy"
    (procedure "sens_close_stats" line 8)
    invoked from within
"sens_close_stats"
    (procedure "sens_finish" line 4)
    invoked from within
"sens_finish"
    (procedure "_o1442" line 41)
    (Application/LEACH checkAlive line 41)
    invoked from within
"_o1442 checkAlive"