      INTEGER        N_AE_EMIS
      PARAMETER     (N_AE_EMIS = 0)
      INTEGER        N_AE_EMISD
      PARAMETER     (N_AE_EMISD = 1)
      CHARACTER*16   AE_EMIS(N_AE_EMISD)
      INTEGER        AE_EMIS_MAP(N_AE_EMISD)
      REAL           AE_EMIS_FAC(N_AE_EMISD)
