@@ -131,12 +131,12 @@ integer function null_how_many_extra_binary_history_columns(binary_id)
131
131
132
132
end function null_how_many_extra_binary_history_columns
133
133
134
- subroutine null_data_for_extra_binary_history_columns (binary_id , n , names , vals , ierr )
134
+ subroutine null_data_for_extra_binary_history_columns (binary_id , n , extra_names , vals , ierr )
135
135
use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
136
136
use const_def
137
137
integer , intent (in ) :: binary_id
138
138
integer , intent (in ) :: n
139
- character (len= maxlen_binary_history_column_name) :: names (n)
139
+ character (len= maxlen_binary_history_column_name) :: extra_names (n)
140
140
real (dp) :: vals(n)
141
141
integer , intent (out ) :: ierr
142
142
type (binary_info), pointer :: b
@@ -157,12 +157,12 @@ integer function null_how_many_extra_binary_history_header_items(binary_id)
157
157
end function null_how_many_extra_binary_history_header_items
158
158
159
159
subroutine null_data_for_extra_binary_history_header_items ( &
160
- binary_id , n , names , vals , ierr )
160
+ binary_id , n , extra_names , vals , ierr )
161
161
use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
162
162
use const_def
163
163
type (binary_info), pointer :: b
164
164
integer , intent (in ) :: binary_id, n
165
- character (len= maxlen_binary_history_column_name) :: names (n)
165
+ character (len= maxlen_binary_history_column_name) :: extra_names (n)
166
166
real (dp) :: vals(n)
167
167
integer , intent (out ) :: ierr
168
168
ierr = 0
0 commit comments