C                                           *--> FROM COMMON.XCO26
      COMMON/XCO26/ICOPOS(20),LASTCO,ISAVCO,NUMCOV,ADJCO(2,10)
C