Skip to content

Commit 019cbd7

Browse files
authored
fix ifort build by renaming supposedly conflicting variable name (#554)
1 parent 3fe5079 commit 019cbd7

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

binary/other/mod_other_binary_extras.f90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -131,12 +131,12 @@ integer function null_how_many_extra_binary_history_columns(binary_id)
131131

132132
end function null_how_many_extra_binary_history_columns
133133

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)
135135
use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
136136
use const_def
137137
integer, intent(in) :: binary_id
138138
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)
140140
real(dp) :: vals(n)
141141
integer, intent(out) :: ierr
142142
type (binary_info), pointer :: b
@@ -157,12 +157,12 @@ integer function null_how_many_extra_binary_history_header_items(binary_id)
157157
end function null_how_many_extra_binary_history_header_items
158158

159159
subroutine null_data_for_extra_binary_history_header_items( &
160-
binary_id, n, names, vals, ierr)
160+
binary_id, n, extra_names, vals, ierr)
161161
use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
162162
use const_def
163163
type (binary_info), pointer :: b
164164
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)
166166
real(dp) :: vals(n)
167167
integer, intent(out) :: ierr
168168
ierr = 0

0 commit comments

Comments
 (0)