Skip to content

Commit 3790085

Browse files
committed
fix: gcc compiler requires matching argument names.
1 parent f7b5aa2 commit 3790085

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

src/omp/backend.f90

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -182,30 +182,30 @@ subroutine trans_x2z_omp(self, u_, v_, w_, u, v, w)
182182

183183
end subroutine trans_x2z_omp
184184

185-
subroutine trans_y2z_omp(self, u_z, u_y)
185+
subroutine trans_y2z_omp(self, u_, u)
186186
implicit none
187187

188188
class(omp_backend_t) :: self
189-
class(field_t), intent(inout) :: u_z
190-
class(field_t), intent(in) :: u_y
189+
class(field_t), intent(inout) :: u_
190+
class(field_t), intent(in) :: u
191191

192192
end subroutine trans_y2z_omp
193193

194-
subroutine trans_z2y_omp(self, u_y, u_z)
194+
subroutine trans_z2y_omp(self, u_, u)
195195
implicit none
196196

197197
class(omp_backend_t) :: self
198-
class(field_t), intent(inout) :: u_y
199-
class(field_t), intent(in) :: u_z
198+
class(field_t), intent(inout) :: u_
199+
class(field_t), intent(in) :: u
200200

201201
end subroutine trans_z2y_omp
202202

203-
subroutine trans_y2x_omp(self, u_x, u_y)
203+
subroutine trans_y2x_omp(self, u_, u)
204204
implicit none
205205

206206
class(omp_backend_t) :: self
207-
class(field_t), intent(inout) :: u_x
208-
class(field_t), intent(in) :: u_y
207+
class(field_t), intent(inout) :: u_
208+
class(field_t), intent(in) :: u
209209

210210
end subroutine trans_y2x_omp
211211

0 commit comments

Comments
 (0)