C This common block is "included" in the source at four points,
C eliminating the need to type it four times.

      REAL A(5,5)
      COMMON /MATRIX/ A