var fact = new Array(6)

function factrac()
  // conversion factors for radioactivity
  // copyright Bernd Krueger, 2006-2008
{
  var Bq_Ci   = 3.7e10;     // Becquerel per Curie (exact, NIST)

  fact[0]  = 1.0;             // Bq = s-1 (base)
  fact[1]  = 1.0e3;           // kBq
  fact[2]  = Bq_Ci;           // Ci
  fact[3]  = Bq_Ci/1000.;     // mCi
  fact[4]  = 1.0e6;           // Rd = MBq
  fact[5]  = 1./60.;          // min-1
  return;
}
function calcrac(form,index)
  // converts radioactivity, August 21, 2006
  // copyright Bernd Krueger, 2006-2008
{
  factrac();
  if(index==-1) { v=form.storev.value; if(v==0) return; }
  else {
    v=parseFloat(form[index].value)*fact[index];
    if(!isFinite(v)) { warnings(1); }
  }
  form.storev.value=v;
  for (i = 0; i < 6; i++)
  {
    form[i].value = ausga(form,v/fact[i]);
  }
  return;
}