source:
vendors/fcm/current/test/repos/trunk/blockdata/hello_blockdata.F90
@
1980
Last change on this file since 1980 was 1980, checked in by flavoni, 14 years ago | |
---|---|
File size: 197 bytes |
Rev | Line | |
---|---|---|
[1980] | 1 | BLOCK DATA hello_blockdata |
2 | INTEGER :: integer_common | |
3 | COMMON /general/integer_common | |
4 | #if defined(ODD) | |
5 | DATA integer_common/1357/ | |
6 | #else | |
7 | DATA integer_common/2468/ | |
8 | #endif | |
9 | END BLOCK DATA hello_blockdata |
Note: See TracBrowser
for help on using the repository browser.