    
C     INCLUDE 'Zwino.inc'  -------------------- for WINGX --------------
C-----------------------------------------------------------------------

*     SUBROUTINE WINOUT (CH)
      CHARACTER CH*(*)
C        Write one character line to unit 6 = terminal screen 
C        this subroutine is only called by subroutine WR24 (= $005 )
C        NOTE:    maximum character length of output dirdif = 72 . 
      WRITE (6, FMT='(A)') CH
      RETURN
      END 

C end of 'Zwino.inc'
  