integer function ifunc(i)
integer :: i
ifunc = i * 912
end function
