[FORTRAN] E' giusto? (esame domani)

[8310]

Salve a tutti, oggi ho provato a fare il seguente esercizio riguardante la codifica in linguaggio Fortran. L'esercizio è: "implementare in Fortran un algoritmo che data una matrice quadrata reale di ordine n, stampi una tabella in cui in ogni riga siano presenti l'elemento diagonale della riga I-esima della matrice e la somma dei valori assoluti degli elementi della stessa I-esima riga tranne l'elemento diagonale, ordinati in ordine crescente (nella prima riga la somma più elevata, nell'ultima la somma più piccola)" (il testo non era proprio così perchè si riferiva al teorema di Gershgorin, ho cercato di tradurlo )
Dunque io ho codificato il tutto in questo modo:

	PROGRAM GERSHGORIN
	DIMENSION A(10,10), R(10)
	LOGICAL C
	WRITE(*,*)'Inserisci l'ordine della matrice:'
	READ(*,*)N
	DO I=1,N
		WRITE(*,*)'Inserisci la riga ', I ,' della matrice:'
		READ(*,*)(A(I,J),J=1,N)
	END DO	
	DO I=1,N
		R(I)=0.0
		DO 1 J=1,N
			IF J=I THEN
				GO TO 1
			ELSE
				R(I)=R(I)+ABS(A(I,J))
			END IF
1		CONTINUE
	END DO
5	C=.TRUE.
	DO I=1,N-1
		IF (R(I).GT.R(I+1)) THEN
			B=R(I)
			R(I)=R(I+1)
			R(I+1)=B
			D=A(I,I)
			A(I,I)=A(I+1,I+1)
			A(I+1,I+1)=D
			C=.FALSE.
		END IF
	END DO
	IF (C) THEN
		WRITE(*,*)'Centro ', A(I,I) ,' raggio ', R(I)
	ELSE GO TO 5
	STOP
	END

Secondo voi può andar bene?A me non convince per nulla So che non è molto chiaro quello che ho scritto ma sono sfinito.... Grazie anticipatamente dell'aiuto....

[a2000.1]

fa cagher

[8310]

Originariamente inviato da a2000.1

fa cagher

Grazie dell'impressione...magari però mi saresti stato più di aiuto spiegandomi cosa non va e, se non va bene nulla, come si fa....idee per farlo diventare presentabile?Comunque, prima non l'avevo scritto, ma la parte certamente sbagliata è la fine...penso che già così possa andare meglio:

	PROGRAM GERSHGORIN
	DIMENSION A(10,10), R(10)
	LOGICAL C
	WRITE(*,*)'Inserisci l'ordine della matrice:'
	READ(*,*)N
	DO I=1,N
		WRITE(*,*)'Inserisci la riga ', I ,' della matrice:'
		READ(*,*)(A(I,J),J=1,N)
	END DO	
	DO I=1,N
		R(I)=0.0
		DO 1 J=1,N
			IF J=I THEN
				GO TO 1
			ELSE
				R(I)=R(I)+ABS(A(I,J))
			END IF
1		CONTINUE
	END DO
5	C=.TRUE.
	DO I=1,N-1
		IF (R(I).GT.R(I+1)) THEN
			B=R(I)
			R(I)=R(I+1)
			R(I+1)=B
			D=A(I,I)
			A(I,I)=A(I+1,I+1)
			A(I+1,I+1)=D
			C=.FALSE.
		END IF
	END DO
	IF (.NOT.C) THEN GO TO 5
	ELSE
		DO I=1,N
			WRITE(*,*)'Centro ', A(I,I) ,' raggio ', R(I)
		END DO
	END IF
	STOP
	END

PS: per centro intendo l'elemento diagonale, per raggio intendo la somma dei valori assoluti degli elementi della riga corrispondente all'elemento diagonale fatto salvo l'elemento diagonale stesso.

PPS: me ne frega nulla dei fronzoli tipo formattazione del testo e tabella carina...mi interessa solo la logica dell'algoritmo

[8310]

Grazie ma si può chiudere

L'esame e andato, e alla grandeeeeee