Fortran snippet improved