anchor.diff: -integer function geoclaw_gauges_getnum(fname)
  +MODULE fclaw_gauges
  +  USE iso_c_binding
  +  TYPE,BIND(C) :: gauge_type
  +     INTEGER:: blockno
  +     INTEGER:: patchno
  +     INTEGER:: location_in_results
  +     DOUBLE PRECISION :: xc, yc, t1, t2
  +     INTEGER num;
  +     !! DOUBLE PRECISION, POINTER :: buffer
  +  END TYPE gauge_type
  +
  +END MODULE fclaw_gauges
  +
  +
  +INTEGER FUNCTION geoclaw_gauges_getnum(fname)
   
       implicit none
   
  
positive.code:     close(iunit)
  end function
  
  SUBROUTINE geoclaw_gauges_init(restart, meqn, num_gauges, gauges, fname)
      implicit none
      type gauge_type
        integer:: blockno
        integer:: patchno
        integer:: location_in_results
        double precision :: xc, yc, t1, t2
        integer num;
        !! DOUBLE PRECISION, POINTER :: buffer
      end type gauge_type
  
      ! Input
      character(len=12), intent(in), optional :: fname
  
negative.code:     integer, intent(in) :: meqn, num_gauges
      integer :: num_gauges_not_use
  
      TYPE(gauge_type), DIMENSION(num_gauges) :: gauges
  
      ! Locals
      integer :: i, ipos, idigit, OUTGAUGEUNIT
  