C TESTS MATRIX INVERSION .INVM COPYRIGHT (C) 1990, RONALD S. REMMEL REAL A(3,3), AI(3,3) DATA A/2.0,2.0,3.0, 1.0,3.0,1.0, -2.0,-1.0,3.0/ TYPE *,'THE MATRIX IS:' DO 1 I=1,3 1 TYPE *,(A(I,J), J=1,3) CALL INVM (A,AI,3) TYPE *,'ITS INVERSE IS:' DO 2 I=1,3 2 TYPE *,(AI(I,J), J=1,3) STOP END