| Revision: | 1.1 |
| Committed: | Fri Feb 18 00:21:17 2011 UTC (12 years, 7 months ago) by richard |
| Branch: | MAIN |
| CVS Tags: | Ver_6-0, Ver_6-1, Ver_6-2, Ver_6-3, Ver_6-4, Ver_9-1, Ver_5-14, Ver_5-13, Ver_LATEST, Ver_9-3, Ver_9-41, Ver_9-2, Ver_8-8, Ver_8-2, Ver_8-3, Ver_8-0, Ver_8-1, Ver_8-6, Ver_8-7, Ver_8-4, Ver_8-5, Ver_7-1, Ver_7-0, Ver_9-5, Ver_9-4, Ver_8-10, Ver_8-11, Ver_8-12, Ver_9-0, HEAD |
| Log Message: | IDL package for calculating pzt flatfields 2011.02.17 |
| # | Content |
|---|---|
| 1 | function is_ieee_big |
| 2 | ;+ |
| 3 | ; NAME: |
| 4 | ; IS_IEEE_BIG |
| 5 | ; PURPOSE: |
| 6 | ; Determine if the current machine uses IEEE, big-endian numbers. |
| 7 | ; EXPLANATION: |
| 8 | ; (Big endian implies that byteorder XDR conversions are no-ops). |
| 9 | ; CALLING SEQUENCE: |
| 10 | ; flag = is_ieee_big() |
| 11 | ; INPUT PARAMETERS: |
| 12 | ; None |
| 13 | ; RETURNS: |
| 14 | ; 1 if the machine appears to be IEEE-compliant, 0 if not. |
| 15 | ; COMMON BLOCKS: |
| 16 | ; None. |
| 17 | ; SIDE EFFECTS: |
| 18 | ; None |
| 19 | ; RESTRICTIONS: |
| 20 | ; PROCEDURE: |
| 21 | ; The first byte of the two-byte representation of 1 is examined. |
| 22 | ; If it is zero, then the data is stored in big-endian order. |
| 23 | ; MODIFICATION HISTORY: |
| 24 | ; Written 15-April-1996 by T. McGlynn for use in MRDFITS. |
| 25 | ; 13-jul-1997 jkf/acc - added calls to check_math to avoid |
| 26 | ; underflow messages in V5.0 on Win32 (NT). |
| 27 | ; Converted to IDL V5.0 W. Landsman September 1997 |
| 28 | ; Follow RSI and just do a single test W. Landsman April 2003 |
| 29 | ;- |
| 30 | |
| 31 | return, 1b - (byte(1,0,1))[0] |
| 32 | end |