1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
## This module is copyright (c) 2000-2006 Bruce Ravel
## <bravel@anl.gov>
## http://feff.phys.washington.edu/~ravel/software/exafs/
##
## -------------------------------------------------------------------
## All rights reserved. This program is free software; you can
## redistribute it and/or modify it under the same terms as Perl
## itself.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## Artistic License for more details.
## -------------------------------------------------------------------
######################################################################
## Time-stamp: <1999/11/19 22:07:01 bruce>
######################################################################
## Code:
=head1 NAME
Xray::Absorption::None - absorption calculation fallback
=head1 SYNOPSIS
use Xray::Absorption;
Xray::Absorption -> load("none");
See the documentation for Xray::Absorption for details.
=head1 DESCRIPTION
This module is inherited by the Xray::Absorption module and provides
access to the data contained in the 1999 Elam tables of line and edge
energies by inheriting that module. The cross_section method is
overloaded and always returns 0 regardless of what mode is selected.
This rather strange functionality is a crude hack to benefit the ATP
mechanism used by Atoms and related programs.
=cut
package Xray::Absorption::None;
use Exporter ();
use Config;
use strict;
use Xray::Absorption;
use Xray::Absorption::Elam;
use vars qw(@ISA $VERSION $resource);
use strict;
use vars qw($VERSION $cvs_info $mucal_version @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter AutoLoader Xray::Absorption::Elam);
#@EXPORT_OK = qw();
$cvs_info = '$Id: None.pm,v 1.1 2000/11/21 00:57:33 bruce Exp $ ';
$VERSION = (split(' ', $cvs_info))[2] || 'pre-release';
sub current_resource {
"none";
};
# sub in_resource {
# return 1;
# };
# sub get_energy {
# return 0;
# };
# sub next_energy {
# return ();
# };
sub cross_section {
shift;
my ($sym, $energy, $mode) = @_;
return 0;
};
1;
__END__
=head1 EDGE AND LINE ENERGIES
See L<Xray::Absorption::Elam>.
=head1 AUTHOR
Bruce Ravel, bruce@phys.washington.edu
http://feff.phys.washington.edu/~ravel/
=cut
|
