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