Fortran warning fixed