PROGRAM MA_1 IMPLICIT NONE INTEGER(KIND=2), DIMENSION(2,2) :: ARRAY_A, ARRAY_B,

Question

PROGRAM MA_1 IMPLICIT NONE INTEGER(KIND=2), DIMENSION(2,2) :: ARRAY_A, ARRAY_B, ARRAY_C INTEGER(KIND=2) :: rA, cB , D, M !DEFINE INTIAL VALUE ARRAY_A(1,1)= 4 ARRAY_A(2,1)= 5 ARRAY_A(1,2)= 5 ARRAY_A(2,2)= 4 ARRAY_B(1,1)= 3 ARRAY_B(2,1)= 8 ARRAY_B(1,2)= 3 ARRAY_B(2,2)= 8 !WRITE PROGRAM HEADER TO SCREEN WRITE(*,*)"******************" WRITE(*,*)"* *" WRITE(*,*)"* MA_1 *" WRITE(*,*)"* *" WRITE(*,*)"******************" WRITE(*,*)"" ! ASK THE USER WHICH MATRIX OPERATION DESIRED WRITE(*,*) "WHICH MATRIX OPERATION WANTED; PRESS '1' FOR ADDITION AND '2' FOR MULITIPLICATION " READ (*,*)D WRITE(*,*)"ENTER THE # OF ROWS IN MATRIX_A " READ(*,*)rA WRITE(*,*)"ENTER THE # OF COLUMNS IN MATRIX_B" READ(*,*)cB IF (rA.EQ.cB) THEN ! CALCULATE THE ADDITION OF THE TWO MATRICES READ(*,*) ARRAY_A(1,1), ARRAY_A(2,1), ARRAY_A(1,2), ARRAY_A(2,2), ARRAY_B(1,1), ARRAY_B(2,1), ARRAY_B(1,2), ARRAY_B(2,2) ARRAY_C(1,1)=ARRAY_A(1,1)+ARRAY_B(1,1) ARRAY_C(2,1)=ARRAY_A(2,1)+ARRAY_B(2,1) ARRAY_C(1,2)=ARRAY_A(1,2)+ARRAY_B(1,2) ARRAY_C(2,2)=ARRAY_A(2,2)+ARRAY_B(2,2) WRITE(*,*)ARRAY_C(1,1) WRITE(*,*)ARRAY_C(2,1) WRITE(*,*)ARRAY_C(1,2) WRITE(*,*)ARRAY_C(2,2) END IF ! SPECIFIY IF OPERATION IS NOT POSSIBLE WRITE(*,*)"OPERATION NOT POSSIBLE" READ(*,*) M WRITE(*,*)"ENTER THE # OF ROWS IN MATRIX_A " READ(*,*)rA WRITE(*,*)"ENTER THE # OF COLUMNS IN MATRIX_B" READ(*,*)cB IF (rA.EQ.cB) THEN ! CALCULATE THE MULIPLICATION OF THE TWO MATRICES READ(*,*) ARRAY_A(1,1), ARRAY_A(2,1), ARRAY_A(1,2), ARRAY_A(2,2), ARRAY_B(1,1), ARRAY_B(2,1), ARRAY_B(1,2), ARRAY_B(2,2) ARRAY_C(1,1)=ARRAY_A(1,1)*ARRAY_B(1,1) ARRAY_C(2,1)=ARRAY_A(2,1)*ARRAY_B(2,1) ARRAY_C(1,2)=ARRAY_A(1,2)*ARRAY_B(1,2) ARRAY_C(2,2)=ARRAY_A(2,2)*ARRAY_B(2,2) WRITE(*,*)ARRAY_C(1,1) WRITE(*,*)ARRAY_C(2,1) WRITE(*,*)ARRAY_C(1,2) WRITE(*,*)ARRAY_C(2,2) END IF ! SPECIFIY IF OPERATION IS NOT POSSIBLE WRITE(*,*)"OPERATION NOT POSSIBLE" ! PAUSE PROGRAM TO READ RESULTS WRITE(*,*)"HIT ENTER TO CLOSE" END PROGRAM after I executed this the answer of array_c is not showing, i need the answers to the array_c showing on the screen in the output screen please executed the program so there is a better understanding of my problem before giving me an answer thanks

