! Section -8 ! SWITCH: Switching information (for spectra). integer mxphas integer mfsw parameter (mxphas=8,mfsw=2+6*mxphas) type fswitch sequence integer(kind=4) :: nphas ! [ ] Number of phases real(kind=8) :: decal(mxphas) ! [ MHz] Frequency offsets real(kind=4) :: duree(mxphas) ! [ s] Time per phase real(kind=4) :: poids(mxphas) ! [ ] Weight of each phase integer(kind=4) :: swmod ! [code] Switching mode (frequency, position...) real(kind=4) :: ldecal(mxphas) ! [ rad] Lambda offsets real(kind=4) :: bdecal(mxphas) ! [ rad] Beta offsets of each phase end type fswitch