@@ -11,25 +11,25 @@ contains
11
11
12
12
#:for k1, t1 in KINDS_TYPES
13
13
#:for rank in RANKS
14
- !> Allocate an instance of the array within the wrapper.
15
- module subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, source_array, stat, msg)
16
- class(t_array_wrapper), intent(out) :: wrapper
17
- ${t1}$, intent(in) :: source_array${ranksuffix(rank)}$
18
- integer, intent(out) :: stat
19
- character(len=:), allocatable, intent(out) :: msg
14
+ ! ! > Allocate an instance of the array within the wrapper.
15
+ ! module subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, source_array, stat, msg)
16
+ ! class(t_array_wrapper), intent(out) :: wrapper
17
+ ! ${t1}$, intent(in) :: source_array${ranksuffix(rank)}$
18
+ ! integer, intent(out) :: stat
19
+ ! character(len=:), allocatable, intent(out) :: msg
20
20
21
- ! allocate(t_array_${t1[0]}$${k1}$_${rank}$ :: wrapper%array, stat=stat)
22
- ! if (stat /= 0) then
23
- ! msg = "Failed to allocate array"; return
24
- ! end if
21
+ ! ! allocate(t_array_${t1[0]}$${k1}$_${rank}$ :: wrapper%array, stat=stat)
22
+ ! ! if (stat /= 0) then
23
+ ! ! msg = "Failed to allocate array"; return
24
+ ! ! end if
25
25
26
- ! select type (typed_array => wrapper%array)
27
- ! class is (t_array_${t1[0]}$${k1}$_${rank}$)
28
- ! typed_array%values = source_array
29
- ! class default
30
- ! msg = 'Failed to allocate values.'; stat = 1; return
31
- ! end select
32
- end
26
+ ! ! select type (typed_array => wrapper%array)
27
+ ! ! class is (t_array_${t1[0]}$${k1}$_${rank}$)
28
+ ! ! typed_array%values = source_array
29
+ ! ! class default
30
+ ! ! msg = 'Failed to allocate values.'; stat = 1; return
31
+ ! ! end select
32
+ ! end
33
33
34
34
#:endfor
35
35
#:endfor
0 commit comments