1 : C PILOT SOURCE GOUNAND 14/01/30 21:15:14 7922 2 : c Cette subroutine décode et fait executer les directives 3 : c élémentaires portant sur des objets 4 : c Deux commandes ont un traitement special : CHAINE et MOT 5 : c 6 : C P. Manigot (le 21/08/85): 7 : C Le "DATA" de "MDIR1" ayant atteint le maximum de 20 lignes, 8 : C il a fallu creer "MDIR2" pour contenir les operateurs numeros 9 : C 180 et suivants. 10 : c il ne faut plus changer "NDIR1", ni allonger "MDIR1": 11 : c il ne faut plus changer "NDIR2", ni allonger "MDIR2": 12 : c c'est MDIR3 que l'on complète et "NDIR3" que l'on incrémente, maintenant. 13 : c 14 : SUBROUTINE PILOT 15 : c 16 : IMPLICIT INTEGER(I-N) 17 : REAL*8 XTEMPS,XINTER,XKT,DEN1,DEN2 18 : INTEGER OOOVAL,NACT 19 : LOGICAL FLIG,IDEUFO 20 : external erf 21 : CHARACTER*4 MEGAL,locpr,locer2,locqr 22 : PARAMETER (NDIR3=148) 23 : PARAMETER (NDIR2=178) 24 : PARAMETER (NDIR1=179,NDIR1P=NDIR1+1, 25 : $ NDIR2P=NDIR1+NDIR2+1,NDIR=NDIR1+NDIR2+NDIR3) 26 : CHARACTER*4 MDIR(NDIR),MDIR1(NDIR1),MDIR2(NDIR2),MDIR3(NDIR3) 27 : DIMENSION ITEMPS(NDIR),XTEMPS(NDIR),ICOHCO(NDIR),NACT(3,NDIR) 28 : EQUIVALENCE (MDIR(1),MDIR1(1)),(MDIR(NDIR1P),MDIR2(1)), 29 : $ (MDIR(NDIR2P),MDIR3(1)) 30 : DATA IHORO/0/ 31 : DATA XINTER/0.D0/ 32 : DATA NBNNPR/0/ 33 : c 34 : -INC CCOPTIO 35 : -INC SMCOORD 36 : -INC CCASSIS 37 : c 38 : DATA MEGAL/'= '/ 39 : DATA MDIR1/'OPTI','FIN ','BORN','DENS','DROI','LAPL','CERC','MOTA' 40 : >,'QUEL','INTE','PARA','....','ET ','POIN','PLUS','MOIN','TRAN', 41 : > 'ROTA','TRAC','INVE','COTE','ELEM','CONT','DIFF','CHAN','LIST', 42 : > 'SURF','CONF','INFO','TOUR','HOMO','AFFI','SYME','INCL','ELIM', 43 : > 'TITR','RACC','TASS','SORT','LIRE','BARY','DALL','ORIE','MANU', 44 : > 'OUBL','COMP','COUT','PAVE','COMM','NOEU','MOT ','NBEL','NBNO', 45 : > 'NOTI','FACE','COOR','NORM','TEMP','VOLU','LECT','SAUF','PROG', 46 : > '+ ','- ','* ','/ ','** ','FLOT','ENTI','LOG ','EXP ', 47 : > 'DEPL','PSCA','PVEC','PMIX','LIAI','REGL','HOOK','SOLS','RESO', 48 : > '....','RIGI','BLOQ','DEPI','HOTA','STRU','TEXT','PROJ','VENV', 49 : > 'ELST','JONC','RECO','MASS','CLST','SIGM','RELA','FORC','MOME', 50 : > 'PRCH','BASE','DIME','EXTR','VERS','VIBR','MAXI','XTMX','YTMX', 51 : > '> ','< ','>EG ',''PJBA','CRIT','DIAG','XTX ','UNIQ','BSIG','....','MAX1','MOTS', 53 : > 'REPE','QUIT','SI ','SINO','FINS','IPOL','ABS ','SIN ','COS ', 54 : > 'ATG ','ENVE','ISOV','DETR','ENLE','REMP','INSE','COLI','TRIA', 55 : > 'TABL','REDU','SYMT','ANTI','RESU','PRES','EXCO','NOMC','SAUT', 56 : > 'DEFO','APPU','INVA','PRIN','VMIS','KSIG','SIGN','SUIT','CARB', 57 : > 'VALP','ORDO','TIRE','REGE','DESS','AMOR','CHAR','COUL','CHPO', 58 : > 'AFCO','EVOL','ORTH','THET','COMB','DEVE','VECT','PICA','CAPI'/ 59 : DATA MDIR2/'COPI','DIMN','SAUV','REST','CARA','MATE','GENE', 60 : > 'CAPA','ELFE','JACO','PLAS','GREE','MODE','....','FINP','XTY ', 61 : > 'DEBP','KTAN','FORM','MESS','NNOR','CUBP','CUBT','CER3','FDT ', 62 : > 'SEIS','ENER','EPSI','INTG','COUR','REAC','SUPE','ZERO','DEPB', 63 : > 'EXCI','KP ','ACTI','ELAS','....','ERRE','CONG','LUMP','OBTE', 64 : > 'VARI','MODI','MASQ','EXIS','MINI','GRAD','ENSE','IFRE','DFOU', 65 : > 'SIGS','MAPP','SOMM','BRUI','RTEN','DSPR','TFR ','....','TOTE', 66 : > 'GRAF','TRES','TYPE','OSCI','SPO ','INDE','....','....','CHSP', 67 : > 'TAGR','PERM','CABL','FOFI','WORK','QULX','DEBI','....','....', 68 : > 'CMOY','COMT','COND','FLUX','MODL','MATR','RIMP','FILT','TFRI', 69 : > 'CONC','ITER','ACQU','SOUR','CONV','....','PSMO','....','ECOU', 70 : > 'MENA','SYNT','ARGU','....','DYNE','....','FONC','RESP','PLAC', 71 : > '....','VALE','PROI','EXCE','ARET','CALP','INDI','ACT3','BIOT', 72 : > 'DEDU','CONN','NLOC','CHAI','COSI','CVOL','DIAD','HANN','INSI', 73 : > 'LSQF','LTL ','PERT','PRNS','PSRS','SIAR','SPON','VISA','CNEQ', 74 : > 'CCON','MESU','PILE','SIMP','UTIL','MENU','COSH','SINH','TANH', 75 : > 'DEG3','AIDE','RACP','REFE','....','KSOF','....','NSKE','KMAB', 76 : > 'NOEL','DOMA','FPU ','....','GMV ','EQPR','EQEX','VIBC','AVCT', 77 : > 'KDIA','KMTP','KMF ','MDIA','DFDT','TCRR','TCNM','SQTP','SOMT', 78 : > 'NLIN','CMCT','KCHT','LAPN','RAFT','KLOP','KRES','CSON','FIMP'/ 79 : DATA MDIR3/'NUAG','WEIP','KHIS','KOPS','FSUR','FLAM','ELNO', 80 : > 'DBIT','NS ','TOIM','FIMP','KMBT','KBBT','DUDW','FROT','TSCA', 81 : > 'KONV','KCHA','MHYB','MATP','HDEB','HVIT','HYBP','SMTP','DIVU', 82 : > 'MOCU','CHAU','TAIL','ERF ','SENS','IMPO','DANS','IMPF','NTAB', 83 : > 'FRON','FUIT','EPTH','FPT ','KFPT','FPA ','KFPA','ECHI','QOND', 84 : > 'KPRO','FFOR','RAYE','RAYN','VSUR','TRAJ','AJU1','AJU2','FRIG', 85 : > 'EXCF','NOMM','PREC','....','ONDE','CFL ','DEDO','DCOV','PARC', 86 : > 'POLA','CHI1','CHI2','PENT','PRET','METH','XXT ','CBLO','GENJ', 87 : > 'ZLEG','MESM','FION','NEUT','LOGK','COAC','RESI','MUTU','SORE', 88 : > 'DIRI','LIGN','OBJE','DEBM','FINM','HERI','DECO','EXTE','DMMU', 89 : > 'DMTD','BMTD','SSCH','MREM','ASSI','FISS','PRIM','ANNU','PROB', 90 : > 'SAIS','CHOI','DETO','PART','CLMI','PMAT','EXCP','PROP','PHAJ', 91 : > 'ALEA','GNFL','MPRO','SSTE','ADVE','BGMO','ECFE','COUP','VERM', 92 : > 'DFER','GYRO','CORI','KENT','FANT','ITRC','RETO','IJET','IMPE', 93 : > 'MOCA','LEVM','RAVC','IDLI','RAFF','CFND','ADET','PSIP','ACOS', 94 : > 'ASIN','TAN ','TRIE','GANE','HIST','ETG ','OTER','XFEM','RFCO', 95 : > 'VIDE','VORO','PRRA','POSI','MISE','MISL'/ 96 : NDIRR=0 97 : ICOHCO(1)=-1 98 : 99 : * initialisation de lotesc 100 : lotesc=.false. 101 : ith=0 101 : if (nbesc.ne.0) call ooonth(ith) 102 : if (ith.ne.0) lotesc=.true. 103 : * WRITE(IOIMP,*) ' dans pilot ',ith 104 : * 105 : * place totale disponible 106 : XPLTOT=(REAL(OOOVAL(1,3))*OOOVAL(1,4))/2.+OOOVAL(1,1) 107 : IPLTOT=INT(MIN(XPLTOT,2.E9)) 108 : * par defaut on se garde le dixieme de la place disponible 109 : IPLLB=IPLTOT/10 110 : NDIRR=NDIR 111 : c 112 : c initialisation des des tableaux de l'opérateur TEMP 113 : FLIG=.FALSE. 114 : IDEUFO=.FALSE. 115 : INTERT=0 116 : DO 25 I=1,NDIR 117 : ITEMPS(I)=0 118 : NACT(1,I)=0 119 : NACT(2,I)=0 120 : NACT(3,I)=0 121 : XTEMPS(I)=0.D0 122 : 25 CONTINUE 123 : c 124 : if (ith.eq.0) then 125 : NACTI = OOOVAL(2,3) 126 : NTAACT = OOOVAL(3,3) 127 : * initialisations pour le menage automatique 128 : MACTIP=OOOVAL(3,3) 129 : MTOTAP=OOOVAL(3,1) 130 : MSEGMP=OOOVAL(2,1) 131 : MACTI=OOOVAL(1,1) 132 : MTOTA=IPLTOT 133 : endif 134 : c 135 : c début de la boucle sur les opérateurs 136 : c 137 : 1 CONTINUE 138 : c 139 : * if (ith.eq.0) lodesl=.true. 139 : if (ith.eq.0) call setass(1) 140 : * horodatage 140 : if (nbesc.ne.0) call ooogll(1) 141 : ihoro=ihoro+1 141 : call ooohor(ihoro,ith) 141 : if (nbesc.ne.0) call ooogll(0) 142 : 143 : IF (IERR.EQ.623) THEN 144 : IERR=0 144 : CALL ERREUR(623) 145 : ENDIF 146 : locpr=locerr 147 : LOCERR=MEGAL 148 : locer2=megal 148 : CALL MESLIR(-219) 149 : c 150 : c test pour appel d'une procédure ou d'une methode 151 : c 151 : CALL LIROBJ('PROCEDUR',IRET,0,IRETOU) 152 : IF(IRETOU.NE.0) THEN 152 : CALL GIBTEM(XKT) 153 : c remplissage des tableaux de l'opérateur TEMPS 154 : IF(IDEUFO) THEN 155 : ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 156 : XTEMPS(ILOCE)=XTEMPS(ILOCE) + XKT 157 : XINTER=XINTER + XKT 158 : NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI 159 : NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT 160 : NACT(3,ILOCE)=NACT(3,ILOCE) + 1 161 : NACTI = OOOVAL(2,3) 162 : NTAACT = OOOVAL(3,3) 163 : ENDIF 164 : c on fixe ILOC a l'operateur 'PROC' 165 : ILOCE=193 166 : IDEUFO=.TRUE. 166 : CALL REFUS 167 : c gestion de la procédure 167 : CALL PROCED 167 : if (ith.eq.0) call setass(0) 168 : GO TO 1 169 : ENDIF 170 : * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 1 lodesl ' 170 : CALL LIRMO2(MDIR,NDIR,I,0,ICOHCO) 171 : 172 : * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 2 lodesl ' 173 : 174 : IF (I.NE.0) GOTO 100 174 : if (ith.eq.0) call setass(0) 175 : 30 CONTINUE 175 : if (ith.eq.0) call setass(1) 176 : c 177 : c option verif ( opti veri 1 ) 178 : IF (IOSPI.NE.0) WRITE (IOIMP,90001) 179 : 90001 FORMAT(' *',' ***** ***** FIN D''INSTRUCTION ELEMENTAIRE','/') 180 : c 181 : c creation de point si il y a deux reels dans la pile intermediaire 181 : CALL CREPOI 182 : * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 3 lodesl ' 183 : 184 : if (nbesc.ne.0) segdes mcoord 184 : ** if (ith.eq.0) call setass(0) 185 : * cas esclave 186 : if (LOTESC) then 187 : CCCCCCC if (imescl.ne.0) then 187 : if (ith.eq.0) call setass(0) 187 : call nouins2 188 : * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 4 lodesl ' 189 : 190 : goto 1 191 : endif 192 : c 193 : c gestion de la nouvelle instruction 193 : CALL NOUINS 193 : if (ith.eq.0) call setass(0) 194 : 2 continue 195 : irt=0 196 : imena=1 196 : if(lupara.ne.0)call chkesc(irt,imena) 197 : if(irt.eq.1) go to 550 198 : * 199 : * menage automatique (osons) 200 : if (ith.eq.0.and.imena.eq.1) then 201 : * autres criteres de menage : 202 : IFMEN=0 203 : * + de 20% de la memoire active depuis la derniere fois 204 : MACTIC=OOOVAL(3,3) 205 : IF (MACTIC-MACTIP.gt.MACTI*0.2) IFMEN=1 206 : * + de 65% de la memoire totale depuis la derniere fois 207 : MTOTAC=OOOVAL(3,1) 208 : IF (MTOTAC-MTOTAP.gt.MTOTA*0.65) IFMEN=2 209 : * + de 50% de la memoire active en memoire totale depuis la derniere fois 210 : IF (MTOTAC-MTOTAP.gt.MACTI*0.5) IFMEN=3 211 : * + de 200000 segments depuis la derniere fois 212 : MSEGMC=OOOVAL(2,1) 213 : IF (MSEGMC-MSEGMP.gt.200000) IFMEN=4 214 : IF (IFMEN.NE.0) THEN 215 : IF(IDEUFO) THEN 215 : CALL GIBTEM(XKT) 216 : ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 217 : XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT 218 : XINTER=XINTER + XKT 219 : NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI 220 : NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT 221 : NACT(3,ILOCE)=NACT(3,ILOCE) + 1 222 : NACTI = OOOVAL(2,3) 223 : NTAACT = OOOVAL(3,3) 224 : ILOCE=277 225 : ENDIF 226 : iautom=1 226 : CALL MENAGE (iautom) 227 : IF(IDEUFO) THEN 227 : CALL GIBTEM(XKT) 228 : ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 229 : XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT 230 : XINTER=XINTER + XKT 231 : NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI 232 : NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT 233 : NACT(3,ILOCE)=NACT(3,ILOCE) + 1 234 : NACTI = OOOVAL(2,3) 235 : NTAACT = OOOVAL(3,3) 236 : ENDIF 237 : if( iautom.eq.1) then 238 : MACTIP=OOOVAL(3,3) 239 : MTOTAP=OOOVAL(3,1) 240 : MSEGMP=OOOVAL(2,1) 241 : interr(1)=mactic-mactip 242 : interr(2)=mtotac-mtotap 243 : interr(3)=msegmc-msegmp 244 : interr(4)=ifmen 245 : moterr(1:4)=locpr 245 : call erreur(862) 246 : endif 247 : endif 247 : * CALL GIBTEM(XKT) 248 : c remplissage des tableau de l'opérateur TEMPS 249 : ENDIF 250 : GOTO 1 251 : 100 continue 252 : LOCERR=MDIR(I) 253 : LOCER2=MDIR(I) 254 : 255 : * pour etre sur que mcoord est actif( pv) 256 : SEGACT MCOORD 257 : if (iimpi.ne.0) then 258 : nbnnac = xcoor(/1)/(idim+1) 259 : if (nbnnpr.ne.nbnnac) then 260 : WRITE(IOIMP,*)'pilot noeuds avant: ',nbnnpr,' apres: ', 261 : > nbnnac,' dans: ',locqr 262 : nbnnpr = nbnnac 263 : endif 264 : locqr = locerr 265 : endif 265 : CALL GIBTEM(XKT) 266 : c remplissage des tableau de l'operateur TEMPS 267 : IF(IDEUFO) THEN 268 : ITEMPS(ILOCE)= ITEMPS (ILOCE) + 1 269 : XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT 270 : XINTER=XINTER + XKT 271 : NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI 272 : NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT 273 : NACT(3,ILOCE)=NACT(3,ILOCE) + 1 274 : NACTI = OOOVAL(2,3) 275 : NTAACT = OOOVAL(3,3) 276 : ENDIF 277 : ILOCE=I 278 : IDEUFO=.TRUE. 279 : c option verif 280 : IF (IOSPI.NE.0) WRITE (IOIMP,90000) ith,locer2 281 : 90000 FORMAT(' *',' Assistant ',i2, ' Opérateur appelé : ',A4) 282 : 282 : CDMY-WIN32 CALL SCROLLTEXT(6) 283 : c 284 : c branchement conditionnel vers les opérateurs 285 : c 286 : * if (ith.eq.0) lodesl=.false. 286 : if (ith.eq.0) call setass(0) 287 : IF (I.LE.100) 288 : >GOTO (101,102,103,104,105,106,107,108,109,110,111,112,113,114, 289 : > 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129, 290 : > 130,131,132,133,134,135,136,137,138,139,140,141,142,143,144, 291 : > 145,146,147,148,149,150,151,152,153,154,155,156,157,158,159, 292 : > 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174, 293 : > 175,176,177,178,179,180,181,182,183,184,185,186,187,188,189, 294 : > 190,191,192,193,194,195,196,197,198,199,200),I 295 : IF (I.LE.200) 296 : >GOTO (201,202,203,204,205,206,207,208,209,210,211,212,213,214, 297 : > 215,216,217,218,219,220,221,222,223,224,225,226,227,228,229, 298 : > 230,231,232,233,234,235,236,237,238,239,240,241,242,243,244, 299 : > 245,246,247,248,249,250,251,252,253,254,255,256,257,258,259, 300 : > 260,261,262,263,264,265,266,267,268,269,270,271,272,273,274, 301 : > 275,276,277,278,279,280,281,282,283,284,285,286,287,288,289, 302 : > 290,291,292,293,294,295,296,297,298,299,300),I-100 303 : IF (I.LE.300) 304 : >GOTO (301,302,303,304,305,306,307,308,309,310,311,312,313,314, 305 : > 315,316,317,318,319,320,321,322,323,324,325,326,327,328,329, 306 : > 330,331,332,333,334,335,336,337,338,339,340,341,342,343,344, 307 : > 345,346,347,348,349,350,351,352,353,354,355,356,357,358,359, 308 : > 360,361,362,363,364,365,366,367,368,369,370,371,372,373,374, 309 : > 375,376,377,378,379,380,381,382,383,384,385,386,387,388,389, 310 : > 390,391,392,393,394,395,396,397,398,399,400),I-200 311 : IF (I.LE.400) 312 : >GOTO (401,402,403,404,405,406,407,408,409,410,411,412,413,414, 313 : > 415,416,417,418,419,420,421,422,423,424,425,426,427,428,429, 314 : > 430,431,432,433,434,435,436,437,438,439,440,441,442,443,444, 315 : > 445,446,447,448,449,450,451,452,453,454,455,456,457,458,459, 316 : > 460,461,462,463,464,465,466,467,468,469,470,471,472,473,474, 317 : > 475,476,477,478,479,480,481,482,483,484,485,486,487,488,489, 318 : > 490,491,492,493,494,495,496,497,498,499,500),I-300 319 : IF (I.LE.500) 320 : >GOTO (501,502,503,504,505,506,507,508,509,510,511,512,513,514, 321 : > 515,516,517,518,519,520,521,522,523,524,525,526,527,528,529, 322 : > 530,531,532,533,534,535,536,537,538,539,540,541,542,543,544, 323 : > 545,546,547,548,549,550,551,552,553,554,555,556,557,558,559, 324 : > 560,561,562,563,564,565,566,567,568,569,570,571,572,573,574, 325 : > 575,576,577,578,579,580,581,582,583,584,585,586,587,588,589, 326 : > 590,591,592,593,594,595,596,597,598,599,600),I-400 327 : IF (I.LE.600) 328 : >GOTO (601,602,603,604,605),I-500 329 : c 330 : c on a lu option 330 : 101 CALL OPTION(1) 331 : GOTO 1 331 : 102 CALL FIN 332 : irt=0 333 : imena=1 333 : if(lupara.ne.0)call chkesc(irt,imena) 334 : if(irt.eq.1) go to 550 335 : GOTO 1 335 : 103 CALL BORNER 336 : GOTO 1 336 : 104 CALL SUBDEN 337 : GOTO 1 338 : 105 CONTINUE 339 : 107 CONTINUE 340 : 111 CONTINUE 341 : 112 CONTINUE 342 : IOPTG=I-4 343 : c important ioptg est le numero du type de ligne a engendrer 344 : c le tenir a jour et voir comment on le recupere dans ligne 345 : DEN1 = 0. 346 : DEN2 = 0. 347 : INBR = 0 347 : CALL LIGNE(IOPTG,1,DEN1,DEN2,INBR) 348 : GOTO 1 348 : 106 CALL LAPLAC 349 : GOTO 1 349 : 108 CALL MOTAN 350 : GO TO 1 350 : 109 CALL QUELQU 351 : GOTO 1 351 : 110 CALL INTERS 352 : GOTO 1 352 : 113 CALL PRFUSE 353 : GOTO 1 353 : 114 CALL POIEXT 354 : GOTO 1 355 : 115 CONTINUE 356 : 116 IOPTG=I-14 356 : CALL PROPER(IOPTG) 357 : GOTO 1 358 : 117 CONTINUE 359 : 118 IOPTG=I-16 359 : CALL PRTRAN(IOPTG) 360 : GOTO 1 360 : 119 CALL PRTRAC 361 : GOTO 1 361 : 120 CALL PRINVE 362 : GOTO 1 362 : 121 CALL PRCOTE 363 : GOTO 1 363 : 122 CALL PREXTR 364 : GOTO 1 364 : 123 CALL PRCONT 365 : GOTO 1 365 : 124 CALL PRDIFF 366 : GOTO 1 366 : 125 CALL PRCHAN 367 : GOTO 1 367 : 126 CALL PRLIST 368 : GOTO 30 368 : 127 CALL PRSURF 369 : GOTO 1 369 : 128 CALL CONFON 370 : GOTO 1 370 : 129 CALL INFORM 371 : GOTO 1 371 : 130 CALL TOURNE 372 : GOTO 1 372 : 131 CALL HOMOTH 373 : GOTO 1 373 : 132 CALL AFFINI 374 : GOTO 1 374 : 133 CALL SYMETR 375 : GOTO 1 375 : 134 CALL INCLUS 376 : GOTO 1 376 : 135 CALL PRELIM(0) 377 : GOTO 1 377 : 136 CALL LTITRE 378 : GOTO 1 378 : 137 CALL PRRACC 379 : GOTO 1 379 : 138 CALL PRTASS 380 : GOTO 1 380 : 139 CALL PRSORT 381 : GOTO 1 382 : 140 IONIVO=IONIVE 382 : CALL LIREFI 383 : * on remet le niveau a sa valeur anterieure 384 : IONIVE=IONIVO 385 : GOTO 1 385 : 141 CALL BARYCE 386 : GOTO 1 386 : 142 CALL PRDALL 387 : GOTO 1 387 : 143 CALL PRORIE 388 : GOTO 1 388 : 144 CALL MANUEL 389 : GOTO 1 389 : 145 CALL OUBLIE 390 : GOTO 1 390 : 146 CALL COML 391 : GOTO 1 391 : 147 CALL COUTUR 392 : GOTO 1 392 : 148 CALL PRPAVE 393 : GOTO 1 393 : 149 CALL COMMEN 394 : GOTO 2 394 : 150 CALL NOEUD 395 : GOTO 1 395 : 151 CALL MOTSUB 396 : GOTO 30 396 : 152 CALL NBEL 397 : GOTO 1 397 : 153 CALL NBNO 398 : GOTO 1 398 : 154 CALL NOTICE(MDIR,NDIR) 399 : GOTO 1 399 : 155 CALL EXFACE 400 : GOTO 1 400 : 156 CALL EXCOOR 401 : GOTO 1 401 : 157 CALL CNORM 402 : GOTO 1 402 : 158 CALL TEMPOR(XINTER,MDIR,ITEMPS,XTEMPS,NACT,NDIR) 403 : GOTO 1 403 : 159 CALL VOLUME 404 : GOTO 1 404 : 160 CALL LECTUR 405 : GOTO 1 405 : 161 CALL SAUF 406 : GOTO 1 406 : 162 CALL PROG 407 : GO TO 1 407 : 163 CALL OPERAD 408 : GOTO 1 408 : 164 CALL OPERSO 409 : GOTO 1 409 : 165 CALL OPERMU 410 : GOTO 1 410 : 166 CALL OPERDI 411 : GOTO 1 411 : 167 CALL OPERPU 412 : GOTO 1 412 : 168 CALL OPERFL 413 : GOTO 1 413 : 169 CALL OPERIN 414 : GOTO 1 414 : 170 CALL OPERLO 415 : GOTO 1 415 : 171 CALL OPEREX 416 : GOTO 1 416 : 172 CALL DEPLAC 417 : GOTO 1 417 : 173 CALL PSCALA 418 : GOTO 1 418 : 174 CALL PVECT 419 : GOTO 1 419 : 175 CALL PMIXT 420 : GOTO 1 420 : 176 CALL PRLIAI 421 : GOTO 1 421 : 177 CALL REGLE 422 : GOTO 1 422 : 178 CALL HOOKE 423 : GO TO 1 423 : 179 CALL SOLS 424 : GO TO 1 424 : 180 CALL RESOU 425 : GO TO 1 426 : 181 continue 427 : C Ancien appel a l'operateur AFFE devenu obsolete 428 : goto 1 428 : 182 CALL RIGI 429 : GO TO 1 429 : 183 CALL BLOQUE 430 : GO TO 1 430 : 184 CALL DEPIMP 431 : GO TO 1 431 : 185 CALL HOTAN 432 : GO TO 1 432 : 186 CALL STRUCT 433 : GO TO 1 433 : 187 CALL TEXTDE 434 : GOTO 1 434 : 188 CALL PROOBJ 435 : GOTO 1 435 : 189 CALL VENV 436 : GOTO 1 436 : 190 CALL ELSTRU 437 : GOTO 1 437 : 191 CALL JONCT 438 : GOTO 1 438 : 192 CALL RECOMB 439 : GO TO 1 439 : 193 CALL MASSE(0) 440 : GO TO 1 440 : 194 CALL CLSTRU 441 : GOTO 1 441 : 195 CALL SIGMA 442 : GO TO 1 442 : 196 CALL RELA 443 : GOTO 1 444 : 197 CONTINUE 444 : CALL FORCE(1) 445 : GOTO 1 446 : 198 CONTINUE 446 : CALL FORCE(2) 447 : GO TO 1 447 : 199 CALL PROJEP 448 : GOTO 1 448 : 200 CALL BASEMD 449 : GO TO 1 449 : 201 CALL DIMENS 450 : GO TO 1 450 : 202 CALL EXTRAI 451 : GO TO 30 451 : 203 CALL VERSEN 452 : GO TO 1 452 : 204 CALL VIBRAT 453 : GO TO 1 454 : 205 JMIL=1 454 : CALL MAXIMU(JMIL) 455 : GO TO 1 455 : 206 CALL PRXTMX 456 : GO TO 1 456 : 207 CALL PRYTMX 457 : GO TO 1 457 : 208 CALL GRAND 458 : GO TO 1 458 : 209 CALL PETIT 459 : GO TO 1 459 : 210 CALL GRAEGA 460 : GO TO 1 460 : 211 CALL PETEGA 461 : GO TO 1 461 : 212 CALL OU 462 : GO TO 1 462 : 213 CALL EGA 463 : GO TO 1 463 : 214 CALL NON 464 : GO TO 1 464 : 215 CALL NEG 465 : GO TO 1 465 : 216 CALL MULT 466 : GO TO 1 466 : 217 CALL PJBA 467 : GO TO 1 467 : 218 CALL CRIT 468 : GOTO 1 468 : 219 CALL DIAGNE 469 : GOTO 1 469 : 220 CALL XTX 470 : GOTO 1 470 : 221 CALL UNIQUE 471 : c Ancien appel a l'operateur CHOC devenu obsolete 472 : GOTO 1 472 : 222 CALL BSIGMA 473 : GOTO 1 474 : 223 continue 475 : c Ancien appel a l'operateur PHRC devenu obsolete 476 : goto 1 476 : 224 CALL NORMAX 477 : GOTO 1 477 : 225 CALL MOTS 478 : GOTO 1 478 : 226 CALL REPETE 479 : GOTO 1 479 : 227 CALL QUITTE 480 : GOTO 1 480 : 228 CALL SI 481 : GOTO 2 481 : 229 CALL SINON 482 : GOTO 2 482 : 230 CALL FINSI 483 : GOTO 2 483 : 231 CALL INTERP 484 : GOTO 1 484 : 232 CALL ABSOLU 485 : GOTO 1 485 : 233 CALL SINUS 486 : GOTO 1 486 : 234 CALL COSINU 487 : GOTO 1 487 : 235 CALL ARCTG 488 : GOTO 1 488 : 236 CALL ENVELO 489 : GOTO 1 490 : 237 CONTINUE 490 : CALL ISOVAL 491 : GOTO 1 491 : 238 CALL DETRUI 492 : GOTO 1 492 : 239 CALL ENLEVE 493 : GOTO 1 493 : 240 CALL REMPLA 494 : GOTO 1 494 : 241 CALL INSERE 495 : GOTO 1 495 : 242 CALL COLI 496 : GOTO 1 496 : 243 CALL TRIA 497 : GOTO 1 497 : 244 CALL TABLE 498 : GOTO 1 498 : 245 CALL REDU 499 : GOTO 1 500 : 246 CONTINUE 500 : CALL SYMTRI(0) 501 : GOTO 1 502 : 247 CONTINUE 502 : CALL SYMTRI(1) 503 : GOTO 1 503 : 248 CALL RESU 504 : GOTO 1 504 : 249 CALL PRESSI 505 : GOTO 1 505 : 250 CALL EXCOMP 506 : GOTO 1 506 : 251 CALL NOMC 507 : GOTO 1 507 : 252 CALL SAUTER 508 : GOTO 1 508 : 253 CALL DEFO 509 : GOTO 1 509 : 254 CALL APPUI(1) 510 : GOTO 1 510 : 255 CALL INVARI 511 : GOTO 1 511 : 256 CALL PRINCI 512 : GOTO 1 512 : 257 CALL VMISES 513 : GOTO 1 513 : 258 CALL KSIGMA 514 : GOTO 1 514 : 259 CALL SIGNE 515 : GOTO 1 515 : 260 CALL SUITE 516 : GOTO 1 516 : 261 CALL CARAC 517 : GOTO 1 517 : 262 CALL VALPRO 518 : GOTO 1 518 : 263 CALL ORDONN 519 : GOTO 1 519 : 264 CALL TIRE 520 : GOTO 1 520 : 265 CALL PRREGE 521 : GOTO 1 521 : 266 CALL DESSIN 522 : GOTO 1 522 : 267 CALL AMOR 523 : GOTO 1 523 : 268 CALL CHARGE 524 : GOTO 1 524 : 269 CALL COLOR 525 : GOTO 1 525 : 270 CALL CHPOIN 526 : GOTO 1 526 : 271 CALL AFCOUL 527 : GOTO 1 527 : 272 CALL EVOL 528 : GOTO 1 528 : 273 CALL ORTHOG 529 : GOTO 1 529 : 274 CALL THETA 530 : GOTO 1 530 : 275 CALL COMBTA 531 : GOTO 1 531 : 276 CALL DEVERS 532 : GOTO 1 532 : 277 CALL VECTE 533 : GOTO 1 533 : 278 CALL PIOCAU(0) 534 : GOTO 1 534 : 279 CALL PIOCAU(1) 535 : GOTO 1 535 : 280 CALL COPIER 536 : GOTO 1 536 : 281 CALL DIMNOY 537 : GOTO 1 537 : 282 CALL SAUV 538 : GOTO 1 539 : 283 IONIVO=IONIVE 539 : CALL REST 540 : * on remet le niveau a sa valeur anterieure 541 : IONIVE=IONIVO 542 : GOTO 1 542 : 284 CALL CARAC 543 : GOTO 1 543 : 285 CALL MATER 544 : GOTO 1 544 : 286 CALL GENERA 545 : GOTO 1 545 : 287 CALL CAPA 546 : GO TO 1 546 : 288 CALL ELFE 547 : GOTO 1 547 : 289 CALL JACO 548 : GOTO 1 549 : 290 continue 550 : C Appel a l'operateur PLAS (a debrancher) 550 : call ecoule 551 : goto 1 551 : 291 CALL GREEN 552 : GOTO 1 552 : 292 CALL MODELI 553 : GOTO 1 553 : 293 CALL PROCED 554 : GOTO 1 555 : 541 CONTINUE 555 : 294 CALL FINPRO 556 : GOTO 1 556 : 295 CALL XTY 557 : GOTO 1 558 : 540 CONTINUE 559 : 296 IOPRME=1 560 : IF(I.GT.400) IOPRME=2 560 : CALL MAPR(IOPRME) 561 : GOTO 1 561 : 297 CALL KTANGE 562 : GOTO 1 562 : 298 CALL FORM 563 : GOTO 1 563 : 299 CALL MESSAG 564 : GOTO 1 564 : 300 CALL NNOR 565 : GOTO 1 566 : 301 I=13 567 : GOTO 112 568 : 302 I=14 569 : GOTO 112 570 : 303 I=15 571 : GOTO 112 572 : c :::::::::::::::::::::::::::::::: 572 : 304 CALL FDT 573 : GOTO 1 573 : 305 CALL SEISME 574 : GOTO 1 574 : 306 CALL ENERGI 575 : GOTO 1 575 : 307 CALL EPSI 576 : GOTO 1 576 : 308 CALL INTGRA 577 : GOTO 1 577 : 309 CALL COURBE 578 : GOTO 1 578 : 310 CALL REACTI 579 : GOTO 1 579 : 311 CALL SUPER 580 : GOTO 1 580 : 312 CALL ZERORO 581 : GOTO 1 581 : 313 CALL DEPB 582 : GOTO 1 582 : 314 CALL EXCITE 583 : GOTO 1 583 : 315 CALL KP 584 : GOTO 1 584 : 316 CALL ACTIVE 585 : GOTO 1 585 : 317 CALL ELASTI 586 : GOTO 1 587 : 318 continue 587 : C CALL debran 588 : GOTO 1 588 : 319 CALL ERRE 589 : GOTO 1 589 : 320 CALL CONGE 590 : GOTO 1 590 : 321 CALL MASSE(1) 591 : GOTO 1 591 : 322 CALL OBTENI 592 : GOTO 1 592 : 323 CALL VARI 593 : GOTO 1 593 : 324 CALL MODI 594 : GOTO 1 594 : 325 CALL MASQ 595 : GOTO 1 595 : 326 CALL EXIS 596 : GOTO 1 597 : 327 JMIL=-1 597 : CALL MAXIMU(JMIL) 598 : GOTO 1 598 : 328 CALL GRAD 599 : GOTO 1 599 : 329 CALL ENSE 600 : GOTO 1 600 : 330 CALL IFRE 601 : GOTO 1 601 : 331 CALL DFOURI 602 : GOTO 1 602 : 332 CALL SIGSOL 603 : GOTO 1 603 : 333 CALL MAPP 604 : GOTO 1 604 : 334 CALL SOMM 605 : GOTO 1 605 : 335 CALL BRUI 606 : GOTO 1 606 : 336 CALL RTEN 607 : GOTO 1 607 : 337 CALL DSPR 608 : GOTO 1 609 : 338 IOPTFR=-1 609 : CALL TFOR(IOPTFR) 610 : GOTO 1 611 : 339 continue 612 : C Ancien appel a l'operateur .... devenu obsolete 613 : goto 1 613 : 340 CALL TOTEMP 614 : GOTO 1 614 : 341 CALL GRAF 615 : GOTO 1 615 : 342 CALL TRESCA 616 : GOTO 1 616 : 343 CALL TYPE 617 : GOTO 30 617 : 344 CALL OSCI 618 : GOTO 1 618 : 345 CALL SPO 619 : GOTO 1 619 : 346 CALL INDETA 620 : GOTO 1 621 : 347 continue 622 : C Ancien appel a l'operateur .... devenu obsolete 623 : goto 1 624 : 348 continue 625 : C Ancien appel a l'operateur .... devenu obsolete 626 : goto 1 626 : 349 CALL CHSP 627 : GOTO 1 627 : 350 CALL TAGRAD 628 : GOTO 1 628 : 351 CALL PERMEA 629 : GOTO 1 629 : 352 CALL RICABL 630 : GOTO 1 630 : 353 CALL FOFISS 631 : GOTO 1 631 : 354 CALL WORK 632 : GOTO 1 632 : 355 CALL QULX 633 : GOTO 1 633 : 356 CALL DEBIT 634 : GOTO 1 635 : 357 continue 636 : C Ancien appel a l'operateur ARTI(CULATION) devenu obsolete 637 : goto 1 638 : 358 continue 639 : C Appel a l'operateur FENE(TRE) debranche a ce jour 639 : C call fenetr 640 : goto 1 640 : 359 CALL CHOMOY 641 : GOTO 1 641 : 360 CALL COMCHO 642 : GOTO 1 642 : 361 CALL CONDU 643 : GOTO 1 643 : 362 CALL FLUX 644 : GOTO 1 644 : 363 CALL MODELI 645 : GOTO 1 645 : 364 CALL MATER 646 : GOTO 1 646 : 365 CALL CRIMP 647 : GOTO 1 647 : 366 CALL FILTRE 648 : GOTO 1 648 : 367 CALL TFRINV 649 : GOTO 1 649 : 368 CALL CONCAT 650 : GOTO 1 650 : 369 CALL ITERER 651 : GOTO 1 651 : 370 CALL ACQUER(IBRUT) 652 : IF (IBRUT.EQ.1) GOTO 30 653 : GOTO 1 653 : 371 CALL CHALEU 654 : GOTO 1 654 : 372 CALL CONVEC 655 : GOTO 1 656 : 373 continue 657 : C Ancien appel a l'operateur CHAM(ELEM) devenu obsolete 658 : goto 1 658 : 374 CALL PSMO 659 : GOTO 1 660 : 375 continue 661 : C Ancien appel a l'operateur MOTE(UR) devenu obsolete 662 : goto 1 663 : 376 continue 664 : C Appel a l'operateur ECOU(LE) (a debrancher) 664 : call ecoule 665 : goto 1 666 : 377 iautom=0 666 : CALL MENAGE(iautom) 667 : if(iautom.eq.1) then 668 : MACTIP=OOOVAL(3,3) 669 : MTOTAP=OOOVAL(3,1) 670 : MSEGMP=OOOVAL(2,1) 671 : endif 672 : GOTO 1 672 : 378 CALL SYNTHE 673 : GOTO 1 673 : 379 CALL ARGU 674 : GOTO 1 675 : 380 continue 676 : C Ancien appel a l'operateur .... devenu obsolete 677 : goto 1 677 : 381 CALL DYNE 678 : GOTO 1 679 : 382 continue 680 : C Ancien appel a l'operateur CRES(OL) devenu obsolete 681 : goto 1 681 : 383 CALL FONCTI 682 : GOTO 1 682 : 384 CALL RESPRO 683 : GOTO 1 683 : 385 CALL PLAC 684 : GOTO 1 685 : 386 continue 686 : C Ancien appel a l'operateur .... devenu obsolete 687 : goto 1 687 : 387 CALL OPTION (2) 688 : GOTO 30 688 : 388 CALL PROIET 689 : GOTO 1 689 : 389 CALL EXCELL 690 : GOTO 1 690 : 390 CALL ARETE 691 : GOTO 1 691 : 391 CALL CALP 692 : GOTO 1 692 : 392 CALL INDIC 693 : GOTO 1 693 : 393 CALL ACT3 694 : GOTO 1 694 : 394 CALL BIOSAV 695 : GOTO 1 695 : 395 CALL DEDU(0) 696 : GOTO 1 696 : 396 CALL CONNEC 697 : GOTO 1 697 : 397 CALL NLOCAL 698 : GOTO 1 698 : 398 CALL CHAINE 699 : GOTO 30 699 : 399 CALL COSI 700 : GOTO 1 700 : 400 CALL CVOL 701 : GOTO 1 701 : 401 CALL DIAD 702 : GOTO 1 702 : 402 CALL HANN 703 : GOTO 1 703 : 403 CALL INSI 704 : GOTO 1 704 : 404 CALL LSQF 705 : GOTO 1 705 : 405 CALL LTL 706 : GOTO 1 706 : 406 CALL PERT 707 : GOTO 1 707 : 407 CALL PRNS 708 : GOTO 1 708 : 408 CALL PSRS 709 : GOTO 1 709 : 409 CALL SIAR 710 : GOTO 1 710 : 410 CALL SPON 711 : GOTO 1 711 : 411 CALL PRELIM(1) 712 : GOTO 1 712 : 412 CALL CNEQ 713 : GOTO 1 713 : 413 CALL CCON 714 : GOTO 1 714 : 414 CALL MESU 715 : GOTO 1 715 : 415 CALL PILEPS 716 : GO TO 1 716 : 416 CALL SIMPLE 717 : GO TO 1 717 : 417 CALL UTILIS 718 : GO TO 1 718 : 418 CALL MENUG 719 : GO TO 1 719 : 419 CALL OPERHY(1) 720 : GO TO 1 720 : 420 CALL OPERHY(2) 721 : GO TO 1 721 : 421 CALL OPERHY(3) 722 : GO TO 1 722 : 422 CALL DEG3 723 : GO TO 1 723 : 423 CALL AIDE(MDIR,NDIR) 724 : GO TO 1 724 : 424 CALL RACPOL 725 : GO TO 1 725 : 425 CALL REFE 726 : GO TO 1 727 : 426 continue 728 : C Ancien appel a l'operateur .... devenu obsolete 729 : goto 1 729 : 427 CALL KSOF 730 : GO TO 1 731 : 428 continue 732 : C Ancien appel a l'operateur .... devenu obsolete 733 : goto 1 733 : 429 CALL YNSKE 734 : GO TO 1 734 : 430 CALL KMAC(1) 735 : GO TO 1 735 : 431 CALL KNOL 736 : GO TO 1 736 : 432 CALL KDOM 737 : GO TO 1 737 : 433 CALL YFPU 738 : GO TO 1 739 : 434 continue 740 : C Ancien appel a l'operateur .... devenu obsolete 741 : goto 1 741 : 435 CALL YGMV 742 : GO TO 1 742 : 436 CALL EQPR 743 : GO TO 1 743 : 437 CALL EQEX 744 : GO TO 1 744 : 438 CALL VIBRAC 745 : GO TO 1 745 : 439 CALL CAAVCT 746 : GO TO 1 746 : 440 CALL CAKIZD 747 : GO TO 1 747 : 441 CALL KMTP 748 : GO TO 1 748 : 442 CALL KMF 749 : GO TO 1 750 : 443 CONTINUE 750 : CALL YDIAG 751 : GO TO 1 752 : 444 CONTINUE 752 : CALL YDFDT 753 : GO TO 1 754 : 445 CONTINUE 754 : CALL TCRR 755 : GO TO 1 756 : 446 CONTINUE 756 : CALL TCNM 757 : GO TO 1 758 : 447 CONTINUE 758 : CALL SQTP 759 : GO TO 1 759 : 448 CALL KSOMT 760 : GO TO 1 761 : 449 continue 761 : C CALL KDTB 761 : CALL PRLIN 762 : GO TO 1 763 : 450 CONTINUE 763 : CALL CMCT 764 : GO TO 1 764 : 451 CALL KCHT 765 : GO TO 1 765 : 452 CALL YLAPL 766 : GO TO 1 767 : 453 CONTINUE 767 : CALL RAFT 768 : GO TO 1 768 : 454 CALL KLOP 769 : GO TO 1 769 : 455 CALL KRES 770 : GO TO 1 771 : 456 CONTINUE 771 : CALL CSON 772 : GO TO 1 772 : 457 CALL YFIMP 773 : GO TO 1 773 : 458 CALL NUAGE 774 : GO TO 1 774 : 459 CALL WEIPAR 775 : GO TO 1 775 : 460 CALL KHIS 776 : GO TO 1 776 : 461 CALL KOPS 777 : GO TO 1 777 : 462 CALL FSUR 778 : GO TO 1 778 : 463 CALL FLAM 779 : GO TO 1 779 : 464 CALL KLNO 780 : GO TO 1 780 : 465 CALL DBIT 781 : GO TO 1 781 : 466 CALL YNS 782 : GO TO 1 782 : 467 CALL YTOIMP 783 : GO TO 1 783 : 468 CALL YFIMP 784 : GO TO 1 784 : 469 CALL KMAC(2) 785 : GO TO 1 785 : 470 CALL KMAC(3) 786 : GO TO 1 786 : 471 CALL YDUDW 787 : GO TO 1 787 : 472 CALL YFROT 788 : GO TO 1 788 : 473 CALL YTSCAL 789 : GO TO 1 789 : 474 CALL KONV 790 : GO TO 1 790 : 475 CALL KCHA 791 : GO TO 1 791 : 476 CALL MHYBR 792 : GO TO 1 792 : 477 CALL MATP 793 : GO TO 1 793 : 478 CALL HDEBIT 794 : GO TO 1 794 : 479 CALL HVIT 795 : GO TO 1 795 : 480 CALL HYBP 796 : GO TO 1 796 : 481 CALL SMTP 797 : GO TO 1 797 : 482 CALL DIVU 798 : GO TO 1 798 : 483 CALL MOCUR 799 : GO TO 1 799 : 484 CALL CHAUSS 800 : GO TO 1 800 : 485 CALL TAILLE 801 : GO TO 1 801 : 486 CALL ERF 802 : GO TO 1 802 : 487 CALL SENSI0 803 : GO TO 1 803 : 488 CALL IMPOSE 804 : GO TO 1 804 : 489 CALL DANS 805 : GO TO 1 805 : 490 CALL IMPF 806 : GO TO 1 806 : 491 CALL TBMAIN 807 : GO TO 1 807 : 492 CALL FRON1 808 : GO TO 1 808 : 493 CALL FUITE1 809 : GO TO 1 809 : 494 CALL EPTH 810 : GO TO 1 810 : 495 CALL FPT 811 : GO TO 1 811 : 496 CALL KFPT 812 : GO TO 1 812 : 497 CALL FPA 813 : GO TO 1 813 : 498 CALL KFPA 814 : GO TO 1 814 : 499 CALL ECHIMP 815 : GO TO 1 815 : 500 CALL QOND 816 : GO TO 1 816 : 501 CALL KPRO 817 : GO TO 1 817 : 502 CALL PRFORM 818 : GO TO 1 818 : 503 CALL PRRAYE 819 : GO TO 1 819 : 504 CALL RAYN 820 : GO TO 1 820 : 505 CALL VSUR 821 : GO TO 1 821 : 506 CALL TRAJEC 822 : GO TO 1 822 : 507 CALL AJU1 823 : GO TO 1 823 : 508 CALL AJU2 824 : GO TO 1 824 : 509 CALL FRIG 825 : GO TO 1 825 : 510 CALL EXCFRO 826 : GO TO 1 827 : 511 continue 827 : CALL NOMMER 828 : goto 1 828 : 512 CALL PRECO 829 : GOTO 1 830 : 513 continue 831 : C Ancien appel a l'operateur .... devenu obsolete 832 : goto 1 832 : 514 CALL ONDE 833 : GOTO 1 833 : 515 CALL CFL 834 : GOTO 1 834 : 516 CALL DEDOU 835 : GOTO 1 835 : 517 CALL DCOV 836 : GOTO 1 837 : 518 CONTINUE 838 : * parabole approchant un arc de cercle 839 : I=16 840 : GOTO 112 840 : 519 CALL POLA 841 : GOTO 1 841 : 520 CALL CHIMI1 842 : GOTO 1 842 : 521 CALL CHIMI2 843 : GOTO 1 843 : 522 CALL PENT 844 : GOTO 1 844 : 523 CALL PRET 845 : GOTO 1 845 : 524 CALL METHOD 846 : GO TO 1 846 : 525 CALL XPXTRA 847 : GO TO 1 847 : 526 CALL COMBLO 848 : GO TO 1 848 : 527 CALL GENJOI 849 : GO TO 1 849 : 528 CALL ZLEGEN 850 : GO TO 1 850 : 529 CALL MENISM 851 : GO TO 1 851 : 530 CALL FIONI 852 : GO TO 1 852 : 531 CALL NEUTRE 853 : GO TO 1 853 : 532 CALL LOGK 854 : GO TO 1 854 : 533 CALL COAC 855 : GO TO 1 855 : 534 CALL RESI 856 : GO TO 1 856 : 535 CALL MUTU 857 : GO TO 1 857 : 536 CALL SORE 858 : GO TO 1 858 : 537 CALL DIRICH 859 : GO TO 1 859 : 538 CALL LIGN 860 : GO TO 1 860 : 539 CALL OBJET 861 : GO TO 1 861 : 542 CALL HERITE 862 : GO TO 1 862 : 543 CALL DECO 863 : GO TO 1 863 : 544 CALL EXTERN 864 : GO TO 1 864 : 545 CALL DMMU 865 : GO TO 1 865 : 546 CALL DMTD 866 : GO TO 1 866 : 547 CALL BMTD 867 : GO TO 1 867 : 548 CALL SSCH 868 : GO TO 1 868 : 549 CALL MREM 869 : GOTO 1 869 : 550 CALL ASSIST(irt) 870 : GOTO 1 870 : 551 CALL FISS 871 : GOTO 1 871 : 552 CALL PRIMIT 872 : GOTO 1 872 : 553 CALL ANNULE 873 : GO TO 1 873 : 554 CALL PROB 874 : GO TO 1 874 : 555 CALL SAIS 875 : GO TO 1 875 : 556 CALL CHOI 876 : GO TO 1 876 : 557 CALL DETO 877 : GO TO 1 877 : 558 CALL PART 878 : GO TO 1 878 : 559 CALL CLMI 879 : GO TO 1 879 : 560 CALL PMAT 880 : GO TO 1 880 : 561 CALL EXCPHA 881 : GO TO 1 881 : 562 CALL PHAPRO 882 : GO TO 1 882 : 563 CALL PHAJ 883 : GO TO 1 883 : 564 CALL ALEA 884 : GO TO 1 884 : 565 CALL GNFL 885 : GO TO 1 885 : 566 CALL TRPROF 886 : GOTO 1 886 : 567 CALL SSTE 887 : GO TO 1 887 : 568 CALL ADVE 888 : GO TO 1 888 : 569 CALL BGMO 889 : GO TO 1 889 : 570 CALL FEFP 890 : GO TO 1 890 : 571 CALL COUPE 891 : GO TO 1 891 : 572 CALL VERMAI 892 : GO TO 1 892 : 573 CALL DFER 893 : GOTO 1 893 : 574 CALL GYROS 894 : GOTO 1 894 : 575 CALL CORIOL 895 : GOTO 1 895 : 576 CALL KENTR 896 : GOTO 1 896 : 577 CALL FANTOM 897 : GO TO 1 897 : 578 CALL ITRC 898 : GO TO 1 899 : 579 CONTINUE 900 : GOTO 9901 900 : 580 CALL IJET 901 : GO TO 1 901 : 581 CALL IMPED 902 : GO TO 1 902 : 582 CALL MOCA 903 : GO TO 1 903 : 583 CALL LEVMAR 904 : GO TO 1 904 : 584 CALL RAVC 905 : go to 1 905 : 585 CALL IDLIAI 906 : go to 1 906 : 586 CALL RAFF 907 : go to 1 907 : 587 CALL CFND 908 : GO TO 1 908 : 588 CALL ADETAT 909 : GO TO 1 909 : 589 CALL PSIPHI 910 : GO TO 1 910 : 590 CALL ARCCS(1) 911 : GOTO 1 911 : 591 CALL ARCCS(2) 912 : GOTO 1 912 : 592 CALL TANGEN 913 : GO TO 1 913 : 593 CALL TRIELE 914 : GO TO 1 914 : 594 CALL GAUNEW 915 : GO TO 1 915 : 595 CALL HISTOG 916 : GO TO 1 916 : 596 CALL ETG 917 : GO TO 1 917 : 597 CALL OTER 918 : GO TO 1 918 : 598 CALL XPOST 919 : GO TO 1 919 : 599 CALL RFCO 920 : GO TO 1 920 : 600 CALL VIDE 921 : GO TO 1 921 : 601 CALL VORO 922 : GO TO 1 922 : 602 CALL PRRAYO 923 : go to 1 923 : 603 CALL POSI 924 : GO TO 1 924 : 604 CALL MISE 925 : GO TO 1 925 : 605 CALL MISL 926 : GO TO 1 927 : C Je sors sur cette etiquette 9901: si on ajoute des opérateurs, 928 : C il faut les mettre au dessus 929 : 9901 CONTINUE 930 : END 931 : 932 : 933 : 934 : 935 : 936 : 937 : 938 : 939 : 940 : 941 : 942 : 943 : 944 : 945 : 946 : 947 : 948 : 949 :
© Cast3M 2003 - All rights reserved.
Disclaimer