Fixing trunk: error in Fortran logic