!
! Copyright (c) 2014 Mellanox Technologies, Inc.
! All rights reserved.
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$
! Additional copyrights may follow
! $HEADER$
program hello_oshmem
implicit none
include 'shmem.fh'
integer proc, nproc
integer my_pe, num_pes
call START_PES(0)
proc = MY_PE()
nproc = NUM_PES()
write(*, '("Hello, world, I am ", i2, " of ", i2)') proc, nproc
end program hello_oshmem
