source: XMLIO_V2/tools/FCM/test/repos/trunk/subroutine/hello_sub.F90 @ 81

Last change on this file since 81 was 81, checked in by ymipsl, 14 years ago

ajout FCM 1.5

File size: 491 bytes
Line 
1#if defined(HELLO_SUB)
2SUBROUTINE Hello_Sub (integer_arg)
3
4USE Hello_Constants, ONLY: hello_string
5
6IMPLICIT NONE
7
8CHARACTER (LEN=*), PARAMETER :: this = 'Hello_Sub'
9INTEGER :: integer_arg
10INTEGER :: integer_common
11COMMON /general/integer_common
12
13! DEPENDS ON: hello_c.o
14EXTERNAL Hello_C
15
16#include "hello_sub.h"
17
18WRITE (*, '(A,I0)') this // ': integer (arg): ', integer_arg
19WRITE (*, '(A,I0)') this // ': integer (common): ', integer_common
20
21CALL Hello_C ()
22
23END SUBROUTINE Hello_Sub
24#endif
Note: See TracBrowser for help on using the repository browser.