15 September 2021   3:23:33.802 PM

SPHERE_STEREOGRAPH_TEST
  FORTRAN90 version
  Test the SPHERE_STEREOGRAPH library.

TEST01
  SPHERE_STEREOGRAPH maps from sphere to plane.
  SPHERE_STEREOGRAPH_INVERSE is the inverse map.
  Check that these two functions are inverses.

  Map points from sphere to plane to sphere.
  Frobenius difference for    100 points was   0.454989E-14

  Map points from plane to sphere to plane.
  Frobenius difference for    100 points was   0.636729E-15

TEST02
  SPHERE_STEREOGRAPH standard mapping from sphere to plane.
  SPHERE_STEREOGRAPH2 generalized mapping:
  (focus and center are arbitrary)
  Check that these two functions can agree.

  Map points from sphere to plane.
  Frobenius difference for    100 points was   0.756915E-14

  Map points from plane to sphere.
  Frobenius difference for    100 points was   0.110505E-14

TEST03
  SPHERE_STEREOGRAPH2 maps from sphere to plane.
  SPHERE_STEREOGRAPH2_INVERSE is the inverse map.
  Check that these two functions are inverses.

  Using radius =   0.996643    
 
  Center:
 
  0.561695      0.415307      0.661187E-01
 
  Focus:
 
  0.218418      0.956318      0.829509    

  Map points from sphere to plane to sphere.
  Frobenius difference for    100 points was   0.331347E-14

  Map points from plane to sphere to plane.
  Frobenius difference for    100 points was   0.358282E-14

SPHERE_STEREOGRAPH_TEST
  Normal end of execution.

15 September 2021   3:23:33.802 PM