C                                           *--> FROM COMMON.EYRWT
      COMMON/EYRWT/YRWT(50),MAXYR,IYRWT
C