Fortran 77 <- Quesito

[Dun]

Non riesco a farsi che una subroutine modifichi un array dimodoche' il programma principale possa utilizzarlo.

Continuo ad avere risultati discordanti.


Avete qualche link illuminante?

[maxithron]

potresti postare un pezzetto di codice ?

[Dun]

Ecco qua

Scusate se nn l'ho fatto subito.
Il programmaino dovrebbe calcolare la media pesata di una serie di esami

E il mio primo prog in Fortran quindi passibile di enormi cazzate
Ehm...lasciate stare i commenti

C------Calcolo della media pesata v.0.1---

	PROGRAM MEDIA
	
C------Dichiarazione delle variabili------
	INTEGER SCELTA
	REAL RISULTATO
C------Inizializzazione della matrice-----
	PARAMETER (LARG = 2, ALT = 100, TOT = LARG * ALT)
	INTEGER VOTI(ALT,LARG), ZERO
	PARAMETER (ZERO = 0)
	DATA VOTI / TOT * ZERO /
C------Main vero e proprio----------------
	WRITE(*,*)'PRORAMMA PER CALCOLARE LA MEDIA PESATA'
10	WRITE(*,*)'---------------------------------------'
	WRITE(*,*)'Digitare:'
	WRITE(*,*)'1 - Per inserire un altro esame'
	WRITE(*,*)'2 - Per visualizzare la media pesata'
	WRITE(*,*)'0 - Per uscire dal programma'
	READ(*,*) SCELTA
	IF(SCELTA .EQ. 1) THEN
		CALL INSERISCI(VOTI)
C-------Pare che gli array non vengano restituiti modificati//
C-------Invece il problema e la sub TROVA
		WRITE(*,*) 'Per il main il primo votoe:', VOTI(1,1)
C-------NON e cosi semplice...
		GOTO 10
	ELSE IF(SCELTA .EQ. 2) THEN
		WRITE(*,*) 'La media pesata risulta:', CALCOLA(VOTI)
		GOTO 10
	END IF
	
	WRITE(*,*)'Uscita dal programma...'
	END	
	
	FUNCTION TROVA(A)
	INTEGER A(100,2)
	INTEGER ZER = 0
	DO 15, I = 1, ALT
		IF(A(I,1) .EQ. ZER) THEN
			GOTO 15
		ENDIF		
15	CONTINUE
C------TEST START
	WRITE(*,*) 'Secondo trova(a) la riga vuota e:', I
C------TEST END
	TROVA = I
	END
	
	FUNCTION CALCOLA(B)
	INTEGER B(100,2)
	INTEGER CREDITITOT = 0
	INTEGER VOTICREDI = 0
	INTEGER FINERIGA = (TROVA(B) - 1)
	DO 20, I = 1, FINERIGA
		VOTICREDI = VOTICREDI + ( B(I,1) * B(I,2) )
		CREDITITOT = CREDITITOT + B(I,2)
20	CONTINUE
	CALCOLA = VOTICREDI / CREDITITOT	
	END

C------Che sia il cambiare da sub a funct?	
	SUBROUTINE INSERISCI(A)
	INTEGER A(100,2)
	INTEGER TROVARIGA = TROVA(A)	
	WRITE(*,*) 'Inserisci voto dell esame'
	READ(*,*) A(TROVARIGA,1)
	WRITE(*,*) 'Inserisci i rispettivi crediti'
	READ(*,*) A(TROVARIGA,2)
	WRITE(*,*) 'Secondo Inserisci la riga dove ha inserito e:', TROVARIGA
	WRITE(*,*) 'Secondo Inserisci il voto della riga appena ins. e:', A(TROVARIGA,1)
	
	END