Copy-Paste this Fortran text into some file named
globals.inc
real x, y dimension x(14) common /cc/x,y