PROGRAM TRANSPOSE
PARAMETER(M=3,N=6)
DIMENSION A(M,N),B(M,M)
DATA B/1,2,4,2,1,-2,-3,0,5/
PRINT*," MATRIX A"
PRINT 20,((B(I,J),J=1,M),I=1,M)
20 FORMAT(3X,3F8.2/)
PRINT*," TRANSPOSE OF THE MATRIX A"
PRINT 20,((B(I,J),I=1,M),J=1,M)
DO I=1,M
DO J=1,N
IF(J.LE.M) THEN
!A(I,J)=AI(I,J)
A(I,J)=B(I,J)
ELSE
IF(J.EQ.I+M) THEN
A(I,J)=1.0
ELSE
A(I,J)=0.0
ENDIF
ENDIF
ENDDO
ENDDO
PRINT*," AUGMENTED MATRIX"
PRINT 10,((A(I,J),J=1,N),I=1,M)
10 FORMAT(3X,6F8.2/)
DO I=1,M
IF(A(I,I).NE.0.0) THEN
P=A(I,I)
ELSE
PRINT*," PIVOT ELEMENT IS ZERO"
STOP
ENDIF
DO JJ=1,N
A(I,JJ)=A(I,JJ)/P
ENDDO
DO 3 J=1,M
IF(J.EQ.I) GOTO 3
COM=A(J,I)
DO K=1,N
A(J,K)=A(J,K)-A(I,K)*COM
ENDDO
3 CONTINUE
ENDDO
PRINT*," AUGMENTED ECHELON MATRIX"
PRINT 11,((A(I,J),J=1,N),I=1,M)
11 FORMAT(3X,6F8.2/)
DO I=1,M
DO J=M+1,N
K=J-M
B(I,K)=A(I,J)
ENDDO
ENDDO
PRINT*," INVERSE OF MATRIX A"
PRINT 30,((B(I,J),J=1,M),I=1,M)
30 FORMAT(3X,3F8.2/)
END PROGRAM
ICAgICAgICAgUFJPR1JBTSBUUkFOU1BPU0UKUEFSQU1FVEVSKE09MyxOPTYpCkRJTUVOU0lPTiBBKE0sTiksQihNLE0pCgpEQVRBIEIvMSwyLDQsMiwxLC0yLC0zLDAsNS8KUFJJTlQqLCIgTUFUUklYIEEiClBSSU5UIDIwLCgoQihJLEopLEo9MSxNKSxJPTEsTSkKMjAgIEZPUk1BVCgzWCwzRjguMi8pClBSSU5UKiwiIFRSQU5TUE9TRSBPRiBUSEUgTUFUUklYIEEiClBSSU5UIDIwLCgoQihJLEopLEk9MSxNKSxKPTEsTSkKRE8gST0xLE0KRE8gSj0xLE4KSUYoSi5MRS5NKSBUSEVOCiFBKEksSik9QUkoSSxKKQpBKEksSik9QihJLEopCkVMU0UKSUYoSi5FUS5JK00pIFRIRU4KQShJLEopPTEuMApFTFNFCkEoSSxKKT0wLjAKRU5ESUYKRU5ESUYKRU5ERE8KRU5ERE8KUFJJTlQqLCIgQVVHTUVOVEVEIE1BVFJJWCIKUFJJTlQgMTAsKChBKEksSiksSj0xLE4pLEk9MSxNKQoxMCAgRk9STUFUKDNYLDZGOC4yLykKRE8gST0xLE0KSUYoQShJLEkpLk5FLjAuMCkgVEhFTgpQPUEoSSxJKQpFTFNFClBSSU5UKiwiIFBJVk9UIEVMRU1FTlQgSVMgWkVSTyIKU1RPUApFTkRJRgpETyBKSj0xLE4KQShJLEpKKT1BKEksSkopL1AKRU5ERE8KRE8gMyBKPTEsTQpJRihKLkVRLkkpIEdPVE8gMwpDT009QShKLEkpCkRPIEs9MSxOCkEoSixLKT1BKEosSyktQShJLEspKkNPTQpFTkRETwozICBDT05USU5VRQpFTkRETwpQUklOVCosIiBBVUdNRU5URUQgRUNIRUxPTiBNQVRSSVgiClBSSU5UIDExLCgoQShJLEopLEo9MSxOKSxJPTEsTSkKMTEgIEZPUk1BVCgzWCw2RjguMi8pCkRPIEk9MSxNCkRPIEo9TSsxLE4KSz1KLU0KQihJLEspPUEoSSxKKQpFTkRETwpFTkRETwpQUklOVCosIiBJTlZFUlNFIE9GIE1BVFJJWCBBIgpQUklOVCAzMCwoKEIoSSxKKSxKPTEsTSksST0xLE0pCjMwICBGT1JNQVQoM1gsM0Y4LjIvKQpFTkQgUFJPR1JBTQ==