#!/usr/bin/perl -w

# Sophia Lefantzi
# Sandia National Labs
# 08/28/2003
# perl script to parse in the sizes for the utilized mechanism

$k=0;
$n=0;

$SPECIES="";
$REACTIONS="";

while (<>){
        if(/SPECIES/) {
           $k=1;
        }

        if($k==1) {
           $SPECIES="$SPECIES" . "$_";
           if(/END/) {        
	      $k=0;
	  }
	}

        if(/REACTIONS/) {
           $n=1;
        }

        if($n==1) {
           $REACTIONS="$REACTIONS" . "$_";
	   if(/END/) {     
	      $n=0;
	   }
	}
}

@fields=split(/SPECIES/,$SPECIES);
$SPECIES=join("",@fields);
@fields=split(/END/,$SPECIES);
$SPECIES=join("",@fields);
@species=split(/\n/,$SPECIES);
$SPECIES=join("",@species);
@species=split(/\s+/,$SPECIES);

$j=0;
foreach(@species) {
    $j=$j+1;
}

@fields=split(/REACTIONS/,$REACTIONS);
$REACTIONS=join("",@fields);
@fields=split(/END/,$REACTIONS);
$REACTIONS=join("",@fields);
@reactions=split(/\n/,$REACTIONS);

$i=0;
foreach(@reactions) {
    if(/=/) {
       $i=$i+1;
    }
}

open(COPY,">sizes.sh");
print COPY "NSPECIES=$j\n";
print COPY "NREACTIONS=$i\n";
close(COPY);