REAL DATA(22,10) 
        REAL ARRAY1(10,10), ARRAY2(10,10), VECT1(10), VECT2(10)
	REAL R(22), C(10)
C
	OPEN(UNIT=21,STATUS='OLD',FILE='uno.dat')
C
C	   Get input data.
C
	N = 22
	M = 10
	DO I = 1, N
	   READ(21,100)(DATA(I,J),J=1,M)
  100	   FORMAT(4X,10F1.0)
	ENDDO
C
c	CALL OUTMAT(N,M,DATA)
C
	IPRINT = 3
	CALL CA(N,M,DATA,IPRINT,ARRAY1,VECT1,VECT2,
     X            ARRAY2,R,C,IERR)
	IF (IERR.NE.0) GOTO 9000
C
	GOTO 9900
 9000	WRITE (6,*) ' ABNORMAL END: IERR =', IERR
 9900	CONTINUE
	END