1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ # -*- ifm -*-
# template for saving theoretical anomalous scattering
# {$C} is the config object
#
# f1f2_z : element to be saved
# f1f2_file : output filename
$name = Chemistry::Elements::get_name($C->get("f1f2_z"));
q{}
}
set $f1f2_title1 = "Demeter {$C->version} (c) Bruce Ravel"
set $f1f2_title2 = "Ifeffit {$S->fetch_string('&build')}"
set $f1f2_title3 = "f1 and f2 data for {$name}, {$C->get("f1f2_emin")} eV to {$C->get("f1f2_emax")} eV"
write_data(file="{$C->get("f1f2_save")}", $f1f2_title*, f1f2.energy, f1f2.f1, f1f2.f2)
|
