Annotation of /ccfdev/packages/xmm-abscoefs/henke/generatetable

#! /usr/local/bin/perl
#
# Giuseppe Vacanti - January 2000
#
require 5;
my $el = shift;
my $El = ucfirst $el;
print "
table \"HENKE-$El\" rows(\"../henke/$el.nff\") \"Henke et al.'s atomic scattering factors\" 
<
  comment \"Downloaded from http://www-cxro.lbl.gov/optical_constants/\"
  comment \"Downloaded on 1999-09-09\"

  column \"ENERGY\" real32 \"Energy grid\" \"eV\" fillColumn(col, \"../henke/$el.nff\",0)
  column(2) "SCATTERING_FACTORS" real32 \"f1 and f2\" \"\" fillColumn(col, \"../henke/$el.nff\",1,\":\")
>
"
1	gvacanti	1.1	#! /usr/local/bin/perl
2			#
3			# Giuseppe Vacanti - January 2000
4			#
5			require 5;
6			my $el = shift;
7			my $El = ucfirst $el;
8			print "
9			table \"HENKE-$El\" rows(\"../henke/$el.nff\") \"Henke et al.'s atomic scattering factors\"
10			<
11			comment \"Downloaded from http://www-cxro.lbl.gov/optical_constants/\"
12			comment \"Downloaded on 1999-09-09\"
13
14			column \"ENERGY\" real32 \"Energy grid\" \"eV\" fillColumn(col, \"../henke/$el.nff\",0)
15			column(2) "SCATTERING_FACTORS" real32 \"f1 and f2\" \"\" fillColumn(col, \"../henke/$el.nff\",1,\":\")
16			>
17			"