C Harjoitus 5 Tehtävä 4: FORTRAN -ESIMERKKI ALIOHJELMAN PARAMETRIN
C VÄLITYSMEKANISMISTA

	SUBROUTINE TUTKI(II,JJ)
	INTEGER II,JJ
	PRINT *,'II = ',II
	PRINT *,'JJ = ',JJ
	JJ = 100

C 	SIJOITETAAN ARVO TOISEEN PARAMETRIIN JA TUTKITAAN KUMMATKIN
C 	JOS SAMA MUUTTUJA VÄLITETTY PARAMTEREISSA JA KÄYTETÄÄN
C 	VIITEVÄLITYSTÄ, NIIN TOISENKIN PARAMETRIN ARVO VAIHTUU
 
	PRINT *,'SIJOITUKSEN JALKEEN II = ',II
	PRINT *,'JJ = ',JJ
	RETURN
	END
	

	INTEGER I
	I = 20

C  VÄLITETÄÄN SAMA MUUTTUJA KUMPAANKIN PARAMETRIIN:
	CALL TUTKI(I,I)
	END