06 October 2025   6:45:43.442 PM

sphere_stereograph_test():
  Fortran90 version
  Test sphere_stereograph().

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.162151E-14

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

  Map points from plane to sphere.
  Frobenius difference for    100 points was   0.110320E-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.752161    
 
  Center:
 
  0.705082      0.671348      0.545789    
 
  Focus:
 
  0.841806      0.560640E-01  0.956250    

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

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

sphere_stereograph_test():
  Normal end of execution.

06 October 2025   6:45:43.442 PM