Skip to content

Commit e760b8b

Browse files
Jim-215-FisherJim-215-Fisher
authored
remove tabs
1 parent a2447d2 commit e760b8b

File tree

1 file changed

+69
-69
lines changed

1 file changed

+69
-69
lines changed

‎src/tests/stats/test_distribution_exponential.f90

Lines changed: 69 additions & 69 deletions
Original file line numberDiff line numberDiff line change
@@ -152,25 +152,25 @@ subroutine test_expon_rvs_csp
152152
integer :: i, n, k = 5
153153
integer :: seed, get
154154
complex(sp) :: ans(10) = [(0.640164505354053137153869101894088070_sp, &
155-
0.268204995991944639133208738712710328_sp), &
155+
0.268204995991944639133208738712710328_sp), &
156156
(0.141667583643866407117073435983911608_sp, &
157-
2.60843818343998017361684560455614716_sp), &
158-
(0.116705911955157926040982374615850854_sp, &
159-
1.04120572522889689448533090398996145_sp), &
160-
(2.06742299986664055388985161698656149_sp, &
161-
0.723668357086202707062483341360348315_sp), &
162-
(0.852514651480446872255924972705542983_sp, &
163-
0.789043817146060844081034701957833041_sp), &
164-
(1.09098446025458177821576555288629603_sp, &
165-
1.48569478096399141264782883808948111_sp), &
166-
(4.29633077423243321391055360436439499_sp, &
167-
0.338216396454583145825267820328008412_sp), &
168-
(0.340462754402863337910289942556119029_sp, &
169-
0.172319442815022222381671213042864120_sp), &
157+
2.60843818343998017361684560455614716_sp), &
158+
(0.116705911955157926040982374615850854_sp, &
159+
1.04120572522889689448533090398996145_sp), &
160+
(2.06742299986664055388985161698656149_sp, &
161+
0.723668357086202707062483341360348315_sp), &
162+
(0.852514651480446872255924972705542983_sp, &
163+
0.789043817146060844081034701957833041_sp), &
164+
(1.09098446025458177821576555288629603_sp, &
165+
1.48569478096399141264782883808948111_sp), &
166+
(4.29633077423243321391055360436439499_sp, &
167+
0.338216396454583145825267820328008412_sp), &
168+
(0.340462754402863337910289942556119029_sp, &
169+
0.172319442815022222381671213042864120_sp), &
170170
(6.932352666201882229746189523211795805E-0002_sp, &
171171
6.742518436285274002761624956292507704E-0002_sp), &
172-
(1.03231628501970258415809666985296648_sp, &
173-
0.421413014732743429480166241773986277_sp)]
172+
(1.03231628501970258415809666985296648_sp, &
173+
0.421413014732743429480166241773986277_sp)]
174174

175175
print *, "Test exponential_distribution_rvs_csp"
176176
seed = 593742186
@@ -189,25 +189,25 @@ subroutine test_expon_rvs_cdp
189189
integer :: i, n, k = 5
190190
integer :: seed, get
191191
complex(dp) :: ans(10) = [(0.640164505354053137153869101894088070_dp, &
192-
0.268204995991944639133208738712710328_dp), &
192+
0.268204995991944639133208738712710328_dp), &
193193
(0.141667583643866407117073435983911608_dp, &
194-
2.60843818343998017361684560455614716_dp), &
195-
(0.116705911955157926040982374615850854_dp, &
196-
1.04120572522889689448533090398996145_dp), &
197-
(2.06742299986664055388985161698656149_dp, &
198-
0.723668357086202707062483341360348315_dp), &
199-
(0.852514651480446872255924972705542983_dp, &
200-
0.789043817146060844081034701957833041_dp), &
201-
(1.09098446025458177821576555288629603_dp, &
202-
1.48569478096399141264782883808948111_dp), &
203-
(4.29633077423243321391055360436439499_dp, &
204-
0.338216396454583145825267820328008412_dp), &
205-
(0.340462754402863337910289942556119029_dp, &
206-
0.172319442815022222381671213042864120_dp), &
194+
2.60843818343998017361684560455614716_dp), &
195+
(0.116705911955157926040982374615850854_dp, &
196+
1.04120572522889689448533090398996145_dp), &
197+
(2.06742299986664055388985161698656149_dp, &
198+
0.723668357086202707062483341360348315_dp), &
199+
(0.852514651480446872255924972705542983_dp, &
200+
0.789043817146060844081034701957833041_dp), &
201+
(1.09098446025458177821576555288629603_dp, &
202+
1.48569478096399141264782883808948111_dp), &
203+
(4.29633077423243321391055360436439499_dp, &
204+
0.338216396454583145825267820328008412_dp), &
205+
(0.340462754402863337910289942556119029_dp, &
206+
0.172319442815022222381671213042864120_dp), &
207207
(6.932352666201882229746189523211795805E-0002_dp, &
208208
6.742518436285274002761624956292507704E-0002_dp), &
209-
(1.03231628501970258415809666985296648_dp, &
210-
0.421413014732743429480166241773986277_dp)]
209+
(1.03231628501970258415809666985296648_dp, &
210+
0.421413014732743429480166241773986277_dp)]
211211

