#! /usr/bin/gawk -f
# Last edited on 2004-11-22 14:03:27 by hcgl

BEGIN {
  unit = 0;
}

/^ *unit *[=]/ {
  gsub(/^ *unit *[=]/, "");
  unit = $1;
}

/^ *[-+]?[0-9]+([ ]| *$)/ {
  if (unit == "") 
    { printf "** apply-unit: no unit\n" > "/dev/stderr"; exit 1; }
  for (i = 1; i <= NF; i++)
    { printf " %+13.5e", $(i) * unit; }
  printf "\n";
}