| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(out), | dimension(no_roots) | :: | weights |
subroutine gauss_laguerre_30_weights(weights)
real(dp), dimension(no_roots), intent(out):: weights
weights = (/1.160440860204388913d-01,&
2.208511247506771413d-01,&
2.413998275878537214d-01,&
1.946367684464170855d-01,&
1.237284159668764899d-01,&
6.367878036898660943d-02,&
2.686047527337972682d-02,&
9.338070881603925677d-03,&
2.680696891336819664d-03,&
6.351291219408556439d-04,&
1.239074599068830081d-04,&
1.982878843895233056d-05,&
2.589350929131392509d-06,&
2.740942840536013206d-07,&
2.332831165025738197d-08,&
1.580745574778327984d-09,&
8.427479123056716393d-11,&
3.485161234907855443d-12,&
1.099018059753451500d-13,&
2.588312664959080167d-15,&
4.437838059840028968d-17,&
5.365918308212045344d-19,&
4.393946892291604451d-21,&
2.311409794388543236d-23,&
7.274588498292248063d-26,&
1.239149701448267877d-28,&
9.832375083105887477d-32,&
2.842323553402700938d-35,&
1.878608031749515392d-39,&
8.745980440465011553d-45/)
end subroutine gauss_laguerre_30_weights