#pressconv.cgi by Tim Brice NWS El Paso

   
 if ($pressconv{inormb} eq millibars) {
   if ($pressconv{press} =~ /(\d+)\.?(\d+)|^\d+$/)  {
   
       $inHg = ($pressconv{press}*0.0295300);
       $mmHg = ($pressconv{press}*0.750062);
       $hPa = ($pressconv{press});
       $lbin = ($pressconv{press}*0.0145038);
       $kgcm = ($pressconv{press}*0.00101972);
       $~ = "PRESS1";
       write;

format PRESS1 =

@###.# millibars equals:
      $pressconv{press}

@###.## inches of Mercury
$inHg

@###.## millimeters of Mercury
$mmHg

@###.## Hectopascals
$hPa

@##.#### Pounds per square inch
$lbin 

@##.#### Kilograms per square centimeter
$kgcm       
.

   } else {
   print "An illegal character was entered.\n";
   die    
       }
  }
else {
  if ($pressconv{press} =~ /(\d+)\.?(\d+)|^\d+$/)  {
     
     $mb = ($pressconv{press}*33.8639);
     $mmHg = ($pressconv{press}*25.4);
     $hPa = $mb;
     $lbin = ($pressconv{press}*0.491154);
     $kgcm = ($pressconv{press}*0.0345316);
     $~ = "PRESS2";
     write;

format PRESS2 =

@###.## inches of Mercury equals:
      $pressconv{press}

@###.## Millibars 
$mb
     
@###.## millimeters of Mercury
$mmHg
     
@###.## Hectopascals
$hPa
     
@##.#### Pounds per square inch
$lbin
     
@##.#### Kilograms per square centimeter
$kgcm     
.

 } else  {
 print "An illegal character was entered.\n";
 die
       }
  }  
}