! --------------------------------------------------------------  !
     subroutine x_siflg_p(msgtype)
! -------------------------------------------------------------- !
! Purpose: This subroutine sends initialization flag back to
!          parent. 
! -------------------------------------------------------------- !
     use x_gpvm_p

     implicit none
     integer :: msgtype
     include 'fpvm3.h'

     call pvmfinitsend( pvmdefault, info )
     call pvmfpack( integer4, me, 1, 1, info )
     call pvmfsend( mptid, msgtype, info )

     end