#!/bin/sh
###################################
# Replace beam from beam.dat
###################################
tabmap -data -b -ascii 'Name nu beam' beam.dat \
| gawk -v q="'" '\
  { a=$1; gsub(/[][]/, "_", a); \
    printf "set beam=%d where ${:Name} like %s%s %%%s and ${:nu}=%d;\n",
   int(60000.*$3), q,a,q, $2;}'
#  int(60000.*$3), q,a,q, $2; print "DUMP TRAN vizB with truncate_only;"}'