C                                           *--> FROM COMMON.FXSCTN
      COMMON/FXSCTN/CKARAY(111),XAREA(110)
C