17 строки
448 B
Fortran
17 строки
448 B
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2010-2011 Oak Ridge National Labs. All rights reserved.
|
|
! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
!
|
|
|
|
! Since the OMPI mpif.h interface does not prototype subroutines, do not
|
|
! declare any subroutines here. Only declare global constants/variables.
|
|
|
|
integer OMPI_EXAMPLE_GLOBAL
|
|
parameter (OMPI_EXAMPLE_GLOBAL = 42)
|