function calcfor(form,val,index)
{
    if(index==0) v=parseFloat(val);              // N (base)
    if(index==1) v=parseFloat(val)*1.0e-5;       // dyn
    if(index==2) v=parseFloat(val)*9.80665;      // kp
    if(index==3) v=parseFloat(val)*6.354603e-4;  // grf
    if(index==4) v=parseFloat(val)*0.1382552;    // pdl
    if(index==5) v=parseFloat(val)*4.44822;      // lbf
    if(index==6) v=parseFloat(val)*9964.02;      // UK tonf
    if(index==7) v=parseFloat(val)*8896.44;      // US tonf
    form.nwt.value = ausgab(v);              // N (base)
    form.dyn.value = ausgab(v/1.0e-5);       // dyn
    form.kpo.value = ausgab(v/9.80665);      // kp
    form.grf.value = ausgab(v/6.354603e-4);  // grf
    form.pdl.value = ausgab(v/0.1382552);    // pdl
    form.lbf.value = ausgab(v/4.44822);      // lbf
    form.tfk.value = ausgab(v/9964.02);      // UK tonf
    form.tfs.value = ausgab(v/8896.44);      // US tonf
}