better snippet for fortran