add simple fortran function example