projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** 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)
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)
CALL M$INIT(A)
CALL M$INIT(B)
CALL M$INIT(C)
-
10 FORMAT (9HMATRIX A:)
11 FORMAT (9HMATRIX B:)
12 FORMAT (9HMATRIX 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)
WRITE (1,10)
+ CALL PMAT(A)
+ CALL M$ROT(A,Z)
CALL PMAT (A)
PAUSE 4
C A(1)=1.0
CALL PMAT (A)
PAUSE 4
C A(1)=1.0
@@
-85,7
+91,7
@@
CCCCCCCCCCCCCCCCCCCCCCC
WRITE (1,343) MATRIX
WRITE (1,344)
WRITE (1,343) MATRIX
WRITE (1,344)
- 343 FORMAT(2H[ ,F1
7.9,2X,F17.9
,2H ])
+ 343 FORMAT(2H[ ,F1
8.10,2X,F18.10
,2H ])
344 FORMAT(X)
RETURN
344 FORMAT(X)
RETURN