1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
! Reference - http://fortranwiki.org/fortran/show/Submodules
module stdlib_kinds_submodule_02
use iso_fortran_env, only: rkind1 => real32
use iso_fortran_env, only: int32
implicit none
public rkind1, int32
end module stdlib_kinds_submodule_02
module points
use :: stdlib_kinds_submodule_02, only: rkind => rkind1
implicit none
type :: point
real :: x, y
end type point
interface
module function point_dist_func(a, b) result(distance)
type(point), intent(in) :: a, b
real(rkind) :: distance
end function point_dist_func
end interface
interface
module subroutine point_dist_subrout(a, b, distance)
type(point), intent(in) :: a, b
real(rkind), intent(out) :: distance
end subroutine point_dist_subrout
end interface
end module points
submodule (points) points_a
contains
module function point_dist_func(a, b) result(distance)
type(point), intent(in) :: a, b
real(rkind) :: distance
distance = sqrt((a%x - b%x)**2 + (a%y - b%y)**2)
end function point_dist_func
module subroutine point_dist_subrout(a, b, distance)
type(point), intent(in) :: a, b
real(rkind), intent(out) :: distance
distance = sqrt((a%x - b%x)**2 + (a%y - b%y)**2)
end subroutine point_dist_subrout
end submodule points_a
program submodules_02
implicit none
end program
|
