@@ -119,7 +119,7 @@ module test_EdgeForest
119119
120120
121121 @Test
122- subroutine test_GetFracEdgeForestInEachBin_gaussian (this)
122+ subroutine test_GetFracEdgeForestInEachBin_with_gaussian (this)
123123 class(TestEdgeForest), intent(inout) :: this
124124 real(r8) :: frac_forest = 0.5_r8
125125 integer, parameter :: nlevedgeforest_tmp = 1
@@ -139,11 +139,11 @@ module test_EdgeForest
139139
140140 @assertEqual(0.3520653267642879_r8, fraction_forest_in_bin(1), tol)
141141
142- end subroutine test_GetFracEdgeForestInEachBin_gaussian
142+ end subroutine test_GetFracEdgeForestInEachBin_with_gaussian
143143
144144
145145 @Test
146- subroutine test_GetFracEdgeForestInEachBin_lognorm (this)
146+ subroutine test_GetFracEdgeForestInEachBin_with_lognorm (this)
147147 class(TestEdgeForest), intent(inout) :: this
148148 real(r8) :: frac_forest = 0.5_r8
149149 integer, parameter :: nlevedgeforest_tmp = 1
@@ -163,11 +163,11 @@ module test_EdgeForest
163163
164164 @assertEqual(0.19029780481010555, fraction_forest_in_bin(1), tol)
165165
166- end subroutine test_GetFracEdgeForestInEachBin_lognorm
166+ end subroutine test_GetFracEdgeForestInEachBin_with_lognorm
167167
168168
169169 @Test
170- subroutine test_GetFracEdgeForestInEachBin_quadratic (this)
170+ subroutine test_GetFracEdgeForestInEachBin_with_quadratic (this)
171171 class(TestEdgeForest), intent(inout) :: this
172172 real(r8) :: frac_forest = 0.5_r8
173173 integer, parameter :: nlevedgeforest_tmp = 1
@@ -187,11 +187,11 @@ module test_EdgeForest
187187
188188 @assertEqual(1.75, fraction_forest_in_bin(1), tol)
189189
190- end subroutine test_GetFracEdgeForestInEachBin_quadratic
190+ end subroutine test_GetFracEdgeForestInEachBin_with_quadratic
191191
192192
193193 @Test
194- subroutine test_GetFracEdgeForestInEachBin_norm (this)
194+ subroutine test_GetFracEdgeForestInEachBin_with_norm (this)
195195 ! Test that normalization works correctly: If all bins have the same parameters, they should
196196 ! get normalized to 1/nbins.
197197 class(TestEdgeForest), intent(inout) :: this
@@ -216,7 +216,7 @@ module test_EdgeForest
216216 @assertEqual(expected, fraction_forest_in_bin(2), tol)
217217 @assertEqual(expected, fraction_forest_in_bin(3), tol)
218218
219- end subroutine test_GetFracEdgeForestInEachBin_norm
219+ end subroutine test_GetFracEdgeForestInEachBin_with_norm
220220
221221
222222 @Test
0 commit comments