!
! $Header$
!
C
C -- inc_sipc.h   97-08-11   Version 2.0   Author: S&A
C    **********
C@
C@  Contents : variables describing pools formed of shared memory segments 
C@  --------
C@
C@ -- mpoolinit(r/w) : handles associated to model pools for passing initial info
C@
C@ -- mpoolwrit : handles associated to pools used to pass fields exchanged 
C@               from model to coupler (see libsipc/SIPC_Write_Model.f)
C@
C@ -- mpoolread : handles associated to pools used to pass fields exchanged
C@               from model to coupler (see libsipc/SIPC_Read_Model.f) 
C@ 
C     -------------------------------------------------------------------
C
      INTEGER  mpoolinitr
      INTEGER  mpoolinitw
      INTEGER  mpoolwrit(jpmaxfld)
      INTEGER  mpoolread(jpmaxfld)
      COMMON / compool / mpoolinitr, mpoolinitw, mpoolwrit, mpoolread
C     -------------------------------------------------------------------
