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