INTEGER, PARAMETER :: imaxmissions=8
   CHARACTER(len=3) :: cmissions(0:imaxmissions) = &
      & (/ 'XXX', 'E1 ', 'E2 ', 'TP ', 'TPM', 'G2 ', 'J1 ', 'EN ', 'J2 ' /)