*** empty log message ***

[h316.git] / lib / hachti / src / pmat.f

diff --git a/lib/hachti/src/pmat.f b/lib/hachti/src/pmat.f
new file mode 100644 (file)
index 0000000..6b155a6
--- /dev/null
+++ b/lib/hachti/src/pmat.f
@@ -0,0 +1,24 @@
+C PMAT - PRINT 2X2 FLOAT MATRIX ON ASR
+
+      SUBROUTINE PMAT (MATRIX)
+
+      DIMENSION MATRIX(4)
+      REAL MATRIX
+      REAL M1,M2,M3,M4
+      M1=MATRIX(0)
+      M2=MATRIX(1)
+      M3=MATRIX(2)
+      M4=MATRIX(3)
+
+      WRITE (4,343) MATRIX
+      WRITE (4,344)
+
+ 343  FORMAT(2H[ ,F18.10,2X,F18.10,2H ])
+ 344  FORMAT(X)
+
+      RETURN
+      END
+
+$0
+
+