Line | |
---|
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.