1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
C**** |
C**** |
5 |
C**** CHIP HEADER FILE |
C**** CHIP HEADER FILE |
6 |
C**** |
C**** |
7 |
|
|
8 |
C SCCS VERSION @(#)sibber.h 1.1 10/15/92 |
C SCCS VERSION @(#)sibber.h 1.1 10/15/92 |
9 |
|
|
10 |
INTEGER NTYPS, FRSTCH, MemFac |
INTEGER NTYPS, FRSTCH, MemFac |
11 |
INTEGER NLAY, SFCLY, ROOTLY, RECHLY |
INTEGER NLAY, SFCLY, ROOTLY, RECHLY |
12 |
|
|
13 |
REAL ZERO, ONE, PIE |
_RL ZERO, ONE, PIE |
14 |
REAL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV |
_RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV |
15 |
REAL EPSILON, NOSNOW |
_RL EPSILON, NOSNOW |
16 |
|
|
17 |
PARAMETER (NTYPS = 10, FRSTCH = 1, MemFac = 5) |
PARAMETER (NTYPS = 10, FRSTCH = 1, MemFac = 5) |
18 |
PARAMETER (NLAY = 3) |
PARAMETER (NLAY = 3) |