subroutine flush(lu) !$$$ subprogram documentation block ! . . . . ! subprogram: flush ! prgmmr: ! ! abstract: Missing routine ! ! program history log: ! 2009-08-06 lueken - added subprogram doc block ! ! input argument list: ! ! output argument list: ! ! attributes: ! language: f90 ! machine: ! !$$$ end documentation block use kinds, only : i_kind implicit none integer(i_kind),intent(in ) :: lu end subroutine flush