anchor.diff:      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
  +  USE fclaw_gauges
  +  IMPLICIT NONE
   
       ! Input
       character(len=12), intent(in), optional :: fname
  
positive.code: integer function geoclaw_gauges_getnum(fname)
  
      implicit none
  
  
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
  