// Default argument declarations string technique, chemical; // Argument functions technique = Technique(); chemical = Chemical(); // Variable declarations string msg, elements[10]; int err, occurs[10]; int n, cpos, fpos; // Compile chemical's elements n = Elements(chemical, elements, occurs, err); if( n != 2 ) return TRUE; // Check for perfluorocarbons fpos = member("Fluorine", elements); cpos = member("Carbon", elements); // Check for perfluorocarbons if( cpos != -1 && fpos != -1 ) { // Prepare error message msg = "Technique not applicable to "; msg = msg + "perfluorocarbons."; // Return error SetError(msg); return FALSE; } // Average absolute error SetResult(0.0267); // Applicable return TRUE;