New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
hello_sub.F90 in vendors/fcm/current/test/repos/trunk/subroutine – NEMO

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

importing fcm vendor

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.