proc checkPlot {cols types} {

	global Data ColD DName DataCount VecCt NumCols Vdata

#
#

	set numbers FI
	set NumCols ""

	set i 0
	foreach c $cols {
		set t [lvarpop types]
		set tt [getType $t]
#		puts stderr "Got type $tt for col $c $t index $i"
		if {[string first $tt $numbers] >= 0} {
                       upvar V$VecCt V$VecCt
                       vector V$VecCt V$VecCt
                       set vl ""
                       catch {set vl [keylget Data($DataCount) vectors]}
                       lappend vl V$VecCt
                       keylset Data($DataCount) V$VecCt $c vectors $vl
		       set Vdata(V$VecCt) $DataCount
                       lappend NumCols $i
                       incr VecCt
		}
		incr i
	}

#	puts stderr "Numeric Col indices : $NumCols"
#	puts stderr "Vector Count after CheckPlot $VecCt"

}

