save_mem_location

proc save_mem_location {-f file_name} {
    if {[file exists $file_name]} {
        file delete $file_name
        set f_name [open $file_name w+]
    } else {
        set f_name [open $file_name w+]
    }
    if {[string match ${-f} -f]} {
        puts $f_name "##mem location list"
        set mems [dbGet top.insts.cell.baseClass block -p2]
        foreach mem $mems {
            set name [dbGet $mem.name]
            set pt   [dbGet $mem.pt] 
            set orignt   [dbGet $mem.orient]
            puts $f_name "dbSet \[dbGet top.insts.name $name -p\].pt $pt "
            puts $f_name "dbSet \[dbGet top.insts.name $name -p\].orient $orignt "
        }
    }
    close $f_name
}