DIMENSION CLOSE9(1000),XMIN9(1000),XMAX9(1000)
      COMMON/NEAR9/CLOSE9,XMIN9,XMAX9