Télécharger la plaquette Cast3M


fr en

Télécharger trinit.eso

Retour à la liste

Numérotation des lignes : 

trinit

  1. C TRINIT    SOURCE    CB215821  21/07/12    21:15:24     11074          
  2.       SUBROUTINE TRINIT(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  3. C  DRIVER GRAPHIQUE
  4. C  ORIENTE SUR LA BONNE INTERFACE SELON IOGRA
  5. C
  6. C          1  LGI                2 XWINDOW        3 GDDM (3179 G )
  7. C          4  GKS                5 PHIGS          6 OPENGL
  8. C          7  POSTSCRIPT         8 MIF            9 POSTSCRIPT COULEUR
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.       LOGICAL VALEU,FENET
  12.       DIMENSION XTR(*),YTR(*)
  13.       CHARACTER*(*) TITR,CARACT,LEGEND
  14.       CHARACTER*26 MINUS,MAJUS
  15.       external long
  16.       segment slegen
  17.        character*(llong) legen2(ncase)
  18.       endsegment
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC CCTRACE
  23.       SAVE IOGRB
  24.       DATA IOGRB/9/
  25.       DATA MINUS/'abcdefghijklmnopqrstuvwxyz'/
  26.       DATA MAJUS/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
  27.  
  28.  
  29.       IF (IOGRA.EQ.7) IOGRB=7
  30.       IF (IOGRA.EQ.2) THEN
  31.         CALL XTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  32.       ELSEIF (IOGRA.EQ.3) THEN
  33.         CALL GTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  34.       ELSEIF (IOGRA.EQ.4) THEN
  35.         CALL KTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  36.       ELSEIF (IOGRA.EQ.5) THEN
  37.         CALL PTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  38.       ELSEIF (IOGRA.EQ.6) THEN
  39.         CALL OTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA,IOPOLI,ICOSC)
  40.       ENDIF
  41. *         si ncouma = 0 on n'a pas pu ouvrir l'ecran on fait du papier
  42.         if (ncouma.eq.0) iogra=iogrb
  43.       IF (IOGRA.EQ.1) THEN
  44.         CALL LTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  45.       ELSEIF (IOGRA.EQ.7) THEN
  46.         CALL STRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  47.       ELSEIF (IOGRA.EQ.8) THEN
  48.         CALL MTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  49.       ELSEIF (IOGRA.EQ.9) THEN
  50.         CALL CTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA)
  51.       ENDIF
  52.       RETURN
  53. *
  54.       ENTRY DFENET(XMIN,XXAX,YMIN,YYAX,ZMIN,ZZAX,XR1,XR2,YR1,YR2,FENET)
  55.       IF (IOGRA.EQ.1) THEN
  56.         CALL LDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  57.       ELSEIF (IOGRA.EQ.2) THEN
  58.         CALL XDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  59.       ELSEIF (IOGRA.EQ.3) THEN
  60.         CALL GDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  61.       ELSEIF (IOGRA.EQ.4) THEN
  62.         CALL KDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  63.       ELSEIF (IOGRA.EQ.5) THEN
  64.         CALL PDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  65.       ELSEIF (IOGRA.EQ.6) THEN
  66.         CALL ODFENE(XMIN,XXAX,YMIN,YYAX,ZMIN,ZZAX,XR1,XR2,YR1,YR2,FENET)
  67.       ELSEIF (IOGRA.EQ.7) THEN
  68.         CALL SDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  69.       ELSEIF (IOGRA.EQ.8) THEN
  70.         CALL MDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  71.       ELSEIF (IOGRA.EQ.9) THEN
  72.         CALL CDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET)
  73.       ENDIF
  74.       RETURN
  75. *
  76.       ENTRY TRLABL(X,Y,Z,CARACT,NCAR,HAUTT)
  77.       IF (IOGRA.EQ.1) THEN
  78.         CALL LTRLAB(X,Y,CARACT,NCAR,HAUTT)
  79.       ELSEIF (IOGRA.EQ.2) THEN
  80.         CALL XTRLAB(X,Y,CARACT,NCAR,HAUTT,IPOLI)
  81.       ELSEIF (IOGRA.EQ.3) THEN
  82.         CALL GTRLAB(X,Y,CARACT,NCAR,HAUTT)
  83.       ELSEIF (IOGRA.EQ.4) THEN
  84.         CALL KTRLAB(X,Y,CARACT,NCAR,HAUTT)
  85.       ELSEIF (IOGRA.EQ.5) THEN
  86.         CALL PTRLAB(X,Y,CARACT,NCAR,HAUTT)
  87.       ELSEIF (IOGRA.EQ.6) THEN
  88.         CALL OTRLAB(X,Y,Z,CARACT,NCAR,HAUTT)
  89.       ELSEIF (IOGRA.EQ.7) THEN
  90.         CALL STRLAB(X,Y,CARACT,NCAR,HAUTT)
  91.       ELSEIF (IOGRA.EQ.8) THEN
  92.         CALL MTRLAB(X,Y,CARACT,NCAR,HAUTT)
  93.       ELSEIF (IOGRA.EQ.9) THEN
  94.         CALL CTRLAB(X,Y,CARACT,NCAR,HAUTT)
  95.       ENDIF
  96.       RETURN
  97. *
  98.       ENTRY TRBOX (HAUTX,HAUTY)
  99.       IF (IOGRA.EQ.1) THEN
  100.         CALL LTRBOX(HAUTX,HAUTY)
  101.       ELSEIF (IOGRA.EQ.2) THEN
  102.         CALL XTRBOX(HAUTX,HAUTY)
  103.       ELSEIF (IOGRA.EQ.3) THEN
  104.         CALL GTRBOX(HAUTX,HAUTY)
  105.       ELSEIF (IOGRA.EQ.4) THEN
  106.         CALL KTRBOX(HAUTX,HAUTY)
  107.       ELSEIF (IOGRA.EQ.5) THEN
  108.         CALL PTRBOX(HAUTX,HAUTY)
  109.       ELSEIF (IOGRA.EQ.6) THEN
  110.         CALL OTRBOX(HAUTX,HAUTY)
  111.       ELSEIF (IOGRA.EQ.7) THEN
  112.         CALL STRBOX(HAUTX,HAUTY)
  113.       ELSEIF (IOGRA.EQ.8) THEN
  114.         CALL MTRBOX(HAUTX,HAUTY)
  115.       ELSEIF (IOGRA.EQ.9) THEN
  116.         CALL CTRBOX(HAUTX,HAUTY)
  117.       ENDIF
  118.       RETURN
  119. *
  120.       ENTRY CHCOUL(JCOLO)
  121. *      if (jcolo.lt.0) write (6,*) ' jcolo null dans chcoul '
  122. *      if (jcolo.gt.1000) write (6,*) ' jcolo dans chcoul : ',jcolo
  123.       IF (IOGRA.EQ.1) THEN
  124.         CALL LCHCOU(JCOLO)
  125.       ELSEIF (IOGRA.EQ.2) THEN
  126.         CALL XCHCOU(JCOLO)
  127.       ELSEIF (IOGRA.EQ.3) THEN
  128.         CALL GCHCOU(JCOLO)
  129.       ELSEIF (IOGRA.EQ.4) THEN
  130.         CALL KCHCOU(JCOLO)
  131.       ELSEIF (IOGRA.EQ.5) THEN
  132.         CALL PCHCOU(JCOLO)
  133.       ELSEIF (IOGRA.EQ.6) THEN
  134.         CALL OCHCOU(JCOLO)
  135.       ELSEIF (IOGRA.EQ.7) THEN
  136.         CALL SCHCOU(JCOLO)
  137.       ELSEIF (IOGRA.EQ.8) THEN
  138.         CALL MCHCOU(JCOLO)
  139.       ELSEIF (IOGRA.EQ.9) THEN
  140.         CALL CCHCOU(JCOLO)
  141.       ENDIF
  142.       RETURN
  143. *
  144.       ENTRY FVALIS(IFENI,IRESU,NH,NISO)
  145.       IF (IOGRA.EQ.1) THEN
  146.         CALL LFVALI(IFENI,IRESU,NH)
  147.       ELSEIF (IOGRA.EQ.2) THEN
  148.         CALL XFVALI(IFENI,IRESU,NH,NISO)
  149.       ELSEIF (IOGRA.EQ.3) THEN
  150.         CALL GFVALI(IFENI,IRESU,NH)
  151.       ELSEIF (IOGRA.EQ.4) THEN
  152.         CALL KFVALI(IFENI,IRESU,NH)
  153.       ELSEIF (IOGRA.EQ.5) THEN
  154.         CALL PFVALI(IFENI,IRESU,NH)
  155.       ELSEIF (IOGRA.EQ.6) THEN
  156.         CALL OFVALI(IFENI,IRESU,NH,niso)
  157.       ELSEIF (IOGRA.EQ.7) THEN
  158.          CALL SFVALI(IFENI,IRESU,NH,NISO)
  159.       ELSEIF (IOGRA.EQ.8) THEN
  160.         CALL MFVALI(IFENI,IRESU,NH)
  161.       ELSEIF (IOGRA.EQ.9) THEN
  162.         CALL CFVALI(IFENI,IRESU,NH,NISO)
  163.        ENDIF
  164.       RETURN
  165. *
  166.       ENTRY MENU(LEGEND,NCASE,LLONG)
  167. **     write (6,*) ' dans menu '
  168.       IF (IOGRA.EQ.1) THEN
  169.         CALL LMENU(LEGEND,NCASE,LLONG)
  170.       ELSEIF (IOGRA.EQ.2) THEN
  171.         CALL XMENU(LEGEND,NCASE,LLONG)
  172.       ELSEIF (IOGRA.EQ.3) THEN
  173.         CALL GMENU(LEGEND,NCASE,LLONG)
  174.       ELSEIF (IOGRA.EQ.4) THEN
  175.         CALL KMENU(LEGEND,NCASE,LLONG)
  176.       ELSEIF (IOGRA.EQ.5) THEN
  177.         CALL PMENU(LEGEND,NCASE,LLONG)
  178.       ELSEIF (IOGRA.EQ.6) THEN
  179.         segini slegen
  180. **      write(6,*) ' ncase ',ncase
  181.         do im=1,ncase
  182.          lvrai=long(legend((im-1)*LLONG+1:(im-1)*llong+llong))
  183. **       write(6,*) ' lvrai ',lvrai
  184.          legen2(im) = ' '
  185.          legen2(im)((llong-lvrai)/2+1:(llong-lvrai)/2+lvrai)=
  186.      >         legend((im-1)*LLONG+1:(im-1)*llong+lvrai)
  187. **       write (6,*) ' trinit im legen ',im,legen2(im)
  188.         enddo
  189. **      write(6,*) ' avant omenu '
  190.         CALL OMENU(LEGEN2,NCASE,LLONG)
  191. **      write(6,*) ' apres omenu '
  192.         segsup slegen
  193.       ELSEIF (IOGRA.EQ.7) THEN
  194.         CALL SMENU(LEGEND,NCASE,LLONG)
  195.       ELSEIF (IOGRA.EQ.8) THEN
  196.         CALL MMENU(LEGEND,NCASE,LLONG)
  197.       ELSEIF (IOGRA.EQ.9) THEN
  198.         CALL CMENU(LEGEND,NCASE,LLONG)
  199.       ENDIF
  200.       RETURN
  201. *
  202.       ENTRY INSEGT(NBSEGT,IRESS)
  203.       IF (IOGRA.EQ.1) THEN
  204.         CALL LINSEG(NBSEGT,IRESS)
  205.       ELSEIF (IOGRA.EQ.2) THEN
  206.         CALL XINSEG(NBSEGT,IRESS)
  207.       ELSEIF (IOGRA.EQ.3) THEN
  208.         CALL GINSEG(NBSEGT,IRESS)
  209.       ELSEIF (IOGRA.EQ.4) THEN
  210.         CALL KINSEG(NBSEGT,IRESS)
  211.       ELSEIF (IOGRA.EQ.5) THEN
  212.         CALL PINSEG(NBSEGT,IRESS)
  213.       ELSEIF (IOGRA.EQ.6) THEN
  214.         CALL OINSEG(NBSEGT,IRESS)
  215.       ELSEIF (IOGRA.EQ.7) THEN
  216.         CALL SINSEG(NBSEGT,IRESS)
  217.       ELSEIF (IOGRA.EQ.8) THEN
  218.         CALL MINSEG(NBSEGT,IRESS)
  219.       ELSEIF (IOGRA.EQ.9) THEN
  220.         CALL CINSEG(NBSEGT,IRESS)
  221.       ENDIF
  222.       RETURN
  223. *
  224.       ENTRY POLRL(NTRSTU,XTR,YTR,ZTR)
  225.       IF (IOGRA.EQ.1) THEN
  226.         CALL LPOLRL(NTRSTU,XTR,YTR)
  227.       ELSEIF (IOGRA.EQ.2) THEN
  228.         CALL XPOLRL(NTRSTU,XTR,YTR)
  229.       ELSEIF (IOGRA.EQ.3) THEN
  230.         CALL GPOLRL(NTRSTU,XTR,YTR)
  231.       ELSEIF (IOGRA.EQ.4) THEN
  232.         CALL KPOLRL(NTRSTU,XTR,YTR)
  233.       ELSEIF (IOGRA.EQ.5) THEN
  234.         CALL PPOLRL(NTRSTU,XTR,YTR,ZTR)
  235.       ELSEIF (IOGRA.EQ.6) THEN
  236.         CALL OPOLRL(NTRSTU,XTR,YTR,ZTR)
  237.       ELSEIF (IOGRA.EQ.7) THEN
  238.         CALL SPOLRL(NTRSTU,XTR,YTR)
  239.       ELSEIF (IOGRA.EQ.8) THEN
  240.         CALL MPOLRL(NTRSTU,XTR,YTR)
  241.       ELSEIF (IOGRA.EQ.9) THEN
  242.         CALL CPOLRL(NTRSTU,XTR,YTR)
  243.       ENDIF
  244.       RETURN
  245. *
  246.       ENTRY TRDIG(X,Y,INCLE)
  247.       IF (IOGRA.EQ.1) THEN
  248.         CALL LTRDIG(X,Y,INCLE)
  249.       ELSEIF (IOGRA.EQ.2) THEN
  250.         CALL XTRDIG(X,Y,INCLE)
  251.       ELSEIF (IOGRA.EQ.3) THEN
  252.         CALL GTRDIG(X,Y,INCLE)
  253.       ELSEIF (IOGRA.EQ.4) THEN
  254.         CALL KTRDIG(X,Y,INCLE)
  255.       ELSEIF (IOGRA.EQ.5) THEN
  256.         CALL PTRDIG(X,Y,INCLE)
  257.       ELSEIF (IOGRA.EQ.6) THEN
  258.         CALL OTRDIG(X,Y,INCLE)
  259.       ELSEIF (IOGRA.EQ.7) THEN
  260.         CALL STRDIG(X,Y,INCLE)
  261.       ELSEIF (IOGRA.EQ.8) THEN
  262.         CALL MTRDIG(X,Y,INCLE)
  263.       ELSEIF (IOGRA.EQ.9) THEN
  264.         CALL CTRDIG(X,Y,INCLE)
  265.       ENDIF
  266.       RETURN
  267. *
  268.       ENTRY TRFACE(NP,XTR,YTR,ZTR,ZN,ICOLE,IEFF)
  269.       IF (IOGRA.EQ.1) THEN
  270.         CALL LTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  271.       ELSEIF (IOGRA.EQ.2) THEN
  272.         CALL XTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  273.       ELSEIF (IOGRA.EQ.3) THEN
  274.         CALL GTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  275.       ELSEIF (IOGRA.EQ.4) THEN
  276.         CALL KTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  277.       ELSEIF (IOGRA.EQ.5) THEN
  278.         CALL PTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  279.       ELSEIF (IOGRA.EQ.6) THEN
  280.         CALL OTRFAC(NP,XTR,YTR,ZTR,ZN,ICOLE,IEFF)
  281.       ELSEIF (IOGRA.EQ.7) THEN
  282.         CALL STRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  283.       ELSEIF (IOGRA.EQ.8) THEN
  284.         CALL MTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  285.       ELSEIF (IOGRA.EQ.9) THEN
  286.         CALL CTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF)
  287.       ENDIF
  288.       RETURN
  289. *
  290.       ENTRY TRAISO(NP,XTR,YTR,ICOLE)
  291.       IF (IOGRA.EQ.1) THEN
  292.         CALL LTRAIS(NP,XTR,YTR,ICOLE)
  293.       ELSEIF (IOGRA.EQ.2) THEN
  294.         CALL XTRAIS(NP,XTR,YTR,ICOLE)
  295.       ELSEIF (IOGRA.EQ.3) THEN
  296.         CALL GTRAIS(NP,XTR,YTR,ICOLE)
  297.       ELSEIF (IOGRA.EQ.4) THEN
  298.         CALL KTRAIS(NP,XTR,YTR,ICOLE)
  299.       ELSEIF (IOGRA.EQ.5) THEN
  300.         CALL PTRAIS(NP,XTR,YTR,ICOLE)
  301.       ELSEIF (IOGRA.EQ.6) THEN
  302.         CALL OTRAIS(NP,XTR,YTR,ICOLE)
  303.       ELSEIF (IOGRA.EQ.7) THEN
  304.         CALL STRAIS(NP,XTR,YTR,ICOLE)
  305.       ELSEIF (IOGRA.EQ.8) THEN
  306.         CALL MTRAIS(NP,XTR,YTR,ICOLE)
  307.       ELSEIF (IOGRA.EQ.9) THEN
  308.         CALL CTRAIS(NP,XTR,YTR,ICOLE)
  309.        ENDIF
  310.       RETURN
  311. *
  312.       ENTRY TREFF
  313.       IF (IOGRA.EQ.1) THEN
  314.         CALL LTREFF
  315.       ELSEIF (IOGRA.EQ.2) THEN
  316.         CALL XTREFF
  317.       ELSEIF (IOGRA.EQ.3) THEN
  318.         CALL GTREFF
  319.       ELSEIF (IOGRA.EQ.4) THEN
  320.         CALL KTREFF
  321.       ELSEIF (IOGRA.EQ.5) THEN
  322.         CALL PTREFF
  323.       ELSEIF (IOGRA.EQ.6) THEN
  324.         CALL OTREFF
  325.       ELSEIF (IOGRA.EQ.7) THEN
  326.       ENDIF
  327.       RETURN
  328. *
  329.       ENTRY TRAFF(ICLE)
  330.       IF (IOGRA.EQ.1) THEN
  331.         CALL LTRAFF(ICLE)
  332.       ELSEIF (IOGRA.EQ.2) THEN
  333.         CALL XTRAFF(ICLE)
  334.       ELSEIF (IOGRA.EQ.3) THEN
  335.         CALL GTRAFF(ICLE)
  336.       ELSEIF (IOGRA.EQ.4) THEN
  337.         CALL KTRAFF(ICLE)
  338.       ELSEIF (IOGRA.EQ.5) THEN
  339.         CALL PTRAFF(ICLE)
  340.       ELSEIF (IOGRA.EQ.6) THEN
  341.         CALL OTRAFF(ICLE)
  342.       ELSEIF (IOGRA.EQ.7) THEN
  343.         CALL STRAFF(ICLE)
  344.       ELSEIF (IOGRA.EQ.8) THEN
  345.         CALL MTRAFF(ICLE)
  346.       ELSEIF (IOGRA.EQ.9) THEN
  347.         CALL CTRAFF(ICLE)
  348.       ENDIF
  349.       RETURN
  350. *
  351.       ENTRY TRMFIN
  352.       IF (IOGRA.EQ.1) THEN
  353.         CALL LTRMFI
  354.       ELSEIF (IOGRA.EQ.2) THEN
  355.         CALL XTRMFI
  356.       ELSEIF (IOGRA.EQ.3) THEN
  357.         CALL GTRMFI
  358.       ELSEIF (IOGRA.EQ.4) THEN
  359.         CALL KTRMFI
  360.       ELSEIF (IOGRA.EQ.5) THEN
  361.         CALL PTRMFI
  362.       ELSEIF (IOGRA.EQ.6) THEN
  363.         CALL OTRMFI
  364.       ELSEIF (IOGRA.EQ.7) THEN
  365.         CALL STRMFI
  366.       ELSEIF (IOGRA.EQ.8) THEN
  367.         CALL MTRMFI
  368.       ELSEIF (IOGRA.EQ.9) THEN
  369.         CALL CTRMFI
  370.       ENDIF
  371.       RETURN
  372. *
  373.       ENTRY ZOOM(IZOOM,XMI,XMA,YMI,YMA)
  374.       IF (IOGRA.EQ.1) THEN
  375.         CALL LZOOM(IZOOM,XMI,XMA,YMI,YMA)
  376.       ELSEIF (IOGRA.EQ.2) THEN
  377.         CALL XZOOM(IZOOM,XMI,XMA,YMI,YMA)
  378.       ELSEIF (IOGRA.EQ.3) THEN
  379.         CALL GZOOM(IZOOM,XMI,XMA,YMI,YMA)
  380.       ELSEIF (IOGRA.EQ.4) THEN
  381.         CALL KZOOM(IZOOM,XMI,XMA,YMI,YMA)
  382.       ELSEIF (IOGRA.EQ.5) THEN
  383.         CALL PZOOM(IZOOM,XMI,XMA,YMI,YMA)
  384.       ELSEIF (IOGRA.EQ.6) THEN
  385.         CALL OZOOM(IZOOM,XMI,XMA,YMI,YMA)
  386.       ELSEIF (IOGRA.EQ.7) THEN
  387.         CALL SZOOM(IZOOM,XMI,XMA,YMI,YMA)
  388.       ELSEIF (IOGRA.EQ.8) THEN
  389.         CALL MZOOM(IZOOM,XMI,XMA,YMI,YMA)
  390.       ELSEIF (IOGRA.EQ.9) THEN
  391.         CALL CZOOM(IZOOM,XMI,XMA,YMI,YMA)
  392.       ENDIF
  393.       RETURN
  394. *
  395.       ENTRY CHANG(IRESU,ISORT,ICHANG,JSEG)
  396.       IF (IOGRA.EQ.1) THEN
  397.         CALL LCHANG(IRESU,ISORT,ICHANG,JSEG)
  398.       ELSEIF (IOGRA.EQ.2) THEN
  399.         CALL XCHANG(IRESU,ISORT,ICHANG,JSEG)
  400.       ELSEIF (IOGRA.EQ.3) THEN
  401.         CALL GCHANG(IRESU,ISORT,ICHANG,JSEG)
  402.       ELSEIF (IOGRA.EQ.4) THEN
  403.         CALL KCHANG(IRESU,ISORT,ICHANG,JSEG)
  404.       ELSEIF (IOGRA.EQ.5) THEN
  405.         CALL PCHANG(IRESU,ISORT,ICHANG,JSEG)
  406.       ELSEIF (IOGRA.EQ.6) THEN
  407.         CALL OCHANG(IRESU,ISORT,ICHANG,JSEG)
  408.       ELSEIF (IOGRA.EQ.7) THEN
  409.         CALL SCHANG(IRESU,ISORT,ICHANG,JSEG)
  410.       ELSEIF (IOGRA.EQ.8) THEN
  411.         CALL MCHANG(IRESU,ISORT,ICHANG,JSEG)
  412.       ELSEIF (IOGRA.EQ.9) THEN
  413.         CALL CCHANG(IRESU,ISORT,ICHANG,JSEG)
  414.       ENDIF
  415.       RETURN
  416. *
  417.       ENTRY INI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  418.       IF (IOGRA.EQ.1) THEN
  419.         CALL LINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  420.       ELSEIF (IOGRA.EQ.2) THEN
  421.         CALL XINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  422.       ELSEIF (IOGRA.EQ.3) THEN
  423.         CALL GINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  424.       ELSEIF (IOGRA.EQ.4) THEN
  425.         CALL KINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  426.       ELSEIF (IOGRA.EQ.5) THEN
  427.         CALL PINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  428.       ELSEIF (IOGRA.EQ.6) THEN
  429.         CALL OINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  430.       ELSEIF (IOGRA.EQ.7) THEN
  431.         CALL SINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  432.       ELSEIF (IOGRA.EQ.8) THEN
  433.         CALL MINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  434.       ELSEIF (IOGRA.EQ.9) THEN
  435.         CALL CINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  436.       ENDIF
  437.       RETURN
  438. *
  439.       ENTRY FLGI
  440.       IF (IOGRA.EQ.1) THEN
  441.         CALL LFLGI
  442.       ELSEIF (IOGRA.EQ.2) THEN
  443.         CALL XFLGI
  444.       ELSEIF (IOGRA.EQ.3) THEN
  445.         CALL GFLGI
  446.       ELSEIF (IOGRA.EQ.4) THEN
  447.         CALL KFLGI
  448.       ELSEIF (IOGRA.EQ.5) THEN
  449.         CALL PFLGI
  450.       ELSEIF (IOGRA.EQ.6) THEN
  451.         CALL OFLGI
  452.       ELSEIF (IOGRA.EQ.7) THEN
  453.         CALL SFLGI
  454.       ELSEIF (IOGRA.EQ.8) THEN
  455.         CALL MFLGI
  456.       ELSEIF (IOGRA.EQ.9) THEN
  457.         CALL MFLGI
  458.       ENDIF
  459.       RETURN
  460. *
  461.       ENTRY IMPR
  462.       IF (IOGRA.EQ.1) THEN
  463.         CALL LIMPR
  464.       ELSEIF (IOGRA.EQ.2) THEN
  465.         CALL XIMPR
  466.       ELSEIF (IOGRA.EQ.3) THEN
  467.         CALL GIMPR
  468.       ELSEIF (IOGRA.EQ.4) THEN
  469.         CALL KIMPR
  470.       ELSEIF (IOGRA.EQ.5) THEN
  471.         CALL PIMPR
  472.       ELSEIF (IOGRA.EQ.7) THEN
  473.         CALL SIMPR
  474.       ELSEIF (IOGRA.EQ.7) THEN
  475.         CALL OIMPR
  476.       ELSEIF (IOGRA.EQ.8) THEN
  477.       ELSEIF (IOGRA.EQ.9) THEN
  478.       ENDIF
  479.       RETURN
  480. *
  481.       ENTRY VAL(IRESU,ISORT,NISO)
  482.       IF (IOGRA.EQ.1) THEN
  483.         CALL LVAL(IRESU,ISORT,NISO)
  484.       ELSEIF (IOGRA.EQ.2) THEN
  485.         CALL XVAL(IRESU,ISORT,NISO)
  486.       ELSEIF (IOGRA.EQ.3) THEN
  487.         CALL GVAL(IRESU,ISORT,NISO)
  488.       ELSEIF (IOGRA.EQ.4) THEN
  489.         CALL KVAL(IRESU,ISORT,NISO)
  490.       ELSEIF (IOGRA.EQ.5) THEN
  491.         CALL PVAL(IRESU,ISORT,NISO)
  492.       ELSEIF (IOGRA.EQ.6) THEN
  493.         CALL OVAL(IRESU,ISORT,NISO)
  494.       ELSEIF (IOGRA.EQ.7) THEN
  495.         CALL SVAL(IRESU,ISORT,NISO)
  496.       ELSEIF (IOGRA.EQ.8) THEN
  497.         CALL MVAL(IRESU,ISORT,NISO)
  498.       ELSEIF (IOGRA.EQ.9) THEN
  499.         CALL CVAL(IRESU,ISORT,NISO)
  500.       ENDIF
  501.       RETURN
  502. *
  503.       ENTRY MAJSEG(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  504.       IF (IOGRA.EQ.1) THEN
  505.         CALL LMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  506.       ELSEIF (IOGRA.EQ.2) THEN
  507.         CALL XMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  508.       ELSEIF (IOGRA.EQ.3) THEN
  509.         CALL GMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  510.       ELSEIF (IOGRA.EQ.4) THEN
  511.         CALL KMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  512.       ELSEIF (IOGRA.EQ.5) THEN
  513.         CALL KMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  514.       ELSEIF (IOGRA.EQ.6) THEN
  515.         CALL OMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  516.       ELSEIF (IOGRA.EQ.7) THEN
  517.         CALL SMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  518.       ELSEIF (IOGRA.EQ.8) THEN
  519.         CALL MMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  520.       ELSEIF (IOGRA.EQ.9) THEN
  521.         CALL CMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  522.       ENDIF
  523.       RETURN
  524. *
  525.       ENTRY TRANIM(IANIM,NDEF)
  526.       IF (IOGRA.EQ.1) THEN
  527.         CALL LTRANI(IANIM,NDEF)
  528.       ELSEIF (IOGRA.EQ.2) THEN
  529.         CALL XTRANI(IANIM,NDEF)
  530.       ELSEIF (IOGRA.EQ.3) THEN
  531.         CALL GTRANI(IANIM,NDEF)
  532.       ELSEIF (IOGRA.EQ.4) THEN
  533.         CALL KTRANI(IANIM,NDEF)
  534.       ELSEIF (IOGRA.EQ.5) THEN
  535. *       CALL PTRANI(IANIM,NDEF)
  536.       ELSEIF (IOGRA.EQ.6) THEN
  537.         CALL OTRANI(IANIM,NDEF)
  538.       ELSEIF (IOGRA.EQ.7) THEN
  539. *       CALL STRANI(IANIM,NDEF)
  540.       ELSEIF (IOGRA.EQ.8) THEN
  541. *       CALL MTRANI(IANIM,NDEF)
  542.       ELSEIF (IOGRA.EQ.9) THEN
  543. *       CALL CTRANI(IANIM,NDEF)
  544.       ENDIF
  545.       RETURN
  546. *
  547.       ENTRY TRIMAG(IDEF)
  548.       IF (IOGRA.EQ.1) THEN
  549.         CALL LTRIMA(IDEF)
  550.       ELSEIF (IOGRA.EQ.2) THEN
  551.         CALL XTRIMA(IDEF)
  552.       ELSEIF (IOGRA.EQ.3) THEN
  553.         CALL GTRIMA(IDEF)
  554.       ELSEIF (IOGRA.EQ.4) THEN
  555.         CALL KTRIMA(IDEF)
  556.       ELSEIF (IOGRA.EQ.5) THEN
  557. *       CALL PTRIMA(IDEF)
  558.       ELSEIF (IOGRA.EQ.6) THEN
  559.         CALL OTRIMA(IDEF)
  560.       ELSEIF (IOGRA.EQ.7) THEN
  561. *       CALL STRIMA(IDEF)
  562.       ELSEIF (IOGRA.EQ.8) THEN
  563. *       CALL MTRIMA(IDEF)
  564.       ELSEIF (IOGRA.EQ.9) THEN
  565. *       CALL CTRIMA(IDEF)
  566.       ENDIF
  567.       RETURN
  568. *
  569.       ENTRY TRMESS(TITR)
  570.       IF (IOGRA.EQ.1) THEN
  571.         CALL LTRMES(TITR)
  572.       ELSEIF (IOGRA.EQ.2) THEN
  573.         CALL XTRMES(TITR)
  574.       ELSEIF (IOGRA.EQ.3) THEN
  575.         CALL GTRMES(TITR)
  576.       ELSEIF (IOGRA.EQ.4) THEN
  577.         CALL KTRMES(TITR)
  578.       ELSEIF (IOGRA.EQ.5) THEN
  579.         CALL PTRMES(TITR)
  580.       ELSEIF (IOGRA.EQ.6) THEN
  581.         CALL OTRMES(TITR)
  582.       ELSEIF (IOGRA.EQ.7) THEN
  583.         CALL STRMES(TITR)
  584.       ELSEIF (IOGRA.EQ.8) THEN
  585.         CALL MTRMES(TITR)
  586.       ELSEIF (IOGRA.EQ.9) THEN
  587.         CALL CTRMES(TITR)
  588.       ENDIF
  589.       RETURN
  590. *
  591.       ENTRY TRGET(TITR,CARACT)
  592.       IF (IOGRA.EQ.1) THEN
  593.         CALL LTRGET(TITR,CARACT)
  594.       ELSEIF (IOGRA.EQ.2) THEN
  595.         CALL XTRGET(TITR,CARACT)
  596.       ELSEIF (IOGRA.EQ.3) THEN
  597.         CALL GTRGET(TITR,CARACT)
  598.       ELSEIF (IOGRA.EQ.4) THEN
  599.         CALL KTRGET(TITR,CARACT)
  600.       ELSEIF (IOGRA.EQ.5) THEN
  601.         CALL PTRGET(TITR,CARACT)
  602.       ELSEIF (IOGRA.EQ.6) THEN
  603.         CALL OTRGET(TITR,CARACT)
  604.       ELSEIF (IOGRA.EQ.7) THEN
  605. *       CALL STRGET(TITR,CARACT)
  606.       ELSEIF (IOGRA.EQ.8) THEN
  607. *       CALL MTRGET(TITR,CARACT)
  608.       ELSEIF (IOGRA.EQ.9) THEN
  609. *       CALL CTRGET(TITR,CARACT)
  610.       ENDIF
  611. *  PASSAGE EN MAJUSCULES DE LA CHAINE SAISIE
  612.       DO 10 I=1,LEN(CARACT)
  613.       IND=INDEX(MINUS,CARACT(I:I))
  614.       IF (IND.NE.0) CARACT(I:I)=MAJUS(IND:IND)
  615.   10  CONTINUE
  616.       RETURN
  617.       ENTRY TRCLIK(KCLICK)
  618.       IF (IOGRA.EQ.2) THEN
  619.         CALL XRCLIK(KCLICK)
  620.       RETURN
  621.       ENDIF
  622.       IF (IOGRA.EQ.6) THEN
  623.         CALL ORCLIK(KCLICK)
  624.       RETURN
  625.       ENDIF
  626. *
  627.       END
  628.  
  629.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales