openmpi/examples/hello_oshmemfh.f90

!
! Copyright (c) 2013      Mellanox Technologies, Inc.
!                         All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$
!
program hello_oshmem
    implicit none
    include 'shmem.fh'

    integer proc, nproc

    call START_PES(0)
    proc = MY_PE()
    nproc = NUM_PES()

    write(*, '("Hello, world, I am ", i2, " of ", i2)') proc, nproc
end program hello_oshmem
Applying Jeff`s comments about proper SHMEM fortran organization of files. Refs: 3870 This commit was SVN r29651. 2013-11-11 18:26:25 +04:00			`!`
			`! Copyright (c) 2013 Mellanox Technologies, Inc.`
			`! All rights reserved.`
			`! $COPYRIGHT$`
			`!`
			`! Additional copyrights may follow`
			`!`
			`! $HEADER$`
			`!`
1. Default target (e.g. 'make all') now build all avaliable examples depends on configuration. 2. Oshmem examples moved to 'mpi' build target. 3. Oshmem examples renamed as 'shmem' => 'oshmem'. 4. Fixed warnings in oshmem_info. Refs: 3763 This commit was SVN r29663. 2013-11-12 17:02:07 +04:00			`program hello_oshmem`
Applying Jeff`s comments about proper SHMEM fortran organization of files. Refs: 3870 This commit was SVN r29651. 2013-11-11 18:26:25 +04:00			`implicit none`
			`include 'shmem.fh'`

			`integer proc, nproc`

			`call START_PES(0)`
			`proc = MY_PE()`
			`nproc = NUM_PES()`

			`write(*, '("Hello, world, I am ", i2, " of ", i2)') proc, nproc`
1. Default target (e.g. 'make all') now build all avaliable examples depends on configuration. 2. Oshmem examples moved to 'mpi' build target. 3. Oshmem examples renamed as 'shmem' => 'oshmem'. 4. Fixed warnings in oshmem_info. Refs: 3763 This commit was SVN r29663. 2013-11-12 17:02:07 +04:00			`end program hello_oshmem`
Applying Jeff`s comments about proper SHMEM fortran organization of files. Refs: 3870 This commit was SVN r29651. 2013-11-11 18:26:25 +04:00