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