else
{
if (index($0,inst))
{

# print "find"

for (i=1;i<$NF;i=i+1)
if (index($i,"portRef"))
{

# print "port " $(i+1)

list[ix]=$(i+1);
ix=ix+1;
break;
}
}

# print "search"

}
}


/\(net/ {

# net_name=$2;
ix=1; mode=1;

#windows ^M
l=length($2);
net_name="NET " substr($2,1,l-1) " LOC = ";

# print
# print "net"

}