*** empty log message ***

[h316.git] / programs / libtest / src / matrix-test.f

diff --git a/programs/libtest/src/matrix-test.f b/programs/libtest/src/matrix-test.f
index d7ad4a7a742782d98d5a5e0990ee98165ec982e8..0c9db33c0dc8d4fc84a59b8ac91d042e8389e364 100644 (file)
--- a/programs/libtest/src/matrix-test.f
+++ b/programs/libtest/src/matrix-test.f
@@ -8,23 +8,29 @@ C
       INTEGER J
       DIMENSION J(2)
       
-      A(1)=10.0
-      A(2)=1.22
-      A(3)=23.0
-      A(4)=1.5
-
-      Z=1.0
+C      A(1)=10.0
+C      A(2)=1.22
+C      A(3)=23.0
+C      A(4)=1.5
 
+      Z=1.7070
+      Z=1.557
       CALL M$INIT(A)
       CALL M$INIT(B)
       CALL M$INIT(C)
-
  10   FORMAT (9HMATRIX A:)
  11   FORMAT (9HMATRIX B:)
  12   FORMAT (9HMATRIX C:)
       
-C      CALL M$ROT(A,3.141)
+
+C      A(1)=1.0
+C      A(2)=2.0
+C      A(3)=3.0
+C      A(4)=4.0
+
       WRITE (1,10)
+      CALL PMAT(A)
+      CALL M$ROT(A,Z)
       CALL PMAT (A)
       PAUSE 4
 C      A(1)=1.0
@@ -85,7 +91,7 @@ CCCCCCCCCCCCCCCCCCCCCCC
       WRITE (1,343) MATRIX
       WRITE (1,344)
 
- 343  FORMAT(2H[ ,F17.9,2X,F17.9,2H ])
+ 343  FORMAT(2H[ ,F18.10,2X,F18.10,2H ])
  344  FORMAT(X)
 
       RETURN