subroutine bi_f77_init()
      integer ierr
      call mpi_init(ierr)
      return
      end