source:
vendors/fcm/current/test/repos/trunk/subroutine/hello_sub.F90
@
1977
Last change on this file since 1977 was 1977, checked in by flavoni, 14 years ago | |
---|---|
File size: 491 bytes |
Rev | Line | |
---|---|---|
[1977] | 1 | #if defined(HELLO_SUB) |
2 | SUBROUTINE Hello_Sub (integer_arg) | |
3 | ||
4 | USE Hello_Constants, ONLY: hello_string | |
5 | ||
6 | IMPLICIT NONE | |
7 | ||
8 | CHARACTER (LEN=*), PARAMETER :: this = 'Hello_Sub' | |
9 | INTEGER :: integer_arg | |
10 | INTEGER :: integer_common | |
11 | COMMON /general/integer_common | |
12 | ||
13 | ! DEPENDS ON: hello_c.o | |
14 | EXTERNAL Hello_C | |
15 | ||
16 | #include "hello_sub.h" | |
17 | ||
18 | WRITE (*, '(A,I0)') this // ': integer (arg): ', integer_arg | |
19 | WRITE (*, '(A,I0)') this // ': integer (common): ', integer_common | |
20 | ||
21 | CALL Hello_C () | |
22 | ||
23 | END SUBROUTINE Hello_Sub | |
24 | #endif |
Note: See TracBrowser
for help on using the repository browser.