C C Common variables C DOUBLE PRECISION X(0:NBP1), Y(0:NBP1) C COMMON / GRID / X, Y C