## Calibration parameters

      ! CALIBRATION: Calibration parameters.
      integer(kind=4), parameter :: class_sec_cal_id=-14
      integer(kind=4), parameter :: class_sec_cal_len=25
      type calib
         sequence
         real(kind=4)    :: beeff    ! [     ] Beam efficiency
         real(kind=4)    :: foeff    ! [     ] Forward efficiency
         real(kind=4)    :: gaini    ! [     ] Image/Signal gain ratio
         real(kind=4)    :: h2omm    ! [   mm] Water vapor content
         real(kind=4)    :: pamb     ! [  hPa] Ambient pressure
         real(kind=4)    :: tamb     ! [    K] Ambient temperature
         real(kind=4)    :: tatms    ! [    K] Atmosphere temp. in signal band
         real(kind=4)    :: tchop    ! [    K] Chopper temperature
         real(kind=4)    :: tcold    ! [    K] Cold load temperature
         real(kind=4)    :: taus     ! [neper] Opacity in signal band
         real(kind=4)    :: taui     ! [neper] Opacity in image band
         real(kind=4)    :: tatmi    ! [    K] Atmosphere temp. in image band
         real(kind=4)    :: trec     ! [    K] Receiver temperature
         integer(kind=4) :: cmode    ! [ code] Calibration mode
         real(kind=4)    :: atfac    ! [     ] Applied calibration factor
         real(kind=4)    :: alti     ! [    m] Site elevation
         real(kind=4)    :: count(3) ! [count] Power of Atm., Chopp., Cold
         real(kind=4)    :: lcalof   ! [  rad] Longitude offset for sky measurement
         real(kind=4)    :: bcalof   ! [  rad] Latitude offset for sky measurement
         real(kind=8)    :: geolong  ! [  rad] Geographic longitude of observatory
         real(kind=8)    :: geolat   ! [  rad] Geographic latitude of observatory
      end type calib