Isis suggestion

Hi,

   Since _A is such a useful function, I think that it should be
enhanced to accept structures such as those returned by the get_*
functions.  Then one could do:

     s = _A(get_model_counts (1));

to get a structure with keV units.  If this were possible, then the
save_model function I posted earlier could have been simplified by not
having as many calls to reverse and _A.  

Here is a version of _A that has this property:

   define _A ();  % declare for recursive call
   public define _A () 
   {
      variable n = _NARGS;
      loop (n)
	{
	   variable e = ();
	   if (typeof (e) == Struct_Type)
	     {
		(e.bin_lo, e.bin_hi) = _A(e.bin_lo, e.bin_hi);
		e.value = reverse (e.value);
		e.err = reverse (e.err);
		e;
	     }
	   else
	     reverse (Const_keV_A / e);
        _stk_roll (n);
     }
   _stk_reverse (n);
}

-- 
John E. Davis                   Center for Space Research/AXAF Science Center
617-258-8119                    One Hampshire St., Building NE80-6019
http://space.mit.edu/~davis     Cambridge, MA  02139-4307
----
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