filon fortran code