Télécharger ecmatt.eso

Retour à la liste

Numérotation des lignes :

  1. C ECMATT SOURCE CHAT 05/01/12 23:23:52 5004
  2. SUBROUTINE ECMATT(IRET,jentet)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. CHARACTER*3 MOTAXE
  6. CHARACTER*5 MROTOR
  7. CHARACTER*6 MSTATO
  8. CHARACTER*7 MINERT
  9. CHARACTER*9 MINCON
  10. CHARACTER*11 MOTST1,MOTST2
  11. CHARACTER*16 MOTSS1,MOTSS2
  12. CHARACTER*19 MOTVIT
  13. CHARACTER*20 MOTAB2,MOTAB1
  14. CHARACTER*22 MOTPRO
  15. CHARACTER*46 MCARA2
  16. CHARACTER*49 MCARA1
  17. LOGICAL LOGI
  18. CHARACTER*8 CHARI
  19. C
  20. C ===================================================================
  21. C = ECRITURE D'UN OBJET ATTACHE =
  22. C = PROGRAMMEUR GUILBAUD =
  23. C = CREATION / /85 =
  24. C ===================================================================
  25. -INC SMATTAC
  26. -INC CCOPTIO
  27. -INC SMCHPOI
  28. -INC SMLMOTS
  29. -INC SMELEME
  30. -INC SMCOORD
  31. -INC SMSTRUC
  32. SEGMENT STRAV
  33. CHARACTER*4 ITRAV(0)
  34. ENDSEGMENT
  35. SEGMENT IWORK(0)
  36. SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  37. SEGMENT ITAB(0)
  38. SEGMENT/JTAB/(TABL(IFI)*D)
  39. SEGMENT ITPOI(N)
  40. SEGMENT ITMEL(N)
  41. SEGMENT/MTSTR/(ITSTR(N))
  42. SEGMENT ITMAS(NATTA)
  43. SEGMENT ITMSP(NATTA)
  44. SEGMENT ITMSC(NATTA)
  45. SEGMENT ITMSD(NATTA)
  46. CHARACTER*4 IETOI,NOMC
  47. DATA IETOI/'****'/
  48. DATA LONREF/8/
  49. DATA MOTAXE/'AXE'/
  50. DATA MOTST1/'STRUCTURE 1'/
  51. DATA MOTST2/'STRUCTURE 2'/
  52. DATA MOTSS1/'SOUS-STRUCTURE 1'/
  53. DATA MOTSS2/'SOUS-STRUCTURE 2'/
  54. DATA MOTAB1/'POINT 1 DU MECANISME'/
  55. DATA MOTAB2/'POINT 2 DU MECANISME'/
  56. DATA MOTPRO/'CONSIGNE EN PROPORTION'/
  57. DATA MOTVIT/'CONSIGNE EN VITESSE'/
  58. DATA MINERT/'INERTIE'/,MINCON/'INCONNUES'/
  59. DATA MROTOR/'ROTOR'/
  60. DATA MSTATO/'STATOR'/
  61. DATA MCARA1/'CARACTERISTIQUE DE L ASSERVISSEMENT EN PROPORTION'/
  62. DATA MCARA2/'CARACTERISTIQUE DE L ASSERVISSEMENT EN VITESSE'/
  63. DO 5 I=1,LONREF
  64. 5 CONTINUE
  65. MATTAC=IRET
  66. INTERR(1)=MATTAC
  67. CALL ERREUR(-35)
  68. WRITE(IOIMP,102)
  69. 102 FORMAT(10X,'* MSOUMA * ITYATT * IATREL *')
  70. SEGACT MATTAC
  71. NATTA=LISATT(/1)
  72. DO 20 IL=1,NATTA
  73. MSOUMA=LISATT(IL)
  74. SEGACT MSOUMA
  75. WRITE(IOIMP,103) MSOUMA,ITYATT,IATREL(1)
  76. 103 FORMAT(10X,'* ',I4,' * ',A4,' * ',I4,' * ')
  77. NRELA=IATREL(/1)
  78. DO 10 IN=2,NRELA
  79. WRITE(IOIMP,104) IATREL(IN)
  80. 104 FORMAT(10X,2('* '),'* ',I4,' *')
  81. 10 CONTINUE
  82. 20 CONTINUE
  83. IMECA=0
  84. IASSE=0
  85. ICHOC=0
  86. IDEVE=0
  87. SEGINI ITMAS,ITMSP,ITMSC,ITMSD
  88. DO 25 IL=1,NATTA
  89. MSOUMA=LISATT(IL)
  90. SEGACT MSOUMA
  91. IF(ITYATT.EQ.'ASSE') GOTO 2100
  92. IF(ITYATT.EQ.'MECA') GOTO 21
  93. IF(ITYATT.EQ.'FLUI') GOTO 21
  94. IF(ITYATT.EQ.'DEPI') GOTO 21
  95. IF(ITYATT.EQ.'CHOC') GOTO 22
  96. IF(ITYATT.EQ.'DEVE') GOTO 23
  97. GOTO 24
  98. 2100 IASSE=IASSE+1
  99. ITMAS(IASSE)=MSOUMA
  100. GOTO 24
  101. 21 IMECA=IMECA+1
  102. ITMSP(IMECA)=MSOUMA
  103. GOTO 24
  104. 22 ICHOC=ICHOC+1
  105. ITMSC(ICHOC)=MSOUMA
  106. GOTO 24
  107. 23 IDEVE=IDEVE+1
  108. ITMSD(IDEVE)=MSOUMA
  109. 24 CONTINUE
  110. M=IPMATK(/1)
  111. IF(M.EQ.0) GOTO 190
  112. INTERR(1)=MSOUMA
  113. CALL ERREUR(-36)
  114. DO 180 MM=1,M
  115. C ECRITURE D'UN OBJET RIGIDITE
  116. IRET=IPMATK(MM)
  117. CALL PRRIGI(IRET,jentet)
  118. 180 CONTINUE
  119. 190 CONTINUE
  120. SEGDES MSOUMA
  121. 25 CONTINUE
  122. IF(IMECA.EQ.0) GOTO 175
  123. C
  124. C TRATEMENT DES LIAISONS MECANIQUES PERMANENTES
  125. C
  126. CALL ERREUR(-37)
  127. SEGINI IWORK
  128. NBSTRU=0
  129. DO 170 IL=1,IMECA
  130. MSOUMA=ITMSP(IL)
  131. SEGACT MSOUMA
  132. NRELA=IATREL(/1)
  133. SEGINI STRAV
  134. LONTRA=0
  135. DO 80 IN=1,NRELA
  136. MJONCT=IATREL(IN)
  137. SEGACT MJONCT
  138. NS=ISTRJO(/1)
  139. DO 70 N=1,NS
  140. C MISE EN MEMOIRE DES SOUS-STRUCTURES INTERVENANT DANS LA LIAISON
  141. MSOSTU=ISTRJO(N)
  142. IF(NBSTRU.EQ.0) GOTO 28
  143. DO 27 I=1,NBSTRU
  144. IF(MSOSTU.EQ.IWORK(I)) GOTO 29
  145. 27 CONTINUE
  146. 28 IWORK(**)=MSOSTU
  147. NBSTRU=NBSTRU+1
  148. 29 CONTINUE
  149. MCHPOI=IPCHJO(N)
  150. SEGACT MCHPOI
  151. NSOUPO=IPCHP(/1)
  152. DO 60 L=1,NSOUPO
  153. MSOUPO=IPCHP(L)
  154. SEGACT MSOUPO
  155. NC=NOCOMP(/2)
  156. DO 50 NCC=1,NC
  157. NOMC=NOCOMP(NCC)
  158. IF(LONTRA.EQ.0) GOTO 40
  159. DO 30 I=1,LONTRA
  160. IF(NOMC.EQ.ITRAV(I)) GOTO 50
  161. 30 CONTINUE
  162. 40 ITRAV(**)=NOMC
  163. 50 CONTINUE
  164. LONTRA=ITRAV(/2)
  165. SEGDES MSOUPO
  166. 60 CONTINUE
  167. SEGDES MCHPOI
  168. 70 CONTINUE
  169. SEGDES MJONCT
  170. 80 CONTINUE
  171. IECRI=(LONTRA-1)/LONREF+1
  172. DO 160 IN=1,NRELA
  173. MJONCT=IATREL(IN)
  174. SEGACT MJONCT
  175. MELEME=MJOPOI
  176. SEGACT MELEME
  177. IJOPOI=NUM(1,1)
  178. SEGDES MELEME
  179. INTERR(1)=IN
  180. INTERR(2)=MJONCT
  181. INTERR(3)=IJOPOI
  182. MOTERR(1:4)=MJOTYP
  183. MOTERR(5:8)=MJODDL
  184. CALL ERREUR(-38)
  185. NS=ISTRJO(/1)
  186. DO 150 N=1,NS
  187. MCHPOI=IPCHJO(N)
  188. MSOSTU=ISTRJO(N)
  189. WRITE(IOIMP,107) MSOSTU,MCHPOI
  190. 107 FORMAT(/10X,' MSOSTU =',I4,' MCHPOI =',I4/)
  191. IDEB=1
  192. IFIN=MIN(LONTRA,LONREF)
  193. IDEC=0
  194. DO 145 IE=1,IECRI
  195. IFI=IFIN-IDEB+1
  196. WRITE(IOIMP,108)(IETOI,I=1,IFI)
  197. 108 FORMAT(1X,'**********',8(A4,'***********'))
  198. WRITE(IOIMP,109) (ITRAV(I),I=IDEB,IFIN)
  199. 109 FORMAT(1X,'* POINTS *',8(' ',A4,' *'))
  200. WRITE(IOIMP,108)(IETOI,I=1,IFI)
  201. SEGACT MCHPOI
  202. NSOUPO=IPCHP(/1)
  203. DO 140 L=1,NSOUPO
  204. MSOUPO=IPCHP(L)
  205. SEGACT MSOUPO
  206. MELEME=IGEOC
  207. SEGACT MELEME
  208. NBPT=NUM(/2)
  209. NC=NOCOMP(/2)
  210. SEGINI ITAB
  211. DO 110 NCC=1,NC
  212. NOMC=NOCOMP(NCC)
  213. ITAB(**)=0
  214. DO 85 I=IDEB,IFIN
  215. II=I
  216. IF(NOMC.EQ.ITRAV(I)) GOTO 90
  217. 85 CONTINUE
  218. GOTO 110
  219. 90 ITAB(NCC)=II-IDEC
  220. 110 CONTINUE
  221. SEGINI JTAB
  222. DO 115 I=1,IFI
  223. TABL(I)=0.D0
  224. 115 CONTINUE
  225. MPOVAL=IPOVAL
  226. SEGACT MPOVAL
  227. DO 130 NBP=1,NBPT
  228. DO 120 NCC=1,NC
  229. IT=ITAB(NCC)
  230. IF(IT.EQ.0) GOTO 120
  231. TABL(IT)=VPOCHA(NBP,NCC)
  232. 120 CONTINUE
  233. IWRITE=NUM(1,NBP)
  234. WRITE(IOIMP,111) IWRITE,(TABL(I),I=1,IFI)
  235. 111 FORMAT(1X,'* ',I4,' *',8(1X,1PE12.5,' *'))
  236. 130 CONTINUE
  237. SEGDES MELEME
  238. SEGSUP JTAB
  239. SEGDES MPOVAL
  240. SEGDES MSOUPO
  241. SEGSUP ITAB
  242. 140 CONTINUE
  243. WRITE(IOIMP,108)(IETOI,I=1,IFI)
  244. SEGDES MCHPOI
  245. IDEB=IFIN+1
  246. IDEC=IFIN
  247. IFIN=(IE+1)*LONREF
  248. IFIN=MIN(LONTRA,IFIN)
  249. 145 CONTINUE
  250. 150 CONTINUE
  251. SEGDES MJONCT
  252. 160 CONTINUE
  253. SEGSUP STRAV
  254. 165 SEGDES MSOUMA
  255. WRITE(IOIMP,121)
  256. 121 FORMAT(/)
  257. 170 CONTINUE
  258. SEGSUP IWORK
  259. 175 IF(ICHOC.EQ.0) GOTO 550
  260. C
  261. C TRAITEMENT DES CHOCS
  262. C
  263. DO 540 IL=1,ICHOC
  264. MSOUMA=ITMSC(IL)
  265. SEGACT MSOUMA
  266. NRELA=IATREL(/1)
  267. N=2*NRELA
  268. SEGINI ITPOI,MTSTR,ITMEL
  269. DO 215 NR=1,NRELA
  270. MJONCT=IATREL(NR)
  271. SEGACT MJONCT
  272. DO 210 NS=1,2
  273. INS=(NS-1)*NRELA+NR
  274. ITSTR(INS)=ISTRJO(NS)
  275. MCHPOI=IPCHJO(NS)
  276. SEGACT MCHPOI
  277. MSOUPO=IPCHP(1)
  278. SEGACT MSOUPO
  279. MELEME=IGEOC
  280. SEGACT MELEME
  281. ITPOI(INS)=NUM(1,1)
  282. SEGDES MELEME,MSOUPO,MCHPOI
  283. MELEME=IPOSJO(NS)
  284. SEGACT MELEME
  285. ITMEL(INS)=NUM(1,1)
  286. SEGDES MELEME
  287. 210 CONTINUE
  288. 215 SEGDES MJONCT
  289. INTERR(1)= MSOUMA
  290. IECRI=(NRELA-1)/12+1
  291. IDEB=1
  292. IFIN=MIN(NRELA,12)
  293. DO 220 IE=1,IECRI
  294. CALL ERREUR(-40)
  295. WRITE(IOIMP,320) (IATREL(I),I=IDEB,IFIN)
  296. CALL ERREUR(-41)
  297. WRITE(IOIMP,320) (ITSTR(I),I=IDEB,IFIN)
  298. CALL ERREUR(-42)
  299. WRITE(IOIMP,320) (ITPOI(I),I=IDEB,IFIN)
  300. CALL ERREUR(-43)
  301. WRITE(IOIMP,320) (ITMEL(I),I=IDEB,IFIN)
  302. CALL ERREUR(-41)
  303. WRITE(IOIMP,320) (ITSTR(I+NRELA),I=IDEB,IFIN)
  304. CALL ERREUR(-42)
  305. WRITE(IOIMP,320) (ITPOI(I+NRELA),I=IDEB,IFIN)
  306. CALL ERREUR(-43)
  307. WRITE(IOIMP,320) (ITMEL(I+NRELA),I=IDEB,IFIN)
  308. 320 FORMAT(22X,12(1X,I5,' *'))
  309. IDEB=IFIN+1
  310. IFIN=(IE+1)*12
  311. IFIN=MIN(NRELA,IFIN)
  312. 220 CONTINUE
  313. C ECRITURE DES CARACTERISTIQUES DU CHOC
  314. MGEOCH=IGEOCH
  315. MPHYCH=IPHYCH
  316. SEGACT MGEOCH,MPHYCH
  317. NN=INORCH(/1)
  318. IF(NN.NE.1) GOTO 230
  319. INTERR(1)=INORCH(1)
  320. REAERR(1)=RJEUCH(1)
  321. CALL ERREUR(-44)
  322. GOTO 250
  323. 230 INTERR(1)=INORCH(1)
  324. MOTERR(1:4)=MPOPRO(1)
  325. CALL ERREUR(-45)
  326.  
  327. IF(RJEUCH(/1).NE.0) THEN
  328. REAERR(1)=RJEUCH(1)
  329. CALL ERREUR(-46)
  330. ENDIF
  331. DO 240 I=1,2
  332. INTERR(1)=I
  333. INTERR(2)=IMAPRO(I)
  334. REAERR(1)=TAIPRO(I)
  335. INTERR(2)=INORCH(I+1)
  336. CALL ERREUR(-47)
  337. 240 CONTINUE
  338. 250 REAERR(1)= RAIPRO
  339. CALL ERREUR(-48)
  340. NA=AMOPRO(/1)
  341. IF(NA.EQ.1)THEN
  342. REAERR(1)= AMOPRO(1)
  343. CALL ERREUR(-49)
  344. ENDIF
  345. NF=FROPRO(/1)
  346. IF(NF.EQ.1) THEN
  347. REAERR(1)= FROPRO(1)
  348. CALL ERREUR(-50)
  349. ENDIF
  350. SEGSUP ITPOI,MTSTR,ITMEL
  351. SEGDES MSOUMA,MGEOCH,MPHYCH
  352. 540 CONTINUE
  353. 550 IF(IDEVE.EQ.0) GOTO 950
  354.  
  355. C TRAITEMENT DE LA LIAISON DEVERSOIR
  356. C
  357. DO 940 IL=1,IDEVE
  358. MSOUMA=ITMSD(IL)
  359. SEGACT MSOUMA
  360. NRELA=IATREL(/1)
  361. N=2*NRELA
  362. SEGINI ITPOI,MTSTR
  363. DO 615 NR=1,NRELA
  364. MJONCT=IATREL(NR)
  365. SEGACT MJONCT
  366. DO 610 NS=1,2
  367. INS=(NS-1)*NRELA+NR
  368. ITSTR(INS)=ISTRJO(NS)
  369. MCHPOI=IPCHJO(NS)
  370. SEGACT MCHPOI
  371. MSOUPO=IPCHP(1)
  372. SEGACT MSOUPO
  373. MELEME=IGEOC
  374. SEGACT MELEME
  375. ITPOI(INS)=NUM(1,1)
  376. SEGDES MELEME,MSOUPO,MCHPOI
  377. 610 CONTINUE
  378. 615 SEGDES MJONCT
  379. INTERR(1)= MSOUMA
  380. IECRI=(NRELA-1)/12+1
  381. IDEB=1
  382. IFIN=MIN(NRELA,12)
  383. DO 620 IE=1,IECRI
  384. CALL ERREUR(-52)
  385. WRITE(IOIMP,720) (IATREL(I),I=IDEB,IFIN)
  386. CALL ERREUR(-41)
  387. WRITE(IOIMP,720) (ITSTR(I),I=IDEB,IFIN)
  388. CALL ERREUR(-42)
  389. WRITE(IOIMP,720) (ITPOI(I),I=IDEB,IFIN)
  390. CALL ERREUR(-41)
  391. WRITE(IOIMP,720) (ITSTR(I+NRELA),I=IDEB,IFIN)
  392. CALL ERREUR(-42)
  393. WRITE(IOIMP,720) (ITPOI(I+NRELA),I=IDEB,IFIN)
  394. 720 FORMAT(22X,12(1X,I5,' *'))
  395. IDEB=IFIN+1
  396. IFIN=(IE+1)*12
  397. IFIN=MIN(NRELA,IFIN)
  398. 620 CONTINUE
  399. C
  400. C ECRITURE DES CARACTERISTIQUES DU DEVERSOIR
  401. MGEOCH=IGEOCH
  402. SEGACT MGEOCH
  403. WRITE(IOIMP,1010)
  404. REAERR(1)=RJEUCH(1)
  405. REAERR(2)=RJEUCH(2)
  406. CALL ERREUR(-53)
  407. REAERR(1)=RJEUCH(3)
  408. REAERR(2)=RJEUCH(4)
  409. CALL ERREUR(-54)
  410. REAERR(1)=RJEUCH(5)
  411. REAERR(2)=RJEUCH(6)
  412. CALL ERREUR(-55)
  413. REAERR(1)=RJEUCH(7)
  414. REAERR(2)=RJEUCH(8)
  415. CALL ERREUR(-56)
  416. REAERR(1)=RJEUCH(9)
  417. CALL ERREUR(-57)
  418. 1010 FORMAT(/)
  419. SEGSUP ITPOI,MTSTR
  420. SEGDES MSOUMA,MGEOCH
  421. 940 CONTINUE
  422. 950 IF(IASSE.EQ.0) GOTO 1150
  423. C
  424. C TRAITEMENT DE LA LIAISON MOTEUR ASSERVI
  425. C
  426. IS2 = 0
  427. DO 1140 IL=1,IASSE
  428. MSOUMA=ITMAS(IL)
  429. SEGACT MSOUMA
  430. MATAB = IATREL(1)
  431. CALL ERREUR(-58)
  432. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTAXE,LOGI,IOB,
  433. * 'POINT ',IVA,XVA,CHARI ,LOGI,IVEC1)
  434. II = ( IVEC1 - 1 ) * (IDIM + 1)
  435. REAERR(1)=XCOOR(II+1)
  436. REAERR(2)=XCOOR(II+2)
  437. REAERR(3)= 0.D0
  438. IF(IDIM.EQ.3) REAERR(3)=XCOOR(II+3)
  439. CALL ERREUR(-59)
  440. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTST1,LOGI,IOB,
  441. * 'STRUCTUR',IVA,XVA,CHARI ,LOGI,IS1 )
  442. INTERR(1)=IS1
  443. CALL ERREUR(-60)
  444. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTSS1,LOGI,IOB ,
  445. * 'ENTIER ',N1 ,XVA,CHARI ,LOGI,IOB )
  446. MSTRUC = IS1
  447. SEGACT MSTRUC
  448. ISS1 = LISTRU(N1)
  449. INTERR(1)=ISS1
  450. CALL ERREUR(-61)
  451. SEGDES MSTRUC
  452. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTST2,LOGI,IOB ,
  453. * 'STRUCTUR',IVA,XVA,CHARI ,LOGI,IS2 )
  454. IF(IS2.NE.0) THEN
  455. INTERR(1)=IS2
  456. CALL ERREUR(-62)
  457. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTSS2,LOGI,IOB ,
  458. * 'ENTIER ',N2 ,XVA,CHARI ,LOGI,IOB )
  459. MSTRUC = IS2
  460. SEGACT MSTRUC
  461. ISS2 = LISTRU(N2)
  462. INTERR(1)=ISS2
  463. CALL ERREUR(-63)
  464. SEGDES MSTRUC
  465. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTAB2,LOGI,IOB ,
  466. * 'POINT ',IVA,XVA,CHARI ,LOGI,IQ2 )
  467. ENDIF
  468. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MINCON,LOGI,IOB,
  469. * 'LISTMOTS',IVA,XVA,CHARI ,LOGI,IL1)
  470. MLMOTS = IL1
  471. SEGACT MLMOTS
  472. NC = MOTS(/2)
  473. MOTERR = ' '
  474. DO 789 IC=1,NC
  475. I1=IC*4-3
  476. I2=IC*4
  477. MOTERR(I1:I2)=MOTS(IC)
  478. 789 CONTINUE
  479. CALL ERREUR(-64)
  480. SEGDES MLMOTS
  481. CALL ERREUR(-65)
  482. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MSTATO,LOGI,IOB ,
  483. * 'FLOTTANT',IVA,STATOR,CHARI ,LOGI,IOB )
  484. REAERR(1)=STATOR
  485. CALL ERREUR(-66)
  486. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MROTOR,LOGI,IOB ,
  487. * 'FLOTTANT',IVA,ROTOR,CHARI ,LOGI,IOB )
  488. REAERR(1)=ROTOR
  489. CALL ERREUR(-67)
  490. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MINERT,LOGI,IOB ,
  491. * 'FLOTTANT',IVA,FINERT,CHARI ,LOGI,IOB )
  492. REAERR(1)=FINERT
  493. CALL ERREUR(-68)
  494. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTPRO,LOGI,IOB ,
  495. * 'LISTREEL',IVA,XVA,CHARI ,LOGI,IOBJ1)
  496. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MOTVIT,LOGI,IOB ,
  497. * 'LISTREEL',IVA,XVA,CHARI ,LOGI,IOBJ2)
  498. INTERR(1)=IOBJ1
  499. INTERR(2)=IOBJ2
  500. CALL ERREUR(-69)
  501. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MCARA1,LOGI,IOB ,
  502. * 'FLOTTANT',IVA,RKP,CHARI ,LOGI,IOB )
  503. CALL ACCTAB(MATAB,'MOT ',IVA,XVA,MCARA2,LOGI,IOB ,
  504. * 'FLOTTANT',IVA,RKV,CHARI ,LOGI,IOB )
  505. REAERR(1)=RKP
  506. REAERR(2)=RKV
  507. CALL ERREUR(-70)
  508. 1140 CONTINUE
  509. 1150 CONTINUE
  510. WRITE(IOIMP,122)
  511. 122 FORMAT(///)
  512. SEGDES MATTAC
  513. SEGSUP ITMSP,ITMSC,ITMSD
  514. RETURN
  515. END
  516.  
  517.  
  518.  

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