Revision of fortran snippet