Skip to content

Commit 9d38d9d

Browse files
jvdp1jvdp1
committed
median: rename fypp RName by name
1 parent bdb47b7 commit 9d38d9d

File tree

2 files changed

+24
-24
lines changed

2 files changed

+24
-24
lines changed

‎src/stdlib_stats.fypp‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -313,47 +313,47 @@ module stdlib_stats
313313
!! ([Specification](../page/specs/stdlib_stats.html#median-median-of-array-elements))
314314
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
315315
#:for rank in RANKS
316-
#:set RName = rname("median_all",rank, t1, k1, o1)
317-
module function ${RName}$ (x, mask) result(res)
316+
#:set name = rname("median_all",rank, t1, k1, o1)
317+
module function ${name}$ (x, mask) result(res)
318318
${t1}$, intent(in) :: x${ranksuffix(rank)}$
319319
logical, intent(in), optional :: mask
320320
real(${o1}$) :: res
321-
end function ${RName}$
321+
end function ${name}$
322322
#:endfor
323323
#:endfor
324324

325325
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
326326
#:for rank in RANKS
327-
#:set RName = rname("median",rank, t1, k1, o1)
328-
module function ${RName}$(x, dim, mask) result(res)
327+
#:set name = rname("median",rank, t1, k1, o1)
328+
module function ${name}$(x, dim, mask) result(res)
329329
${t1}$, intent(in) :: x${ranksuffix(rank)}$
330330
integer, intent(in) :: dim
331331
logical, intent(in), optional :: mask
332332
real(${o1}$) :: res${reduced_shape('x', rank, 'dim')}$
333-
end function ${RName}$
333+
end function ${name}$
334334
#:endfor
335335
#:endfor
336336

337337
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
338338
#:for rank in RANKS
339-
#:set RName = rname('median_mask_all',rank, t1, k1, o1)
340-
module function ${RName}$(x, mask) result(res)
339+
#:set name = rname('median_mask_all',rank, t1, k1, o1)
340+
module function ${name}$(x, mask) result(res)
341341
${t1}$, intent(in) :: x${ranksuffix(rank)}$
342342
logical, intent(in) :: mask${ranksuffix(rank)}$
343343
real(${o1}$) :: res
344-
end function ${RName}$
344+
end function ${name}$
345345
#:endfor
346346
#:endfor
347347

348348
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
349349
#:for rank in RANKS
350-
#:set RName = rname('median_mask',rank, t1, k1, o1)
351-
module function ${RName}$(x, dim, mask) result(res)
350+
#:set name = rname('median_mask',rank, t1, k1, o1)
351+
module function ${name}$(x, dim, mask) result(res)
352352
${t1}$, intent(in) :: x${ranksuffix(rank)}$
353353
integer, intent(in) :: dim
354354
logical, intent(in) :: mask${ranksuffix(rank)}$
355355
real(${o1}$) :: res${reduced_shape('x', rank, 'dim')}$
356-
end function ${RName}$
356+
end function ${name}$
357357
#:endfor
358358
#:endfor
359359

‎src/stdlib_stats_median.fypp‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -17,8 +17,8 @@ contains
1717

1818
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
1919
#:for rank in RANKS
20-
#:set RName = rname("median_all",rank, t1, k1, o1)
21-
module function ${RName}$ (x, mask) result(res)
20+
#:set name = rname("median_all",rank, t1, k1, o1)
21+
module function ${name}$ (x, mask) result(res)
2222
${t1}$, intent(in) :: x${ranksuffix(rank)}$
2323
logical, intent(in), optional :: mask
2424
real(${o1}$) :: res
@@ -55,14 +55,14 @@ contains
5555
res = x_tmp(c)
5656
end if
5757

58-
end function ${RName}$
58+
end function ${name}$
5959
#:endfor
6060
#:endfor
6161

6262
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
6363
#:for rank in RANKS
64-
#:set RName = rname("median",rank, t1, k1, o1)
65-
module function ${RName}$(x, dim, mask) result(res)
64+
#:set name = rname("median",rank, t1, k1, o1)
65+
module function ${name}$(x, dim, mask) result(res)
6666
${t1}$, intent(in) :: x${ranksuffix(rank)}$
6767
integer, intent(in) :: dim
6868
logical, intent(in), optional :: mask
@@ -127,15 +127,15 @@ contains
127127
call error_stop("ERROR (median): wrong dimension")
128128
end select
129129

130-
end function ${RName}$
130+
end function ${name}$
131131
#:endfor
132132
#:endfor
133133

134134

135135
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
136136
#:for rank in RANKS
137-
#:set RName = rname('median_mask_all',rank, t1, k1, o1)
138-
module function ${RName}$(x, mask) result(res)
137+
#:set name = rname('median_mask_all',rank, t1, k1, o1)
138+
module function ${name}$(x, mask) result(res)
139139
${t1}$, intent(in) :: x${ranksuffix(rank)}$
140140
logical, intent(in) :: mask${ranksuffix(rank)}$
141141
real(${o1}$) :: res
@@ -173,14 +173,14 @@ contains
173173
res = x_tmp(c)
174174
end if
175175

176-
end function ${RName}$
176+
end function ${name}$
177177
#:endfor
178178
#:endfor
179179

180180
#:for k1, t1, o1 in IR_KINDS_TYPES_OUTPUT
181181
#:for rank in RANKS
182-
#:set RName = rname('median_mask',rank, t1, k1, o1)
183-
module function ${RName}$(x, dim, mask) result(res)
182+
#:set name = rname('median_mask',rank, t1, k1, o1)
183+
module function ${name}$(x, dim, mask) result(res)
184184
${t1}$, intent(in) :: x${ranksuffix(rank)}$
185185
integer, intent(in) :: dim
186186
logical, intent(in) :: mask${ranksuffix(rank)}$
@@ -248,7 +248,7 @@ contains
248248
call error_stop("ERROR (median): wrong dimension")
249249
end select
250250

251-
end function ${RName}$
251+
end function ${name}$
252252
#:endfor
253253
#:endfor
254254

0 commit comments

Comments
 (0)