c
      include 'mpif.h'
      integer masterid,mpmyid,mpnproc,mperr,nx,ny,icall
      parameter (masterid=0)
      logical master, slave
      character*80 dscopt,bext,ext
      common /mpics/ dscopt,bext,ext
      common /mpiis/ mpmyid,mpnproc,mperr,nx,ny,icall
      common /mpils/ master,slave