21 August 2023 0:43:37.049 AM tetrahedron_test(): FORTRAN77 version Test tetrahedron(). tetrahedron_centroid_test(): tetrahedron_centroid() computes the centroid of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.00000 0.942809 -0.333333 2: -0.816496 -0.816496 -0.333333 3: 0.816496 -0.816496 -0.333333 4: 0.00000 0.00000 1.00000 Centroid: 1: 0.0000000 2: -0.17254575 3: 0.25000000E-06 tetrahedron_circumsphere_test(): tetrahedron_circumsphere() computes the circumsphere of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Circumsphere center: 1: 0.0000000 2: 0.0000000 3: 0.0000000 Circumsphere radius is -1.00000 tetrahedron_edge_length_test(): tetrahedron_edge_length() computes the edge lengths of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Edge lengths: 1: 1.0000000 2: 1.0000000 3: 1.0000000 4: 1.0000000 5: 1.0000000 6: 1.0000000 tetrahedron_insphere_test(): tetrahedron_insphere() computes the insphere of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Insphere center: 1: -0.32049378E-16 2: 0.0000000 3: 0.20412415 Insphere radius is 0.204124 tetrahedron_quality1_test(): tetrahedron_quality1() computes quality measure #1 of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Tetrahedron quality is -0.612372 Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.408248 Tetrahedron quality is -0.448288 tetrahedron_quality2_test(): tetrahedron_quality2() computes quality measure #2 of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Tetrahedron quality is 1.00000 Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.408248 Tetrahedron quality is 0.732051 tetrahedron_quality3_test(): tetrahedron_quality3() computes quality measure #3 of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Tetrahedron quality is 1.00000 Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.408248 Tetrahedron quality is 0.839947 tetrahedron_quality4_test(): tetrahedron_quality4() computes quality measure #4 of a tetrahedron. Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.816497 Tetrahedron quality is 1.00000 Tetrahedron vertices: Row 1 2 3 Col 1: 0.577350 0.00000 0.00000 2: -0.288675 0.500000 0.00000 3: -0.288675 -0.500000 0.00000 4: 0.00000 0.00000 0.408248 Tetrahedron quality is 0.621320 tetrahedron_solid_angles_test(): tetrahedron_solid_angles() computes the solid angles associated with the vertices of a tetrahedron. Tetrahedron #1 Row 1 2 3 Col 1: 0.00000 0.942809 -0.333333 2: -0.816496 -0.816496 -0.333333 3: 0.816496 -0.816496 -0.333333 4: 0.00000 0.00000 1.00000 Solid angles tetrahedron #1: 1: 0.45508702 2: 0.53565626 3: 0.53565626 4: 0.64102502 Tetrahedron #2 Row 1 2 3 Col 1: 0.00000 0.00000 0.00000 2: 1.00000 0.00000 0.00000 3: 0.00000 1.00000 0.00000 4: 0.00000 0.00000 1.00000 Solid angles tetrahedron #2: 1: 1.5707963 2: 0.33983691 3: 0.33983691 4: 0.33983691 Tetrahedron #3 Row 1 2 3 Col 1: 0.00000 0.00000 0.00000 2: 1.00000 0.00000 0.00000 3: 0.00000 2.00000 0.00000 4: 0.00000 0.00000 4.00000 Solid angles tetrahedron #3: 1: 1.5707963 2: 0.89917491 3: 0.28975170 4: 0.58106238E-01 Tetrahedron #4 Row 1 2 3 Col 1: 0.00000 0.00000 0.00000 2: 1.00000 0.00000 0.00000 3: 0.00000 1.00000 0.00000 4: 1.00000 1.00000 1.00000 Solid angles tetrahedron #4: 1: 0.52359878 2: 0.44556125 3: 0.44556125 4: 0.18376187 tetrahedron_volume_test(): tetrahedron_volume() computes the volume of a tetrahedron. Tetrahedron vertices Row 1 2 3 Col 1: 0.00000 0.942809 -0.333333 2: -0.816496 -0.816496 -0.333333 3: 0.816496 -0.816496 -0.333333 4: 0.00000 0.00000 1.00000 Volume = 0.638429 tetrahedron_test(): Normal end of execution. 21 August 2023 0:43:37.050 AM