copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%

      subroutine bcphyp 1
      implicit none
*
#include "maxdim.cdk"
#include "physnml.cdk"
#include "serinml.cdk"
#include "yomdyn.cdk"
      include "mpif.h"
*
      integer nw,fact,ierr
      integer bidon(2), l2, l1
*------------------------------------------------------------------
      l2 = loc(bidon(2))
      l1 = loc(bidon(1))
      fact = l2 - l1
*
      call RPN_COMM_bcst_world ( physn_c_first, physn_c_last, 0 )
      call RPN_COMM_bcst_world (  seri_c_first,  seri_c_last, 0 )
*
      l2 = loc(endphyni)
      l1 = loc(kntrad  )
      nw = ( l2 - l1 ) / fact
      call MPI_bcast (kntrad    ,nw,MPI_INTEGER,0,MPI_COMM_WORLD,ierr )
      l2 = loc(endserii)
      l1 = loc(statij  )
      nw = ( l2 - l1 ) / fact
      call MPI_bcast (statij    ,nw,MPI_INTEGER,0,MPI_COMM_WORLD,ierr )
c      l2 = loc(enddiagi)
c      l1 = loc(statijd )
c      nw = ( l2 - l1 ) / fact
c      call MPI_bcast (statijd   ,nw,MPI_INTEGER,0,MPI_COMM_WORLD,ierr )
*
      l2 = loc(endphynr )
      l1 = loc(hcad     )
      nw = ( l2 - l1 ) / fact
      call MPI_bcast (hcad      ,nw,MPI_REAL   ,0,MPI_COMM_WORLD,ierr )
      l2 = loc(endserir )
      l1 = loc(statll   )
      nw = ( l2 - l1 ) / fact
      call MPI_bcast (statll    ,nw,MPI_REAL   ,0,MPI_COMM_WORLD,ierr )
c      l2 = loc(enddiagr )
c      l1 = loc(statlld  )
c      nw = ( l2 - l1 ) / fact
c      call MPI_bcast (statlld   ,nw,MPI_REAL   ,0,MPI_COMM_WORLD,ierr )
*
      l2 = loc(endphynl )
      l1 = loc(dbgmem   )
      nw = ( l2 - l1 ) / fact
      call MPI_bcast (dbgmem   ,nw,MPI_LOGICAL  ,0,MPI_COMM_WORLD,ierr )
c      l2 = loc(enddiagl )
c      l1 = loc(diagzon  )
c      nw = ( l2 - l1 ) / fact
c      call MPI_bcast (diagzon  ,nw,MPI_LOGICAL  ,0,MPI_COMM_WORLD,ierr )
      call MPI_bcast (go4it    ,1 ,MPI_LOGICAL  ,0,MPI_COMM_WORLD,ierr )
*
*------------------------------------------------------------------
      return
      end