aped_bib broken?

I haven't used the aped_bib function before, but it doesn't seem to be
working as advertised:

isis> l = where( trans(S,15,[2:7],1));
isis> page_group(l);
#  index        ion   lambda    F (ph/cm^2/s)  A(s^-1)  upper lower   label
 195575 *      S XV    5.0387    2.534e-06   6.700e+13     7     1 1s1 - 1s2
 201814 *      S XV    5.0631    4.142e-07   1.170e+08     6     1 1s1 - 1s2
 204771        S XV    5.0645    0.000e+00   1.380e+08     3     1 1s1 - 1s2
 195571 *      S XV    5.0665    8.222e-07   4.680e+11     5     1 1s1 - 1s2
 204772 *      S XV    5.1015    8.666e-07   1.320e+06     2     1 1s1 - 1s2

isis> s = aped_bib(aped,l);

Reading database version 2.0.1 from /nfs/cxc/a1/share/atomdb
unimplemented type: 1 file: /nfs/cxc/a1/share/atomdb/APED/s/s_15/s_15_IR_v2_0_1_a.fits
Unable to typecast Undefined_Type to Struct_Type
Traceback: get_struct_field_names
/nfs/cxc/a1/src/isis/1.6.2-1/linux/share/fits_module_dep.sl:646:struct_append_strings:Type Mismatch
  Local variables for struct_append_strings:
	Null_Type a = NULL
	Undefined_Type b = Undefined_Type
	Undefined_Type na = Undefined_Type
	Undefined_Type nb = Undefined_Type
	Undefined_Type fb = Undefined_Type
	Undefined_Type fa = Undefined_Type
/nfs/cxc/a1/src/isis/1.6.2-1/linux/share/fits_module_dep.sl:794:aped_bib:Type Mismatch
  Local variables for aped_bib:
	String_Type msg = "Struct_Type = aped_bib (Struct_Type aped, Integer_Type[] lines)
 qualifiers:  verbose | unique | warn_dup"
	Struct_Type db_struct = Struct_Type with 6 fields
	Array_Type lines = Integer_Type[5]
	Struct_Type fm = Struct_Type with 4 fields
	Array_Type info = Struct_Type[5]
	Integer_Type n = 5
	Null_Type refs = NULL
	Array_Type z_list = Integer_Type[5]
	Array_Type ion_list = Integer_Type[5]
	Array_Type upper = Integer_Type[5]
	Array_Type lower = Integer_Type[5]
	Array_Type species = Integer_Type[5]
	Array_Type unique_species = Integer_Type[1]
	Integer_Type us = 1615
	Integer_Type z = 16
	Integer_Type i = 15
	Array_Type izi = Integer_Type[5]
	Array_Type us_lines = Integer_Type[5]
	Array_Type up = Integer_Type[5]
	Array_Type lo = Integer_Type[5]
	Integer_Type ifile = 0
	Integer_Type num_files = 5
	Integer_Type k = 384
	Integer_Type type = 1
	String_Type file = "/nfs/cxc/a1/share/atomdb/APED/s/s_15/s_15_IR_v2_0_1_a.fits"
	Undefined_Type r = Undefined_Type
	Undefined_Type levs = Undefined_Type
<stdin>:280:<top-level>:Type Mismatch


-- Dave

David Huenemoerder  617-253-4283 (o); -253-8084 (f); http://space.mit.edu/home/dph
MIT Kavli Institute for Astrophysics and Space Research
70 Vassar St., NE80-6065,
Cambridge, MA  02139
[Admin. Asst.: Elaine Tirrell, 617-253-7480, egt_at_email.domain.hidden
----
You received this message because you are
subscribed to the isis-users list.
To unsubscribe, send a message to
isis-users-request_at_email.domain.hiddenwith the first line of the message as:
unsubscribe