sub readDRC ( ) {
my ( $file  , $flag ) = @_ ;
	$drc::tmpFile1 = "${file}.tmp" if ($file) ;
   
   my $moduleName = "" ;
   my $netName ;	
   my @gateInst ;
   my $gate ;	
   my $netCap ;	 
   my $violation ;
   my @maxTrans ;
   my $worstTrans ;  
 
   open ( TMPDRC, "<$drc::tmpFile1" ) ;

   my $line ;
   my $i;
   my $j = 0 ;

     @drc::file1 = <TMPDRC>  ; 

    for ( $i = 0 ; $i <= $#drc::file1 - 1 ; $i++ ){ 	
      if ( $drc::file1[$i] =~ m/^\s*\Module:/i ) {
         $moduleName = getModuleName ( $drc::file1[$i] ) ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /Net:/ ) {
         $netName = getNetName ( $drc::file1[$i] ) ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /Max Capacitance/ ) {
         @gateInst = getMaxCapacitance ( $drc::file1[$i] ) ;
	 $gate =  $gateInst[5].$gateInst[6] ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /Net Capacitance/ ) {
         $netCap = getNetCapacitance ( $drc::file1[$i] ) ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /VIOLATION/ ) {
         $violation = getViolation ( $drc::file1[$i] ) ;
	 if ( $drc::flag ) { $drc::rpt1{$moduleName}{$netName}{$gate}{"Capacitance"} = $violation; }
	 else 	      { $drc::rpt2{$moduleName}{$netName}{$gate}{"Capacitance"} = $violation; }
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /Max Transition/ ) {
         @maxTrans = getMaxTransition ( $drc::file1[$i] ) ;
	 $gate =  $maxTrans[5].$maxTrans[6] ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /Pin Worst Transition/ ) {
         $worstTrans = getWorstTransition ( $drc::file1[$i] ) ;
      }						# End of IF Statement  
      if ( $drc::file1[$i] =~ /VIOLATION/ ) {
         $violation = getViolation ( $drc::file1[$i] ) ;
	 if ( $drc::flag ) { $drc::rpt1{$moduleName}{$netName}{$gate}{"Transition"} = $violation } 
         else         { $drc::rpt2{$moduleName}{$netName}{$gate}{"Transition"} = $violation } 
      }						# End of IF Statement  
#    }						# End of FOR Loop 	

# if ($flag) {compareFiles(\@drc::rpt1 , \@drc::rpt2  , \$drc::tmpFile1 ) } # Calling The Function to Compare Values
							  		      # only if both Hashes are assigned

printValues(\@drc::rpt1) ;
#   my $caps = "Capacitance" ;
#   my $tran = "Transition"; 

#	 if ( $drc::rpt1{$moduleName}{$netName}{$gate}{$tran} != $drc::rpt2{$moduleName}{$netName}{$gate}{$tran}) { 
#		print " Module = $moduleName \n" ;
#                print " Net = $netName  \n" ;
#                print " Gate = $gate  \n" ;
#                print " Transition Violation Value = $drc::rpt1{$moduleName}{$netName}{$gate}{$tran} \n"  ;     
#                print " Capacitance Violation Value = $drc::rpt1{$moduleName}{$netName}{$gate}{$caps} \n"  ;     
#                print " Transition Violation NEW Value = $drc::rpt2{$moduleName}{$netName}{$gate}{$tran} \n" ; 
#	}    					# End of IF
    }						# End of FOR Loop 	
  

   close TMPDRC ;
   $drc::flag = 1 ; 
 
#   unlink ( $drc::tmpFile1 ) if ( -f $drc::tmpFile1 ) ;
   return 0 ; 					# mission successful :=)
}