212212
print *, "Test exponential_distribution_rvs_cdp"
213213
seed = 593742186
@@ -226,25 +226,25 @@ subroutine test_expon_rvs_cqp
226226
integer :: i, n, k = 5
227227
integer :: seed, get
228228
complex(qp) :: ans(10) = [(0.640164505354053137153869101894088070_qp, &
229-
0.268204995991944639133208738712710328_qp), &
229+
0.268204995991944639133208738712710328_qp), &
230230
(0.141667583643866407117073435983911608_qp, &
231-
2.60843818343998017361684560455614716_qp), &
232-
(0.116705911955157926040982374615850854_qp, &
233-
1.04120572522889689448533090398996145_qp), &
234-
(2.06742299986664055388985161698656149_qp, &
235-
0.723668357086202707062483341360348315_qp), &
236-
(0.852514651480446872255924972705542983_qp, &
237-
0.789043817146060844081034701957833041_qp), &
238-
(1.09098446025458177821576555288629603_qp, &
239-
1.48569478096399141264782883808948111_qp), &
240-
(4.29633077423243321391055360436439499_qp, &
241-
0.338216396454583145825267820328008412_qp), &
242-
(0.340462754402863337910289942556119029_qp, &
243-
0.172319442815022222381671213042864120_qp), &
231+
2.60843818343998017361684560455614716_qp), &
232+
(0.116705911955157926040982374615850854_qp, &
233+
1.04120572522889689448533090398996145_qp), &
234+
(2.06742299986664055388985161698656149_qp, &
235+
0.723668357086202707062483341360348315_qp), &
236+
(0.852514651480446872255924972705542983_qp, &
237+
0.789043817146060844081034701957833041_qp), &
238+
(1.09098446025458177821576555288629603_qp, &
239+
1.48569478096399141264782883808948111_qp), &
240+
(4.29633077423243321391055360436439499_qp, &
241+
0.338216396454583145825267820328008412_qp), &
242+
(0.340462754402863337910289942556119029_qp, &
243+
0.172319442815022222381671213042864120_qp), &
244244
(6.932352666201882229746189523211795805E-0002_qp, &
245245
6.742518436285274002761624956292507704E-0002_qp), &
246-
(1.03231628501970258415809666985296648_qp, &
247-
0.421413014732743429480166241773986277_qp)]
246+
(1.03231628501970258415809666985296648_qp, &
247+
0.421413014732743429480166241773986277_qp)]
248248

249249
print *, "Test exponential_distribution_rvs_cqp"
250250
seed = 593742186
@@ -335,10 +335,10 @@ subroutine test_expon_pdf_csp
335335
integer :: seed, get
336336
real :: res(3,5)
337337
real :: ans(15) = [0.386471182, 0.386471182,0.386471182,2.79592793E-03, &
338-
4.01333207E-03, 0.317740440, 0.385551631, &
339-
5.02163777E-03, 0.372386932, 6.09764457E-03, &
340-
0.273956627, 0.407586545, 1.59074657E-03, &
341-
0.136133000, 0.399842113]
338+
4.01333207E-03, 0.317740440, 0.385551631, &
339+
5.02163777E-03, 0.372386932, 6.09764457E-03, &
340+
0.273956627, 0.407586545, 1.59074657E-03, &
341+
0.136133000, 0.399842113]
342342

