PROGRAM TEST

  USE DIFFERENCE
  IMPLICIT NONE

  INTEGER :: array(10) = (/ 90, 47, 58, 29, 22, 32, 55, 5, 55, 73 /)
  INTEGER :: i

  DO i = 1, 9
    CALL Fdiff(array, i)
  END DO

  END PROGRAM TEST