Language mixing - COMMON


The following FORTRAN code declares and initialises a FORTRAN COMMON.
      SUBROUTINE INIEVT()

      COMMON/EVENT/XYZ,PXYZ

      REAL XYZ(3,1000), PXYZ(3,1000)

      DO 100 I=1,1000
         XYZ(1,I) = I
         XYZ(2,I) = I
         XYZ(3,I) = I
         PXYZ(1,I) = I
         PXYZ(2,I) = I
         PXYZ(3,I) = I
 100  CONTINUE

      PRINT*,XYZ(1,1),XYZ(2,1),XYZ(3,1)

      RETURN
      END