4.2   Hello world in Fortran

• A simple application composed of two programs
• Program hello.f, the main program

      PROGRAM HELLO
      INCLUDE 'fpvm3.h'
  *
      INTEGER mytid, tid
      INTEGER bufid, info  
      CHARACTER*100 reply1, reply2
  *   
      CALL PVMFMYTID (mytid)
      WRITE (*,*) 'I m t', mytid
      CALL PVMFSPAWN ('hello_other', 0, '*', 
    &                 1, tid, info)
      IF (info .EQ. 1) THEN 
        CALL PVMFRECV (-1, -1, info)
        CALL PVMFGETRBUF (bufid)
        CALL PVMFBUFINFO (bufid, 0, 0, tid)
        CALL PVMFUNPACK (STRING, reply1, 1, 1, info) 
        CALL PVMFUNPACK (STRING, reply2, 1, 1, info) 
        WRITE (*,*) 'From t', tid, ':', reply1, reply2
      ELSE
        WRITE (*,*) 'Can t start hello_other'
      ENDIF
      CALL PVMFEXIT (info)             
      END
        

• 
  
  Program hello_other.f, the auxiliary program

      PROGRAM HELLO_OTHER
      INCLUDE 'fpvm3.h'
  *
      INTEGER ptid
      INTEGER bufid, info
      CHARACTER*100 buf
  *   
      CALL PVMFPARENT (ptid)
      CALL GETHOSTNAME (buf, 64) 
      CALL PVMFINITSEND (PvmDataDefault) 
      CALL PVMFPACK (STRING, 'Hello From ', 1, 1, info) 
      CALL PVMFPACK (STRING, buf, 1, 1, info) 
      CALL PVMFSEND (ptid, 1, info) 
      CALL PVMFEXIT (info)
      END