Fortran function example

This is an example in Fortran how to make a function:

Result: