modify fortran snippet