C PILOT SOURCE GOUNAND 14/01/30 21:15:14 7922 c Cette subroutine décode et fait executer les directives c élémentaires portant sur des objets c Deux commandes ont un traitement special : CHAINE et MOT c C P. Manigot (le 21/08/85): C Le "DATA" de "MDIR1" ayant atteint le maximum de 20 lignes, C il a fallu creer "MDIR2" pour contenir les operateurs numeros C 180 et suivants. c il ne faut plus changer "NDIR1", ni allonger "MDIR1": c il ne faut plus changer "NDIR2", ni allonger "MDIR2": c c'est MDIR3 que l'on complète et "NDIR3" que l'on incrémente, maintenant. c SUBROUTINE PILOT c IMPLICIT INTEGER(I-N) REAL*8 XTEMPS,XINTER,XKT,DEN1,DEN2 INTEGER OOOVAL,NACT LOGICAL FLIG,IDEUFO external erf CHARACTER*4 MEGAL,locpr,locer2,locqr PARAMETER (NDIR3=148) PARAMETER (NDIR2=178) PARAMETER (NDIR1=179,NDIR1P=NDIR1+1, $ NDIR2P=NDIR1+NDIR2+1,NDIR=NDIR1+NDIR2+NDIR3) CHARACTER*4 MDIR(NDIR),MDIR1(NDIR1),MDIR2(NDIR2),MDIR3(NDIR3) DIMENSION ITEMPS(NDIR),XTEMPS(NDIR),ICOHCO(NDIR),NACT(3,NDIR) EQUIVALENCE (MDIR(1),MDIR1(1)),(MDIR(NDIR1P),MDIR2(1)), $ (MDIR(NDIR2P),MDIR3(1)) DATA IHORO/0/ DATA XINTER/0.D0/ DATA NBNNPR/0/ c -INC CCOPTIO -INC SMCOORD -INC CCASSIS c DATA MEGAL/'= '/ DATA MDIR1/'OPTI','FIN ','BORN','DENS','DROI','LAPL','CERC','MOTA' >,'QUEL','INTE','PARA','....','ET ','POIN','PLUS','MOIN','TRAN', > 'ROTA','TRAC','INVE','COTE','ELEM','CONT','DIFF','CHAN','LIST', > 'SURF','CONF','INFO','TOUR','HOMO','AFFI','SYME','INCL','ELIM', > 'TITR','RACC','TASS','SORT','LIRE','BARY','DALL','ORIE','MANU', > 'OUBL','COMP','COUT','PAVE','COMM','NOEU','MOT ','NBEL','NBNO', > 'NOTI','FACE','COOR','NORM','TEMP','VOLU','LECT','SAUF','PROG', > '+ ','- ','* ','/ ','** ','FLOT','ENTI','LOG ','EXP ', > 'DEPL','PSCA','PVEC','PMIX','LIAI','REGL','HOOK','SOLS','RESO', > '....','RIGI','BLOQ','DEPI','HOTA','STRU','TEXT','PROJ','VENV', > 'ELST','JONC','RECO','MASS','CLST','SIGM','RELA','FORC','MOME', > 'PRCH','BASE','DIME','EXTR','VERS','VIBR','MAXI','XTMX','YTMX', > '> ','< ','>EG ',' 'PJBA','CRIT','DIAG','XTX ','UNIQ','BSIG','....','MAX1','MOTS', > 'REPE','QUIT','SI ','SINO','FINS','IPOL','ABS ','SIN ','COS ', > 'ATG ','ENVE','ISOV','DETR','ENLE','REMP','INSE','COLI','TRIA', > 'TABL','REDU','SYMT','ANTI','RESU','PRES','EXCO','NOMC','SAUT', > 'DEFO','APPU','INVA','PRIN','VMIS','KSIG','SIGN','SUIT','CARB', > 'VALP','ORDO','TIRE','REGE','DESS','AMOR','CHAR','COUL','CHPO', > 'AFCO','EVOL','ORTH','THET','COMB','DEVE','VECT','PICA','CAPI'/ DATA MDIR2/'COPI','DIMN','SAUV','REST','CARA','MATE','GENE', > 'CAPA','ELFE','JACO','PLAS','GREE','MODE','....','FINP','XTY ', > 'DEBP','KTAN','FORM','MESS','NNOR','CUBP','CUBT','CER3','FDT ', > 'SEIS','ENER','EPSI','INTG','COUR','REAC','SUPE','ZERO','DEPB', > 'EXCI','KP ','ACTI','ELAS','....','ERRE','CONG','LUMP','OBTE', > 'VARI','MODI','MASQ','EXIS','MINI','GRAD','ENSE','IFRE','DFOU', > 'SIGS','MAPP','SOMM','BRUI','RTEN','DSPR','TFR ','....','TOTE', > 'GRAF','TRES','TYPE','OSCI','SPO ','INDE','....','....','CHSP', > 'TAGR','PERM','CABL','FOFI','WORK','QULX','DEBI','....','....', > 'CMOY','COMT','COND','FLUX','MODL','MATR','RIMP','FILT','TFRI', > 'CONC','ITER','ACQU','SOUR','CONV','....','PSMO','....','ECOU', > 'MENA','SYNT','ARGU','....','DYNE','....','FONC','RESP','PLAC', > '....','VALE','PROI','EXCE','ARET','CALP','INDI','ACT3','BIOT', > 'DEDU','CONN','NLOC','CHAI','COSI','CVOL','DIAD','HANN','INSI', > 'LSQF','LTL ','PERT','PRNS','PSRS','SIAR','SPON','VISA','CNEQ', > 'CCON','MESU','PILE','SIMP','UTIL','MENU','COSH','SINH','TANH', > 'DEG3','AIDE','RACP','REFE','....','KSOF','....','NSKE','KMAB', > 'NOEL','DOMA','FPU ','....','GMV ','EQPR','EQEX','VIBC','AVCT', > 'KDIA','KMTP','KMF ','MDIA','DFDT','TCRR','TCNM','SQTP','SOMT', > 'NLIN','CMCT','KCHT','LAPN','RAFT','KLOP','KRES','CSON','FIMP'/ DATA MDIR3/'NUAG','WEIP','KHIS','KOPS','FSUR','FLAM','ELNO', > 'DBIT','NS ','TOIM','FIMP','KMBT','KBBT','DUDW','FROT','TSCA', > 'KONV','KCHA','MHYB','MATP','HDEB','HVIT','HYBP','SMTP','DIVU', > 'MOCU','CHAU','TAIL','ERF ','SENS','IMPO','DANS','IMPF','NTAB', > 'FRON','FUIT','EPTH','FPT ','KFPT','FPA ','KFPA','ECHI','QOND', > 'KPRO','FFOR','RAYE','RAYN','VSUR','TRAJ','AJU1','AJU2','FRIG', > 'EXCF','NOMM','PREC','....','ONDE','CFL ','DEDO','DCOV','PARC', > 'POLA','CHI1','CHI2','PENT','PRET','METH','XXT ','CBLO','GENJ', > 'ZLEG','MESM','FION','NEUT','LOGK','COAC','RESI','MUTU','SORE', > 'DIRI','LIGN','OBJE','DEBM','FINM','HERI','DECO','EXTE','DMMU', > 'DMTD','BMTD','SSCH','MREM','ASSI','FISS','PRIM','ANNU','PROB', > 'SAIS','CHOI','DETO','PART','CLMI','PMAT','EXCP','PROP','PHAJ', > 'ALEA','GNFL','MPRO','SSTE','ADVE','BGMO','ECFE','COUP','VERM', > 'DFER','GYRO','CORI','KENT','FANT','ITRC','RETO','IJET','IMPE', > 'MOCA','LEVM','RAVC','IDLI','RAFF','CFND','ADET','PSIP','ACOS', > 'ASIN','TAN ','TRIE','GANE','HIST','ETG ','OTER','XFEM','RFCO', > 'VIDE','VORO','PRRA','POSI','MISE','MISL'/ NDIRR=0 ICOHCO(1)=-1 * initialisation de lotesc lotesc=.false. ith=0 if (nbesc.ne.0) call ooonth(ith) if (ith.ne.0) lotesc=.true. * WRITE(IOIMP,*) ' dans pilot ',ith * * place totale disponible XPLTOT=(REAL(OOOVAL(1,3))*OOOVAL(1,4))/2.+OOOVAL(1,1) IPLTOT=INT(MIN(XPLTOT,2.E9)) * par defaut on se garde le dixieme de la place disponible IPLLB=IPLTOT/10 NDIRR=NDIR c c initialisation des des tableaux de l'opérateur TEMP FLIG=.FALSE. IDEUFO=.FALSE. INTERT=0 DO 25 I=1,NDIR ITEMPS(I)=0 NACT(1,I)=0 NACT(2,I)=0 NACT(3,I)=0 XTEMPS(I)=0.D0 25 CONTINUE c if (ith.eq.0) then NACTI = OOOVAL(2,3) NTAACT = OOOVAL(3,3) * initialisations pour le menage automatique MACTIP=OOOVAL(3,3) MTOTAP=OOOVAL(3,1) MSEGMP=OOOVAL(2,1) MACTI=OOOVAL(1,1) MTOTA=IPLTOT endif c c début de la boucle sur les opérateurs c 1 CONTINUE c * if (ith.eq.0) lodesl=.true. if (ith.eq.0) call setass(1) * horodatage if (nbesc.ne.0) call ooogll(1) ihoro=ihoro+1 call ooohor(ihoro,ith) if (nbesc.ne.0) call ooogll(0) IF (IERR.EQ.623) THEN IERR=0 CALL ERREUR(623) ENDIF locpr=locerr LOCERR=MEGAL locer2=megal CALL MESLIR(-219) c c test pour appel d'une procédure ou d'une methode c CALL LIROBJ('PROCEDUR',IRET,0,IRETOU) IF(IRETOU.NE.0) THEN CALL GIBTEM(XKT) c remplissage des tableaux de l'opérateur TEMPS IF(IDEUFO) THEN ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 XTEMPS(ILOCE)=XTEMPS(ILOCE) + XKT XINTER=XINTER + XKT NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT NACT(3,ILOCE)=NACT(3,ILOCE) + 1 NACTI = OOOVAL(2,3) NTAACT = OOOVAL(3,3) ENDIF c on fixe ILOC a l'operateur 'PROC' ILOCE=193 IDEUFO=.TRUE. CALL REFUS c gestion de la procédure CALL PROCED if (ith.eq.0) call setass(0) GO TO 1 ENDIF * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 1 lodesl ' CALL LIRMO2(MDIR,NDIR,I,0,ICOHCO) * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 2 lodesl ' IF (I.NE.0) GOTO 100 if (ith.eq.0) call setass(0) 30 CONTINUE if (ith.eq.0) call setass(1) c c option verif ( opti veri 1 ) IF (IOSPI.NE.0) WRITE (IOIMP,90001) 90001 FORMAT(' *',' ***** ***** FIN D''INSTRUCTION ELEMENTAIRE','/') c c creation de point si il y a deux reels dans la pile intermediaire CALL CREPOI * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 3 lodesl ' if (nbesc.ne.0) segdes mcoord ** if (ith.eq.0) call setass(0) * cas esclave if (LOTESC) then CCCCCCC if (imescl.ne.0) then if (ith.eq.0) call setass(0) call nouins2 * if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 4 lodesl ' goto 1 endif c c gestion de la nouvelle instruction CALL NOUINS if (ith.eq.0) call setass(0) 2 continue irt=0 imena=1 if(lupara.ne.0)call chkesc(irt,imena) if(irt.eq.1) go to 550 * * menage automatique (osons) if (ith.eq.0.and.imena.eq.1) then * autres criteres de menage : IFMEN=0 * + de 20% de la memoire active depuis la derniere fois MACTIC=OOOVAL(3,3) IF (MACTIC-MACTIP.gt.MACTI*0.2) IFMEN=1 * + de 65% de la memoire totale depuis la derniere fois MTOTAC=OOOVAL(3,1) IF (MTOTAC-MTOTAP.gt.MTOTA*0.65) IFMEN=2 * + de 50% de la memoire active en memoire totale depuis la derniere fois IF (MTOTAC-MTOTAP.gt.MACTI*0.5) IFMEN=3 * + de 200000 segments depuis la derniere fois MSEGMC=OOOVAL(2,1) IF (MSEGMC-MSEGMP.gt.200000) IFMEN=4 IF (IFMEN.NE.0) THEN IF(IDEUFO) THEN CALL GIBTEM(XKT) ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT XINTER=XINTER + XKT NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT NACT(3,ILOCE)=NACT(3,ILOCE) + 1 NACTI = OOOVAL(2,3) NTAACT = OOOVAL(3,3) ILOCE=277 ENDIF iautom=1 CALL MENAGE (iautom) IF(IDEUFO) THEN CALL GIBTEM(XKT) ITEMPS(ILOCE)= ITEMPS(ILOCE) + 1 XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT XINTER=XINTER + XKT NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT NACT(3,ILOCE)=NACT(3,ILOCE) + 1 NACTI = OOOVAL(2,3) NTAACT = OOOVAL(3,3) ENDIF if( iautom.eq.1) then MACTIP=OOOVAL(3,3) MTOTAP=OOOVAL(3,1) MSEGMP=OOOVAL(2,1) interr(1)=mactic-mactip interr(2)=mtotac-mtotap interr(3)=msegmc-msegmp interr(4)=ifmen moterr(1:4)=locpr call erreur(862) endif endif * CALL GIBTEM(XKT) c remplissage des tableau de l'opérateur TEMPS ENDIF GOTO 1 100 continue LOCERR=MDIR(I) LOCER2=MDIR(I) * pour etre sur que mcoord est actif( pv) SEGACT MCOORD if (iimpi.ne.0) then nbnnac = xcoor(/1)/(idim+1) if (nbnnpr.ne.nbnnac) then WRITE(IOIMP,*)'pilot noeuds avant: ',nbnnpr,' apres: ', > nbnnac,' dans: ',locqr nbnnpr = nbnnac endif locqr = locerr endif CALL GIBTEM(XKT) c remplissage des tableau de l'operateur TEMPS IF(IDEUFO) THEN ITEMPS(ILOCE)= ITEMPS (ILOCE) + 1 XTEMPS(ILOCE)=XTEMPS (ILOCE) + XKT XINTER=XINTER + XKT NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT NACT(3,ILOCE)=NACT(3,ILOCE) + 1 NACTI = OOOVAL(2,3) NTAACT = OOOVAL(3,3) ENDIF ILOCE=I IDEUFO=.TRUE. c option verif IF (IOSPI.NE.0) WRITE (IOIMP,90000) ith,locer2 90000 FORMAT(' *',' Assistant ',i2, ' Opérateur appelé : ',A4) CDMY-WIN32 CALL SCROLLTEXT(6) c c branchement conditionnel vers les opérateurs c * if (ith.eq.0) lodesl=.false. if (ith.eq.0) call setass(0) IF (I.LE.100) >GOTO (101,102,103,104,105,106,107,108,109,110,111,112,113,114, > 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129, > 130,131,132,133,134,135,136,137,138,139,140,141,142,143,144, > 145,146,147,148,149,150,151,152,153,154,155,156,157,158,159, > 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174, > 175,176,177,178,179,180,181,182,183,184,185,186,187,188,189, > 190,191,192,193,194,195,196,197,198,199,200),I IF (I.LE.200) >GOTO (201,202,203,204,205,206,207,208,209,210,211,212,213,214, > 215,216,217,218,219,220,221,222,223,224,225,226,227,228,229, > 230,231,232,233,234,235,236,237,238,239,240,241,242,243,244, > 245,246,247,248,249,250,251,252,253,254,255,256,257,258,259, > 260,261,262,263,264,265,266,267,268,269,270,271,272,273,274, > 275,276,277,278,279,280,281,282,283,284,285,286,287,288,289, > 290,291,292,293,294,295,296,297,298,299,300),I-100 IF (I.LE.300) >GOTO (301,302,303,304,305,306,307,308,309,310,311,312,313,314, > 315,316,317,318,319,320,321,322,323,324,325,326,327,328,329, > 330,331,332,333,334,335,336,337,338,339,340,341,342,343,344, > 345,346,347,348,349,350,351,352,353,354,355,356,357,358,359, > 360,361,362,363,364,365,366,367,368,369,370,371,372,373,374, > 375,376,377,378,379,380,381,382,383,384,385,386,387,388,389, > 390,391,392,393,394,395,396,397,398,399,400),I-200 IF (I.LE.400) >GOTO (401,402,403,404,405,406,407,408,409,410,411,412,413,414, > 415,416,417,418,419,420,421,422,423,424,425,426,427,428,429, > 430,431,432,433,434,435,436,437,438,439,440,441,442,443,444, > 445,446,447,448,449,450,451,452,453,454,455,456,457,458,459, > 460,461,462,463,464,465,466,467,468,469,470,471,472,473,474, > 475,476,477,478,479,480,481,482,483,484,485,486,487,488,489, > 490,491,492,493,494,495,496,497,498,499,500),I-300 IF (I.LE.500) >GOTO (501,502,503,504,505,506,507,508,509,510,511,512,513,514, > 515,516,517,518,519,520,521,522,523,524,525,526,527,528,529, > 530,531,532,533,534,535,536,537,538,539,540,541,542,543,544, > 545,546,547,548,549,550,551,552,553,554,555,556,557,558,559, > 560,561,562,563,564,565,566,567,568,569,570,571,572,573,574, > 575,576,577,578,579,580,581,582,583,584,585,586,587,588,589, > 590,591,592,593,594,595,596,597,598,599,600),I-400 IF (I.LE.600) >GOTO (601,602,603,604,605),I-500 c c on a lu option 101 CALL OPTION(1) GOTO 1 102 CALL FIN irt=0 imena=1 if(lupara.ne.0)call chkesc(irt,imena) if(irt.eq.1) go to 550 GOTO 1 103 CALL BORNER GOTO 1 104 CALL SUBDEN GOTO 1 105 CONTINUE 107 CONTINUE 111 CONTINUE 112 CONTINUE IOPTG=I-4 c important ioptg est le numero du type de ligne a engendrer c le tenir a jour et voir comment on le recupere dans ligne DEN1 = 0. DEN2 = 0. INBR = 0 CALL LIGNE(IOPTG,1,DEN1,DEN2,INBR) GOTO 1 106 CALL LAPLAC GOTO 1 108 CALL MOTAN GO TO 1 109 CALL QUELQU GOTO 1 110 CALL INTERS GOTO 1 113 CALL PRFUSE GOTO 1 114 CALL POIEXT GOTO 1 115 CONTINUE 116 IOPTG=I-14 CALL PROPER(IOPTG) GOTO 1 117 CONTINUE 118 IOPTG=I-16 CALL PRTRAN(IOPTG) GOTO 1 119 CALL PRTRAC GOTO 1 120 CALL PRINVE GOTO 1 121 CALL PRCOTE GOTO 1 122 CALL PREXTR GOTO 1 123 CALL PRCONT GOTO 1 124 CALL PRDIFF GOTO 1 125 CALL PRCHAN GOTO 1 126 CALL PRLIST GOTO 30 127 CALL PRSURF GOTO 1 128 CALL CONFON GOTO 1 129 CALL INFORM GOTO 1 130 CALL TOURNE GOTO 1 131 CALL HOMOTH GOTO 1 132 CALL AFFINI GOTO 1 133 CALL SYMETR GOTO 1 134 CALL INCLUS GOTO 1 135 CALL PRELIM(0) GOTO 1 136 CALL LTITRE GOTO 1 137 CALL PRRACC GOTO 1 138 CALL PRTASS GOTO 1 139 CALL PRSORT GOTO 1 140 IONIVO=IONIVE CALL LIREFI * on remet le niveau a sa valeur anterieure IONIVE=IONIVO GOTO 1 141 CALL BARYCE GOTO 1 142 CALL PRDALL GOTO 1 143 CALL PRORIE GOTO 1 144 CALL MANUEL GOTO 1 145 CALL OUBLIE GOTO 1 146 CALL COML GOTO 1 147 CALL COUTUR GOTO 1 148 CALL PRPAVE GOTO 1 149 CALL COMMEN GOTO 2 150 CALL NOEUD GOTO 1 151 CALL MOTSUB GOTO 30 152 CALL NBEL GOTO 1 153 CALL NBNO GOTO 1 154 CALL NOTICE(MDIR,NDIR) GOTO 1 155 CALL EXFACE GOTO 1 156 CALL EXCOOR GOTO 1 157 CALL CNORM GOTO 1 158 CALL TEMPOR(XINTER,MDIR,ITEMPS,XTEMPS,NACT,NDIR) GOTO 1 159 CALL VOLUME GOTO 1 160 CALL LECTUR GOTO 1 161 CALL SAUF GOTO 1 162 CALL PROG GO TO 1 163 CALL OPERAD GOTO 1 164 CALL OPERSO GOTO 1 165 CALL OPERMU GOTO 1 166 CALL OPERDI GOTO 1 167 CALL OPERPU GOTO 1 168 CALL OPERFL GOTO 1 169 CALL OPERIN GOTO 1 170 CALL OPERLO GOTO 1 171 CALL OPEREX GOTO 1 172 CALL DEPLAC GOTO 1 173 CALL PSCALA GOTO 1 174 CALL PVECT GOTO 1 175 CALL PMIXT GOTO 1 176 CALL PRLIAI GOTO 1 177 CALL REGLE GOTO 1 178 CALL HOOKE GO TO 1 179 CALL SOLS GO TO 1 180 CALL RESOU GO TO 1 181 continue C Ancien appel a l'operateur AFFE devenu obsolete goto 1 182 CALL RIGI GO TO 1 183 CALL BLOQUE GO TO 1 184 CALL DEPIMP GO TO 1 185 CALL HOTAN GO TO 1 186 CALL STRUCT GO TO 1 187 CALL TEXTDE GOTO 1 188 CALL PROOBJ GOTO 1 189 CALL VENV GOTO 1 190 CALL ELSTRU GOTO 1 191 CALL JONCT GOTO 1 192 CALL RECOMB GO TO 1 193 CALL MASSE(0) GO TO 1 194 CALL CLSTRU GOTO 1 195 CALL SIGMA GO TO 1 196 CALL RELA GOTO 1 197 CONTINUE CALL FORCE(1) GOTO 1 198 CONTINUE CALL FORCE(2) GO TO 1 199 CALL PROJEP GOTO 1 200 CALL BASEMD GO TO 1 201 CALL DIMENS GO TO 1 202 CALL EXTRAI GO TO 30 203 CALL VERSEN GO TO 1 204 CALL VIBRAT GO TO 1 205 JMIL=1 CALL MAXIMU(JMIL) GO TO 1 206 CALL PRXTMX GO TO 1 207 CALL PRYTMX GO TO 1 208 CALL GRAND GO TO 1 209 CALL PETIT GO TO 1 210 CALL GRAEGA GO TO 1 211 CALL PETEGA GO TO 1 212 CALL OU GO TO 1 213 CALL EGA GO TO 1 214 CALL NON GO TO 1 215 CALL NEG GO TO 1 216 CALL MULT GO TO 1 217 CALL PJBA GO TO 1 218 CALL CRIT GOTO 1 219 CALL DIAGNE GOTO 1 220 CALL XTX GOTO 1 221 CALL UNIQUE c Ancien appel a l'operateur CHOC devenu obsolete GOTO 1 222 CALL BSIGMA GOTO 1 223 continue c Ancien appel a l'operateur PHRC devenu obsolete goto 1 224 CALL NORMAX GOTO 1 225 CALL MOTS GOTO 1 226 CALL REPETE GOTO 1 227 CALL QUITTE GOTO 1 228 CALL SI GOTO 2 229 CALL SINON GOTO 2 230 CALL FINSI GOTO 2 231 CALL INTERP GOTO 1 232 CALL ABSOLU GOTO 1 233 CALL SINUS GOTO 1 234 CALL COSINU GOTO 1 235 CALL ARCTG GOTO 1 236 CALL ENVELO GOTO 1 237 CONTINUE CALL ISOVAL GOTO 1 238 CALL DETRUI GOTO 1 239 CALL ENLEVE GOTO 1 240 CALL REMPLA GOTO 1 241 CALL INSERE GOTO 1 242 CALL COLI GOTO 1 243 CALL TRIA GOTO 1 244 CALL TABLE GOTO 1 245 CALL REDU GOTO 1 246 CONTINUE CALL SYMTRI(0) GOTO 1 247 CONTINUE CALL SYMTRI(1) GOTO 1 248 CALL RESU GOTO 1 249 CALL PRESSI GOTO 1 250 CALL EXCOMP GOTO 1 251 CALL NOMC GOTO 1 252 CALL SAUTER GOTO 1 253 CALL DEFO GOTO 1 254 CALL APPUI(1) GOTO 1 255 CALL INVARI GOTO 1 256 CALL PRINCI GOTO 1 257 CALL VMISES GOTO 1 258 CALL KSIGMA GOTO 1 259 CALL SIGNE GOTO 1 260 CALL SUITE GOTO 1 261 CALL CARAC GOTO 1 262 CALL VALPRO GOTO 1 263 CALL ORDONN GOTO 1 264 CALL TIRE GOTO 1 265 CALL PRREGE GOTO 1 266 CALL DESSIN GOTO 1 267 CALL AMOR GOTO 1 268 CALL CHARGE GOTO 1 269 CALL COLOR GOTO 1 270 CALL CHPOIN GOTO 1 271 CALL AFCOUL GOTO 1 272 CALL EVOL GOTO 1 273 CALL ORTHOG GOTO 1 274 CALL THETA GOTO 1 275 CALL COMBTA GOTO 1 276 CALL DEVERS GOTO 1 277 CALL VECTE GOTO 1 278 CALL PIOCAU(0) GOTO 1 279 CALL PIOCAU(1) GOTO 1 280 CALL COPIER GOTO 1 281 CALL DIMNOY GOTO 1 282 CALL SAUV GOTO 1 283 IONIVO=IONIVE CALL REST * on remet le niveau a sa valeur anterieure IONIVE=IONIVO GOTO 1 284 CALL CARAC GOTO 1 285 CALL MATER GOTO 1 286 CALL GENERA GOTO 1 287 CALL CAPA GO TO 1 288 CALL ELFE GOTO 1 289 CALL JACO GOTO 1 290 continue C Appel a l'operateur PLAS (a debrancher) call ecoule goto 1 291 CALL GREEN GOTO 1 292 CALL MODELI GOTO 1 293 CALL PROCED GOTO 1 541 CONTINUE 294 CALL FINPRO GOTO 1 295 CALL XTY GOTO 1 540 CONTINUE 296 IOPRME=1 IF(I.GT.400) IOPRME=2 CALL MAPR(IOPRME) GOTO 1 297 CALL KTANGE GOTO 1 298 CALL FORM GOTO 1 299 CALL MESSAG GOTO 1 300 CALL NNOR GOTO 1 301 I=13 GOTO 112 302 I=14 GOTO 112 303 I=15 GOTO 112 c :::::::::::::::::::::::::::::::: 304 CALL FDT GOTO 1 305 CALL SEISME GOTO 1 306 CALL ENERGI GOTO 1 307 CALL EPSI GOTO 1 308 CALL INTGRA GOTO 1 309 CALL COURBE GOTO 1 310 CALL REACTI GOTO 1 311 CALL SUPER GOTO 1 312 CALL ZERORO GOTO 1 313 CALL DEPB GOTO 1 314 CALL EXCITE GOTO 1 315 CALL KP GOTO 1 316 CALL ACTIVE GOTO 1 317 CALL ELASTI GOTO 1 318 continue C CALL debran GOTO 1 319 CALL ERRE GOTO 1 320 CALL CONGE GOTO 1 321 CALL MASSE(1) GOTO 1 322 CALL OBTENI GOTO 1 323 CALL VARI GOTO 1 324 CALL MODI GOTO 1 325 CALL MASQ GOTO 1 326 CALL EXIS GOTO 1 327 JMIL=-1 CALL MAXIMU(JMIL) GOTO 1 328 CALL GRAD GOTO 1 329 CALL ENSE GOTO 1 330 CALL IFRE GOTO 1 331 CALL DFOURI GOTO 1 332 CALL SIGSOL GOTO 1 333 CALL MAPP GOTO 1 334 CALL SOMM GOTO 1 335 CALL BRUI GOTO 1 336 CALL RTEN GOTO 1 337 CALL DSPR GOTO 1 338 IOPTFR=-1 CALL TFOR(IOPTFR) GOTO 1 339 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 340 CALL TOTEMP GOTO 1 341 CALL GRAF GOTO 1 342 CALL TRESCA GOTO 1 343 CALL TYPE GOTO 30 344 CALL OSCI GOTO 1 345 CALL SPO GOTO 1 346 CALL INDETA GOTO 1 347 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 348 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 349 CALL CHSP GOTO 1 350 CALL TAGRAD GOTO 1 351 CALL PERMEA GOTO 1 352 CALL RICABL GOTO 1 353 CALL FOFISS GOTO 1 354 CALL WORK GOTO 1 355 CALL QULX GOTO 1 356 CALL DEBIT GOTO 1 357 continue C Ancien appel a l'operateur ARTI(CULATION) devenu obsolete goto 1 358 continue C Appel a l'operateur FENE(TRE) debranche a ce jour C call fenetr goto 1 359 CALL CHOMOY GOTO 1 360 CALL COMCHO GOTO 1 361 CALL CONDU GOTO 1 362 CALL FLUX GOTO 1 363 CALL MODELI GOTO 1 364 CALL MATER GOTO 1 365 CALL CRIMP GOTO 1 366 CALL FILTRE GOTO 1 367 CALL TFRINV GOTO 1 368 CALL CONCAT GOTO 1 369 CALL ITERER GOTO 1 370 CALL ACQUER(IBRUT) IF (IBRUT.EQ.1) GOTO 30 GOTO 1 371 CALL CHALEU GOTO 1 372 CALL CONVEC GOTO 1 373 continue C Ancien appel a l'operateur CHAM(ELEM) devenu obsolete goto 1 374 CALL PSMO GOTO 1 375 continue C Ancien appel a l'operateur MOTE(UR) devenu obsolete goto 1 376 continue C Appel a l'operateur ECOU(LE) (a debrancher) call ecoule goto 1 377 iautom=0 CALL MENAGE(iautom) if(iautom.eq.1) then MACTIP=OOOVAL(3,3) MTOTAP=OOOVAL(3,1) MSEGMP=OOOVAL(2,1) endif GOTO 1 378 CALL SYNTHE GOTO 1 379 CALL ARGU GOTO 1 380 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 381 CALL DYNE GOTO 1 382 continue C Ancien appel a l'operateur CRES(OL) devenu obsolete goto 1 383 CALL FONCTI GOTO 1 384 CALL RESPRO GOTO 1 385 CALL PLAC GOTO 1 386 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 387 CALL OPTION (2) GOTO 30 388 CALL PROIET GOTO 1 389 CALL EXCELL GOTO 1 390 CALL ARETE GOTO 1 391 CALL CALP GOTO 1 392 CALL INDIC GOTO 1 393 CALL ACT3 GOTO 1 394 CALL BIOSAV GOTO 1 395 CALL DEDU(0) GOTO 1 396 CALL CONNEC GOTO 1 397 CALL NLOCAL GOTO 1 398 CALL CHAINE GOTO 30 399 CALL COSI GOTO 1 400 CALL CVOL GOTO 1 401 CALL DIAD GOTO 1 402 CALL HANN GOTO 1 403 CALL INSI GOTO 1 404 CALL LSQF GOTO 1 405 CALL LTL GOTO 1 406 CALL PERT GOTO 1 407 CALL PRNS GOTO 1 408 CALL PSRS GOTO 1 409 CALL SIAR GOTO 1 410 CALL SPON GOTO 1 411 CALL PRELIM(1) GOTO 1 412 CALL CNEQ GOTO 1 413 CALL CCON GOTO 1 414 CALL MESU GOTO 1 415 CALL PILEPS GO TO 1 416 CALL SIMPLE GO TO 1 417 CALL UTILIS GO TO 1 418 CALL MENUG GO TO 1 419 CALL OPERHY(1) GO TO 1 420 CALL OPERHY(2) GO TO 1 421 CALL OPERHY(3) GO TO 1 422 CALL DEG3 GO TO 1 423 CALL AIDE(MDIR,NDIR) GO TO 1 424 CALL RACPOL GO TO 1 425 CALL REFE GO TO 1 426 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 427 CALL KSOF GO TO 1 428 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 429 CALL YNSKE GO TO 1 430 CALL KMAC(1) GO TO 1 431 CALL KNOL GO TO 1 432 CALL KDOM GO TO 1 433 CALL YFPU GO TO 1 434 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 435 CALL YGMV GO TO 1 436 CALL EQPR GO TO 1 437 CALL EQEX GO TO 1 438 CALL VIBRAC GO TO 1 439 CALL CAAVCT GO TO 1 440 CALL CAKIZD GO TO 1 441 CALL KMTP GO TO 1 442 CALL KMF GO TO 1 443 CONTINUE CALL YDIAG GO TO 1 444 CONTINUE CALL YDFDT GO TO 1 445 CONTINUE CALL TCRR GO TO 1 446 CONTINUE CALL TCNM GO TO 1 447 CONTINUE CALL SQTP GO TO 1 448 CALL KSOMT GO TO 1 449 continue C CALL KDTB CALL PRLIN GO TO 1 450 CONTINUE CALL CMCT GO TO 1 451 CALL KCHT GO TO 1 452 CALL YLAPL GO TO 1 453 CONTINUE CALL RAFT GO TO 1 454 CALL KLOP GO TO 1 455 CALL KRES GO TO 1 456 CONTINUE CALL CSON GO TO 1 457 CALL YFIMP GO TO 1 458 CALL NUAGE GO TO 1 459 CALL WEIPAR GO TO 1 460 CALL KHIS GO TO 1 461 CALL KOPS GO TO 1 462 CALL FSUR GO TO 1 463 CALL FLAM GO TO 1 464 CALL KLNO GO TO 1 465 CALL DBIT GO TO 1 466 CALL YNS GO TO 1 467 CALL YTOIMP GO TO 1 468 CALL YFIMP GO TO 1 469 CALL KMAC(2) GO TO 1 470 CALL KMAC(3) GO TO 1 471 CALL YDUDW GO TO 1 472 CALL YFROT GO TO 1 473 CALL YTSCAL GO TO 1 474 CALL KONV GO TO 1 475 CALL KCHA GO TO 1 476 CALL MHYBR GO TO 1 477 CALL MATP GO TO 1 478 CALL HDEBIT GO TO 1 479 CALL HVIT GO TO 1 480 CALL HYBP GO TO 1 481 CALL SMTP GO TO 1 482 CALL DIVU GO TO 1 483 CALL MOCUR GO TO 1 484 CALL CHAUSS GO TO 1 485 CALL TAILLE GO TO 1 486 CALL ERF GO TO 1 487 CALL SENSI0 GO TO 1 488 CALL IMPOSE GO TO 1 489 CALL DANS GO TO 1 490 CALL IMPF GO TO 1 491 CALL TBMAIN GO TO 1 492 CALL FRON1 GO TO 1 493 CALL FUITE1 GO TO 1 494 CALL EPTH GO TO 1 495 CALL FPT GO TO 1 496 CALL KFPT GO TO 1 497 CALL FPA GO TO 1 498 CALL KFPA GO TO 1 499 CALL ECHIMP GO TO 1 500 CALL QOND GO TO 1 501 CALL KPRO GO TO 1 502 CALL PRFORM GO TO 1 503 CALL PRRAYE GO TO 1 504 CALL RAYN GO TO 1 505 CALL VSUR GO TO 1 506 CALL TRAJEC GO TO 1 507 CALL AJU1 GO TO 1 508 CALL AJU2 GO TO 1 509 CALL FRIG GO TO 1 510 CALL EXCFRO GO TO 1 511 continue CALL NOMMER goto 1 512 CALL PRECO GOTO 1 513 continue C Ancien appel a l'operateur .... devenu obsolete goto 1 514 CALL ONDE GOTO 1 515 CALL CFL GOTO 1 516 CALL DEDOU GOTO 1 517 CALL DCOV GOTO 1 518 CONTINUE * parabole approchant un arc de cercle I=16 GOTO 112 519 CALL POLA GOTO 1 520 CALL CHIMI1 GOTO 1 521 CALL CHIMI2 GOTO 1 522 CALL PENT GOTO 1 523 CALL PRET GOTO 1 524 CALL METHOD GO TO 1 525 CALL XPXTRA GO TO 1 526 CALL COMBLO GO TO 1 527 CALL GENJOI GO TO 1 528 CALL ZLEGEN GO TO 1 529 CALL MENISM GO TO 1 530 CALL FIONI GO TO 1 531 CALL NEUTRE GO TO 1 532 CALL LOGK GO TO 1 533 CALL COAC GO TO 1 534 CALL RESI GO TO 1 535 CALL MUTU GO TO 1 536 CALL SORE GO TO 1 537 CALL DIRICH GO TO 1 538 CALL LIGN GO TO 1 539 CALL OBJET GO TO 1 542 CALL HERITE GO TO 1 543 CALL DECO GO TO 1 544 CALL EXTERN GO TO 1 545 CALL DMMU GO TO 1 546 CALL DMTD GO TO 1 547 CALL BMTD GO TO 1 548 CALL SSCH GO TO 1 549 CALL MREM GOTO 1 550 CALL ASSIST(irt) GOTO 1 551 CALL FISS GOTO 1 552 CALL PRIMIT GOTO 1 553 CALL ANNULE GO TO 1 554 CALL PROB GO TO 1 555 CALL SAIS GO TO 1 556 CALL CHOI GO TO 1 557 CALL DETO GO TO 1 558 CALL PART GO TO 1 559 CALL CLMI GO TO 1 560 CALL PMAT GO TO 1 561 CALL EXCPHA GO TO 1 562 CALL PHAPRO GO TO 1 563 CALL PHAJ GO TO 1 564 CALL ALEA GO TO 1 565 CALL GNFL GO TO 1 566 CALL TRPROF GOTO 1 567 CALL SSTE GO TO 1 568 CALL ADVE GO TO 1 569 CALL BGMO GO TO 1 570 CALL FEFP GO TO 1 571 CALL COUPE GO TO 1 572 CALL VERMAI GO TO 1 573 CALL DFER GOTO 1 574 CALL GYROS GOTO 1 575 CALL CORIOL GOTO 1 576 CALL KENTR GOTO 1 577 CALL FANTOM GO TO 1 578 CALL ITRC GO TO 1 579 CONTINUE GOTO 9901 580 CALL IJET GO TO 1 581 CALL IMPED GO TO 1 582 CALL MOCA GO TO 1 583 CALL LEVMAR GO TO 1 584 CALL RAVC go to 1 585 CALL IDLIAI go to 1 586 CALL RAFF go to 1 587 CALL CFND GO TO 1 588 CALL ADETAT GO TO 1 589 CALL PSIPHI GO TO 1 590 CALL ARCCS(1) GOTO 1 591 CALL ARCCS(2) GOTO 1 592 CALL TANGEN GO TO 1 593 CALL TRIELE GO TO 1 594 CALL GAUNEW GO TO 1 595 CALL HISTOG GO TO 1 596 CALL ETG GO TO 1 597 CALL OTER GO TO 1 598 CALL XPOST GO TO 1 599 CALL RFCO GO TO 1 600 CALL VIDE GO TO 1 601 CALL VORO GO TO 1 602 CALL PRRAYO go to 1 603 CALL POSI GO TO 1 604 CALL MISE GO TO 1 605 CALL MISL GO TO 1 C Je sors sur cette etiquette 9901: si on ajoute des opérateurs, C il faut les mettre au dessus 9901 CONTINUE END