C  Header file for nb2mode.fcm .  See that file for
C  explanation.

      integer, parameter:: N = 64
      real, array(1:N, 1:N, 1:3) :: X0, X1, V0, V1, MI, GJ
CMPF  ONDPU X0, X1, V0, V1, MI, GJ
CMF$  LAYOUT X0(,,), X1(,,), V0(,,), V1(,,), MI(,,), GJ(,,)
      COMMON /NBODYPE/ X0, X1, V0, V1, MI, GJ
      integer, array(1:N, 1:N, 1:3) :: c, i, j
CMPF  ONDPU c, i, j
CMF$  LAYOUT c(,,), i(,,), j(,,)
      COMMON /NBODYPE/ c, i, j
      logical, array(1:N, 1:N, 1:3) :: diag, actv
CMPF  ONDPU diag, actv
CMF$  LAYOUT diag(,,), actv(,,)
      COMMON /NBODYPE/ diag, actv
      integer NB
      COMMON /NBODYFE/ NB
      real G
      COMMON /NBODYFE/ G