clean up sample_fortran