b4effd200f
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.
25 строки
505 B
Fortran
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
|
|
|