10 December 2013 8:30:33.010 PM SPHERE_STEREOGRAPH_PRB FORTRAN77 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.452245E-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.753339E-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.322984E-14 Map points from plane to sphere to plane. Frobenius difference for 100 points was 0.358282E-14 SPHERE_STEREOGRAPH_PRB Normal end of execution. 10 December 2013 8:30:33.010 PM