      INTEGER        N_NR_EMIS
      PARAMETER     (N_NR_EMIS = 0)
      INTEGER        N_NR_EMISD
      PARAMETER     (N_NR_EMISD = 1)
      CHARACTER*16   NR_EMIS(N_NR_EMISD)
      INTEGER        NR_EMIS_MAP(N_NR_EMISD)
      REAL           NR_EMIS_FAC(N_NR_EMISD)
      
