// Set BLEW

aHblew = aH90
$pwHblew = pwH90
pwHblew = 0.4*trunc($pwHblew/(0.1) + 0.5)
if (nHblew < 1.0) then nHblew = 1 endif

