1      SUBROUTINE CLNINF(IOPT)
2      INCLUDE 'com_boutons.f'
3      INCLUDE 'com_options.f'
4Cfj      CALL GSCOL(ICOLAX)
5Cfj      CALL GSLW(IEPBOR)
6      CALL GSPAT(8)
7      CALL GSBND(XHELP,XDMA2,YDMI2,YDMIN)
8      CALL MY_GSAREA2B(XHELP,XDMA2,YDMI2,YDMIN)
9Cfj      CALL GSMOVE(XHELP,YDMIN)
10Cfj      CALL GSLINE(XHELP,YDMI2)
11Cfj      CALL GSLINE(XDMA2,YDMI2)
12Cfj      CALL GSLINE(XDMA2,YDMIN)
13      CALL GSLW(0)
14cnew
15      IX0 = IVRAIECOORD(XHELP)
16      IX1 = IVRAIECOORD(XDMAX)
17      PIXEL = (XDMAX-XHELP)/REAL(IABS(IX0-IX1))
18      CALL GSCOL(7)
19      CALL GSMOVE(XHELP+PIXEL,YDMI2+PIXEL)
20      CALL GSLINE(XDMA2-PIXEL,YDMI2+PIXEL)
21      CALL GSLINE(XDMA2-PIXEL,YDMIN-PIXEL)
22      CALL GSCOL(15)
23      CALL GSLINE(XHELP+PIXEL,YDMIN-PIXEL)
24      CALL GSLINE(XHELP+PIXEL,YDMI2+PIXEL)
25cnew
26      IF (IOPT.GT.0) THEN
27        PIPI = PIXEL*2.
28        CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI)
29        CALL GSLSS(IFONT7)
30        CALL ASFCOL(3)
31        YYY = YINFO-PIXEL
32        CALL GSCHAR2(XINFO,YYY,128,HBOUT(NBOUT+1+IOPT))
33        IF (IOPT.GT.1) THEN
34          IF (ILANG.NE.0.AND.IOPT.GE.0) THEN
35            CALL ASFCOL(1)
36            IF (IOPT.EQ.2) THEN
37              LTOTO = 5
38            ELSE
39              LTOTO = 8
40            ENDIF
41            CALL GSCHAR2(XINFO,YYY,LTOTO,HBOUT(NBOUT+1+IOPT))
42          ELSE
43            CALL ASFCOL(1)
44            CALL GSCHAR2(XINFO,YYY,18,HBOUT(NBOUT+1+IOPT))
45            CALL ASFCOL(3)
46            CALL GSCHAR2(XINFO,YYY,8,HBOUT(NBOUT+1+IOPT))
47          ENDIF
48        ENDIF
49      ENDIF
50      END
51C-----------------------------------------------------------------------
52      SUBROUTINE ECHELP(IB,IOPT)
53      INCLUDE 'com_boutons.f'
54      INCLUDE 'com_options.f'
55      CALL GSPAT(8)
56      CALL GSLSS(IFONT7)
57      PIPI = PIXEL*2.
58      CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI)
59      YYY = YINFO-PIXEL
60      IF (IOPT.EQ.0) THEN
61        CALL ASFCOL(3)
62        CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB))
63        CALL ASFCOL(1)
64        CALL GSCHAR2(XINFO,YYY,1,HBOUT(IB))
65      ELSE
66        CALL ASFCOL(1)
67        CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB))
68      ENDIF
69      CALL GSBND(XHELP,XDMAX,YDMIN,YDMIN)
70      END
71