| 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 ) |