ADAS Subroutine xxwlgc

      SUBROUTINE XXwLGC ( LVAR )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXWLGC *********************
C
C  PURPOSE: Sends a 1 for true or a 0 for false to IDL
C
C  CALLING PROGRAM: GENERAL USE
C
C
C  SUBROUTINE:
C
C
C INPUT:   (L)     LVAT     = Logic variable to write to IDL
C
C          (I*4)   PIPEOU   = PARAMETER = UNIT NUMBER FOR INPUT TO PIPE
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          XXFLSH     ADAS      FLUSHES I/O BUFFER
C
C AUTHOR:  Martin O'Mullane
C
C DATE:    28-02-2003
C
C-----------------------------------------------------------------------
      LOGICAL             LVAR