projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
*** empty log message ***
[h316.git]
/
lib
/
hachti
/
src
/
pmat.f
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