| 1419 |
|
! The original Fortran77 codes can be found here: |
| 1420 |
|
! http://iris-lee3.ece.uiuc.edu/~jjin/routines/routines.html |
| 1421 |
|
|
| 1422 |
< |
real(kind=8), intent(in) :: x |
| 1422 |
> |
real(kind=dp), intent(in) :: x |
| 1423 |
|
integer, intent(in):: m, mmax |
| 1424 |
|
integer, intent(in):: function_type |
| 1425 |
< |
real(kind=8), dimension(0:mmax), intent(inout) :: pl, dpl |
| 1425 |
> |
real(kind=dp), dimension(0:mmax), intent(inout) :: pl, dpl |
| 1426 |
|
|
| 1427 |
< |
real(kind=8) :: a, b, c, y0, y1, dy0, dy1, yn, dyn |
| 1427 |
> |
real(kind=dp) :: a, b, c, y0, y1, dy0, dy1, yn, dyn |
| 1428 |
|
integer :: k |
| 1429 |
|
|
| 1430 |
|
A = 2.0_DP |
