integer(kind=4), parameter :: class_sec_her_id=-20 integer(kind=4), parameter :: class_sec_her_len=96 type class_herschel_t integer(kind=8) :: obsid ! 1- 2 [----] Observation id character(len=8) :: instrument ! 3- 4 [str ] Instrument name character(len=24) :: proposal ! 5-10 [str ] Proposal name character(len=68) :: aor ! 11-27 [str ] Astronomical Observation Request integer(kind=4) :: operday ! 28 [day ] Operational day number character(len=28) :: dateobs ! 29-35 [str ] Start date (ISO date) character(len=28) :: dateend ! 36-42 [str ] End date (ISO date) character(len=40) :: obsmode ! 43-52 [str ] Observing mode real(kind=4) :: vinfo ! 53 [km/s] Informative source velocity in LSR frame real(kind=4) :: zinfo ! 54 [----] Informative target redshift real(kind=8) :: posangle ! 55-56 [rad ] Spacecraft pointing position angle real(kind=8) :: reflam ! 57-58 [rad ] Sky reference (a.k.a. OFF), lambda coordinate real(kind=8) :: refbet ! 59-60 [rad ] Sky reference (a.k.a. OFF), beta coordinate real(kind=8) :: hifavelam ! 61-62 [rad ] ON average H and V coordinate (HIFI), lambda coordinate real(kind=8) :: hifavebet ! 63-64 [rad ] ON average H and V coordinate (HIFI), beta coordinate real(kind=4) :: etamb ! 65 [----] Main beam efficiency used when applying doAntennaTemp real(kind=4) :: etal ! 66 [----] Forward efficiency used when applying doAntennaTemp real(kind=4) :: etaa ! 67 [----] Telescope aperture efficiency real(kind=4) :: hpbw ! 68 [rad ] Azimuthally-averaged half-power beam width character(len=8) :: tempscal ! 69-70 [str ] Temperature scale in use real(kind=8) :: lodopave ! 71-72 [MHz ] Average LO frequency Doppler corrected to freqFrame (SPECSYS) real(kind=4) :: gim0 ! 73 [----] Sideband gain polynomial coeff 0 applied real(kind=4) :: gim1 ! 74 [----] Sideband gain polynomial coeff 1 applied real(kind=4) :: gim2 ! 75 [----] Sideband gain polynomial coeff 2 applied real(kind=4) :: gim3 ! 76 [----] Sideband gain polynomial coeff 3 applied real(kind=4) :: mixercurh ! 77 [mA ] Calibrated mixer junction current, horizontal real(kind=4) :: mixercurv ! 78 [mA ] Calibrated mixer junction current, vertical character(len=28) :: datehcss ! 79-85 [str ] Processing date (ISO date) character(len=24) :: hcssver ! 86-91 [str ] HCSS version character(len=16) :: calver ! 92-95 [str ] Calibration version real(kind=4) :: level ! 96 [----] Pipeline level end type class_herschel_t