! --------------------------------------------------------------  !
     subroutine x_riflg_p(msgtype)
! -------------------------------------------------------------- !
! Purpose: This subroutine receives initialization flag from parent 
! -------------------------------------------------------------- !
     use x_gpvm_p

     implicit none

     include 'fpvm3.h'
     integer :: msgtype
     integer :: igo

     call pvmfrecv( mptid, msgtype, info )
     call pvmfunpack( integer4, igo, 1, 1, info )
     end