343343
print *, "Test exponential_distribution_pdf_csp"
344344
seed = 123987654
@@ -358,10 +358,10 @@ subroutine test_expon_pdf_cdp
358358
integer :: seed, get
359359
real :: res(3,5)
360360
real :: ans(15) = [0.386471182, 0.386471182,0.386471182,2.79592793E-03, &
361-
4.01333207E-03, 0.317740440, 0.385551631, &
362-
5.02163777E-03, 0.372386932, 6.09764457E-03, &
363-
0.273956627, 0.407586545, 1.59074657E-03, &
364-
0.136133000, 0.399842113]
361+
4.01333207E-03, 0.317740440, 0.385551631, &
362+
5.02163777E-03, 0.372386932, 6.09764457E-03, &
363+
0.273956627, 0.407586545, 1.59074657E-03, &
364+
0.136133000, 0.399842113]
365365

366366
print *, "Test exponential_distribution_pdf_cdp"
367367
seed = 123987654
@@ -381,10 +381,10 @@ subroutine test_expon_pdf_cqp
381381
integer :: seed, get
382382
real :: res(3,5)
383383
real :: ans(15) = [0.386471182, 0.386471182,0.386471182,2.79592793E-03, &
384-
4.01333207E-03, 0.317740440, 0.385551631, &
385-
5.02163777E-03, 0.372386932, 6.09764457E-03, &
386-
0.273956627, 0.407586545, 1.59074657E-03, &
387-
0.136133000, 0.399842113]
384+
4.01333207E-03, 0.317740440, 0.385551631, &
385+
5.02163777E-03, 0.372386932, 6.09764457E-03, &
386+
0.273956627, 0.407586545, 1.59074657E-03, &
387+
0.136133000, 0.399842113]
388388

389389
print *, "Test exponential_distribution_pdf_cqp"
390390
seed = 123987654
@@ -474,9 +474,9 @@ subroutine test_expon_cdf_csp
474474
integer :: seed, get
475475
real :: res(3,5)
476476
real :: ans(15) = [0.176930442, 0.176930442, 0.176930442,5.98644912E-02,&
477-
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
478-
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
479-
0.914170802, 0.370377690, 0.793968141]
477+
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
478+
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
479+
0.914170802, 0.370377690, 0.793968141]
480480

481481
print *, "Test exponential_distribution_cdf_csp"
482482
seed = 621957438
@@ -497,9 +497,9 @@ subroutine test_expon_cdf_cdp
497497
integer :: seed, get
498498
real :: res(3,5)
499499
real :: ans(15) = [0.176930442, 0.176930442, 0.176930442,5.98644912E-02,&
500-
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
501-
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
502-
0.914170802, 0.370377690, 0.793968141]
500+
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
501+
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
502+
0.914170802, 0.370377690, 0.793968141]
503503

504504
print *, "Test exponential_distribution_cdf_cdp"
505505
seed = 621957438
@@ -520,9 +520,9 @@ subroutine test_expon_cdf_cqp
520520
integer :: seed, get
521521
real :: res(3,5)
522522
real :: ans(15) = [0.176930442, 0.176930442, 0.176930442,5.98644912E-02,&
523-
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
524-
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
525-
0.914170802, 0.370377690, 0.793968141]
523+
0.981560826, 0.135309443, 0.617795825,7.55468532E-02,&
524+
0.118341751, 0.484595388, 0.794088185, 0.912919402, &
525+
0.914170802, 0.370377690, 0.793968141]
526526

527527
print *, "Test exponential_distribution_cdf_cqp"
528528
seed = 621957438

0 commit comments

Comments
 (0)