function calcpre(form,val,index)
{
    if(val<0){warnings(1); return;}
    if(index==0) v=parseFloat(val);
    if(index==1) v=parseFloat(val)*1.0e5;  
    if(index==2) v=parseFloat(val)*133.322;
    if(index==3) v=parseFloat(val)*101325.;
    if(index==4) v=parseFloat(val)*98066.5;
    if(index==5) v=parseFloat(val)*6894.76;
    if(index==6) v=parseFloat(val)*47.8803;
    if(form.temp.selectedIndex==0){              // T = 0 C
	if(index==7) v=parseFloat(val)*133.322368421053;  // mm Hg
	if(index==8) v=parseFloat(val)*3386.38815789474;  // in Hg
	if(index==9) v=parseFloat(val)*98.0507646707296;  // cm H2O
	if(index==10)v=parseFloat(val)*249.048942263653;  // in H2O
	if(index==11)v=parseFloat(val)*2988.58730716384;} // ft H2O
    if(form.temp.selectedIndex==1){              // T = 4 C
	if(index==7) v=parseFloat(val)*133.225630595375;  // mm Hg
	if(index==8) v=parseFloat(val)*3383.93101712252;  // in Hg
	if(index==9) v=parseFloat(val)*98.0637795275589;  // cm H2O
	if(index==10)v=parseFloat(val)*249.082000000000;  // in H2O
	if(index==11)v=parseFloat(val)*2988.98400000000;} // ft H2O
    if(form.temp.selectedIndex==2){             // T = 60 F
	if(index==7) v=parseFloat(val)*132.946767214385;  // mm Hg
	if(index==8) v=parseFloat(val)*3376.84788724538;  // in Hg
	if(index==9) v=parseFloat(val)*97.968503937008;  // cm H2O
	if(index==10)v=parseFloat(val)*248.840000000000;  // in H2O
	if(index==11)v=parseFloat(val)*2986.08000000000;} // ft H2O
    if(form.temp.selectedIndex==3){             // T = 20 C
	if(index==7) v=parseFloat(val)*132.839749408479;  // mm Hg
	if(index==8) v=parseFloat(val)*3374.12963497537;  // in Hg
	if(index==9) v=parseFloat(val)*97.8929570911319;  // cm H2O
	if(index==10)v=parseFloat(val)*248.648111011475;  // in H2O
	if(index==11)v=parseFloat(val)*2983.77733213770;} // ft H2O
    if(index==12) v=parseFloat(val)*1.0e6;         // N/mm2
    if(index==13) v=parseFloat(val)*6.894757e6;    // ksi
    if(index==14) v=parseFloat(val)*0.1;           // dyn/cm2
    form.Pa.value  = ausgab(v);
    form.bar.value = ausgab(v*1.0e-5);
    form.torr.value= ausgab(v/133.322);
    form.atm.value = ausgab(v/101325.);
    form.at.value  = ausgab(v/98066.5);
    form.psi.value = ausgab(v/6894.76);
    form.psf.value = ausgab(v/47.8803);
    if(form.temp.selectedIndex==0){              // T = 0 C
	form.mhg.value = ausgab(v/133.322368421053);
	form.ihg.value = ausgab(v/3386.38815789474);
	form.cws.value = ausgab(v/98.0507646707296);
	form.iws.value = ausgab(v/249.048942263653);
	form.fws.value = ausgab(v/2988.58730716384);}
    if(form.temp.selectedIndex==1){              // T = 4 C
	form.mhg.value = ausgab(v/133.225630595375);
	form.ihg.value = ausgab(v/3383.93101712252);
	form.cws.value = ausgab(v/98.0637795275589);
	form.iws.value = ausgab(v/249.082000000000);
	form.fws.value = ausgab(v/2988.98400000000);}
    if(form.temp.selectedIndex==2){              // T = 60 F
	form.mhg.value = ausgab(v/132.946767214385);
	form.ihg.value = ausgab(v/3376.84788724538);
	form.cws.value = ausgab(v/97.968503937008);
	form.iws.value = ausgab(v/248.840000000000);
	form.fws.value = ausgab(v/2986.08000000000);}
    if(form.temp.selectedIndex==3){              // T = 20 C
	form.mhg.value = ausgab(v/132.839749408479);
	form.ihg.value = ausgab(v/3374.12963497537);
	form.cws.value = ausgab(v/97.8929570911319);
	form.iws.value = ausgab(v/248.648111011475);
	form.fws.value = ausgab(v/2983.77733213770);}
    form.Nmm.value = ausgab(v/1.0e6);
    form.ksi.value = ausgab(v/6.894757e6);
    form.dyn.value = ausgab(v*10.);                     // dyn/cm2
}