PROGRAM Equation_Set_Solution_by_Gauss_Sidel_Method
!This program have been written by Pedram Niakan
IMPLICIT NONE
DOUBLE PRECISION :: er,sum
DOUBLE PRECISION,ALLOCATABLE :: a(:,:),b(:),x(:),y(:)
INTEGER :: i,j,k,n
!Declaration of the matrix of factors
WRITE (*,*) "Please enter number...