Queue initailization for FRED and FREDL
==========================================================================


Identify the following code (in new-flow)... in    tcl/lib/ns-queue.tcl 

	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