PROGRAM vaihtotesti
  IMPLICIT NONE
  REAL, DIMENSION(3) :: taulu = (/ 0.5, -0.5, 1.0 /)

  WRITE (*,*) taulu
  CALL vaihda(1,2)
  WRITE (*,*) taulu
CONTAINS
  SUBROUTINE vaihda(i,j)
    IMPLICIT NONE
    INTEGER, INTENT(IN) :: i, j
    REAL :: apu
    apu = taulu(i)
    taulu(i) = taulu(j)
    taulu(j) = apu
  END SUBROUTINE vaihda
END PROGRAM vaihtotesti