09 May 2025   9:41:04.157 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.181662E-14

  Map points from plane to sphere to plane.
  Frobenius difference for    100 points was   0.634065E-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.250870E-14

  Map points from plane to sphere.
  Frobenius difference for    100 points was   0.116527E-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.627744    
 
  Center:
 
  0.931908      0.818011      0.804460    
 
  Focus:
 
  0.804055      0.690059      0.203340    

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

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

SPHERE_STEREOGRAPH_TEST
  Normal end of execution.

09 May 2025   9:41:04.157 PM