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.
Fortran-extract-interface-result.f90 in branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/EXTERNAL/fcm/t/Fcm/Build – NEMO

source: branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/EXTERNAL/fcm/t/Fcm/Build/Fortran-extract-interface-result.f90 @ 7019

Last change on this file since 7019 was 7019, checked in by deazer, 7 years ago

Cleared svn keywords

File size: 2.0 KB
Line 
1interface
2logical function func_simple()
3end function func_simple
4logical function func_simple_1()
5end function
6logical function func_simple_2()
7end
8pure logical function func_simple_pure()
9end function func_simple_pure
10recursive pure integer function func_simple_recursive_pure(i)
11integer, intent(in) :: i
12end function func_simple_recursive_pure
13elemental logical function func_simple_elemental()
14end function func_simple_elemental
15integer(selected_int_kind(0)) function func_with_use_and_args(egg, ham)
16use foo
17use bar, only:&
18 & i_am_dim
19integer, intent(in) :: egg(i_am_dim)
20integer, intent(in) :: ham(i_am_dim, 2)
21end function func_with_use_and_args
22character(20) function func_with_parameters(egg, ham)
23character*(*), parameter :: x_param = '01234567890'
24character(*), parameter :: &
25 y_param &
26 = '!&!&!&!&!&!'
27character(len(x_param)), intent(in) :: egg
28character(len(y_param)), intent(in) :: ham
29end function func_with_parameters
30function func_with_parameters_1(egg, ham) result(r)
31integer, parameter :: x_param = 10
32integer z_param
33parameter(z_param = 2)
34real, intent(in), dimension(x_param) :: egg
35integer, intent(in) :: ham
36logical :: r(z_param)
37end function func_with_parameters_1
38character(10) function func_with_contains(mushroom, tomoato)
39character(5) mushroom
40character(5) tomoato
41end function func_with_contains
42Function func_mix_local_and_result(egg, ham, bacon) Result(Breakfast)
43Integer, Intent(in) :: egg, ham
44Real, Intent(in) :: bacon
45Real :: tomato, breakfast
46End Function func_mix_local_and_result
47subroutine sub_simple()
48end subroutine sub_simple
49subroutine sub_simple_1()
50end subroutine
51subroutine sub_simple_2()
52end
53subroutine sub_simple_3()
54end sub&
55&routine&
56& sub_simple_3
57subroutine sub_with_contains(foo)
58character*(len('!"&''&"!')) &
59 foo
60end subroutine sub_with_contains
61subroutine sub_with_renamed_import(i_am_dim)
62integer, parameter :: d = 2
63complex :: i_am_dim(d)
64end subroutine sub_with_renamed_import
65subroutine sub_with_external(proc)
66external proc
67end subroutine sub_with_external
68subroutine sub_with_end()
69end subroutine sub_with_end
70end interface
Note: See TracBrowser for help on using the repository browser.