! $Id$
!
! Copyright 1989-2016 MINES ParisTech
!
! This file is part of PIPS.
!
! PIPS is free software: you can redistribute it and/or modify it
! under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! any later version.
!
! PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
! WARRANTY; without even the implied warranty of MERCHANTABILITY or
! FITNESS FOR A PARTICULAR PURPOSE.
!
! See the GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
!
! COMMON /HPFC GLOBS/
!
! $Id$
!
      common /HPFC GLOBS/
     $     OWNER TID,
     $     OWNERLID,
     $     OPN,
     $     OINDP(7),
     $     OREPLICATED,
     $     SENDER TID,
     $     SENDERLID,
     $     COMPUTER TID,
     $     COMPUTERLID,
     $     CPN,
     $     CINDP(7),
     $     CPOS(7),
     $     CPOSPN,
     $     CPOS COMPUTED,
     $     NEIGHBORLID,
     $     NTID
!
      integer 
     $     OWNER TID,    OWNERLID, OPN, OINDP,
     $     SENDER TID,   SENDERLID,
     $     COMPUTER TID, COMPUTERLID, CPN, CINDP, CPOS, CPOSPN,
     $     NEIGHBORLID, N TID
!
      logical
     $     O REPLICATED, CPOS COMPUTED
!
!
! that s all
!