C
C -- inc_cpl.h   1998-04
C    **********
C@
C@  Contents : variables describing pipe and field names
C@  --------
C@
C@ -- cl_write  : for fields to write
C@
C@ -- cl_read  : for fields to read
C@
C     -------------------------------------------------------------------
C
      INTEGER jpread, jpwrit
      PARAMETER (jpread=0, jpwrit=1)
      CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld)
      CHARACTER*6 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
      COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
C     -------------------------------------------------------------------