PROGRAM matrix_addition IMPLICIT NONE INTEGER::i,j,m,n,p,q REAL, DIMENSION(10,10)::mat1,mat2,res PRINT *, '============================================' PRINT *, 'PROGRAM TO ADD 2 MATRICES [ BY WWW.BOTTOMSCIENCE.COM ]' PRINT *, '============================================' PRINT *, 'FOR MATRIX 1' PRINT *, 'ENTER THE NUMBER OF ROWS' READ(*,*) m PRINT *, 'ENTER THE NUMBER OF COLUMNS' READ(*,*) n PRINT *, 'ENTER THE ELEMENTS' READ(*,*) ((mat1(i,j),j=1,n),i=1,m) PRINT *, 'FOR MATRIX 2' PRINT *, 'ENTER THE NUMBER OF ROWS' READ(*,*) p PRINT *, 'ENTER THE NUMBER OF COLUMNS' READ(*,*) q PRINT *, 'ENTER THE ELEMENTS' READ(*,*) ((mat2(i,j),j=1,q),i=1,p) IF(m==p .and. n==q) THEN DO i=1,m DO j=1,q res(i,j)=mat1(i,j)+mat2(i,j) END DO END DO DO i=1,m WRITE(*,*) (res(i,j),j=1,q) END DO ELSE PRINT *,'MATRIX ADDITION NOT POSSIBLE (DIMENSION ERROR)' END IF END PROGRAM
OUTPUT
Fortran Programming
Numerical Methods
- Bisection Method
- Regula Falsi (False Position)
- Newton Raphson Method
- Secant method
- Newton Raphson – Non-Linear Equations
- Gauss Elimination Method
- Gauss Elimination Method (With Pivoting)
- Gauss Jordan Method
- Gauss Elimination – Determinant
- Gauss Jordan – Inverse Matrix
- Lagrange Interpolation
- Newton Divided Interpolation
- Newton Forward Interpolation
- Least Square Fitting
- Trapezoidal Rule
- Simpson 1/3rd Rule
- Simpson 3/8 Rule
- Euler’s Method
- Euler’s Modified Method
- Runge Kutta’s (2nd Order)
- Runge Kutta’s (4th Order)