diff options
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 |