fortran snippet update