chemkinReader: compute species charge number

src/thermophysicalModels/reactionThermo/chemistryReaders/chemkinReader/chemkinLexer.L

@@ -637,7 +637,8 @@ bool finishReaction = false;
                     (
                         currentSpecieName,
                         1.0,
-                        molecularWeight(currentSpecieComposition)
+                        molecularWeight(currentSpecieComposition),
+                        chargeNumber(currentSpecieComposition)
                     ),
                     currentLowT,
                     currentHighT,

src/thermophysicalModels/reactionThermo/chemistryReaders/chemkinReader/chemkinReader.C

@@ -144,6 +144,28 @@ Foam::scalar Foam::chemkinReader::molecularWeight
 }
 
 
+Foam::scalar Foam::chemkinReader::chargeNumber
+(
+    const List<specieElement>& specieComposition
+) const
+{
+    scalar nElemCharges = 0.0;
+
+    forAll(specieComposition, i)
+    {
+        label nAtoms = specieComposition[i].nAtoms;
+        const word& elementName = specieComposition[i].elementName;
+
+        if (elementName[0] == 'e')
+        {
+            nElemCharges += nAtoms;
+        }
+    }
+
+    return nElemCharges;
+}
+
+
 void Foam::chemkinReader::checkCoeffs
 (
     const scalarList& reactionCoeffs,

src/thermophysicalModels/reactionThermo/chemistryReaders/chemkinReader/chemkinReader.H

@@ -251,6 +251,11 @@ private:
             const List<specieElement>& specieComposition
         ) const;
 
+        scalar chargeNumber
+        (
+            const List<specieElement>& specieComposition
+        ) const;
+
         void finishElements(labelList& currentAtoms);
 
         void checkCoeffs