|
Last change
on this file since 1150 was
1107,
checked in by lguez, 16 years ago
|
|
"comconst.h" and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
542 bytes
|
| Rev | Line | |
|---|
| [630] | 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| [1107] | 4 | !----------------------------------------------------------------------- |
|---|
| 5 | ! INCLUDE comconst.h |
|---|
| [630] | 6 | |
|---|
| [1107] | 7 | COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl, & |
|---|
| 8 | & dtvr,daysec, & |
|---|
| 9 | & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg |
|---|
| [630] | 10 | |
|---|
| 11 | INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl |
|---|
| 12 | REAL dtvr,daysec |
|---|
| 13 | REAL pi,dtphys,dtdiss,rad,r,cpp,kappa |
|---|
| 14 | REAL cotot,unsim,g,omeg |
|---|
| 15 | |
|---|
| [1107] | 16 | !----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
