From f7ad40d801e30f542baaf471e0b0d08aacc212ee Mon Sep 17 00:00:00 2001 From: Connor Moore Date: Fri, 20 Mar 2026 11:16:50 -0400 Subject: Updated class code --- class/mod_sectors_test.f90 | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 class/mod_sectors_test.f90 (limited to 'class/mod_sectors_test.f90') diff --git a/class/mod_sectors_test.f90 b/class/mod_sectors_test.f90 deleted file mode 100644 index 1f490df..0000000 --- a/class/mod_sectors_test.f90 +++ /dev/null @@ -1,38 +0,0 @@ -program sectors_test - - use, intrinsic :: iso_fortran_env - use :: sectors - implicit none - - integer(int32), allocatable, dimension(:) :: neighbours_list - - !> Testing get_neighbor_ids function - !> list = get_neighbor_ids(p,N) - !> input: p,n - !> Output: variable-length vector - - print *, "Neighbours of 0:" - neighbours_list = get_neighbour_ids(0,4) - print *, neighbours_list - - print *, "Neighbours of 1:" - neighbours_list = get_neighbour_ids(1,4) - print *, neighbours_list - - print *, "Neighbours of 5:" - neighbours_list = get_neighbour_ids(5,4) - print*, neighbours_list - - print *, "Neighbours of 12:" - neighbours_list = get_neighbour_ids(12,4) - print*, neighbours_list - - print *, "Neighbours of 13:" - neighbours_list = get_neighbour_ids(13,4) - print*, neighbours_list - - print *, "Neighbours of 15:" - neighbours_list = get_neighbour_ids(15,4) - print*, neighbours_list - -end program sectors_test -- cgit v1.2.3