module LibInterface interface to subroutine Summation [C, alias:'_Summation'] (value1, value2, sum) real*4 value1 [value] real*4 value2 [value] real*4 sum [reference] end interface to real*4 function GetSumOfArrayElements [C, alias:'_GetSumOfArrayElements'] (arrayOfFloats, arrayLength) real*4 arrayOfFloats(*) integer*4 arrayLength [value] end end module LibInterface