set j_std_count 0 
#set j_std_count2 0 
set j_mem_count 0
#set j_mem_count2 0

set j_fill_count 0
set j_fill_area 0

set j_std_area 0
set j_mem_area 0

set j_current_inst_area 0

set j_std_count [llength [dbGet top.insts.cell.baseClass core -p ] ]
set j_mem_count [llength [dbGet top.insts.cell.baseClass block -p ] ]

set j_fill_count [llength [dbGet top.insts.name FILL* ] ]

foreach j_obj [dbGet [dbGet top.insts.cell.baseClass block -p2].area ] {
	set j_mem_area [expr $j_mem_area + $j_obj ]
#	incr j_mem_count2
}

foreach j_obj [dbGet [dbGet top.insts.cell.baseClass core -p2].area ] {
	set j_std_area [expr $j_std_area + $j_obj ]
#	incr j_std_count2
}

foreach j_obj [dbGet [dbGet top.insts.name FILL* -p].area ] {
	set j_fill_area [expr $j_fill_area + $j_obj ]
}

set j_std_count [expr $j_std_count - $j_fill_count ]
set j_std_area [expr $j_std_area - $j_fill_area ]

puts "STD count :	$j_std_count"
puts "STD area :	$j_std_area"
puts "MEM count :	$j_mem_count"
puts "MEM area :	$j_mem_area"