This program calculates the current-phase relation of a one-dimensional superconducting structure.
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(structure) | :: | stack | ||||
| type(superconductor), | target | :: | sa | |||
| type(superconductor), | target | :: | sb | |||
| real(kind=wp), | parameter | :: | threshold | = | 1e-2 | |
| real(kind=wp), | parameter | :: | tolerance | = | 1e-8 | |
| integer, | parameter | :: | iterations | = | 51 | |
| real(kind=wp), | dimension(:), allocatable | :: | phase | |||
| real(kind=wp), | dimension(:), allocatable | :: | current | |||
| real(kind=wp) | :: | critical | ||||
| integer | :: | n | ||||
| integer | :: | m |