|
integer, parameter | vacuum_input::vacuum_max_currents = 1000 |
| Maximum number of diagnostic signals.
|
|
character(len=path_length) | vacuum_input::coils_dot_file = '' |
| File name for vacuum namelist input.
|
|
integer | vacuum_input::n_extcur = 0 |
| Number of external currents.
|
|
real(rprec), dimension(vacuum_max_currents) | vacuum_input::extcur = 0.0 |
| External currents.
|
|
real(rprec), dimension(vacuum_max_currents, 3) | vacuum_input::cg_shift_1 = 0.0 |
| Vector to shift all the coils. (Before rotation)
|
|
real(rprec), dimension(vacuum_max_currents) | vacuum_input::cg_rot_theta = 0.0 |
| Spherical polar angle to specify axis of rotation.
|
|
real(rprec), dimension(vacuum_max_currents) | vacuum_input::cg_rot_phi = 0.0 |
| Spherical azimuthal angle to specify axis of rotation.
|
|
real(rprec), dimension(vacuum_max_currents) | vacuum_input::cg_rot_angle = 0.0 |
| Angle to rotate about axis of rotation. NB - LEFT HAND convention. Put left thumb along axis of rotation, fingers indicate direction of positive rotation.
|
|
real(rprec), dimension(vacuum_max_currents, 3) | vacuum_input::cg_rot_xcent = 0.0 |
| Position of center of rotation.
|
|
logical, dimension(vacuum_max_currents) | vacuum_input::l_rot_coil_center = .false. |
|
real(rprec), dimension(vacuum_max_currents, 3) | vacuum_input::cg_shift_2 = 0.0 |
| Vector to shift all the coils. (After rotation)
|
|
Contains module vacuum_input.