How to calculate area for a given schematic

 Suppose If I have four 4:1 mux's and to resitors and few transistors/caps & each mux is having again two 2:1 mux's inside ..

Now along with the total area I would like to have the area of each 4:1 Mux separately ...

I am sending my code here..please notice the comment where I am getting the problem

*******************************

totalArea = 0u 

  procedure( area(inst)
               if( inst~>cellName == "pmos2v"  then
                   w1 = cdfParseFloatString(dbGetq(inst "w"))
                   l1 = cdfParseFloatString(dbGetq(inst "l"))
                   m1 = cdfParseFloatString(dbGetq(inst "m"))
                   f1 = cdfParseFloatString(dbGetq(inst "fingers"))

                       wp = w1 + 1.4u
                       lp = f1*l1 + (f1-1)*0.36u + 2u
                               AREA = m1*wp*lp
               else
               if(inst~>cellName == "nmos2v"  then
                   w1 = cdfParseFloatString(dbGetq(inst "w"))
                   l1 = cdfParseFloatString(dbGetq(inst "l"))
                   m1 = cdfParseFloatString(dbGetq(inst "m"))
                   f1 = cdfParseFloatString(dbGetq(inst "fingers"))

                       wn = w1 + 0.6u
                       ln = f1*l1 + (f1-1)*0.36u + 1.2u
                               AREA = m1*wn*ln

              else
              if((inst~>cellName == "mimcap" ) then
                   c1 = cdfParseFloatString(dbGetq(inst "c"))
                   m1 = cdfParseFloatString(dbGetq(inst "m"))

                               areac = m1 * c1
                               AREA = areac/AA

               else
               if(inst~>cellName == "resnsppoly"  then
                   w1 = cdfParseFloatString(dbGetq(inst "segW"))
                   l1 = cdfParseFloatString(dbGetq(inst "segL"))

                   m1 = dbGetq(inst "segments")

                       wr = m1*w1 + (m1-1)*0.6u + 0.56u
                       lr = l1 + 1.12u
                               AREA = wr * lr


) ) ) )
AREA
 );proc1

**********************

  procedure( PKsumArea(@optional (cv geGetEditCellView()))
       foreach(inst cv~>instances
               if(inst~>libName == "gpdk090" then

                  totalArea = totalArea + area(inst)

      else
               when(inst~>purpose == "cell"
               master = dbOpenCellViewByType(inst~>libName inst~>cellName "schematic")
               ;;;;;;;;;;;;;;;;;;;;;for this particular 'master' --if it refers to toplevel schemaic --I need to get this area ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
               when(master
               println(master~>cellName)
               PKsumArea(master)
               )
       )
)
)
)
totalArea
)
PKsumArea()
println(totalArea)

************************************************

If still unclear I will send some more trials where I faild ........

thanks & regards

                          Prabhakar. K
 

OK. I've tidied up the code, removed the global variables (made them local, except for AA which I didn't know what it was), changed the nested if-then-else in the area function to be a case(), coped with unrecognized devices, and added something to print out the area of the top level blocks as it goes along.

; globals used in this code that I can't account for:
; AA
procedure( PKinstArea(inst)
  let((w1 l1 m1 f1 wp lp wr lr wn ln c1 areac AREA)
    case(inst~>cellName
      ("pmos2v"
        w1 = cdfParseFloatString(inst~>w)
        l1 = cdfParseFloatString(inst~>l)
        m1 = cdfParseFloatString(inst~>m)
        f1 = cdfParseFloatString(inst~>fingers)

	wp = w1 + 1.4u
	lp = f1*l1 + (f1-1)*0.36u + 2u
	AREA = m1*wp*lp
	)
      ("nmos2v"
        w1 = cdfParseFloatString(inst~>w)
        l1 = cdfParseFloatString(inst~>l)
        m1 = cdfParseFloatString(inst~>m)
        f1 = cdfParseFloatString(inst~>fingers)

	wn = w1 + 0.6u
	ln = f1*l1 + (f1-1)*0.36u + 1.2u
	AREA = m1*wn*ln
	)
      ("mimcap"
	c1 = cdfParseFloatString(inst~>c)
	m1 = cdfParseFloatString(inst~>m)

	areac = m1 * c1
	AREA = areac/AA
	)
      ("resnsppoly"
	w1 = cdfParseFloatString(inst~>segW)
	l1 = cdfParseFloatString(inst~>segL)
	m1 = inst~>segments

	wr = m1*w1 + (m1-1)*0.6u + 0.56u
	lr = l1 + 1.12u
	AREA = wr * lr
	)
      (t
	warn("Unrecognized device %L\n" inst~>cellName)
	AREA = 0.0
        )
    ) ; case
    AREA
  ) ; let
) ; procedure PKinstArea

procedure( PKsumArea(@optional (cv geGetEditCellView()) (topLevel t))
  let((master instArea (area 0.0))
    foreach(inst cv~>instances
      if(inst~>libName == "gpdk090" then
	area=area+PKinstArea(inst)
      else
	when(inst~>purpose == "cell"
	  master = dbOpenCellViewByType(inst~>libName inst~>cellName 
	    "schematic")
	  when(master
	    instArea=PKsumArea(master nil)
	    when(topLevel
	      printf("Instance %s of %s has area %g\n" inst~>name
		inst~>cellName instArea)
	    ) ; when topLevel
	    area=area+instArea
	  ) ; when master
	) ; when purpose is cell
      ) ; if
    ) ; foreach
    area
  )
) ; procedure PKsumArea

totalArea=PKsumArea()
printf("Total area is %g\n" totalArea)

Regards,

Andrew.

 Thanks a lot.....Sir, This is what I suppose to have...

Really, I inspired with your valuable suggestions......

                             Prabhakar. K - Layout Design Engineer