1 : C TRINIT SOURCE BP208322 12/08/02 21:15:48 7468 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 14 : CHARACTER*(*) LEGEND(*) 15 : CHARACTER*26 MINUS,MAJUS 16 : segment slegen 17 : character*(llong) legen2(ncase) 18 : endsegment 19 : -INC CCOPTIO 20 : -INC CCTRACE 21 : SAVE IOGRB 22 : DATA IOGRB/9/ 23 : DATA MINUS/'abcdefghijklmnopqrstuvwxyz'/ 24 : DATA MAJUS/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ 25 : * 26 : 27 : IF (IOGRA.EQ.7) IOGRB=7 28 : IF (IOGRA.EQ.2) THEN 28 : CALL XTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 29 : ELSEIF (IOGRA.EQ.3) THEN 29 : CALL GTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 30 : ELSEIF (IOGRA.EQ.4) THEN 30 : CALL KTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 31 : ELSEIF (IOGRA.EQ.5) THEN 31 : CALL PTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 32 : ELSEIF (IOGRA.EQ.6) THEN 32 : CALL OTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA,IOPOLI,ICOSC) 33 : ENDIF 34 : * si ncouma = 0 on n'a pas pu ouvrir l'ecran on fait du papier 35 : if (ncouma.eq.0) iogra=iogrb 36 : IF (IOGRA.EQ.1) THEN 36 : CALL LTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 37 : ELSEIF (IOGRA.EQ.7) THEN 37 : CALL STRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 38 : ELSEIF (IOGRA.EQ.8) THEN 38 : CALL MTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 39 : ELSEIF (IOGRA.EQ.9) THEN 39 : CALL CTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 40 : ENDIF 41 : RETURN 42 : * 43 : ENTRY DFENET(XMIN,XXAX,YMIN,YYAX,ZMIN,ZZAX,XR1,XR2,YR1,YR2,FENET) 44 : IF (IOGRA.EQ.1) THEN 44 : CALL LDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 45 : ELSEIF (IOGRA.EQ.2) THEN 45 : CALL XDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 46 : ELSEIF (IOGRA.EQ.3) THEN 46 : CALL GDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 47 : ELSEIF (IOGRA.EQ.4) THEN 47 : CALL KDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 48 : ELSEIF (IOGRA.EQ.5) THEN 48 : CALL PDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 49 : ELSEIF (IOGRA.EQ.6) THEN 49 : CALL ODFENE(XMIN,XXAX,YMIN,YYAX,ZMIN,ZZAX,XR1,XR2,YR1,YR2,FENET) 50 : ELSEIF (IOGRA.EQ.7) THEN 50 : CALL SDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 51 : ELSEIF (IOGRA.EQ.8) THEN 51 : CALL MDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 52 : ELSEIF (IOGRA.EQ.9) THEN 52 : CALL CDFENE(XMIN,XXAX,YMIN,YYAX,XR1,XR2,YR1,YR2,FENET) 53 : ENDIF 54 : RETURN 55 : * 56 : ENTRY TRLABL(X,Y,Z,CARACT,NCAR,HAUTT) 57 : IF (IOGRA.EQ.1) THEN 57 : CALL LTRLAB(X,Y,CARACT,NCAR,HAUTT) 58 : ELSEIF (IOGRA.EQ.2) THEN 58 : CALL XTRLAB(X,Y,CARACT,NCAR,HAUTT,IPOLI) 59 : ELSEIF (IOGRA.EQ.3) THEN 59 : CALL GTRLAB(X,Y,CARACT,NCAR,HAUTT) 60 : ELSEIF (IOGRA.EQ.4) THEN 60 : CALL KTRLAB(X,Y,CARACT,NCAR,HAUTT) 61 : ELSEIF (IOGRA.EQ.5) THEN 61 : CALL PTRLAB(X,Y,CARACT,NCAR,HAUTT) 62 : ELSEIF (IOGRA.EQ.6) THEN 62 : CALL OTRLAB(X,Y,Z,CARACT,NCAR,HAUTT,IPOLI) 63 : ELSEIF (IOGRA.EQ.7) THEN 63 : CALL STRLAB(X,Y,CARACT,NCAR,HAUTT) 64 : ELSEIF (IOGRA.EQ.8) THEN 64 : CALL MTRLAB(X,Y,CARACT,NCAR,HAUTT) 65 : ELSEIF (IOGRA.EQ.9) THEN 65 : CALL CTRLAB(X,Y,CARACT,NCAR,HAUTT) 66 : ENDIF 67 : RETURN 68 : * 69 : ENTRY TRBOX (HAUTX,HAUTY) 70 : IF (IOGRA.EQ.1) THEN 70 : CALL LTRBOX(HAUTX,HAUTY) 71 : ELSEIF (IOGRA.EQ.2) THEN 71 : CALL XTRBOX(HAUTX,HAUTY) 72 : ELSEIF (IOGRA.EQ.3) THEN 72 : CALL GTRBOX(HAUTX,HAUTY) 73 : ELSEIF (IOGRA.EQ.4) THEN 73 : CALL KTRBOX(HAUTX,HAUTY) 74 : ELSEIF (IOGRA.EQ.5) THEN 74 : CALL PTRBOX(HAUTX,HAUTY) 75 : ELSEIF (IOGRA.EQ.6) THEN 75 : CALL OTRBOX(HAUTX,HAUTY) 76 : ELSEIF (IOGRA.EQ.7) THEN 76 : CALL STRBOX(HAUTX,HAUTY) 77 : ELSEIF (IOGRA.EQ.8) THEN 77 : CALL MTRBOX(HAUTX,HAUTY) 78 : ELSEIF (IOGRA.EQ.9) THEN 78 : CALL CTRBOX(HAUTX,HAUTY) 79 : ENDIF 80 : RETURN 81 : * 82 : ENTRY CHCOUL(JCOLO) 83 : * if (jcolo.lt.0) write (6,*) ' jcolo null dans chcoul ' 84 : * if (jcolo.gt.1000) write (6,*) ' jcolo dans chcoul : ',jcolo 85 : IF (IOGRA.EQ.1) THEN 85 : CALL LCHCOU(JCOLO) 86 : ELSEIF (IOGRA.EQ.2) THEN 86 : CALL XCHCOU(JCOLO) 87 : ELSEIF (IOGRA.EQ.3) THEN 87 : CALL GCHCOU(JCOLO) 88 : ELSEIF (IOGRA.EQ.4) THEN 88 : CALL KCHCOU(JCOLO) 89 : ELSEIF (IOGRA.EQ.5) THEN 89 : CALL PCHCOU(JCOLO) 90 : ELSEIF (IOGRA.EQ.6) THEN 90 : CALL OCHCOU(JCOLO) 91 : ELSEIF (IOGRA.EQ.7) THEN 91 : CALL SCHCOU(JCOLO) 92 : ELSEIF (IOGRA.EQ.8) THEN 92 : CALL MCHCOU(JCOLO) 93 : ELSEIF (IOGRA.EQ.9) THEN 93 : CALL CCHCOU(JCOLO) 94 : ENDIF 95 : RETURN 96 : * 97 : ENTRY FVALIS(IFENI,IRESU,NH,NISO) 98 : IF (IOGRA.EQ.1) THEN 98 : CALL LFVALI(IFENI,IRESU,NH) 99 : ELSEIF (IOGRA.EQ.2) THEN 99 : CALL XFVALI(IFENI,IRESU,NH,NISO) 100 : ELSEIF (IOGRA.EQ.3) THEN 100 : CALL GFVALI(IFENI,IRESU,NH) 101 : ELSEIF (IOGRA.EQ.4) THEN 101 : CALL KFVALI(IFENI,IRESU,NH) 102 : ELSEIF (IOGRA.EQ.5) THEN 102 : CALL PFVALI(IFENI,IRESU,NH) 103 : ELSEIF (IOGRA.EQ.6) THEN 103 : CALL OFVALI(IFENI,IRESU,NH,niso) 104 : ELSEIF (IOGRA.EQ.7) THEN 104 : CALL SFVALI(IFENI,IRESU,NH,NISO) 105 : ELSEIF (IOGRA.EQ.8) THEN 105 : CALL MFVALI(IFENI,IRESU,NH) 106 : ELSEIF (IOGRA.EQ.9) THEN 106 : CALL CFVALI(IFENI,IRESU,NH,NISO) 107 : ENDIF 108 : RETURN 109 : * 110 : ENTRY MENU(LEGEND,NCASE,LLONG) 111 : ** write (6,*) ' dans menu ' 112 : IF (IOGRA.EQ.1) THEN 112 : CALL LMENU(LEGEND,NCASE,LLONG) 113 : ELSEIF (IOGRA.EQ.2) THEN 113 : CALL XMENU(LEGEND,NCASE,LLONG) 114 : ELSEIF (IOGRA.EQ.3) THEN 114 : CALL GMENU(LEGEND,NCASE,LLONG) 115 : ELSEIF (IOGRA.EQ.4) THEN 115 : CALL KMENU(LEGEND,NCASE,LLONG) 116 : ELSEIF (IOGRA.EQ.5) THEN 116 : CALL PMENU(LEGEND,NCASE,LLONG) 117 : ELSEIF (IOGRA.EQ.6) THEN 118 : segini slegen 119 : do im=1,ncase 120 : legen2(im)=legend(im) 121 : ** write (6,*) ' trinit im legen ',im,legen2(im) 122 : enddo 122 : CALL OMENU(LEGEN2,NCASE,LLONG) 123 : segsup slegen 124 : ELSEIF (IOGRA.EQ.7) THEN 124 : CALL SMENU(LEGEND,NCASE,LLONG) 125 : ELSEIF (IOGRA.EQ.8) THEN 125 : CALL MMENU(LEGEND,NCASE,LLONG) 126 : ELSEIF (IOGRA.EQ.9) THEN 126 : CALL CMENU(LEGEND,NCASE,LLONG) 127 : ENDIF 128 : RETURN 129 : * 130 : ENTRY INSEGT(NBSEGT,IRESS) 131 : IF (IOGRA.EQ.1) THEN 131 : CALL LINSEG(NBSEGT,IRESS) 132 : ELSEIF (IOGRA.EQ.2) THEN 132 : CALL XINSEG(NBSEGT,IRESS) 133 : ELSEIF (IOGRA.EQ.3) THEN 133 : CALL GINSEG(NBSEGT,IRESS) 134 : ELSEIF (IOGRA.EQ.4) THEN 134 : CALL KINSEG(NBSEGT,IRESS) 135 : ELSEIF (IOGRA.EQ.5) THEN 135 : CALL PINSEG(NBSEGT,IRESS) 136 : ELSEIF (IOGRA.EQ.6) THEN 136 : CALL OINSEG(NBSEGT,IRESS) 137 : ELSEIF (IOGRA.EQ.7) THEN 137 : CALL SINSEG(NBSEGT,IRESS) 138 : ELSEIF (IOGRA.EQ.8) THEN 138 : CALL MINSEG(NBSEGT,IRESS) 139 : ELSEIF (IOGRA.EQ.9) THEN 139 : CALL CINSEG(NBSEGT,IRESS) 140 : ENDIF 141 : RETURN 142 : * 143 : ENTRY POLRL(NTRSTU,XTR,YTR,ZTR) 144 : IF (IOGRA.EQ.1) THEN 144 : CALL LPOLRL(NTRSTU,XTR,YTR) 145 : ELSEIF (IOGRA.EQ.2) THEN 145 : CALL XPOLRL(NTRSTU,XTR,YTR) 146 : ELSEIF (IOGRA.EQ.3) THEN 146 : CALL GPOLRL(NTRSTU,XTR,YTR) 147 : ELSEIF (IOGRA.EQ.4) THEN 147 : CALL KPOLRL(NTRSTU,XTR,YTR) 148 : ELSEIF (IOGRA.EQ.5) THEN 148 : CALL PPOLRL(NTRSTU,XTR,YTR) 149 : ELSEIF (IOGRA.EQ.6) THEN 149 : CALL OPOLRL(NTRSTU,XTR,YTR,ZTR) 150 : ELSEIF (IOGRA.EQ.7) THEN 150 : CALL SPOLRL(NTRSTU,XTR,YTR) 151 : ELSEIF (IOGRA.EQ.8) THEN 151 : CALL MPOLRL(NTRSTU,XTR,YTR) 152 : ELSEIF (IOGRA.EQ.9) THEN 152 : CALL CPOLRL(NTRSTU,XTR,YTR) 153 : ENDIF 154 : RETURN 155 : * 156 : ENTRY TRDIG(X,Y,INCLE) 157 : IF (IOGRA.EQ.1) THEN 157 : CALL LTRDIG(X,Y,INCLE) 158 : ELSEIF (IOGRA.EQ.2) THEN 158 : CALL XTRDIG(X,Y,INCLE) 159 : ELSEIF (IOGRA.EQ.3) THEN 159 : CALL GTRDIG(X,Y,INCLE) 160 : ELSEIF (IOGRA.EQ.4) THEN 160 : CALL KTRDIG(X,Y,INCLE) 161 : ELSEIF (IOGRA.EQ.5) THEN 161 : CALL PTRDIG(X,Y,INCLE) 162 : ELSEIF (IOGRA.EQ.6) THEN 162 : CALL OTRDIG(X,Y,INCLE) 163 : ELSEIF (IOGRA.EQ.7) THEN 163 : CALL STRDIG(X,Y,INCLE) 164 : ELSEIF (IOGRA.EQ.8) THEN 164 : CALL MTRDIG(X,Y,INCLE) 165 : ELSEIF (IOGRA.EQ.9) THEN 165 : CALL CTRDIG(X,Y,INCLE) 166 : ENDIF 167 : RETURN 168 : * 169 : ENTRY TRFACE(NP,XTR,YTR,ZTR,ZN,ICOLE,IEFF) 170 : IF (IOGRA.EQ.1) THEN 170 : CALL LTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 171 : ELSEIF (IOGRA.EQ.2) THEN 171 : CALL XTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 172 : ELSEIF (IOGRA.EQ.3) THEN 172 : CALL GTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 173 : ELSEIF (IOGRA.EQ.4) THEN 173 : CALL KTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 174 : ELSEIF (IOGRA.EQ.5) THEN 174 : CALL PTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 175 : ELSEIF (IOGRA.EQ.6) THEN 175 : CALL OTRFAC(NP,XTR,YTR,ZTR,ZN,ICOLE,IEFF) 176 : ELSEIF (IOGRA.EQ.7) THEN 176 : CALL STRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 177 : ELSEIF (IOGRA.EQ.8) THEN 177 : CALL MTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 178 : ELSEIF (IOGRA.EQ.9) THEN 178 : CALL CTRFAC(NP,XTR,YTR,ZN,ICOLE,IEFF) 179 : ENDIF 180 : RETURN 181 : * 182 : ENTRY TRAISO(NP,XTR,YTR,ICOLE) 183 : IF (IOGRA.EQ.1) THEN 183 : CALL LTRAIS(NP,XTR,YTR,ICOLE) 184 : ELSEIF (IOGRA.EQ.2) THEN 184 : CALL XTRAIS(NP,XTR,YTR,ICOLE) 185 : ELSEIF (IOGRA.EQ.3) THEN 185 : CALL GTRAIS(NP,XTR,YTR,ICOLE) 186 : ELSEIF (IOGRA.EQ.4) THEN 186 : CALL KTRAIS(NP,XTR,YTR,ICOLE) 187 : ELSEIF (IOGRA.EQ.5) THEN 187 : CALL PTRAIS(NP,XTR,YTR,ICOLE) 188 : ELSEIF (IOGRA.EQ.6) THEN 188 : CALL OTRAIS(NP,XTR,YTR,ICOLE) 189 : ELSEIF (IOGRA.EQ.7) THEN 189 : CALL STRAIS(NP,XTR,YTR,ICOLE) 190 : ELSEIF (IOGRA.EQ.8) THEN 190 : CALL MTRAIS(NP,XTR,YTR,ICOLE) 191 : ELSEIF (IOGRA.EQ.9) THEN 191 : CALL CTRAIS(NP,XTR,YTR,ICOLE) 192 : ENDIF 193 : RETURN 194 : * 195 : ENTRY TREFF 196 : IF (IOGRA.EQ.1) THEN 196 : CALL LTREFF 197 : ELSEIF (IOGRA.EQ.2) THEN 197 : CALL XTREFF 198 : ELSEIF (IOGRA.EQ.3) THEN 198 : CALL GTREFF 199 : ELSEIF (IOGRA.EQ.4) THEN 199 : CALL KTREFF 200 : ELSEIF (IOGRA.EQ.5) THEN 200 : CALL PTREFF 201 : ELSEIF (IOGRA.EQ.6) THEN 201 : CALL OTREFF 202 : ELSEIF (IOGRA.EQ.7) THEN 203 : ENDIF 204 : RETURN 205 : * 206 : ENTRY TRAFF(ICLE) 207 : IF (IOGRA.EQ.1) THEN 207 : CALL LTRAFF(ICLE) 208 : ELSEIF (IOGRA.EQ.2) THEN 208 : CALL XTRAFF(ICLE) 209 : ELSEIF (IOGRA.EQ.3) THEN 209 : CALL GTRAFF(ICLE) 210 : ELSEIF (IOGRA.EQ.4) THEN 210 : CALL KTRAFF(ICLE) 211 : ELSEIF (IOGRA.EQ.5) THEN 211 : CALL PTRAFF(ICLE) 212 : ELSEIF (IOGRA.EQ.6) THEN 212 : CALL OTRAFF(ICLE) 213 : ELSEIF (IOGRA.EQ.7) THEN 213 : CALL STRAFF(ICLE) 214 : ELSEIF (IOGRA.EQ.8) THEN 214 : CALL MTRAFF(ICLE) 215 : ELSEIF (IOGRA.EQ.9) THEN 215 : CALL CTRAFF(ICLE) 216 : ENDIF 217 : RETURN 218 : * 219 : ENTRY TRMFIN 220 : IF (IOGRA.EQ.1) THEN 220 : CALL LTRMFI 221 : ELSEIF (IOGRA.EQ.2) THEN 221 : CALL XTRMFI 222 : ELSEIF (IOGRA.EQ.3) THEN 222 : CALL GTRMFI 223 : ELSEIF (IOGRA.EQ.4) THEN 223 : CALL KTRMFI 224 : ELSEIF (IOGRA.EQ.5) THEN 224 : CALL PTRMFI 225 : ELSEIF (IOGRA.EQ.6) THEN 225 : CALL OTRMFI 226 : ELSEIF (IOGRA.EQ.7) THEN 226 : CALL STRMFI 227 : ELSEIF (IOGRA.EQ.8) THEN 227 : CALL MTRMFI 228 : ELSEIF (IOGRA.EQ.9) THEN 228 : CALL CTRMFI 229 : ENDIF 230 : RETURN 231 : * 232 : ENTRY ZOOM(IZOOM,XMI,XMA,YMI,YMA) 233 : IF (IOGRA.EQ.1) THEN 233 : CALL LZOOM(IZOOM,XMI,XMA,YMI,YMA) 234 : ELSEIF (IOGRA.EQ.2) THEN 234 : CALL XZOOM(IZOOM,XMI,XMA,YMI,YMA) 235 : ELSEIF (IOGRA.EQ.3) THEN 235 : CALL GZOOM(IZOOM,XMI,XMA,YMI,YMA) 236 : ELSEIF (IOGRA.EQ.4) THEN 236 : CALL KZOOM(IZOOM,XMI,XMA,YMI,YMA) 237 : ELSEIF (IOGRA.EQ.5) THEN 237 : CALL PZOOM(IZOOM,XMI,XMA,YMI,YMA) 238 : ELSEIF (IOGRA.EQ.6) THEN 238 : CALL OZOOM(IZOOM,XMI,XMA,YMI,YMA) 239 : ELSEIF (IOGRA.EQ.7) THEN 239 : CALL SZOOM(IZOOM,XMI,XMA,YMI,YMA) 240 : ELSEIF (IOGRA.EQ.8) THEN 240 : CALL MZOOM(IZOOM,XMI,XMA,YMI,YMA) 241 : ELSEIF (IOGRA.EQ.9) THEN 241 : CALL CZOOM(IZOOM,XMI,XMA,YMI,YMA) 242 : ENDIF 243 : RETURN 244 : * 245 : ENTRY CHANG(IRESU,ISORT,ICHANG,JSEG) 246 : IF (IOGRA.EQ.1) THEN 246 : CALL LCHANG(IRESU,ISORT,ICHANG,JSEG) 247 : ELSEIF (IOGRA.EQ.2) THEN 247 : CALL XCHANG(IRESU,ISORT,ICHANG,JSEG) 248 : ELSEIF (IOGRA.EQ.3) THEN 248 : CALL GCHANG(IRESU,ISORT,ICHANG,JSEG) 249 : ELSEIF (IOGRA.EQ.4) THEN 249 : CALL KCHANG(IRESU,ISORT,ICHANG,JSEG) 250 : ELSEIF (IOGRA.EQ.5) THEN 250 : CALL PCHANG(IRESU,ISORT,ICHANG,JSEG) 251 : ELSEIF (IOGRA.EQ.6) THEN 251 : CALL OCHANG(IRESU,ISORT,ICHANG,JSEG) 252 : ELSEIF (IOGRA.EQ.7) THEN 252 : CALL SCHANG(IRESU,ISORT,ICHANG,JSEG) 253 : ELSEIF (IOGRA.EQ.8) THEN 253 : CALL MCHANG(IRESU,ISORT,ICHANG,JSEG) 254 : ELSEIF (IOGRA.EQ.9) THEN 254 : CALL CCHANG(IRESU,ISORT,ICHANG,JSEG) 255 : ENDIF 256 : RETURN 257 : * 258 : ENTRY INI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 259 : IF (IOGRA.EQ.1) THEN 259 : CALL LINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 260 : ELSEIF (IOGRA.EQ.2) THEN 260 : CALL XINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 261 : ELSEIF (IOGRA.EQ.3) THEN 261 : CALL GINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 262 : ELSEIF (IOGRA.EQ.4) THEN 262 : CALL KINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 263 : ELSEIF (IOGRA.EQ.5) THEN 263 : CALL PINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 264 : ELSEIF (IOGRA.EQ.6) THEN 264 : CALL OINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 265 : ELSEIF (IOGRA.EQ.7) THEN 265 : CALL SINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 266 : ELSEIF (IOGRA.EQ.8) THEN 266 : CALL MINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 267 : ELSEIF (IOGRA.EQ.9) THEN 267 : CALL CINIT(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 268 : ENDIF 269 : RETURN 270 : * 271 : ENTRY FLGI 272 : IF (IOGRA.EQ.1) THEN 272 : CALL LFLGI 273 : ELSEIF (IOGRA.EQ.2) THEN 273 : CALL XFLGI 274 : ELSEIF (IOGRA.EQ.3) THEN 274 : CALL GFLGI 275 : ELSEIF (IOGRA.EQ.4) THEN 275 : CALL KFLGI 276 : ELSEIF (IOGRA.EQ.5) THEN 276 : CALL PFLGI 277 : ELSEIF (IOGRA.EQ.6) THEN 277 : CALL OFLGI 278 : ELSEIF (IOGRA.EQ.7) THEN 278 : CALL SFLGI 279 : ELSEIF (IOGRA.EQ.8) THEN 279 : CALL MFLGI 280 : ELSEIF (IOGRA.EQ.9) THEN 280 : CALL MFLGI 281 : ENDIF 282 : RETURN 283 : * 284 : ENTRY IMPR 285 : IF (IOGRA.EQ.1) THEN 285 : CALL LIMPR 286 : ELSEIF (IOGRA.EQ.2) THEN 286 : CALL XIMPR 287 : ELSEIF (IOGRA.EQ.3) THEN 287 : CALL GIMPR 288 : ELSEIF (IOGRA.EQ.4) THEN 288 : CALL KIMPR 289 : ELSEIF (IOGRA.EQ.5) THEN 289 : CALL PIMPR 290 : ELSEIF (IOGRA.EQ.7) THEN 290 : CALL SIMPR 291 : ELSEIF (IOGRA.EQ.7) THEN 291 : CALL OIMPR 292 : ELSEIF (IOGRA.EQ.8) THEN 293 : ELSEIF (IOGRA.EQ.9) THEN 294 : ENDIF 295 : RETURN 296 : * 297 : ENTRY VAL(IRESU,ISORT,NISO) 298 : IF (IOGRA.EQ.1) THEN 298 : CALL LVAL(IRESU,ISORT,NISO) 299 : ELSEIF (IOGRA.EQ.2) THEN 299 : CALL XVAL(IRESU,ISORT,NISO) 300 : ELSEIF (IOGRA.EQ.3) THEN 300 : CALL GVAL(IRESU,ISORT,NISO) 301 : ELSEIF (IOGRA.EQ.4) THEN 301 : CALL KVAL(IRESU,ISORT,NISO) 302 : ELSEIF (IOGRA.EQ.5) THEN 302 : CALL PVAL(IRESU,ISORT,NISO) 303 : ELSEIF (IOGRA.EQ.6) THEN 303 : CALL OVAL(IRESU,ISORT,NISO) 304 : ELSEIF (IOGRA.EQ.7) THEN 304 : CALL SVAL(IRESU,ISORT,NISO) 305 : ELSEIF (IOGRA.EQ.8) THEN 305 : CALL MVAL(IRESU,ISORT,NISO) 306 : ELSEIF (IOGRA.EQ.9) THEN 306 : CALL CVAL(IRESU,ISORT,NISO) 307 : ENDIF 308 : RETURN 309 : * 310 : ENTRY MAJSEG(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 311 : IF (IOGRA.EQ.1) THEN 311 : CALL LMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 312 : ELSEIF (IOGRA.EQ.2) THEN 312 : CALL XMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 313 : ELSEIF (IOGRA.EQ.3) THEN 313 : CALL GMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 314 : ELSEIF (IOGRA.EQ.4) THEN 314 : CALL KMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 315 : ELSEIF (IOGRA.EQ.5) THEN 315 : CALL KMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 316 : ELSEIF (IOGRA.EQ.6) THEN 316 : CALL OMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 317 : ELSEIF (IOGRA.EQ.7) THEN 317 : CALL SMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 318 : ELSEIF (IOGRA.EQ.8) THEN 318 : CALL MMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 319 : ELSEIF (IOGRA.EQ.9) THEN 319 : CALL CMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 320 : ENDIF 321 : RETURN 322 : * 323 : ENTRY TRANIM(IANIM,NDEF) 324 : IF (IOGRA.EQ.1) THEN 324 : CALL LTRANI(IANIM,NDEF) 325 : ELSEIF (IOGRA.EQ.2) THEN 325 : CALL XTRANI(IANIM,NDEF) 326 : ELSEIF (IOGRA.EQ.3) THEN 326 : CALL GTRANI(IANIM,NDEF) 327 : ELSEIF (IOGRA.EQ.4) THEN 327 : CALL KTRANI(IANIM,NDEF) 328 : ELSEIF (IOGRA.EQ.5) THEN 328 : * CALL PTRANI(IANIM,NDEF) 329 : ELSEIF (IOGRA.EQ.6) THEN 329 : CALL OTRANI(IANIM,NDEF) 330 : ELSEIF (IOGRA.EQ.7) THEN 330 : * CALL STRANI(IANIM,NDEF) 331 : ELSEIF (IOGRA.EQ.8) THEN 331 : * CALL MTRANI(IANIM,NDEF) 332 : ELSEIF (IOGRA.EQ.9) THEN 332 : * CALL CTRANI(IANIM,NDEF) 333 : ENDIF 334 : RETURN 335 : * 336 : ENTRY TRIMAG(IDEF) 337 : IF (IOGRA.EQ.1) THEN 337 : CALL LTRIMA(IDEF) 338 : ELSEIF (IOGRA.EQ.2) THEN 338 : CALL XTRIMA(IDEF) 339 : ELSEIF (IOGRA.EQ.3) THEN 339 : CALL GTRIMA(IDEF) 340 : ELSEIF (IOGRA.EQ.4) THEN 340 : CALL KTRIMA(IDEF) 341 : ELSEIF (IOGRA.EQ.5) THEN 341 : * CALL PTRIMA(IDEF) 342 : ELSEIF (IOGRA.EQ.6) THEN 342 : CALL OTRIMA(IDEF) 343 : ELSEIF (IOGRA.EQ.7) THEN 343 : * CALL STRIMA(IDEF) 344 : ELSEIF (IOGRA.EQ.8) THEN 344 : * CALL MTRIMA(IDEF) 345 : ELSEIF (IOGRA.EQ.9) THEN 345 : * CALL CTRIMA(IDEF) 346 : ENDIF 347 : RETURN 348 : * 349 : ENTRY TRMESS(TITR) 350 : IF (IOGRA.EQ.1) THEN 350 : CALL LTRMES(TITR) 351 : ELSEIF (IOGRA.EQ.2) THEN 351 : CALL XTRMES(TITR) 352 : ELSEIF (IOGRA.EQ.3) THEN 352 : CALL GTRMES(TITR) 353 : ELSEIF (IOGRA.EQ.4) THEN 353 : CALL KTRMES(TITR) 354 : ELSEIF (IOGRA.EQ.5) THEN 354 : CALL PTRMES(TITR) 355 : ELSEIF (IOGRA.EQ.6) THEN 355 : CALL OTRMES(TITR) 356 : ELSEIF (IOGRA.EQ.7) THEN 356 : CALL STRMES(TITR) 357 : ELSEIF (IOGRA.EQ.8) THEN 357 : CALL MTRMES(TITR) 358 : ELSEIF (IOGRA.EQ.9) THEN 358 : CALL CTRMES(TITR) 359 : ENDIF 360 : RETURN 361 : * 362 : ENTRY TRGET(TITR,CARACT) 363 : IF (IOGRA.EQ.1) THEN 363 : CALL LTRGET(TITR,CARACT) 364 : ELSEIF (IOGRA.EQ.2) THEN 364 : CALL XTRGET(TITR,CARACT) 365 : ELSEIF (IOGRA.EQ.3) THEN 365 : CALL GTRGET(TITR,CARACT) 366 : ELSEIF (IOGRA.EQ.4) THEN 366 : CALL KTRGET(TITR,CARACT) 367 : ELSEIF (IOGRA.EQ.5) THEN 367 : CALL PTRGET(TITR,CARACT) 368 : ELSEIF (IOGRA.EQ.6) THEN 368 : CALL OTRGET(TITR,CARACT) 369 : ELSEIF (IOGRA.EQ.7) THEN 369 : * CALL STRGET(TITR,CARACT) 370 : ELSEIF (IOGRA.EQ.8) THEN 370 : * CALL MTRGET(TITR,CARACT) 371 : ELSEIF (IOGRA.EQ.9) THEN 371 : * CALL CTRGET(TITR,CARACT) 372 : ENDIF 373 : * PASSAGE EN MAJUSCULES DE LA CHAINE SAISIE 374 : DO 10 I=1,LEN(CARACT) 375 : IND=INDEX(MINUS,CARACT(I:I)) 376 : IF (IND.NE.0) CARACT(I:I)=MAJUS(IND:IND) 377 : 10 CONTINUE 378 : RETURN 379 : ENTRY TRCLIK(KCLICK) 380 : IF (IOGRA.EQ.2) THEN 380 : CALL XRCLIK(KCLICK) 381 : RETURN 382 : ENDIF 383 : * 384 : END 385 : 386 : 387 : 388 : 389 : 390 : 391 :
© Cast3M 2003 - All rights reserved.
Disclaimer