C******************************************************************************
C 			    PVM TEMPLATE CODES 
C FILE: hello.worker.f
C OTHER FILES: hello.master.f  make.hello.f
C DESCRIPTION: Trivial PVM example - worker program. Fortran version
C PVM VERSION: 2.4.2
C AUTHOR: Blaise Barney
C LAST REVISED: 6/27/93 bbarney  for 2.4.2
C******************************************************************************

      program hello_worker

      parameter(HELLO_MSGTYPE = 1)

      integer  info, msgtype
      character*12 helloworld

      call fenroll( "hello.worker\0", info )

      msgtype = HELLO_MSGTYPE
      call frcv(msgtype, info) 
      call fgetstring(helloworld, info) 
      print *,' ***Reply to: ',helloworld,' : Hello back!'
 
      call fleave() 
      end