1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
C
C Copyright (C) by Argonne National Laboratory
C See COPYRIGHT in top-level directory
C
C This file is used to disable certain compiler optimizations that
C can cause incorrect results with the test in greqf.f. It provides a
C point where extrastate may be modified, limiting the compilers ability
C to move code around.
C The include of mpif.h is not needed in the F77 case but in the
C F90 case it is, because in that case, extrastate is defined as an
C integer (kind=MPI_ADDRESS_KIND), and the script that creates the
C F90 tests from the F77 tests looks for mpif.h
subroutine dummyupdate( extrastate )
include 'mpif.h'
include 'attr1aints.h'
end
|
