| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rprec), | public, | parameter | :: | fturnon_axis | = | 3.e-9_dp | |
| real(kind=rprec), | public, | parameter | :: | fopt_axis | = | 3.e-2_dp*fturnon_axis | |
| integer, | public, | parameter | :: | isamecoil | = | -2 | |
| integer, | public, | parameter | :: | needit | = | -1 | |
| integer, | public, | parameter | :: | idontneed | = | 0 | |
| integer, | public, | parameter | :: | isymcoil | = | 1 | |
| integer, | public, | parameter | :: | ithom0 | = | 1 | |
| integer, | public, | parameter | :: | istark0 | = | 2 | |
| integer, | public, | parameter | :: | islope0 | = | 3 | |
| integer, | public, | parameter | :: | icurr0 | = | 4 | |
| integer, | public, | parameter | :: | idiam0 | = | 5 | |
| integer, | public, | parameter | :: | iflxs0 | = | 6 | |
| integer, | public, | parameter | :: | ibrzfld | = | 7 | |
| integer, | public, | parameter | :: | natur | = | 0 | |
| integer, | public, | parameter | :: | ideriv | = | 1 | |
| integer, | public, | parameter | :: | intder | = | 1 | |
| integer, | public, | parameter | :: | intfun | = | 2 | |
| integer, | public, | parameter | :: | nmse | = | 100 | |
| integer, | public, | parameter | :: | ntse | = | 100 | |
| integer, | public, | parameter | :: | nfloops | = | 100 | |
| integer, | public, | parameter | :: | nbsetsp | = | 5 | |
| integer, | public, | parameter | :: | nbcoilsp | = | 100 | |
| integer, | public, | parameter | :: | nbctotp | = | nbsetsp*nbcoilsp | |
| integer, | public, | parameter | :: | jngrn | = | 1001 | |
| integer, | public, | parameter | :: | jchix | = | 7 | |
| integer, | public, | parameter | :: | mstp | = | 100 | |
| integer, | public, | parameter | :: | jchix1 | = | jchix+1 | |
| integer, | public, | parameter | :: | nparts | = | 4 | |
| integer, | public, | parameter | :: | npfcoil | = | 40 | |
| integer, | public, | parameter | :: | nigroup | = | 100 | |
| integer, | public, | parameter | :: | ipedsvd | = | 8 |