Queue initialization for FRED and FREDLQueue initailization for FRED and FREDL
Identify the following code (in new-flow)... 

if { $type == "RED" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
... and add the following lines after it: 

# CSFQ-begin
if { $type == "FRED" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
if { $type == "FREDL" } {
set bw [$link_ set bandwidth_]
$q set ptc_ [expr $bw / (8. * [$q set mean_pktsize_])]
}
# CSFQ-end




Ion Stoica
Last modified: Tue Sep 8 18:04:15 EDT 1998