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