26 November 2006 11:37:44.073 AM WHERE_TEST Demonstrate the use of the FORTRAN90 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 -3.00000 -1.00000 -3.00000 3.00000 2.00000 2 -3.00000 2.00000 -2.00000 2.00000 -3.00000 3 -1.00000 -2.00000 0.00000 -3.00000 3.00000 4 1.00000 2.00000 3.00000 -2.00000 1.00000 5 3.00000 1.00000 -3.00000 3.00000 2.00000 Where A nonzero, A = 2 / A: 1 2 3 4 5 1 -0.666667 -2.00000 -0.666667 0.666667 1.00000 2 -0.666667 1.00000 -1.00000 1.00000 -0.666667 3 -2.00000 -1.00000 0.00000 -0.666667 0.666667 4 2.00000 1.00000 0.666667 -1.00000 2.00000 5 0.666667 2.00000 -0.666667 0.666667 1.00000 Where A positive, A = Sqrt ( A ), Elsewhere A = - A**2. 1 2 3 4 5 1 -0.444444 -4.00000 -0.444444 0.816497 1.00000 2 -0.444444 1.00000 -1.00000 1.00000 -0.444444 3 -4.00000 -1.00000 0.00000 -0.444444 0.816497 4 1.41421 1.00000 0.816497 -1.00000 1.41421 5 0.816497 1.41421 -0.444444 0.816497 1.00000 Where |A| <= 1, A = arcsin ( A ): 1 2 3 4 5 1 -0.460554 -4.00000 -0.460554 0.955317 1.57080 2 -0.460554 1.57080 -1.57080 1.57080 -0.460554 3 -4.00000 -1.57080 0.00000 -0.460554 0.955317 4 1.41421 1.57080 0.955317 -1.57080 1.41421 5 0.955317 1.41421 -0.460554 0.955317 1.57080 WHERE_TEST: Normal end of execution. 26 November 2006 11:37:44.075 AM