| Type | Intent | Optional | Attributes | Name | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
private function fn(x)Arguments
Return Value real(kind=rk) |
||||||||||||||||||||
| integer | :: | n | ||||||||||||||||||
| real(kind=rk) | :: | start(n) | ||||||||||||||||||
| real(kind=rk) | :: | xmin(n) | ||||||||||||||||||
| real(kind=rk) | :: | ynewlo | ||||||||||||||||||
| real(kind=rk) | :: | reqmin | ||||||||||||||||||
| real(kind=rk) | :: | step(n) | ||||||||||||||||||
| integer | :: | konvge | ||||||||||||||||||
| integer | :: | kcount | ||||||||||||||||||
| integer | :: | icount | ||||||||||||||||||
| integer | :: | numres | ||||||||||||||||||
| integer | :: | ifault | ||||||||||||||||||
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | private, | parameter | :: | ccoeff | = | 0.5D+00 | |
| real(kind=rk), | private | :: | del | ||||
| real(kind=rk), | private, | parameter | :: | ecoeff | = | 2.0D+00 | |
| real(kind=rk), | private, | parameter | :: | eps | = | 0.001D+00 | |
| integer, | private | :: | i | ||||
| integer, | private | :: | ihi | ||||
| integer, | private | :: | ilo | ||||
| integer, | private | :: | j | ||||
| integer, | private | :: | jcount | ||||
| integer, | private | :: | l | ||||
| real(kind=rk), | private | :: | p(n,n+1) | ||||
| real(kind=rk), | private | :: | p2star(n) | ||||
| real(kind=rk), | private | :: | pbar(n) | ||||
| real(kind=rk), | private | :: | pstar(n) | ||||
| real(kind=rk), | private, | parameter | :: | rcoeff | = | 1.0D+00 | |
| integer, | private, | parameter | :: | rk | = | kind(1.0D+00) | |
| real(kind=rk), | private | :: | rq | ||||
| real(kind=rk), | private | :: | x | ||||
| real(kind=rk), | private | :: | y(n+1) | ||||
| real(kind=rk), | private | :: | y2star | ||||
| real(kind=rk), | private | :: | ylo | ||||
| real(kind=rk), | private | :: | ystar | ||||
| real(kind=rk), | private | :: | z |