Program Gauss Jordan dengan Fortran
c Contoh program
Gauss Jordan
INTEGER ORDO
REAL M(10,10), MB(10,10)
C ********** I N P U T M A T R I K S **********
WRITE (*,'(24(/))')
WRITE (*,'(''BANYAK ORDO MATRIKS = '',\)')
READ (*,'(I4)') ORDO
WRITE (*,*)
DO 6 I = 1, ORDO
DO 5 J = 1, ORDO
WRITE (*,'(2X,''ELEMEN ('',I1,'','',I2,'') = '',\)') I, J
READ (*, *) M(I,J)
5 CONTINUE
6 CONTINUE
INTEGER ORDO
REAL M(10,10), MB(10,10)
C ********** I N P U T M A T R I K S **********
WRITE (*,'(24(/))')
WRITE (*,'(''BANYAK ORDO MATRIKS = '',\)')
READ (*,'(I4)') ORDO
WRITE (*,*)
DO 6 I = 1, ORDO
DO 5 J = 1, ORDO
WRITE (*,'(2X,''ELEMEN ('',I1,'','',I2,'') = '',\)') I, J
READ (*, *) M(I,J)
5 CONTINUE
6 CONTINUE