Explanation / Answer

PROGRAM MA_1 IMPLICIT NONE INTEGER(KIND=2), DIMENSION(2,2) :: ARRAY_A, ARRAY_B, ARRAY_C INTEGER(KIND=2) :: rA, cB , D, M !DEFINE INTIAL VALUE ARRAY_A(1,1)= 4 ARRAY_A(2,1)= 5 ARRAY_A(1,2)= 5 ARRAY_A(2,2)= 4 ARRAY_B(1,1)= 3 ARRAY_B(2,1)= 8 ARRAY_B(1,2)= 3 ARRAY_B(2,2)= 8 !WRITE PROGRAM HEADER TO SCREEN WRITE(*,*)"******************" WRITE(*,*)"* *" WRITE(*,*)"* MA_1 *" WRITE(*,*)"* *" WRITE(*,*)"******************" WRITE(*,*)"" ! ASK THE USER WHICH MATRIX OPERATION DESIRED WRITE(*,*) "WHICH MATRIX OPERATION WANTED; PRESS '1' FOR ADDITION AND '2' FOR MULITIPLICATION " READ (*,*)D WRITE(*,*)"ENTER THE # OF ROWS IN MATRIX_A " READ(*,*)rA WRITE(*,*)"ENTER THE # OF COLUMNS IN MATRIX_B" READ(*,*)cB IF (rA.EQ.cB) THEN ! CALCULATE THE ADDITION OF THE TWO MATRICES READ(*,*) ARRAY_A(1,1), ARRAY_A(2,1), ARRAY_A(1,2), ARRAY_A(2,2), ARRAY_B(1,1), ARRAY_B(2,1), ARRAY_B(1,2), ARRAY_B(2,2) ARRAY_C(1,1)=ARRAY_A(1,1)+ARRAY_B(1,1) ARRAY_C(2,1)=ARRAY_A(2,1)+ARRAY_B(2,1) ARRAY_C(1,2)=ARRAY_A(1,2)+ARRAY_B(1,2) ARRAY_C(2,2)=ARRAY_A(2,2)+ARRAY_B(2,2) WRITE(*,*)ARRAY_C(1,1) WRITE(*,*)ARRAY_C(2,1) WRITE(*,*)ARRAY_C(1,2) WRITE(*,*)ARRAY_C(2,2) END IF ! SPECIFIY IF OPERATION IS NOT POSSIBLE WRITE(*,*)"OPERATION NOT POSSIBLE" READ(*,*) M WRITE(*,*)"ENTER THE # OF ROWS IN MATRIX_A " READ(*,*)rA WRITE(*,*)"ENTER THE # OF COLUMNS IN MATRIX_B" READ(*,*)cB IF (rA.EQ.cB) THEN ! CALCULATE THE MULIPLICATION OF THE TWO MATRICES READ(*,*) ARRAY_A(1,1), ARRAY_A(2,1), ARRAY_A(1,2), ARRAY_A(2,2), ARRAY_B(1,1), ARRAY_B(2,1), ARRAY_B(1,2), ARRAY_B(2,2) ARRAY_C(1,1)=ARRAY_A(1,1)*ARRAY_B(1,1) ARRAY_C(2,1)=ARRAY_A(2,1)*ARRAY_B(2,1) ARRAY_C(1,2)=ARRAY_A(1,2)*ARRAY_B(1,2) ARRAY_C(2,2)=ARRAY_A(2,2)*ARRAY_B(2,2) WRITE(*,*)ARRAY_C(1,1) WRITE(*,*)ARRAY_C(2,1) WRITE(*,*)ARRAY_C(1,2) WRITE(*,*)ARRAY_C(2,2) END IF ! SPECIFIY IF OPERATION IS NOT POSSIBLE WRITE(*,*)"OPERATION NOT POSSIBLE" ! PAUSE PROGRAM TO READ RESULTS WRITE(*,*)"HIT ENTER TO CLOSE" END PROGRAM

Related Questions

Navigate

• Browse (All)
• Browse P
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.