May 8 2002 10:39:23.500 AM WHERE_TEST Demonstrate the use of the F90 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 -2.00000 1.00000 1.00000 -2.00000 2 1.00000 -2.00000 1.00000 0.00000 2.00000 3 -2.00000 3.00000 3.00000 -2.00000 -2.00000 4 0.00000 0.00000 1.00000 0.00000 2.00000 5 0.00000 -3.00000 3.00000 1.00000 0.00000 Where A nonzero, A = 2 / A: 1 2 3 4 5 1 2.00000 -1.00000 2.00000 2.00000 -1.00000 2 2.00000 -1.00000 2.00000 0.00000 1.00000 3 -1.00000 0.666667 0.666667 -1.00000 -1.00000 4 0.00000 0.00000 2.00000 0.00000 1.00000 5 0.00000 -0.666667 0.666667 2.00000 0.00000 Where A positive, A = Sqrt ( A ), Elsewhere A = - A**2. 1 2 3 4 5 1 1.41421 -1.00000 1.41421 1.41421 -1.00000 2 1.41421 -1.00000 1.41421 0.00000 1.00000 3 -1.00000 0.816497 0.816497 -1.00000 -1.00000 4 0.00000 0.00000 1.41421 0.00000 1.00000 5 0.00000 -0.444444 0.816497 1.41421 0.00000 Where |A| <= 1, A = arcsin ( A ): 1 2 3 4 5 1 1.41421 -1.57080 1.41421 1.41421 -1.57080 2 1.41421 -1.57080 1.41421 0.00000 1.57080 3 -1.57080 0.955317 0.955317 -1.57080 -1.57080 4 0.00000 0.00000 1.41421 0.00000 1.57080 5 0.00000 -0.460554 0.955317 1.41421 0.00000 WHERE_TEST: Normal end of execution.