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
50
51
52
53
54
55
56
|
module real_func_m
public :: real_zero, real_one
contains
pure function real_zero()
real :: real_zero
real_zero = 0.
end function
pure function real_one()
real :: real_one
real_one = 1.
end function
end module
module integer_func_m
public :: integer_zero, integer_one
contains
pure function integer_zero()
integer :: integer_zero
integer_zero = 0.
end function
pure function integer_one()
integer :: integer_one
integer_one = 1.
end function
end module
program template_matrix_test
use matrix_m, only: matrix_tmpl
use integer_func_m
use real_func_m
implicit none
integer, parameter :: n = 2
instantiate matrix_tmpl(real, operator(+), real_zero, operator(*), real_one, n), only: &
real_matrix => matrix, &
real_plus_matrix => plus_matrix, &
real_times_matrix => times_matrix, &
real_matrix_subtraction_tmpl => matrix_subtraction_tmpl
instantiate matrix_tmpl(integer, operator(+), integer_zero, operator(*), integer_one, n), only: &
integer_matrix => matrix, &
integer_plus_matrix => plus_matrix, &
integer_times_matrix => times_matrix, &
integer_matrix_subtraction_tmpl => matrix_subtraction_tmpl
end program
|
