Commit | Line | Data |
---|---|---|
1 | C PMAT - PRINT 2X2 FLOAT MATRIX ON ASR | |
2 | ||
3 | SUBROUTINE PMAT (MATRIX) | |
4 | ||
5 | DIMENSION MATRIX(4) | |
6 | REAL MATRIX | |
7 | REAL M1,M2,M3,M4 | |
8 | M1=MATRIX(0) | |
9 | M2=MATRIX(1) | |
10 | M3=MATRIX(2) | |
11 | M4=MATRIX(3) | |
12 | ||
13 | WRITE (4,343) MATRIX | |
14 | WRITE (4,344) | |
15 | ||
16 | 343 FORMAT(2H[ ,F18.10,2X,F18.10,2H ]) | |
17 | 344 FORMAT(X) | |
18 | ||
19 | RETURN | |
20 | END | |
21 | ||
22 | $0 | |
23 | ||
24 |