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
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