! This file created from f77/pt2pt/dummyf.f with f77tof90
! -*- Mode: Fortran; -*- 
!
!  (C) 2011 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