function calcflm(form,val,index)      // converter for mass flow
// Bernd C. Krueger, March 20, 2004, copyright Cactus2000 
{
    var f1=1.0e-6; var f2=1.0e-3; var f3=1.0e3; // mg,g,t
    var f4=2.834952e-2; var f5=4.535924e-1;     // oz,lb
    var f6=9.071847e2;  var f7=1.016047e3;      // tshort,tlong
    var t1=60.; t2=3600.; t3=86400.;            // min,h,d

    if(index== 0) v=val;       // kg s-1 (base)
    if(index== 1) v=val/t1;    // kg min-1
    if(index== 2) v=val/t2;    // kg h-1
    if(index== 3) v=val/t3;    // kg d-1
    if(index== 4) v=val*f1;    // mg s-1
    if(index== 5) v=val*f1/t1; // mg min-1
    if(index== 6) v=val*f1/t2; // mg h-1
    if(index== 7) v=val*f1/t3; // mg d-1  
    if(index== 8) v=val*f2;    // g s-1  
    if(index== 9) v=val*f2/t1; // g min-1
    if(index==10) v=val*f2/t2; // g h-1  
    if(index==11) v=val*f2/t3; // g d-1  
    if(index==12) v=val*f3;    // t s-1  
    if(index==13) v=val*f3/t1; // t min-1
    if(index==14) v=val*f3/t2; // t h-1  
    if(index==15) v=val*f3/t3; // t d-1  
    if(index==16) v=val*f4;    // oz s-1  
    if(index==17) v=val*f4/t1; // oz min-1
    if(index==18) v=val*f4/t2; // oz h-1  
    if(index==19) v=val*f4/t3; // oz d-1  
    if(index==20) v=val*f5;    // lb s-1  
    if(index==21) v=val*f5/t1; // lb min-1
    if(index==22) v=val*f5/t2; // lb h-1  
    if(index==23) v=val*f5/t3; // lb d-1  
    if(index==24) v=val*f6;    // ton(s) s-1  
    if(index==25) v=val*f6/t1; // ton(s) min-1
    if(index==26) v=val*f6/t2; // ton(s) h-1  
    if(index==27) v=val*f6/t3; // ton(s) d-1  
    if(index==28) v=val*f7;    // ton(l) s-1  
    if(index==29) v=val*f7/t1; // ton(l) min-1
    if(index==30) v=val*f7/t2; // ton(l) h-1  
    if(index==31) v=val*f7/t3; // ton(l) d-1  

    form.kgs.value=ausgab(v);
    form.kgm.value=ausgab(v*t1);
    form.kgh.value=ausgab(v*t2);
    form.kgd.value=ausgab(v*t3);
    form.mgs.value=ausgab(v/f1);
    form.mgm.value=ausgab(v/f1*t1);
    form.mgh.value=ausgab(v/f1*t2);
    form.mgd.value=ausgab(v/f1*t3);
    form.grs.value=ausgab(v/f2);
    form.grm.value=ausgab(v/f2*t1);
    form.grh.value=ausgab(v/f2*t2);
    form.grd.value=ausgab(v/f2*t3);
    form.tms.value=ausgab(v/f3);
    form.tmm.value=ausgab(v/f3*t1);
    form.tmh.value=ausgab(v/f3*t2);
    form.tmd.value=ausgab(v/f3*t3);
    form.ozs.value=ausgab(v/f4);
    form.ozm.value=ausgab(v/f4*t1);
    form.ozh.value=ausgab(v/f4*t2);
    form.ozd.value=ausgab(v/f4*t3);
    form.lbs.value=ausgab(v/f5);
    form.lbm.value=ausgab(v/f5*t1);
    form.lbh.value=ausgab(v/f5*t2);
    form.lbd.value=ausgab(v/f5*t3);
    form.tss.value=ausgab(v/f6);
    form.tsm.value=ausgab(v/f6*t1);
    form.tsh.value=ausgab(v/f6*t2);
    form.tsd.value=ausgab(v/f6*t3);
    form.tls.value=ausgab(v/f7);
    form.tlm.value=ausgab(v/f7*t1);
    form.tlh.value=ausgab(v/f7*t2);
    form.tld.value=ausgab(v/f7*t3);
    return;
}