C----------------------------------------
C subroutine  GMREDI_OUTPUT
C----------------------------------------
CADJ SUBROUTINE GMREDI_OUTPUT INPUT  = 1,2,3
CADJ SUBROUTINE GMREDI_OUTPUT OUTPUT =