!$Author: wjr $
!$Date: 2011-11-06 $
!$Revison: 0.1 $
!$Source: testgrid.f95,v $
!-----------------------------------------------------------------------------------
!! Program to test grid routines
!!

program testgrid

    use Grid
    implicit none
    type (Grid_Cell), pointer :: inpGrid
    type (Grid_Cell), pointer :: curp
!    integer :: linCnt

! start program

    inpGrid => Load_Grid_File("grid.tst")

    curp => inpGrid
!    linCnt = 1
    do while (curp%x1 /= -1)
        write(*,*) curp%id, curp%x1, curp%y1, curp%x2, curp%y2
	curp => curp%nxtCell
!	linCnt = linCnt + 1
	if (.not. associated(curp)) then
	    exit
	endif
    end do
    write(*,*)

    inpGrid => Make_Grid(inpGrid)

    inpGrid => Print_Touches(inpGrid)

end program testgrid