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