8 September 2021 4:04:25.127 PM CUBE_GRID_TEST: FORTRAN90 version Test the CUBE_GRID library. TEST01 Create a grid using CUBE_GRID. Use the same parameters in every dimension. Number of grid points N = 27 I NS C A B 1 3 1 -1.0000 1.0000 2 3 1 -1.0000 1.0000 3 3 1 -1.0000 1.0000 Grid points: Row 1 2 3 Col 1: -1.00000 -1.00000 -1.00000 2: 0.00000 -1.00000 -1.00000 3: 1.00000 -1.00000 -1.00000 4: -1.00000 0.00000 -1.00000 5: 0.00000 0.00000 -1.00000 6: 1.00000 0.00000 -1.00000 7: -1.00000 1.00000 -1.00000 8: 0.00000 1.00000 -1.00000 9: 1.00000 1.00000 -1.00000 10: -1.00000 -1.00000 0.00000 11: 0.00000 -1.00000 0.00000 12: 1.00000 -1.00000 0.00000 13: -1.00000 0.00000 0.00000 14: 0.00000 0.00000 0.00000 15: 1.00000 0.00000 0.00000 16: -1.00000 1.00000 0.00000 17: 0.00000 1.00000 0.00000 18: 1.00000 1.00000 0.00000 19: -1.00000 -1.00000 1.00000 20: 0.00000 -1.00000 1.00000 21: 1.00000 -1.00000 1.00000 22: -1.00000 0.00000 1.00000 23: 0.00000 0.00000 1.00000 24: 1.00000 0.00000 1.00000 25: -1.00000 1.00000 1.00000 26: 0.00000 1.00000 1.00000 27: 1.00000 1.00000 1.00000 TEST02 Create a grid using CUBE_GRID. Use a different number of points in each dimension. Number of grid points N = 24 I NS C A B 1 4 2 0.0000 1.0000 2 2 2 0.0000 1.0000 3 3 2 0.0000 1.0000 Grid points: Row 1 2 3 Col 1: 0.200000 0.333333 0.250000 2: 0.400000 0.333333 0.250000 3: 0.600000 0.333333 0.250000 4: 0.800000 0.333333 0.250000 5: 0.200000 0.666667 0.250000 6: 0.400000 0.666667 0.250000 7: 0.600000 0.666667 0.250000 8: 0.800000 0.666667 0.250000 9: 0.200000 0.333333 0.500000 10: 0.400000 0.333333 0.500000 11: 0.600000 0.333333 0.500000 12: 0.800000 0.333333 0.500000 13: 0.200000 0.666667 0.500000 14: 0.400000 0.666667 0.500000 15: 0.600000 0.666667 0.500000 16: 0.800000 0.666667 0.500000 17: 0.200000 0.333333 0.750000 18: 0.400000 0.333333 0.750000 19: 0.600000 0.333333 0.750000 20: 0.800000 0.333333 0.750000 21: 0.200000 0.666667 0.750000 22: 0.400000 0.666667 0.750000 23: 0.600000 0.666667 0.750000 24: 0.800000 0.666667 0.750000 TEST03 Use a different physical size in each dimension. Number of grid points N = 27 I NS C A B 1 3 3 0.0000 10.0000 2 3 4 -2.0000 2.0000 3 3 5 50.0000 51.0000 Grid points: Row 1 2 3 Col 1: 0.00000 -0.666667 50.1667 2: 3.33333 -0.666667 50.1667 3: 6.66667 -0.666667 50.1667 4: 0.00000 0.666667 50.1667 5: 3.33333 0.666667 50.1667 6: 6.66667 0.666667 50.1667 7: 0.00000 2.00000 50.1667 8: 3.33333 2.00000 50.1667 9: 6.66667 2.00000 50.1667 10: 0.00000 -0.666667 50.5000 11: 3.33333 -0.666667 50.5000 12: 6.66667 -0.666667 50.5000 13: 0.00000 0.666667 50.5000 14: 3.33333 0.666667 50.5000 15: 6.66667 0.666667 50.5000 16: 0.00000 2.00000 50.5000 17: 3.33333 2.00000 50.5000 18: 6.66667 2.00000 50.5000 19: 0.00000 -0.666667 50.8333 20: 3.33333 -0.666667 50.8333 21: 6.66667 -0.666667 50.8333 22: 0.00000 0.666667 50.8333 23: 3.33333 0.666667 50.8333 24: 6.66667 0.666667 50.8333 25: 0.00000 2.00000 50.8333 26: 3.33333 2.00000 50.8333 27: 6.66667 2.00000 50.8333 CUBE_GRID_TEST: Normal end of execution. 8 September 2021 4:04:25.127 PM