pvm_parent - Returns the tid of the process that spawned the calling process.

       The  routine  pvm_parent  returns the tid of the process that spawned the calling process. If the calling
       process was not created with pvm_spawn, then tid is set to PvmNoParent.

       This error condition can be returned by pvm_parent.

       PvmNoParent
              The calling process was not created with pvm_spawn.

       PvmSysErr
              Can't contact local pvmd.

       C:
            tid = pvm_parent();

       Fortran:
            CALL PVMFPARENT( TID )

       pvm_parent - Returns the tid of the process that spawned the calling process.

       tid     Integer returns the task identifier of the parent of the calling process.  If the calling process
               was not created with pvm_spawn, then tid = PvmNoParent.

                                                 30 August, 1993                                    PARENT(3PVM)

Cinttid=pvm_parent(void)Fortrancallpvmfparent(tid)