1
1
openmpi/examples/hello_oshmemfh.f90
Jeff Squyres b4effd200f Remove num_pes,my_pe declarations from shmem.fh.
The openshmem test suite
(http://bongo.cs.uh.edu/site/sites/default/site_files/openshmem-test-suite-release-1.0d.tar.bz2)
declares num_pes and my_pe in each Fortran test file -- it apparently
doesn't expect shmem.fh to declare these functions.  Sigh.

cmr=v1.7.5:reviewer=miked:subject=the openshmem community is crazy

This commit was SVN r30660.
2014-02-11 01:36:26 +00:00

25 строки
505 B
Fortran

!
! Copyright (c) 2013 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