Télécharger pilot.eso

Retour à la liste

Numérotation des lignes :

  1. C PILOT SOURCE PV 17/04/21 21:15:03 9409
  2. C Cette subroutine decode et fait executer les directives
  3. C elementaires 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 complete et "NDIR3" que l'on incremente, maintenant.
  13. C
  14. SUBROUTINE PILOT
  15. C
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT real*8 (a-h,o-z)
  18.  
  19. -INC CCOPTIO
  20. -INC CCASSIS
  21.  
  22. REAL*8 XPLTOT
  23.  
  24. INTEGER OOOVAL,ittime,ITABS0,ITABSO,ITCPU0
  25. LOGICAL INITIAL
  26. external erf
  27. CHARACTER*4 MEGAL,locpr,locer2,locqr
  28. PARAMETER (NDIR3=150)
  29. PARAMETER (NDIR2=178)
  30. PARAMETER (NDIR1=179,NDIR1P=NDIR1+1,
  31. $ NDIR2P=NDIR1+NDIR2+1,NDIR=NDIR1+NDIR2+NDIR3)
  32. PARAMETER (NBASS=65)
  33. CHARACTER*4 MDIR(NDIR),MDIR1(NDIR1),MDIR2(NDIR2),MDIR3(NDIR3)
  34. DIMENSION IAPPEL(NDIR,NBASS),IELAPS(NDIR,NBASS),ICOHCO(NDIR),
  35. $ NACT(2,NDIR),ittime(4),ITCPU(NDIR,NBASS),
  36. $ ITEMP1(NDIR,NBASS),ITEMP2(NDIR,NBASS)
  37. EQUIVALENCE (MDIR(1),MDIR1(1)),(MDIR(NDIR1P),MDIR2(1)),
  38. $ (MDIR(NDIR2P),MDIR3(1))
  39.  
  40. C sauvegarde pour permettre des appels successifs a pilot
  41. C inutile dans castem, mais tres utile pour pycastem
  42.  
  43. SAVE MDIR
  44. SAVE IAPPEL,ITEMP1,ITEMP2,IELAPS,ITCPU,ITCPU0,ICOHCO
  45. SAVE NACT
  46. SAVE XPLTOT
  47. SAVE INITIAL
  48. SAVE ILOCE_MAIN
  49. SAVE ITABSO,ITABS0
  50.  
  51. INTEGER NACTI
  52. INTEGER NTAACT
  53. INTEGER MACTIP
  54. INTEGER MTOTAP
  55. INTEGER MSEGMP
  56. INTEGER MACTI
  57.  
  58. SAVE NACTI
  59. SAVE NTAACT
  60. SAVE MACTIP
  61. SAVE MTOTAP
  62. SAVE MSEGMP
  63. SAVE MACTI
  64.  
  65. DATA ILOCE_MAIN/193/
  66. DATA NBNNPR/0/
  67.  
  68. DATA NACTI/0/
  69. DATA NTAACT/0/
  70. DATA MACTIP/0/
  71. DATA MTOTAP/0/
  72. DATA MSEGMP/0/
  73. DATA MACTI/0/
  74. DATA ITABSO/0/
  75. DATA ITABS0/0/
  76.  
  77. C
  78. -INC SMCOORD
  79. C
  80. DATA INITIAL/.FALSE./
  81. DATA MEGAL/'= '/
  82. DATA MDIR1/'OPTI','FIN ','BORN','DENS','DROI','LAPL','CERC','MOTA'
  83. >,'QUEL','INTE','PARA','....','ET ','POIN','PLUS','MOIN','TRAN',
  84. > 'ROTA','TRAC','INVE','COTE','ELEM','CONT','DIFF','CHAN','LIST',
  85. > 'SURF','CONF','INFO','TOUR','HOMO','AFFI','SYME','INCL','ELIM',
  86. > 'TITR','RACC','TASS','SORT','LIRE','BARY','DALL','ORIE','MANU',
  87. > 'OUBL','COMP','COUT','PAVE','COMM','NOEU','MOT ','NBEL','NBNO',
  88. > 'NOTI','FACE','COOR','NORM','TEMP','VOLU','LECT','SAUF','PROG',
  89. > '+ ','- ','* ','/ ','** ','FLOT','ENTI','LOG ','EXP ',
  90. > 'DEPL','PSCA','PVEC','PMIX','LIAI','REGL','HOOK','SOLS','RESO',
  91. > 'DATE','RIGI','BLOQ','DEPI','HOTA','STRU','TEXT','PROJ','VENV',
  92. > 'ELST','JONC','RECO','MASS','CLST','SIGM','RELA','FORC','MOME',
  93. > 'VLOC','BASE','DIME','EXTR','VERS','VIBR','MAXI','XTMX','YTMX',
  94. > '> ','< ','>EG ','<EG ','OU ','EGA ','NON ','NEG ','MULT',
  95. > 'PJBA','CRIT','DIAG','XTX ','UNIQ','BSIG','DEDA','MAX1','MOTS',
  96. > 'REPE','QUIT','SI ','SINO','FINS','IPOL','ABS ','SIN ','COS ',
  97. > 'ATG ','ENVE','ISOV','DETR','ENLE','REMP','INSE','COLI','TRIA',
  98. > 'TABL','REDU','SYMT','ANTI','RESU','PRES','EXCO','NOMC','SAUT',
  99. > 'DEFO','APPU','INVA','PRIN','VMIS','KSIG','SIGN','SUIT','....',
  100. > 'VALP','ORDO','TIRE','REGE','DESS','AMOR','CHAR','COUL','CHPO',
  101. > 'AFCO','EVOL','ORTH','THET','COMB','DEVE','VECT','PICA','CAPI'/
  102. DATA MDIR2/'COPI','DIMN','SAUV','REST','CARA','MATE','GENE',
  103. > 'CAPA','ELFE','JACO','PLAS','GREE','MODE','....','FINP','XTY ',
  104. > 'DEBP','KTAN','FORM','MESS','NNOR','CUBP','CUBT','CER3','FDT ',
  105. > 'SEIS','ENER','EPSI','INTG','COUR','REAC','SUPE','ZERO','DEPB',
  106. > 'EXCI','KP ','ACTI','ELAS','....','ERRE','CONG','LUMP','OBTE',
  107. > 'VARI','MODI','MASQ','EXIS','MINI','GRAD','ENSE','IFRE','DFOU',
  108. > 'SIGS','MAPP','SOMM','BRUI','RTEN','DSPR','TFR ','....','TOTE',
  109. > 'GRAF','TRES','TYPE','OSCI','SPO ','INDE','....','....','CHSP',
  110. > 'TAGR','PERM','CABL','FOFI','WORK','QULX','DEBI','....','....',
  111. > 'CMOY','COMT','COND','FLUX','....','....','RIMP','FILT','TFRI',
  112. > 'CONC','ITER','ACQU','SOUR','CONV','ACOH','PSMO','ASIH','ECOU',
  113. > 'MENA','SYNT','ARGU','ATAH','DYNE','....','FONC','RESP','PLAC',
  114. > '....','VALE','PROI','EXCE','ARET','CALP','INDI','ACT3','BIOT',
  115. > 'DEDU','CONN','NLOC','CHAI','COSI','CVOL','DIAD','HANN','INSI',
  116. > 'LSQF','LTL ','PERT','PRNS','PSRS','SIAR','SPON','VISA','CNEQ',
  117. > 'CCON','MESU','PILE','SIMP','UTIL','MENU','COSH','SINH','TANH',
  118. > 'DEG3','AIDE','RACP','REFE','....','KSOF','VERI','NSKE','KMAB',
  119. > 'NOEL','DOMA','FPU ','....','GMV ','EQPR','EQEX','VIBC','AVCT',
  120. > 'KDIA','KMTP','KMF ','MDIA','DFDT','TCRR','TCNM','SQTP','SOMT',
  121. > 'NLIN','CMCT','KCHT','LAPN','RAFT','KLOP','KRES','CSON','FIMP'/
  122. DATA MDIR3/'NUAG','WEIP','KHIS','KOPS','FSUR','FLAM','ELNO',
  123. > 'DBIT','NS ','TOIM','FIMP','KMBT','KBBT','DUDW','FROT','TSCA',
  124. > 'KONV','KCHA','MHYB','MATP','HDEB','HVIT','HYBP','SMTP','DIVU',
  125. > 'MOCU','CHAU','TAIL','ERF ','SENS','IMPO','DANS','IMPF','NTAB',
  126. > 'FRON','FUIT','EPTH','FPT ','KFPT','FPA ','KFPA','ECHI','QOND',
  127. > 'KPRO','FFOR','RAYE','RAYN','VSUR','TRAJ','AJU1','AJU2','FRIG',
  128. > 'EXCF','NOMM','PREC','ERFC','ONDE','CFL ','DEDO','DCOV','PARC',
  129. > 'POLA','CHI1','CHI2','PENT','PRET','METH','XXT ','CBLO','GENJ',
  130. > 'ZLEG','MESM','FION','NEUT','LOGK','COAC','RESI','MUTU','SORE',
  131. > 'DIRI','LIGN','OBJE','DEBM','FINM','HERI','DECO','EXTE','DMMU',
  132. > 'DMTD','BMTD','SSCH','MREM','ASSI','FISS','PRIM','ANNU','PROB',
  133. > 'SAIS','CHOI','DETO','PART','CLMI','PMAT','EXCP','PROP','PHAJ',
  134. > 'ALEA','GNFL','MPRO','SSTE','ADVE','BGMO','ECFE','COUP','VERM',
  135. > 'DFER','GYRO','CORI','KENT','FANT','ITRC','RETO','IJET','IMPE',
  136. > 'MOCA','LEVM','RAVC','IDLI','RAFF','CFND','ADET','PSIP','ACOS',
  137. > 'ASIN','TAN ','TRIE','GANE','HIST','ETG ','OTER','XFEM','RFCO',
  138. > 'VIDE','VORO','PRRA','POSI','MISE','MISL','COLL','POD '/
  139.  
  140. ICOHCO(1)=-1
  141.  
  142. C initialisation de lotesc
  143. lotesc=.false.
  144. ith=0
  145. if (nbesc.ne.0) call ooonth(ith)
  146. if (ith.ne.0) lotesc=.true.
  147. ILOCE=0
  148.  
  149. C initialisation de l'horodatage (Valeur UNIQUE par THREAD)
  150. IHORO = ith
  151.  
  152. IF(.NOT.INITIAL) then
  153. if(ith.ne.0) then
  154. C dans castem 2014
  155. WRITE(IOIMP,*) 'erreur dans l initialisation de PILOT'
  156. CALL ERREUR(5)
  157. endif
  158. C
  159. C initialisation des tableaux de l'operateur TEMP
  160.  
  161. C Enregistrement de l'heure absolue par thread
  162. ittime(1) = 0
  163. ittime(2) = 0
  164. ittime(3) = 0
  165. ittime(4) = 0
  166. CALL timespv(ittime)
  167. ITABS0 = ittime(1)+ittime(2)
  168. ITABSO = ittime(1)+ittime(2)
  169. ITCPU0 = 0
  170.  
  171. C INTERT=0
  172. DO 25 II=1,NDIR
  173. DO J=1,NBASS
  174. IAPPEL(II,J) = 0
  175. IELAPS(II,J) = 0
  176. ITEMP1(II,J) = ittime(1)+ittime(2)
  177. ITCPU (II,J) = 0
  178. ITEMP2(II,J) = 0
  179. ITCPU0 = 0
  180. ENDDO
  181. NACT(1,II)=0
  182. NACT(2,II)=0
  183. 25 CONTINUE
  184.  
  185. NACTI = OOOVAL(2,3)
  186. NTAACT = OOOVAL(3,3)
  187. C initialisations pour le menage automatique
  188. MACTIP = OOOVAL(3,3)
  189. MTOTAP = OOOVAL(3,1)
  190. MSEGMP = OOOVAL(2,1)
  191. MACTI = OOOVAL(1,1)
  192. C
  193. C fin de l'initialisation
  194. INITIAL=.TRUE.
  195. endif
  196.  
  197. C place totale disponible
  198. XPLTOT=(1.D0*OOOVAL(1,3) * OOOVAL(1,4))/2.D0+OOOVAL(1,1)
  199. IPLTOT=INT(MIN(XPLTOT,2.D9))
  200. MTOTA=IPLTOT
  201.  
  202.  
  203.  
  204. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  205. C debut de la boucle sur les operateurs
  206. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  207. 1 CONTINUE
  208.  
  209. C
  210. C if (ith.eq.0) lodesl=.true.
  211. if (ith.eq.0) call setass(1)
  212. C horodatage
  213. if (nbesc.ne.0) call ooogll(1)
  214. C ihoro=ihoro+1
  215. ihoro=ihoro+NBTHRS
  216. IF (ihoro .LT. 0) ihoro=ith
  217. call ooohor(ihoro,ith)
  218. if (nbesc.ne.0) call ooogll(0)
  219.  
  220. IF (IERR.EQ.623) THEN
  221. IERR=0
  222. CALL ERREUR(623)
  223. ENDIF
  224. locpr=locerr
  225. LOCERR=MEGAL
  226. locer2=megal
  227. CALL MESLIR(-219)
  228.  
  229. C Calcul du temps passe dans l'operateur
  230. IF (ILOCE .NE. 0) THEN
  231. CALL timespv(ittime)
  232. C Temps Horloge
  233. IKT = (ittime(1) + ittime(2)) - ITEMP1(ILOCE,ITH+1)
  234. IAPPEL(ILOCE,ITH+1)= IAPPEL(ILOCE,ITH+1) + 1
  235. IELAPS(ILOCE,ITH+1)= IELAPS(ILOCE,ITH+1) + IKT
  236.  
  237. C Temps CPU
  238. IKT = (ittime(3) + ittime(4)) - ITEMP2(ILOCE,ITH+1)
  239. ITCPU (ILOCE,ITH+1)= ITCPU (ILOCE,ITH+1) + IKT
  240.  
  241. C Nombre de Segments ouverts et la taille correspondante
  242. NACT(1,ILOCE)=NACT(1,ILOCE) + OOOVAL(2,3) - NACTI
  243. NACT(2,ILOCE)=NACT(2,ILOCE) + OOOVAL(3,3) - NTAACT
  244. ENDIF
  245.  
  246. C
  247. C Test pour appel d'une procedure ou d'une methode
  248. C
  249. CALL LIROBJ('PROCEDUR',IRET,0,IRETOU)
  250. IF(IRETOU.NE.0) THEN
  251. C on fixe ILOCE=193 a l'operateur '....' dans le cas des PROCEDURES
  252. ILOCE=193
  253.  
  254. C Remplissage des tableau de l'operateur TEMPS
  255. C CALL GIBTEM(XKT)
  256. CALL timespv(ittime)
  257. ITEMP1(ILOCE,ITH+1)=ittime(1) + ittime(2)
  258. ITEMP2(ILOCE,ITH+1)=ittime(3) + ittime(4)
  259. NACTI = OOOVAL(2,3)
  260. NTAACT = OOOVAL(3,3)
  261.  
  262. CALL REFUS
  263. C gestion de la procedure
  264. CALL PROCED
  265. if (ith.eq.0) call setass(0)
  266. GOTO 1
  267. ENDIF
  268.  
  269.  
  270. C if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 1 lodesl '
  271. CALL LIRMO2(MDIR,NDIR,II,0,ICOHCO)
  272. ILOCE = II
  273.  
  274. C if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 2 lodesl '
  275. IF (II.NE.0) GOTO 100
  276.  
  277.  
  278. if (ith.eq.0) call setass(0)
  279. 30 CONTINUE
  280. if (ith.eq.0) call setass(1)
  281. C
  282. C option verif ( opti veri 1 )
  283. IF (IOSPI.NE.0) WRITE (IOIMP,90001)
  284. 90001 FORMAT(' *',' ***** ***** FIN D''INSTRUCTION ELEMENTAIRE','/')
  285.  
  286. C ATTENTION : Il manque des decomptes des appels a POIN s'il est appele de maniere implicite
  287. C on fixe ILOCE=14 a l'operateur 'POIN' dans le cas de l'appel implicite a CREPOI
  288. C ILOCE=14
  289.  
  290. C Remplissage des tableau de l'operateur TEMPS
  291. C CALL GIBTEM(XKT)
  292. C CALL timespv(ittime)
  293. C ITEMP1(ILOCE,ITH+1)=ittime(1) + ittime(2)
  294. C ITEMP2(ILOCE,ITH+1)=ittime(3) + ittime(4)
  295. C NACTI = OOOVAL(2,3)
  296. C NTAACT = OOOVAL(3,3)
  297.  
  298. C
  299. C creation de point si il y a deux reels dans la pile intermediaire
  300. CALL CREPOI
  301. C if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 3 lodesl '
  302.  
  303. if (nbesc.ne.0) segdes mcoord
  304. C* if (ith.eq.0) call setass(0)
  305. C cas esclave
  306. if (LOTESC) then
  307. CCCCCCC if (imescl.ne.0) then
  308. if (ith.eq.0) call setass(0)
  309. call nouins2
  310. C if (ith.ne.0.and.lodesl) WRITE(IOIMP,*) ' pilot 4 lodesl '
  311.  
  312. GOTO 1
  313. endif
  314. C
  315. C gestion de la nouvelle instruction
  316. CALL NOUINS
  317. if (ith.eq.0) call setass(0)
  318. 2 continue
  319. irt=0
  320. imena=1
  321. if(lupara.ne.0)call chkesc(irt,imena)
  322. if(irt.eq.1) GOTO 550
  323. C menage automatique (osons)
  324. if (ith.eq.0.and.imena.eq.1) then
  325. C autres criteres de menage :
  326. IFMEN=0
  327. C + de 20% de la memoire active depuis la derniere fois
  328. MACTIC=OOOVAL(3,3)
  329. IF (MACTIC-MACTIP.gt.MACTI*0.2) IFMEN=1
  330. C + de 65% de la memoire totale depuis la derniere fois
  331. MTOTAC=OOOVAL(3,1)
  332. IF (MTOTAC-MTOTAP.gt.MTOTA*0.65) IFMEN=2
  333. C + de 50% de la memoire active en memoire totale depuis la derniere fois
  334. IF (MTOTAC-MTOTAP.gt.MACTI*0.5) IFMEN=3
  335. C + de 200000 segments depuis la derniere fois
  336. MSEGMC=OOOVAL(2,1)
  337. IF (MSEGMC-MSEGMP.gt.200000) IFMEN=4
  338. IF (IFMEN.NE.0) THEN
  339. ILOCE=277
  340.  
  341. C Remplissage des tableau de l'operateur TEMPS
  342. C CALL GIBTEM(XKT)
  343. CALL timespv(ittime)
  344. ITEMP1(ILOCE,ITH+1)=ittime(1) + ittime(2)
  345. ITEMP2(ILOCE,ITH+1)=ittime(3) + ittime(4)
  346. NACTI = OOOVAL(2,3)
  347. NTAACT = OOOVAL(3,3)
  348.  
  349. iautom=1
  350. CALL MENAGE (iautom)
  351.  
  352. if( iautom.eq.1) then
  353. MACTIP=OOOVAL(3,3)
  354. MTOTAP=OOOVAL(3,1)
  355. MSEGMP=OOOVAL(2,1)
  356. interr(1)=mactic-mactip
  357. interr(2)=mtotac-mtotap
  358. interr(3)=msegmc-msegmp
  359. interr(4)=ifmen
  360. moterr(1:4)=locpr
  361. call erreur(862)
  362. endif
  363. endif
  364. ENDIF
  365. GOTO 1
  366.  
  367.  
  368. 100 continue
  369. LOCERR=MDIR(II)
  370. LOCER2=MDIR(II)
  371.  
  372. C pour etre sur que mcoord est actif( pv)
  373. SEGACT MCOORD
  374. if (iimpi.ne.0) then
  375. nbnnac = xcoor(/1)/(idim+1)
  376. if (nbnnpr.ne.nbnnac) then
  377. locqr = locerr
  378. WRITE(IOIMP,*)'pilot noeuds avant: ',nbnnpr,' apres: ',
  379. & nbnnac,' dans: ',locqr
  380. nbnnpr = nbnnac
  381. endif
  382. endif
  383.  
  384.  
  385.  
  386.  
  387. C Remplissage des tableau de l'operateur TEMPS
  388. IF(II .NE. 0 ) THEN
  389. C CALL GIBTEM(XKT)
  390. CALL timespv(ittime)
  391. ITEMP1(II,ITH+1)=ittime(1) + ittime(2)
  392. ITEMP2(II,ITH+1)=ittime(3) + ittime(4)
  393.  
  394. NACTI = OOOVAL(2,3)
  395. NTAACT = OOOVAL(3,3)
  396. ENDIF
  397.  
  398. C option verif
  399. IF (IOSPI.NE.0) WRITE (IOIMP,90000) ith,locer2
  400. 90000 FORMAT(' *',' Assistant ',i2, ' Operateur appele : ',A4)
  401.  
  402. CDMY-WIN32 CALL SCROLLTEXT(6)
  403. C
  404. C branchement conditionnel vers les operateurs
  405. C
  406. C if (ith.eq.0) lodesl=.false.
  407. if (ith.eq.0) call setass(0)
  408. IF (II.LE.100)
  409. >GOTO (101,102,103,104,105,106,107,108,109,110,111,112,113,114,
  410. > 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,
  411. > 130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,
  412. > 145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
  413. > 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,
  414. > 175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,
  415. > 190,191,192,193,194,195,196,197,198,199,200),II
  416. IF (II.LE.200)
  417. >GOTO (201,202,203,204,205,206,207,208,209,210,211,212,213,214,
  418. > 215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,
  419. > 230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,
  420. > 245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,
  421. > 260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,
  422. > 275,276,277,278,279,280,281,282,283,284,285,286,287,288,289,
  423. > 290,291,292,293,294,295,296,297,298,299,300),II-100
  424. IF (II.LE.300)
  425. >GOTO (301,302,303,304,305,306,307,308,309,310,311,312,313,314,
  426. > 315,316,317,318,319,320,321,322,323,324,325,326,327,328,329,
  427. > 330,331,332,333,334,335,336,337,338,339,340,341,342,343,344,
  428. > 345,346,347,348,349,350,351,352,353,354,355,356,357,358,359,
  429. > 360,361,362,363,364,365,366,367,368,369,370,371,372,373,374,
  430. > 375,376,377,378,379,380,381,382,383,384,385,386,387,388,389,
  431. > 390,391,392,393,394,395,396,397,398,399,400),II-200
  432. IF (II.LE.400)
  433. >GOTO (401,402,403,404,405,406,407,408,409,410,411,412,413,414,
  434. > 415,416,417,418,419,420,421,422,423,424,425,426,427,428,429,
  435. > 430,431,432,433,434,435,436,437,438,439,440,441,442,443,444,
  436. > 445,446,447,448,449,450,451,452,453,454,455,456,457,458,459,
  437. > 460,461,462,463,464,465,466,467,468,469,470,471,472,473,474,
  438. > 475,476,477,478,479,480,481,482,483,484,485,486,487,488,489,
  439. > 490,491,492,493,494,495,496,497,498,499,500),II-300
  440. IF (II.LE.500)
  441. >GOTO (501,502,503,504,505,506,507,508,509,510,511,512,513,514,
  442. > 515,516,517,518,519,520,521,522,523,524,525,526,527,528,529,
  443. > 530,531,532,533,534,535,536,537,538,539,540,541,542,543,544,
  444. > 545,546,547,548,549,550,551,552,553,554,555,556,557,558,559,
  445. > 560,561,562,563,564,565,566,567,568,569,570,571,572,573,574,
  446. > 575,576,577,578,579,580,581,582,583,584,585,586,587,588,589,
  447. > 590,591,592,593,594,595,596,597,598,599,600),II-400
  448. IF (II.LE.600)
  449. >GOTO (601,602,603,604,605,606,607),II-500
  450. C
  451. C on a lu option
  452. 101 CALL OPTION(1)
  453. GOTO 1
  454. 102 CALL FIN
  455. irt=0
  456. imena=1
  457. if(lupara.ne.0)call chkesc(irt,imena)
  458. if(irt.eq.1) GOTO 550
  459. GOTO 1
  460. 103 CALL BORNER
  461. GOTO 1
  462. 104 CALL SUBDEN
  463. GOTO 1
  464. 105 CONTINUE
  465. 107 CONTINUE
  466. 111 CONTINUE
  467. 112 CONTINUE
  468. IOPTG=II-4
  469. C important ioptg est le numero du type de ligne a engendrer
  470. C le tenir a jour et voir comment on le recupere dans ligne
  471. DEN1 = 0.
  472. DEN2 = 0.
  473. INBR = 0
  474. CALL LIGNE(IOPTG,1,DEN1,DEN2,INBR)
  475. GOTO 1
  476. 106 CALL LAPLAC
  477. GOTO 1
  478. 108 CALL MOTAN
  479. GOTO 1
  480. 109 CALL QUELQU
  481. GOTO 1
  482. 110 CALL INTERS
  483. GOTO 1
  484. 113 CALL PRFUSE
  485. GOTO 1
  486. 114 CALL POIEXT
  487. GOTO 1
  488. 115 CONTINUE
  489. 116 IOPTG=II-14
  490. CALL PROPER(IOPTG)
  491. GOTO 1
  492. 117 CONTINUE
  493. 118 IOPTG=II-16
  494. CALL PRTRAN(IOPTG)
  495. GOTO 1
  496. 119 CALL PRTRAC
  497. GOTO 1
  498. 120 CALL PRINVE
  499. GOTO 1
  500. 121 CALL PRCOTE
  501. GOTO 1
  502. 122 CALL PREXTR
  503. GOTO 1
  504. 123 CALL PRCONT
  505. GOTO 1
  506. 124 CALL PRDIFF
  507. GOTO 1
  508. 125 CALL PRCHAN
  509. GOTO 1
  510. 126 CALL PRLIST
  511. GOTO 30
  512. 127 CALL PRSURF
  513. GOTO 1
  514. 128 CALL CONFON
  515. GOTO 1
  516. 129 CALL INFORM
  517. GOTO 1
  518. 130 CALL TOURNE
  519. GOTO 1
  520. 131 CALL HOMOTH
  521. GOTO 1
  522. 132 CALL AFFINI
  523. GOTO 1
  524. 133 CALL SYMETR
  525. GOTO 1
  526. 134 CALL INCLUS
  527. GOTO 1
  528. 135 CALL PRELIM(0)
  529. GOTO 1
  530. 136 CALL LTITRE
  531. GOTO 1
  532. 137 CALL PRRACC
  533. GOTO 1
  534. 138 CALL PRTASS
  535. GOTO 1
  536. 139 CALL PRSORT
  537. GOTO 1
  538. 140 IONIVO=IONIVE
  539. CALL LIREFI
  540. C on remet le niveau a sa valeur anterieure
  541. IONIVE=IONIVO
  542. GOTO 1
  543. 141 CALL BARYCE
  544. GOTO 1
  545. 142 CALL PRDALL
  546. GOTO 1
  547. 143 CALL PRORIE
  548. GOTO 1
  549. 144 CALL MANUEL
  550. GOTO 1
  551. 145 CALL OUBLIE
  552. GOTO 1
  553. 146 CALL COML
  554. GOTO 1
  555. 147 CALL COUTUR
  556. GOTO 1
  557. 148 CALL PRPAVE
  558. GOTO 1
  559. 149 CALL COMMEN
  560. GOTO 2
  561. 150 CALL NOEUD
  562. GOTO 1
  563. 151 CALL MOTSUB
  564. GOTO 30
  565. 152 CALL NBEL
  566. GOTO 1
  567. 153 CALL NBNO
  568. GOTO 1
  569. 154 CALL NOTICE(MDIR,NDIR)
  570. GOTO 1
  571. 155 CALL EXFACE
  572. GOTO 1
  573. 156 CALL EXCOOR
  574. GOTO 1
  575. 157 CALL CNORM
  576. GOTO 1
  577. 158 CALL TEMPOR(ITABS0,ITABSO,MDIR,IAPPEL,IELAPS,ITCPU,ITCPU0,
  578. & NACT,NDIR,ith)
  579. GOTO 1
  580. 159 CALL VOLUME
  581. GOTO 1
  582. 160 CALL LECTUR
  583. GOTO 1
  584. 161 CALL SAUF
  585. GOTO 1
  586. 162 CALL PROG
  587. GOTO 1
  588. 163 CALL OPERAD
  589. GOTO 1
  590. 164 CALL OPERSO
  591. GOTO 1
  592. 165 CALL OPERMU
  593. GOTO 1
  594. 166 CALL OPERDI
  595. GOTO 1
  596. 167 CALL OPERPU
  597. GOTO 1
  598. 168 CALL OPERFL
  599. GOTO 1
  600. 169 CALL OPERIN
  601. GOTO 1
  602. 170 CALL OPOBJE(13)
  603. C 13 -> LOGARITHME NATUREL (LOG)
  604. GOTO 1
  605. 171 CALL OPOBJE(12)
  606. C 12 -> EXP
  607. GOTO 1
  608. 172 CALL DEPLAC
  609. GOTO 1
  610. 173 CALL PSCALA
  611. GOTO 1
  612. 174 CALL PVECT
  613. GOTO 1
  614. 175 CALL PMIXT
  615. GOTO 1
  616. 176 CALL PRLIAI
  617. GOTO 1
  618. 177 CALL REGLE
  619. GOTO 1
  620. 178 CALL HOOKE
  621. GOTO 1
  622. 179 CALL SOLS
  623. GOTO 1
  624. 180 CALL RESOU
  625. GOTO 1
  626. 181 call date
  627.  
  628. GOTO 1
  629. 182 CALL RIGI
  630. GOTO 1
  631. 183 CALL BLOQUE
  632. GOTO 1
  633. 184 CALL DEPIMP
  634. GOTO 1
  635. 185 CALL HOTAN
  636. GOTO 1
  637. 186 CALL STRUCT
  638. GOTO 1
  639. 187 CALL TEXTDE
  640. GOTO 1
  641. 188 CALL PROOBJ
  642. GOTO 1
  643. 189 CALL VENV
  644. GOTO 1
  645. 190 CALL ELSTRU
  646. GOTO 1
  647. 191 CALL JONCT
  648. GOTO 1
  649. 192 CALL RECOMB
  650. GOTO 1
  651. 193 CALL MASSE(0)
  652. GOTO 1
  653. 194 CALL CLSTRU
  654. GOTO 1
  655. 195 CALL SIGMA
  656. GOTO 1
  657. 196 CALL RELA
  658. GOTO 1
  659. 197 CONTINUE
  660. CALL FORCE(1)
  661. GOTO 1
  662. 198 CONTINUE
  663. CALL FORCE(2)
  664. GOTO 1
  665. 199 CONTINUE
  666. CALL VLOC
  667. GOTO 1
  668. 200 CALL BASEMD
  669. GOTO 1
  670. 201 CALL DIMENS
  671. GOTO 1
  672. 202 CALL EXTRAI
  673. GOTO 30
  674. 203 CALL VERSEN
  675. GOTO 1
  676. 204 CALL VIBRAT
  677. GOTO 1
  678. 205 JMIL=1
  679. CALL MAXIMU(JMIL)
  680. GOTO 1
  681. 206 CALL PRXTMX
  682. GOTO 1
  683. 207 CALL PRYTMX
  684. GOTO 1
  685. 208 CALL GRAND
  686. GOTO 1
  687. 209 CALL PETIT
  688. GOTO 1
  689. 210 CALL GRAEGA
  690. GOTO 1
  691. 211 CALL PETEGA
  692. GOTO 1
  693. 212 CALL OU
  694. GOTO 1
  695. 213 CALL EGA
  696. GOTO 1
  697. 214 CALL NON
  698. GOTO 1
  699. 215 CALL NEG
  700. GOTO 1
  701. 216 CALL MULT
  702. GOTO 1
  703. 217 CALL PJBA
  704. GOTO 1
  705. 218 CALL CRIT
  706. GOTO 1
  707. 219 CALL DIAGNE
  708. GOTO 1
  709. 220 CALL XTX
  710. GOTO 1
  711. 221 CALL UNIQUE
  712. C Ancien appel a l'operateur CHOC devenu obsolete
  713. GOTO 1
  714. 222 CALL BSIGMA
  715. GOTO 1
  716. 223 CALL DEDA
  717. GOTO 1
  718. 224 CALL NORMAX
  719. GOTO 1
  720. 225 CALL MOTS
  721. GOTO 1
  722. 226 CALL REPETE
  723. GOTO 1
  724. 227 CALL QUITTE
  725. GOTO 1
  726. 228 CALL SI
  727. GOTO 2
  728. 229 CALL SINON
  729. GOTO 2
  730. 230 CALL FINSI
  731. GOTO 2
  732. 231 CALL INTERP
  733. GOTO 1
  734. 232 CALL OPOBJE(14)
  735. C 14 -> VALEUR ABSOLUE (ABS)
  736. GOTO 1
  737. 233 CALL OPOBJE(7)
  738. C 7 -> SINUS (SIN)
  739. GOTO 1
  740. 234 CALL OPOBJE(6)
  741. C 6 -> COSINUS (COS)
  742. GOTO 1
  743. 235 CALL OPOBJE(11)
  744. C 11 -> ARCTAN (ATG)
  745. GOTO 1
  746. 236 CALL ENVELO
  747. GOTO 1
  748. 237 CONTINUE
  749. CALL ISOVAL
  750. GOTO 1
  751. 238 CALL DETRUI
  752. GOTO 1
  753. 239 CALL ENLEVE
  754. GOTO 1
  755. 240 CALL REMPLA
  756. GOTO 1
  757. 241 CALL INSERE
  758. GOTO 1
  759. 242 CALL COLI
  760. GOTO 1
  761. 243 CALL TRIA
  762. GOTO 1
  763. 244 CALL TABLE
  764. GOTO 1
  765. 245 CALL REDU
  766. GOTO 1
  767. 246 CONTINUE
  768. CALL SYMTRI(0)
  769. GOTO 1
  770. 247 CONTINUE
  771. CALL SYMTRI(1)
  772. GOTO 1
  773. 248 CALL RESU
  774. GOTO 1
  775. 249 CALL PRESSI
  776. GOTO 1
  777. 250 CALL EXCOMP
  778. GOTO 1
  779. 251 CALL NOMC
  780. GOTO 1
  781. 252 CALL SAUTER
  782. GOTO 1
  783. 253 CALL DEFO
  784. GOTO 1
  785. 254 CALL APPUI(1)
  786. GOTO 1
  787. 255 CALL INVARI
  788. GOTO 1
  789. 256 CALL PRINCI
  790. GOTO 1
  791. 257 CALL VMISES
  792. GOTO 1
  793. 258 CALL KSIGMA
  794. GOTO 1
  795. 259 CALL SIGNE
  796. GOTO 1
  797. 260 CALL SUITE
  798. GOTO 1
  799. 261 continue
  800. C Ancien appel a l'operateur CARB devenu obsolete et redondant avec CARA
  801. GOTO 1
  802. 262 CALL VALPRO
  803. GOTO 1
  804. 263 CALL ORDONN
  805. GOTO 1
  806. 264 CALL TIRE
  807. GOTO 1
  808. 265 CALL PRREGE
  809. GOTO 1
  810. 266 CALL DESSIN
  811. GOTO 1
  812. 267 CALL AMOR
  813. GOTO 1
  814. 268 CALL CHARGE
  815. GOTO 1
  816. 269 CALL COLOR
  817. GOTO 1
  818. 270 CALL CHPOIN
  819. GOTO 1
  820. 271 CALL AFCOUL
  821. GOTO 1
  822. 272 CALL EVOL
  823. GOTO 1
  824. 273 CALL ORTHOG
  825. GOTO 1
  826. 274 CALL THETA
  827. GOTO 1
  828. 275 CALL COMBTA
  829. GOTO 1
  830. 276 CALL DEVERS
  831. GOTO 1
  832. 277 CALL VECTE
  833. GOTO 1
  834. 278 CALL PIOCAU(0)
  835. GOTO 1
  836. 279 CALL PIOCAU(1)
  837. GOTO 1
  838. 280 CALL COPIER
  839. GOTO 1
  840. 281 CALL DIMNOY
  841. GOTO 1
  842. 282 CALL SAUV
  843. GOTO 1
  844. 283 IONIVO=IONIVE
  845. CALL REST
  846. C on remet le niveau a sa valeur anterieure
  847. IONIVE=IONIVO
  848. GOTO 1
  849. 284 CALL CARAC
  850. GOTO 1
  851. 285 CALL MATER
  852. GOTO 1
  853. 286 CALL GENERA
  854. GOTO 1
  855. 287 CALL CAPA
  856. GOTO 1
  857. 288 CALL ELFE
  858. GOTO 1
  859. 289 CALL JACO
  860. GOTO 1
  861. 290 continue
  862. C Appel a l'operateur PLAS (a debrancher)
  863. call ecoule
  864. GOTO 1
  865. 291 CALL GREEN
  866. GOTO 1
  867. 292 CALL MODELI
  868. GOTO 1
  869. 293 CALL PROCED
  870. GOTO 1
  871. 541 CONTINUE
  872. 294 CALL FINPRO
  873. GOTO 1
  874. 295 CALL XTY
  875. GOTO 1
  876. 540 CONTINUE
  877. 296 IOPRME=1
  878. IF(II.GT.400) IOPRME=2
  879. CALL MAPR(IOPRME)
  880. GOTO 1
  881. 297 CALL KTANGE
  882. GOTO 1
  883. 298 CALL FORM
  884. GOTO 1
  885. 299 CALL MESSAG
  886. GOTO 1
  887. 300 CALL NNOR
  888. GOTO 1
  889. 301 II=13
  890. GOTO 112
  891. 302 II=14
  892. GOTO 112
  893. 303 II=15
  894. GOTO 112
  895. C ::::::::::::::::::::::::::::::::
  896. 304 CALL FDT
  897. GOTO 1
  898. 305 CALL SEISME
  899. GOTO 1
  900. 306 CALL ENERGI
  901. GOTO 1
  902. 307 CALL EPSI
  903. GOTO 1
  904. 308 CALL INTGRA
  905. GOTO 1
  906. 309 CALL COURBE
  907. GOTO 1
  908. 310 CALL REACTI
  909. GOTO 1
  910. 311 CALL SUPER
  911. GOTO 1
  912. 312 CALL ZERORO
  913. GOTO 1
  914. 313 CALL DEPB
  915. GOTO 1
  916. 314 CALL EXCITE
  917. GOTO 1
  918. 315 CALL KP
  919. GOTO 1
  920. 316 CALL ACTIVE
  921. GOTO 1
  922. 317 CALL ELASTI
  923. GOTO 1
  924. 318 continue
  925. C CALL debran
  926. GOTO 1
  927. 319 CALL ERRE
  928. GOTO 1
  929. 320 CALL CONGE
  930. GOTO 1
  931. 321 CALL MASSE(1)
  932. GOTO 1
  933. 322 CALL OBTENI
  934. GOTO 1
  935. 323 CALL VARI
  936. GOTO 1
  937. 324 CALL MODI
  938. GOTO 1
  939. 325 CALL MASQ
  940. GOTO 1
  941. 326 CALL EXIS
  942. GOTO 1
  943. 327 JMIL=-1
  944. CALL MAXIMU(JMIL)
  945. GOTO 1
  946. 328 CALL GRAD
  947. GOTO 1
  948. 329 CALL ENSE
  949. GOTO 1
  950. 330 CALL IFRE
  951. GOTO 1
  952. 331 CALL DFOURI
  953. GOTO 1
  954. 332 CALL SIGSOL
  955. GOTO 1
  956. 333 CALL MAPP
  957. GOTO 1
  958. 334 CALL SOMM
  959. GOTO 1
  960. 335 CALL BRUI
  961. GOTO 1
  962. 336 CALL RTEN
  963. GOTO 1
  964. 337 CALL DSPR
  965. GOTO 1
  966. 338 IOPTFR=-1
  967. CALL TFOR(IOPTFR)
  968. GOTO 1
  969. 339 continue
  970. C Ancien appel a l'operateur .... devenu obsolete
  971. GOTO 1
  972. 340 CALL TOTEMP
  973. GOTO 1
  974. 341 CALL GRAF
  975. GOTO 1
  976. 342 CALL TRESCA
  977. GOTO 1
  978. 343 CALL TYPE
  979. GOTO 30
  980. 344 CALL OSCI
  981. GOTO 1
  982. 345 CALL SPO
  983. GOTO 1
  984. 346 CALL INDETA
  985. GOTO 1
  986. 347 continue
  987. C Ancien appel a l'operateur .... devenu obsolete
  988. GOTO 1
  989. 348 continue
  990. C Ancien appel a l'operateur .... devenu obsolete
  991. GOTO 1
  992. 349 CALL CHSP
  993. GOTO 1
  994. 350 CALL TAGRAD
  995. GOTO 1
  996. 351 CALL PERMEA
  997. GOTO 1
  998. 352 CALL RICABL
  999. GOTO 1
  1000. 353 CALL FOFISS
  1001. GOTO 1
  1002. 354 CALL WORK
  1003. GOTO 1
  1004. 355 CALL QULX
  1005. GOTO 1
  1006. 356 CALL DEBIT
  1007. GOTO 1
  1008. 357 continue
  1009. C Ancien appel a l'operateur ARTI(CULATION) devenu obsolete
  1010. GOTO 1
  1011. 358 continue
  1012. C Appel a l'operateur FENE(TRE) debranche a ce jour
  1013. C call fenetr
  1014. GOTO 1
  1015. 359 CALL CHOMOY
  1016. GOTO 1
  1017. 360 CALL COMCHO
  1018. GOTO 1
  1019. 361 CALL CONDU
  1020. GOTO 1
  1021. 362 CALL FLUX
  1022. GOTO 1
  1023. 363 continue
  1024. C Ancien appel a l'operateur MODL devenu obsolete et redondant avec MODEliser
  1025. GOTO 1
  1026. 364 continue
  1027. C Ancien appel a l'operateur MATR devenu obsolete et redondant avec MATE
  1028. GOTO 1
  1029. 365 CALL CRIMP
  1030. GOTO 1
  1031. 366 CALL FILTRE
  1032. GOTO 1
  1033. 367 CALL TFRINV
  1034. GOTO 1
  1035. 368 CALL CONCAT
  1036. GOTO 1
  1037. 369 CALL ITERER
  1038. GOTO 1
  1039. 370 CALL ACQUER(IBRUT)
  1040. IF (IBRUT.EQ.1) GOTO 30
  1041. GOTO 1
  1042. 371 CALL CHALEU
  1043. GOTO 1
  1044. 372 CALL CONVEC
  1045. GOTO 1
  1046. 373 CALL OPOBJE(20)
  1047. C 20 -> ARGCH
  1048. GOTO 1
  1049. 374 CALL PSMO
  1050. GOTO 1
  1051. 375 CALL OPOBJE(21)
  1052. C 21 -> ARGSH
  1053. GOTO 1
  1054. 376 continue
  1055. C Appel a l'operateur ECOU(LE) (a debrancher)
  1056. call ecoule
  1057. GOTO 1
  1058. 377 iautom=0
  1059. CALL MENAGE(iautom)
  1060. if(iautom.eq.1) then
  1061. MACTIP=OOOVAL(3,3)
  1062. MTOTAP=OOOVAL(3,1)
  1063. MSEGMP=OOOVAL(2,1)
  1064. endif
  1065. GOTO 1
  1066. 378 CALL SYNTHE
  1067. GOTO 1
  1068. 379 CALL ARGU
  1069. GOTO 1
  1070. 380 CALL OPOBJE(22)
  1071. C 22 -> ARGTH
  1072. GOTO 1
  1073. 381 CALL DYNE
  1074. GOTO 1
  1075. 382 continue
  1076. C Ancien appel a l'operateur CRES(OL) devenu obsolete
  1077. GOTO 1
  1078. 383 CALL FONCTI
  1079. GOTO 1
  1080. 384 CALL RESPRO
  1081. GOTO 1
  1082. 385 CALL PLAC
  1083. GOTO 1
  1084. 386 continue
  1085. C Ancien appel a l'operateur .... devenu obsolete
  1086. GOTO 1
  1087. 387 CALL OPTION (2)
  1088. GOTO 30
  1089. 388 CALL PROIET
  1090. GOTO 1
  1091. 389 CALL EXCELL
  1092. GOTO 1
  1093. 390 CALL ARETE
  1094. GOTO 1
  1095. 391 CALL CALP
  1096. GOTO 1
  1097. 392 CALL INDIC
  1098. GOTO 1
  1099. 393 CALL ACT3
  1100. GOTO 1
  1101. 394 CALL BIOSAV
  1102. GOTO 1
  1103. 395 CALL DEDU(0)
  1104. GOTO 1
  1105. 396 CALL CONNEC
  1106. GOTO 1
  1107. 397 CALL NLOCAL
  1108. GOTO 1
  1109. 398 CALL CHAINE
  1110. GOTO 30
  1111. 399 CALL COSI
  1112. GOTO 1
  1113. 400 CALL CVOL
  1114. GOTO 1
  1115. 401 CALL DIAD
  1116. GOTO 1
  1117. 402 CALL HANN
  1118. GOTO 1
  1119. 403 CALL INSI
  1120. GOTO 1
  1121. 404 CALL LSQF
  1122. GOTO 1
  1123. 405 CALL LTL
  1124. GOTO 1
  1125. 406 CALL PERT
  1126. GOTO 1
  1127. 407 CALL PRNS
  1128. GOTO 1
  1129. 408 CALL PSRS
  1130. GOTO 1
  1131. 409 CALL SIAR
  1132. GOTO 1
  1133. 410 CALL SPON
  1134. GOTO 1
  1135. 411 CALL PRELIM(1)
  1136. GOTO 1
  1137. 412 CALL CNEQ
  1138. GOTO 1
  1139. 413 CALL CCON
  1140. GOTO 1
  1141. 414 CALL MESU
  1142. GOTO 1
  1143. 415 CALL PILEPS
  1144. GOTO 1
  1145. 416 CALL SIMPLE
  1146. GOTO 1
  1147. 417 CALL UTILIS
  1148. GOTO 1
  1149. 418 CALL MENUG
  1150. GOTO 1
  1151. 419 CALL OPOBJE(15)
  1152. C 15 -> COSH
  1153. GOTO 1
  1154. 420 CALL OPOBJE(16)
  1155. C 16 -> SINH
  1156. GOTO 1
  1157. 421 CALL OPOBJE(17)
  1158. C 17 -> TANH
  1159. GOTO 1
  1160. 422 CALL DEG3
  1161. GOTO 1
  1162. 423 CALL AIDE(MDIR,NDIR)
  1163. GOTO 1
  1164. 424 CALL RACPOL
  1165. GOTO 1
  1166. 425 CALL REFE
  1167. GOTO 1
  1168. 426 continue
  1169. C Ancien appel a l'operateur .... devenu obsolete
  1170. GOTO 1
  1171. 427 CALL KSOF
  1172. GOTO 1
  1173. 428 continue
  1174. CALL VERIFI
  1175. GOTO 1
  1176. 429 CALL YNSKE
  1177. GOTO 1
  1178. 430 CALL KMAC(1)
  1179. GOTO 1
  1180. 431 CALL KNOL
  1181. GOTO 1
  1182. 432 CALL KDOM
  1183. GOTO 1
  1184. 433 CALL YFPU
  1185. GOTO 1
  1186. 434 continue
  1187. C Ancien appel a l'operateur .... devenu obsolete
  1188. GOTO 1
  1189. 435 CALL YGMV
  1190. GOTO 1
  1191. 436 CALL EQPR
  1192. GOTO 1
  1193. 437 CALL EQEX
  1194. GOTO 1
  1195. 438 CALL VIBRAC
  1196. GOTO 1
  1197. 439 CALL CAAVCT
  1198. GOTO 1
  1199. 440 CALL CAKIZD
  1200. GOTO 1
  1201. 441 CALL KMTP
  1202. GOTO 1
  1203. 442 CALL KMF
  1204. GOTO 1
  1205. 443 CONTINUE
  1206. CALL YDIAG
  1207. GOTO 1
  1208. 444 CONTINUE
  1209. CALL YDFDT
  1210. GOTO 1
  1211. 445 CONTINUE
  1212. CALL TCRR
  1213. GOTO 1
  1214. 446 CONTINUE
  1215. CALL TCNM
  1216. GOTO 1
  1217. 447 CONTINUE
  1218. CALL SQTP
  1219. GOTO 1
  1220. 448 CALL KSOMT
  1221. GOTO 1
  1222. 449 continue
  1223. C CALL KDTB
  1224. CALL PRLIN
  1225. GOTO 1
  1226. 450 CONTINUE
  1227. CALL CMCT
  1228. GOTO 1
  1229. 451 CALL KCHT
  1230. GOTO 1
  1231. 452 CALL YLAPL
  1232. GOTO 1
  1233. 453 CONTINUE
  1234. CALL RAFT
  1235. GOTO 1
  1236. 454 CALL KLOP
  1237. GOTO 1
  1238. 455 CALL KRES
  1239. GOTO 1
  1240. 456 CONTINUE
  1241. CALL CSON
  1242. GOTO 1
  1243. 457 CALL YFIMP
  1244. GOTO 1
  1245. 458 CALL NUAGE
  1246. GOTO 1
  1247. 459 CALL WEIPAR
  1248. GOTO 1
  1249. 460 CALL KHIS
  1250. GOTO 1
  1251. 461 CALL KOPS
  1252. GOTO 1
  1253. 462 CALL FSUR
  1254. GOTO 1
  1255. 463 CALL FLAM
  1256. GOTO 1
  1257. 464 CALL KLNO
  1258. GOTO 1
  1259. 465 CALL DBIT
  1260. GOTO 1
  1261. 466 CALL YNS
  1262. GOTO 1
  1263. 467 CALL YTOIMP
  1264. GOTO 1
  1265. 468 CALL YFIMP
  1266. GOTO 1
  1267. 469 CALL KMAC(2)
  1268. GOTO 1
  1269. 470 CALL KMAC(3)
  1270. GOTO 1
  1271. 471 CALL YDUDW
  1272. GOTO 1
  1273. 472 CALL YFROT
  1274. GOTO 1
  1275. 473 CALL YTSCAL
  1276. GOTO 1
  1277. 474 CALL KONV
  1278. GOTO 1
  1279. 475 CALL KCHA
  1280. GOTO 1
  1281. 476 CALL MHYBR
  1282. GOTO 1
  1283. 477 CALL MATP
  1284. GOTO 1
  1285. 478 CALL HDEBIT
  1286. GOTO 1
  1287. 479 CALL HVIT
  1288. GOTO 1
  1289. 480 CALL HYBP
  1290. GOTO 1
  1291. 481 CALL SMTP
  1292. GOTO 1
  1293. 482 CALL DIVU
  1294. GOTO 1
  1295. 483 CALL MOCUR
  1296. GOTO 1
  1297. 484 CALL CHAUSS
  1298. GOTO 1
  1299. 485 CALL TAILLE
  1300. GOTO 1
  1301. 486 CALL OPOBJE(18)
  1302. C 18 -> ERF
  1303. GOTO 1
  1304. 487 CALL SENSI0
  1305. GOTO 1
  1306. 488 CALL IMPOSE
  1307. GOTO 1
  1308. 489 CALL DANS
  1309. GOTO 1
  1310. 490 CALL IMPF
  1311. GOTO 1
  1312. 491 CALL TBMAIN
  1313. GOTO 1
  1314. 492 CALL FRON1
  1315. GOTO 1
  1316. 493 CALL FUITE1
  1317. GOTO 1
  1318. 494 CALL EPTH
  1319. GOTO 1
  1320. 495 CALL FPT
  1321. GOTO 1
  1322. 496 CALL KFPT
  1323. GOTO 1
  1324. 497 CALL FPA
  1325. GOTO 1
  1326. 498 CALL KFPA
  1327. GOTO 1
  1328. 499 CALL ECHIMP
  1329. GOTO 1
  1330. 500 CALL QOND
  1331. GOTO 1
  1332. 501 CALL KPRO
  1333. GOTO 1
  1334. 502 CALL PRFORM
  1335. GOTO 1
  1336. 503 CALL PRRAYE
  1337. GOTO 1
  1338. 504 CALL RAYN
  1339. GOTO 1
  1340. 505 CALL VSUR
  1341. GOTO 1
  1342. 506 CALL TRAJEC
  1343. GOTO 1
  1344. 507 CALL AJU1
  1345. GOTO 1
  1346. 508 CALL AJU2
  1347. GOTO 1
  1348. 509 CALL FRIG
  1349. GOTO 1
  1350. 510 CALL EXCFRO
  1351. GOTO 1
  1352. 511 continue
  1353. CALL NOMMER
  1354. GOTO 1
  1355. 512 CALL PRECO
  1356. GOTO 1
  1357. 513 CALL OPOBJE(19)
  1358. C 19 -> ERFC
  1359. GOTO 1
  1360. 514 CALL ONDE
  1361. GOTO 1
  1362. 515 CALL CFL
  1363. GOTO 1
  1364. 516 CALL DEDOU
  1365. GOTO 1
  1366. 517 CALL DCOV
  1367. GOTO 1
  1368. 518 CONTINUE
  1369. C parabole approchant un arc de cercle
  1370. II=16
  1371. GOTO 112
  1372. 519 CALL POLA
  1373. GOTO 1
  1374. 520 CALL CHIMI1
  1375. GOTO 1
  1376. 521 CALL CHIMI2
  1377. GOTO 1
  1378. 522 CALL PENT
  1379. GOTO 1
  1380. 523 CALL PRET
  1381. GOTO 1
  1382. 524 CALL METHOD
  1383. GOTO 1
  1384. 525 CALL XPXTRA
  1385. GOTO 1
  1386. 526 CALL COMBLO
  1387. GOTO 1
  1388. 527 CALL GENJOI
  1389. GOTO 1
  1390. 528 CALL ZLEGEN
  1391. GOTO 1
  1392. 529 CALL MENISM
  1393. GOTO 1
  1394. 530 CALL FIONI
  1395. GOTO 1
  1396. 531 CALL NEUTRE
  1397. GOTO 1
  1398. 532 CALL LOGK
  1399. GOTO 1
  1400. 533 CALL COAC
  1401. GOTO 1
  1402. 534 CALL RESI
  1403. GOTO 1
  1404. 535 CALL MUTU
  1405. GOTO 1
  1406. 536 CALL SORE
  1407. GOTO 1
  1408. 537 CALL DIRICH
  1409. GOTO 1
  1410. 538 CALL LIGN
  1411. GOTO 1
  1412. 539 CALL OBJET
  1413. GOTO 1
  1414. 542 CALL HERITE
  1415. GOTO 1
  1416. 543 CALL DECO
  1417. GOTO 1
  1418. 544 CALL EXTERN
  1419. GOTO 1
  1420. 545 CALL DMMU
  1421. GOTO 1
  1422. 546 CALL DMTD
  1423. GOTO 1
  1424. 547 CALL BMTD
  1425. GOTO 1
  1426. 548 CALL SSCH
  1427. GOTO 1
  1428. 549 CALL MREM
  1429. GOTO 1
  1430. 550 CALL ASSIST(irt)
  1431. GOTO 1
  1432. 551 CALL FISS
  1433. GOTO 1
  1434. 552 CALL PRIMIT
  1435. GOTO 1
  1436. 553 CALL ANNULE
  1437. GOTO 1
  1438. 554 CALL PROB
  1439. GOTO 1
  1440. 555 CALL SAIS
  1441. GOTO 1
  1442. 556 CALL CHOI
  1443. GOTO 1
  1444. 557 CALL DETO
  1445. GOTO 1
  1446. 558 CALL PART
  1447. GOTO 1
  1448. 559 CALL CLMI
  1449. GOTO 1
  1450. 560 CALL PMAT
  1451. GOTO 1
  1452. 561 CALL EXCPHA
  1453. GOTO 1
  1454. 562 CALL PHAPRO
  1455. GOTO 1
  1456. 563 CALL PHAJ
  1457. GOTO 1
  1458. 564 CALL ALEA
  1459. GOTO 1
  1460. 565 CALL GNFL
  1461. GOTO 1
  1462. 566 CALL TRPROF
  1463. GOTO 1
  1464. 567 CALL SSTE
  1465. GOTO 1
  1466. 568 CALL ADVE
  1467. GOTO 1
  1468. 569 CALL BGMO
  1469. GOTO 1
  1470. 570 CALL FEFP
  1471. GOTO 1
  1472. 571 CALL COUPE
  1473. GOTO 1
  1474. 572 CALL VERMAI
  1475. GOTO 1
  1476. 573 CALL DFER
  1477. GOTO 1
  1478. 574 CALL GYROS
  1479. GOTO 1
  1480. 575 CALL CORIOL
  1481. GOTO 1
  1482. 576 CALL KENTR
  1483. GOTO 1
  1484. 577 CALL FANTOM
  1485. GOTO 1
  1486. 578 CALL ITRC
  1487. GOTO 1
  1488. 579 CONTINUE
  1489. GOTO 9901
  1490. 580 CALL IJET
  1491. GOTO 1
  1492. 581 CALL IMPED
  1493. GOTO 1
  1494. 582 CALL MOCA
  1495. GOTO 1
  1496. 583 CALL LEVMAR
  1497. GOTO 1
  1498. 584 CALL RAVC
  1499. GOTO 1
  1500. 585 CALL IDLIAI
  1501. GOTO 1
  1502. 586 CALL RAFF
  1503. GOTO 1
  1504. 587 CALL CFND
  1505. GOTO 1
  1506. 588 CALL ADETAT
  1507. GOTO 1
  1508. 589 CALL PSIPHI
  1509. GOTO 1
  1510. 590 CALL OPOBJE(9)
  1511. C 9 -> ARCCOS (ACOS)
  1512. GOTO 1
  1513. 591 CALL OPOBJE(10)
  1514. C 10 -> ARCSIN (ASIN)
  1515. GOTO 1
  1516. 592 CALL OPOBJE(8)
  1517. C 8 -> TANGENTE (TAN)
  1518. GOTO 1
  1519. 593 CALL TRIELE
  1520. GOTO 1
  1521. 594 CALL GAUNEW
  1522. GOTO 1
  1523. 595 CALL HISTOG
  1524. GOTO 1
  1525. 596 CALL ETG
  1526. GOTO 1
  1527. 597 CALL OTER
  1528. GOTO 1
  1529. 598 CALL XPOST
  1530. GOTO 1
  1531. 599 CALL RFCO
  1532. GOTO 1
  1533. 600 CALL VIDE
  1534. GOTO 1
  1535. 601 CALL VORO
  1536. GOTO 1
  1537. 602 CALL PRRAYO
  1538. GOTO 1
  1539. 603 CALL POSI
  1540. GOTO 1
  1541. 604 CALL MISE
  1542. GOTO 1
  1543. 605 CALL MISL
  1544. GOTO 1
  1545. 606 CONTINUE
  1546. CALL COLL
  1547. GOTO 1
  1548. 607 CONTINUE
  1549. CALL POD
  1550. GOTO 1
  1551. C Je sors sur cette etiquette 9901: si on ajoute des operateurs,
  1552. C il faut les mettre au dessus
  1553.  
  1554.  
  1555. 9901 CONTINUE
  1556. CALL FLUSH
  1557. ILOCE_MAIN=ILOCE
  1558. END
  1559.  
  1560.  
  1561.  
  1562.  
  1563.  
  1564.  
  1565.  
  1566.  
  1567.  
  1568.  
  1569.  
  1570.  
  1571.  
  1572.  
  1573.  
  1574.  
  1575.  

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