Code for host and grid processes

C=======================================================================
C=======================================================================
C
C       sample program p1 -- "hello":
C               each process prints "hello" message
C
C=======================================================================
C=======================================================================

C=======================================================================
C
C       host process-main program
C
C=======================================================================

        subroutine hostmain

        include 'mesh_uparms.h'
        include 'mesh_parms.h'
        include 'mesh_common.h'

C=======USER-SUPPLIED common block(s), declarations, body of program

        print*, 'hello from host process'

C=======end of USER-SUPPLIED code
        end

C=======================================================================
C
C       grid process-main program
C
C=======================================================================

        subroutine gridmain

        include 'mesh_uparms.h'
        include 'mesh_parms.h'
        include 'mesh_common.h'

C=======USER-SUPPLIED common block(s), declarations, body of program

C       iprocx, iprocy, iprocz are defined in mesh_common.h
        print*, 'hello from grid process at ', iprocx, iprocy, iprocz

C=======end of USER-SUPPLIED code

        end