-------------------------------------
Excerpt: RplExpression/RplUnitMgr.cpp
-------------------------------------

// As part of initialization (but after we've read the RplUnits file)
// create a list of the optimization preferred units for the unit
// types about which optimization cares.

void RplUnitMgr::loadPreferredOptUnits()
{
   _preferredOptUnits.push_back(new RplUnit(getDimensionlessUnit()));

   freeLastQuery();

   // Length
   RplUnitInterpreter::Instance()->parseText("10 m");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Area
   RplUnitInterpreter::Instance()->parseText("1e7 m2");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Volume
   RplUnitInterpreter::Instance()->parseText("1e8 m3");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Flow
   RplUnitInterpreter::Instance()->parseText("1000 cms");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Power
   RplUnitInterpreter::Instance()->parseText("1000 MW");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Energy
   RplUnitInterpreter::Instance()->parseText("1000 MWH");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Time
   RplUnitInterpreter::Instance()->parseText("1e5 s");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }

   // Money
   RplUnitInterpreter::Instance()->parseText("1e5 $");
   if (lastQuery)
   {
       _preferredOptUnits.push_back(lastQuery);
       lastQuery = NULL;
   }
}

--- end ---