شاید این باشه مطمئن نیستم برریش کن:
! ---------------------PROGRAM GAUSSIAN
! gauss.f90
! PROGRAM OF GAUSSIAN ELIMINATION
PARAMETER (IN=20)
REAL:: A(IN,IN), B(IN)
PRINT *,'INPUT NUMBER OF EQUATIONS N='
READ (5,*) N
PRINT *,'INPUT MATRIX COEFFICIENTS A(I,J)='
READ (5,*)...