var fact = new Array(14)

function factgew()
  // conversion factors for mass
  // copyright Bernd Krueger, 2008-20
{
  var u_kg  = 1.660538782e-27;  // atomic mass unit in kg (NIST, CODATA 2006)
  var kg_lb = 4.5359237e-1;     // kilogram per pound (avoirdupois) (exact, NIST)

  fact[0]  = 1.0;                 // kg (base)
  fact[1]  = 1.0e-3;              // g
  fact[2]  = 1.0e3;               // t
  fact[3]  = kg_lb;               // lb
  fact[4]  = kg_lb/16.;           // oz
  fact[5]  = kg_lb/256.;          // dr
  fact[6]  = kg_lb/7000.;         // gr
  fact[7]  = kg_lb*100.;          // cwt (US)
  fact[8]  = kg_lb*2000.;         // ton (US)
  fact[9]  = kg_lb*14.;           // st (UK)
  fact[10] = kg_lb*112.;          // cwt (UK)
  fact[11] = kg_lb*2240.;         // ton (UK)
  fact[12] = kg_lb/7000.*480.;   // tr oz
  fact[13] = 2.0e-4;              // ct
  fact[14] = u_kg;                // u
  return;
}
function calcgew(form,index)
  // converts mass units, July 13, 2008
  // copyright Bernd Krueger, 2008-2010
{
  factgew();
  if(index==-1) { v=form.storev.value; if(v==0) return; }
  else {
    v=parseFloat(form[index].value)*fact[index];
  }
  form.storev.value=v;
  for (i = 0; i < 15; i++)
  {
    form[i].value = ausga(form,v/fact[i]);
  }
  return;
}