Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by edhill, Mon Sep 13 16:13:42 2004 UTC | revision 1.6 by jmc, Tue Mar 1 16:52:27 2005 UTC | |
---|---|---|
# | Line 62 c == local variables == | Line 62 c == local variables == |
62 | #undef _USE_INTEGERS | #undef _USE_INTEGERS |
63 | #ifdef _USE_INTEGERS | #ifdef _USE_INTEGERS |
64 | integer seed | integer seed |
65 | seed = -1 | |
66 | #else | #else |
67 | Real*8 seed | Real*8 seed |
68 | seed = -1.d0 | |
69 | #endif | #endif |
70 | #endif | #endif |
71 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |