Removed old tcl source

connex/src/tcl/mmcm_calc.tcl

-set Fvcomax 1200
-set Fvcomin 600
-set tD 1 #D in [1.. 10]  
-set tM 6 #M in [6.. 64]
-set O 1 #O in [1..128]
-
-set filename "freq_table.txt"
-set fileId [open $filename "w"]
-
-for {set D 1} {$D<=10} {incr D} {
-for {set M 6} {$M<=64} {incr M} {
-   puts -nonewline $fileId $D
-   puts -nonewline $fileId " " 
-	puts -nonewline $fileId $M	
-	puts -nonewline $fileId " " 
-	puts -nonewline $fileId $O	
-	puts -nonewline $fileId " " 	
-	
-	set temp [expr{100.0*$M/$D}]
-	if { $temp < $Fvcomin || $temp >Fvcomax } { puts $fileId "NULL" }
-	else {
-	  set temp [expr{$temp/$O}]
-	  puts $fileId $temp	
-	}	
-}	
-}
-
-close $fileId
\ No newline at end of file