PROGRAM test_sum
  REAL,DIMENSION(10) :: x
  INTEGER               :: tmp,i,ind,cloud_base,cloud_top
  x(1) = 0.2
  x(2) = 0.2
  x(3) = 1.2
  x(4) = 1.2
  x(5) = 1.2
  x(6) = 0.1
  x(7) = 1.23 !tarkotus löytyää tämä indekis
  x(8) = 1.43
  x(9) = 1.65 !ja tämä
  x(10) = 0.1
  x = x(size(x):1:-1) !reverse order
  WHERE(x >= 1) x = 999
  WHERE(x < 1) x=-990
  print*, SIZE(x)-MAXLOC(x)+1 !tää palautttaa indexin 9
END PROGRAM