Skip to content

Commit cedebb6

Browse files
committed
Comment out the entire thing
1 parent c41b90c commit cedebb6

File tree

2 files changed

+18
-18
lines changed

2 files changed

+18
-18
lines changed

src/stdlib_array_allocation.fypp

Lines changed: 17 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -11,25 +11,25 @@ contains
1111

1212
#:for k1, t1 in KINDS_TYPES
1313
#: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
2020

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
2525

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
3333

3434
#:endfor
3535
#:endfor

src/stdlib_io_np_load.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -180,7 +180,7 @@ contains
180180
& 'with total size of '//to_string(product(vshape)); return
181181
end if
182182

183-
call allocate_array(arrays(i), array, stat, msg)
183+
! call allocate_array(arrays(i), array, stat, msg)
184184
if (stat /= 0) then
185185
msg = "Failed to allocate array of type '"//this_type//"' "//&
186186
& 'with total size of '//to_string(product(vshape)); return

0 commit comments

Comments
 (0)