program FortranExampleExe
	
	use LibInterface

	implicit none

	real*4 value1, value2, sum
	
	real*4 arrayOfFloats(100)
	integer*4 arrayLength
	real*4 sumOfArrayElements
	
	integer*4 index
	
	print *, 'Fortran example'
	
	value1 = 2.5
	value2 = 3
	call Summation(value1, value2, sum)
	print *, 'Summation: '
	print *, 'value1 = ', value1
	print *, 'value2 = ', value2
	print *, 'sum = ', sum
	
	arrayOfFloats(1) =  4
	arrayOfFloats(2) =  8
	arrayOfFloats(3) = 15
	arrayLength = 3
	sumOfArrayElements = GetSumOfArrayElements(arrayOfFloats, arrayLength)
	print *, 'GetSumOfArrayElements'
	index = 1
	do
		if (index.gt.arrayLength) exit
		print *, 'Element = ', index, 'Value = ', arrayOfFloats(index)
		index = index + 1
	enddo
	print *, 'Sum = ', sumOfArrayElements
	print *, 'End'

	end program FortranExampleExe