SUBROUTINE CLNINF(IOPT)
      INCLUDE 'com_boutons.f'
      INCLUDE 'com_options.f'
Cfj      CALL GSCOL(ICOLAX)
Cfj      CALL GSLW(IEPBOR)
      CALL GSPAT(8)
      CALL GSBND(XHELP,XDMA2,YDMI2,YDMIN)
      CALL MY_GSAREA2B(XHELP,XDMA2,YDMI2,YDMIN)
Cfj      CALL GSMOVE(XHELP,YDMIN)
Cfj      CALL GSLINE(XHELP,YDMI2)
Cfj      CALL GSLINE(XDMA2,YDMI2)
Cfj      CALL GSLINE(XDMA2,YDMIN)
      CALL GSLW(0)
cnew
      IX0 = IVRAIECOORD(XHELP)
      IX1 = IVRAIECOORD(XDMAX)
      PIXEL = (XDMAX-XHELP)/REAL(IABS(IX0-IX1))
      CALL GSCOL(7)
      CALL GSMOVE(XHELP+PIXEL,YDMI2+PIXEL)
      CALL GSLINE(XDMA2-PIXEL,YDMI2+PIXEL)
      CALL GSLINE(XDMA2-PIXEL,YDMIN-PIXEL)
      CALL GSCOL(15)
      CALL GSLINE(XHELP+PIXEL,YDMIN-PIXEL)
      CALL GSLINE(XHELP+PIXEL,YDMI2+PIXEL)
cnew
      IF (IOPT.GT.0) THEN
        PIPI = PIXEL*2.
        CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI)
        CALL GSLSS(IFONT7)
        CALL ASFCOL(3)
        YYY = YINFO-PIXEL
        CALL GSCHAR2(XINFO,YYY,128,HBOUT(NBOUT+1+IOPT))
        IF (IOPT.GT.1) THEN
          IF (ILANG.NE.0.AND.IOPT.GE.0) THEN
            CALL ASFCOL(1)
            IF (IOPT.EQ.2) THEN
              LTOTO = 5
            ELSE
              LTOTO = 8
            ENDIF
            CALL GSCHAR2(XINFO,YYY,LTOTO,HBOUT(NBOUT+1+IOPT))
          ELSE
            CALL ASFCOL(1)
            CALL GSCHAR2(XINFO,YYY,18,HBOUT(NBOUT+1+IOPT))
            CALL ASFCOL(3)
            CALL GSCHAR2(XINFO,YYY,8,HBOUT(NBOUT+1+IOPT))
          ENDIF
        ENDIF
      ENDIF
      END
C-----------------------------------------------------------------------
      SUBROUTINE ECHELP(IB,IOPT)
      INCLUDE 'com_boutons.f'
      INCLUDE 'com_options.f'
      CALL GSPAT(8)
      CALL GSLSS(IFONT7)
      PIPI = PIXEL*2.
      CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI)
      YYY = YINFO-PIXEL
      IF (IOPT.EQ.0) THEN
        CALL ASFCOL(3)
        CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB))
        CALL ASFCOL(1)
        CALL GSCHAR2(XINFO,YYY,1,HBOUT(IB))
      ELSE
        CALL ASFCOL(1)
        CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB))
      ENDIF
      CALL GSBND(XHELP,XDMAX,YDMIN,YDMIN)
      END