diff options
| author | Connor Moore <connor@hhmoore.ca> | 2026-03-20 11:16:50 -0400 |
|---|---|---|
| committer | Connor Moore <connor@hhmoore.ca> | 2026-03-20 11:16:50 -0400 |
| commit | f7ad40d801e30f542baaf471e0b0d08aacc212ee (patch) | |
| tree | 6474c10e962b9591feb2d30d675e5c9620003e05 /class/mod_sectors_test.f90 | |
| parent | 6ff45fe556d3b49a1506c5882036f909c143ed85 (diff) | |
Updated class code
Diffstat (limited to 'class/mod_sectors_test.f90')
| -rw-r--r-- | class/mod_sectors_test.f90 | 38 |
1 files changed, 0 insertions, 38 deletions
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 |