source:
vendors/FCM-2017.10.0/t/fcm-make/11-preprocess-include-path/src/world.F90
@
10672
| Last change on this file since 10672 was 10672, checked in by nicolasmartin, 5 years ago | |
|---|---|
| File size: 166 bytes | |
| Line | |
|---|---|
| 1 | module world |
| 2 | #include <worldx.h> |
| 3 | contains |
| 4 | elemental function get_world() result(w) |
| 5 | character(len=len(world1)) :: w |
| 6 | w = world1 |
| 7 | end function get_world |
| 8 | end module world |
Note: See TracBrowser
for help on using the repository browser.
