Changed to conform to gfortran -pedantic -std=f2008