| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NBeams | ||||
| integer, | public | :: | Nimage | ||||
| integer, | public | :: | Nsteps | ||||
| integer, | public | :: | iBeamWindow | ||||
| real(kind=8), | public | :: | deltas | ||||
| real(kind=8), | public | :: | epsMultiplier | = | 1 | ||
| real(kind=8), | public | :: | rLoop | ||||
| character(len=1), | public | :: | Component | ||||
| character(len=4), | public | :: | Type | = | 'G S ' | ||
| character(len=7), | public | :: | RunType | ||||
| type(rxyz), | public | :: | Box |
TYPE BeamStructure INTEGER :: NBeams, Nimage, Nsteps, iBeamWindow REAL (KIND=8) :: deltas, epsMultiplier = 1, rLoop CHARACTER (LEN=1) :: Component ! Pressure or displacement CHARACTER (LEN=4) :: Type = 'G S ' CHARACTER (LEN=7) :: RunType TYPE( rxyz ) :: Box END TYPE BeamStructure