










      INTEGER      IMPNUA, IMPTAT
      PARAMETER    (IMPTAT=MAXTAT)
      PARAMETER    (IMPNUA=NUMUA)

      REAL         IMPAVE(IMPTAT,IMPNUA), IMPSIG(IMPTAT,IMPNUA),
     +             IMPTOA, IMPTOS

      COMMON /IMPRO1/ IMPAVE, IMPSIG, IMPTOA, IMPTOS
