| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer, | parameter | :: | nModes | = | 30 | |
| integer, | parameter | :: | nPoints | = | nModes | |
| integer, | parameter | :: | nOps | = | nModes**2 | |
| real(kind=rk), | parameter | :: | tolerance | = | nOps*epsilon(1.0_rk) | |
| logical | :: | success | ||||
| logical | :: | matching_right | ||||
| logical | :: | matching_left | ||||
| integer | :: | iMode | ||||
| integer | :: | iPoint | ||||
| real(kind=rk) | :: | parentval | ||||
| real(kind=rk) | :: | childval | ||||
| real(kind=rk) | :: | parentmode(nModes) | ||||
| real(kind=rk) | :: | childmode(nModes) | ||||
| real(kind=rk) | :: | legparent(nModes,nPoints) | ||||
| real(kind=rk) | :: | legchild(nModes,nPoints) | ||||
| real(kind=rk) | :: | xi(nPoints) | ||||
| real(kind=rk) | :: | x(nPoints) | ||||
| real(kind=rk) | :: | split_matrix(nModes,nModes) |