@@ -134,7 +134,7 @@ contains
134
134
if (present(iomsg) .and. allocated(msg)) call move_alloc(msg, iomsg)
135
135
end
136
136
137
- module subroutine load_unzipped_bundle_to_arrays(unzipped_bundle, arrays, stat, msg)
137
+ subroutine load_unzipped_bundle_to_arrays(unzipped_bundle, arrays, stat, msg)
138
138
type(t_unzipped_bundle), intent(in) :: unzipped_bundle
139
139
type(t_array_wrapper), allocatable, intent(out) :: arrays(:)
140
140
integer, intent(out) :: stat
@@ -204,7 +204,7 @@ contains
204
204
end
205
205
206
206
!> Open file and try to identify the cause of the error that occurred during unzip.
207
- module subroutine identify_unzip_problem(filename, stat, msg)
207
+ subroutine identify_unzip_problem(filename, stat, msg)
208
208
character(len=*), intent(in) :: filename
209
209
integer, intent(inout) :: stat
210
210
character(len=:), allocatable, intent(inout) :: msg
@@ -232,7 +232,7 @@ contains
232
232
stat = prev_stat; msg = 'Failed to unzip file: '//filename//nl//prev_msg
233
233
end
234
234
235
- module subroutine verify_header(io_unit, stat, msg)
235
+ subroutine verify_header(io_unit, stat, msg)
236
236
integer, intent(in) :: io_unit
237
237
integer, intent(out) :: stat
238
238
character(len=:), allocatable, intent(out) :: msg
0 commit comments