20 строки
422 B
Fortran
20 строки
422 B
Fortran
C *
|
|
C * Copyright (c) 2013 Mellanox Technologies, Inc.
|
|
C * All rights reserved.
|
|
C * $COPYRIGHT$
|
|
C *
|
|
C * Additional copyrights may follow
|
|
C *
|
|
C * $HEADER$
|
|
C *
|
|
|
|
program main
|
|
integer proc, nproc
|
|
call START_PES(0)
|
|
proc = MY_PE()
|
|
nproc = NUM_PES()
|
|
|
|
write(*, '("Hello, world, I am ", i2, " of ", i2)')
|
|
& proc, nproc
|
|
end
|