C-----THIS IS COMMON/INCLUDE FILE DPCOSO.INC-----
C     THIS IS COMMON FOR SUBFILE I/O SUBROUTINE (DPSYO3)
C
      COMMON /IBUFCO/IBUF(504)
C