Télécharger pilot.eso

Retour à la liste

Numérotation des lignes :

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

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