C
C     Common variables
C
      DOUBLE PRECISION    F(0:NBP1,0:NBP1,2)
C
      COMMON / FORCE  /   F
C