test18’s documentation

test18 is compiled by Makefile and it can be run using run.sh. The program uses mod_safe/sub_allocate_array(), mod_safe/sub_find_middle_of_locs_euclideanBox(), mod_safe/sub_find_middle_of_locs_geodesicBox(), mod_safe/sub_find_middle_of_locs_euclideanCircle() and mod_safe/sub_find_middle_of_locs_geodesicCircle(). The correct output should be:

The (EuclideanBox) middle is ( 159.080000°, -31.130000°) and the maximum Euclidean distance is 19.498251°. The (GeodesicBox) middle is ( 159.080000°, -31.145522°) and the maximum Geodesic distance is 2076.577 km. The (EuclideanCircle) middle is ( 159.245951°, -30.233941°) and the maximum Euclidean distance is 18.971945°. The (GeodesicCircle) middle is ( 157.345440°, -30.948794°) and the maximum Geodesic distance is 1950.151 km.

program  test18

Import standard modules …

Use :

iso_fortran_env, mod_safe (sub_allocate_array(), sub_find_middle_of_locs_euclideanbox(), sub_find_middle_of_locs_euclideancircle(), sub_find_middle_of_locs_geodesicbox(), sub_find_middle_of_locs_geodesiccircle())

Call to:

sub_find_middle_of_locs_euclideanbox(), sub_find_middle_of_locs_geodesicbox(), sub_find_middle_of_locs_euclideancircle(), sub_find_middle_of_locs_geodesiccircle()