This program calculates the critical temperature of a one-dimensional superconducting structure.
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(structure) | :: | stack | ||||
| integer, | parameter | :: | bisections | = | 20 | |
| integer, | parameter | :: | bootstraps | = | 10 | |
| integer, | parameter | :: | iterations | = | 10 | |
| real(kind=wp), | parameter | :: | threshold | = | 1e-08_wp | |
| real(kind=wp), | parameter | :: | initgap | = | 1e-02_wp | |
| real(kind=wp) | :: | minimum | = | 0.00_wp | ||
| real(kind=wp) | :: | maximum | = | 1.00_wp | ||
| real(kind=wp) | :: | critical | = | 0.50_wp | ||
| integer | :: | n | = | 0 |