| 6 | C     | environment" support routines.                           | | C     | environment" support routines.                           | | 
| 7 | C     \==========================================================/ | C     \==========================================================/ | 
| 8 |  |  | 
| 9 |  | C--   precision to use | 
| 10 |  | #ifndef USE_SINGLE_PRECISION | 
| 11 |  | #define _d D | 
| 12 |  | #define Real REAL*8 | 
| 13 |  | #else | 
| 14 |  | #define _d E | 
| 15 |  | #define Real REAL*4 | 
| 16 |  | #endif | 
| 17 | C--   Symbolic constants | C--   Symbolic constants | 
| 18 | INTEGER MAX_LEN_MBUF | INTEGER MAX_LEN_MBUF | 
| 19 | PARAMETER ( MAX_LEN_MBUF = 1024 ) | PARAMETER ( MAX_LEN_MBUF = 1024 ) |