9 May 2025 9:14:37.607 PM WHERE_TEST FORTRAN90 version. Demonstrate the use of the WHERE statement. The matrix is of dimension : 10 10 In the printout, no more than 5 rows and columns will be shown. Initial matrix A: 1 2 3 4 5 1 -1.00000 -3.00000 0.00000 -2.00000 2.00000 2 -1.00000 -1.00000 3.00000 -1.00000 2.00000 3 -2.00000 1.00000 -1.00000 0.00000 2.00000 4 -1.00000 -1.00000 0.00000 -2.00000 -3.00000 5 -1.00000 0.00000 0.00000 0.00000 0.00000 Where A nonzero, A = 2 / A: 1 2 3 4 5 1 -2.00000 -0.666667 0.00000 -1.00000 1.00000 2 -2.00000 -2.00000 0.666667 -2.00000 1.00000 3 -1.00000 2.00000 -2.00000 0.00000 1.00000 4 -2.00000 -2.00000 0.00000 -1.00000 -0.666667 5 -2.00000 0.00000 0.00000 0.00000 0.00000 Where A positive, A = Sqrt ( A ), Elsewhere A = - A**2. 1 2 3 4 5 1 -4.00000 -0.444444 -0.00000 -1.00000 1.00000 2 -4.00000 -4.00000 0.816497 -4.00000 1.00000 3 -1.00000 1.41421 -4.00000 -0.00000 1.00000 4 -4.00000 -4.00000 -0.00000 -1.00000 -0.444444 5 -4.00000 -0.00000 -0.00000 -0.00000 -0.00000 Where |A| <= 1, A = arcsin ( A ): 1 2 3 4 5 1 -4.00000 -0.460554 -0.00000 -1.57080 1.57080 2 -4.00000 -4.00000 0.955317 -4.00000 1.57080 3 -1.57080 1.41421 -4.00000 -0.00000 1.57080 4 -4.00000 -4.00000 -0.00000 -1.57080 -0.460554 5 -4.00000 -0.00000 -0.00000 -0.00000 -0.00000 WHERE_TEST: Normal end of execution. 9 May 2025 9:14:37.607 PM