anchor.diff:  ! Main driver program
   !-----------------------------------------------------------------
   program driver
  +
     ! inclusions
  -  use mpi
     use UserData
  +  implicit none
  +  include "mpif.h"
   
     ! Declarations
  -  implicit none
  -
     ! general problem parameters
     real*8,    parameter :: pi = 3.1415926535897932d0
     real*8,    parameter :: T0 = 0.d0     ! initial time 
  
positive.code:   subroutine PRMS(y,yrms,ierr)
      ! declarations
      implicit none
      integer, intent(out) :: ierr
      real*8,  intent(in)  :: y(nxl,nyl)
      real*8,  intent(out) :: yrms
  
negative.code:   subroutine SetupDecomp(ierr)
      ! declarations
      implicit none
      include "mpif.h"
      integer, intent(out) :: ierr
      integer :: dims(2), periods(2), coords(2)
      
  