C                                            *--> FROM COMMON.EA
      COMMON/EA/MA,A(5000)
C