Télécharger feqpr.eso

Retour à la liste

Numérotation des lignes :

  1. C FEQPR SOURCE CB215821 19/08/20 21:17:41 10287
  2. SUBROUTINE FEQPR(IPMODL,IPCHM1,IPCHM2,IPCHP4,IRET)
  3. C_______________________________________________________________________
  4. C
  5. C ENTREES:
  6. C ________
  7. C
  8. C IPMODL Pointeur sur un MMODEL
  9. C IPCHM1 Pointeur sur un MCHAML de CONTRAINTES
  10. C IPCHM2 Pointeur sur un MCHAML de CARACTERISTIQUES
  11. C
  12. C SORTIES:
  13. C ________
  14. C
  15. C IPCHP4 Pointeur sur un CHPOINT de forces aux noeuds
  16. C IRET = 1 OU 0 suivant succes ou pas (Message d'erreur
  17. C imprime dans ce cas)
  18. C_______________________________________________________________________
  19. C
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8(A-H,O-Z)
  22. C
  23. -INC CCOPTIO
  24. -INC CCHAMP
  25. -INC SMMODEL
  26. -INC SMCHAML
  27. -INC SMCHPOI
  28. -INC SMELEME
  29. -INC SMINTE
  30. -INC SMLENTI
  31. C
  32. SEGMENT NOTYPE
  33. CHARACTER*16 TYPE(NBTYPE)
  34. ENDSEGMENT
  35. C
  36. SEGMENT MPTVAL
  37. INTEGER IPOS(NS) ,NSOF(NS)
  38. INTEGER IVAL(NCOSOU)
  39. CHARACTER*16 TYVAL(NCOSOU)
  40. ENDSEGMENT
  41. C
  42. SEGMENT LIMODL(0)
  43. C
  44. PARAMETER ( NINF=3 )
  45. INTEGER INFOS(NINF)
  46. CHARACTER*8 CMATE
  47. CHARACTER*(NCONCH) CONM
  48. C_______________________________________________________________________
  49. C
  50. C A T-ON BIEN UN MMODEL CHARGEMENT PRESSION
  51. C_______________________________________________________________________
  52. C
  53. MMODEL=IPMODL
  54. SEGACT,MMODEL
  55. NSOUS = MMODEL.KMODEL(/1)
  56. SEGINI, LIMODL
  57. DO ISOUS = 1,NSOUS
  58. IMODEL = MMODEL.KMODEL(ISOUS)
  59. SEGACT, IMODEL
  60. IF (FORMOD(1).EQ.'CHARGEMENT') THEN
  61. LIMODL(**) = IMODEL
  62. ENDIF
  63. ENDDO
  64. C
  65. NSOUS = LIMODL(/1)
  66. IF (NSOUS.EQ.0) THEN
  67. MOTERR(1:10)='un MMODEL '
  68. MOTERR(11:20)='CHARGEMENT'
  69. MOTERR(21:30)=' PRESSION '
  70. CALL ERREUR(881)
  71. RETURN
  72. ENDIF
  73. C
  74. C TEST DE NON REDONDANCES DES SOUS-MODELES
  75. C
  76. N1 = 1
  77. DO I = NSOUS,2,-1
  78. IMODE1 = LIMODL(I)
  79. DO J = (I-1),1,-1
  80. IMODE2 = LIMODL(J)
  81. IF (IMODE1.EQ.IMODE2) THEN
  82. LIMODL(I) = 0
  83. GOTO 10
  84. ELSE IF (IMODE1.IMAMOD.EQ.IMODE2.IMAMOD .AND.
  85. & IMODE1.CONMOD.EQ.IMODE2.CONMOD) THEN
  86. LIMODL(I) = 0
  87. GOTO 10
  88. ENDIF
  89. ENDDO
  90. N1 = N1 + 1
  91. 10 CONTINUE
  92. ENDDO
  93. C
  94. C CREATION DU MMODEL
  95. C
  96. J = 0
  97. SEGINI,MMODE1
  98. DO i = 1,NSOUS
  99. IF (LIMODL(I).GT.0) THEN
  100. j = j + 1
  101. MMODE1.KMODEL(J) = LIMODL(I)
  102. ENDIF
  103. ENDDO
  104. IPMOD0 = MMODE1
  105. SEGSUP, LIMODL
  106. C_______________________________________________________________________
  107. C
  108. C QUELQUES INITIALISATIONS
  109. C_______________________________________________________________________
  110. C
  111. ISUP1 = 0
  112. ISUP2 = 0
  113. IRET = 0
  114. IPCHP4 = 0
  115. MCHELM = 0
  116. MCHAML = 0
  117. IPCHE1 = 0
  118. IPCHE2 = 0
  119. C_______________________________________________________________________
  120. C
  121. C REDUCTION DES MCHAML EN ENTREE SUR LE MODELE
  122. C_______________________________________________________________________
  123. C
  124. C DEJA FAIT DANS BSIGMA
  125. IF (IPCHM1.NE.0) THEN
  126. CALL REDUAF(IPCHM1,IPMOD0,IPCHE1,0,IR,KER)
  127. IF (IR.NE.1) CALL ERREUR(KER)
  128. IF (IERR.NE.0) RETURN
  129. ENDIF
  130. C
  131. IF (IPCHM2.NE.0) THEN
  132. CALL REDUAF(IPCHM2,IPMOD0,IPCHE2,0,IR,KER)
  133. IF (IR.NE.1) CALL ERREUR(KER)
  134. IF (IERR.NE.0) RETURN
  135. ENDIF
  136. C_______________________________________________________________________
  137. C
  138. C VERIFICATION DES LIEUX SUPPORT DES MCHAML
  139. C_______________________________________________________________________
  140. C
  141. IF (IPCHE1.NE.0) THEN
  142. CALL QUESUP(IPMOD0,IPCHE1,3,0,ISUP1,IRET1C)
  143. IF (ISUP1.GT.1) RETURN
  144. ENDIF
  145. C
  146. IF (IPCHE2.NE.0) THEN
  147. CALL QUESUP(IPMOD0,IPCHE2,3,0,ISUP2,IR)
  148. IF (ISUP2.GT.1) RETURN
  149. ENDIF
  150. C_______________________________________________________________________
  151. C
  152. C ACTIVATION DU MODELE
  153. C_______________________________________________________________________
  154. C
  155. MMODEL=IPMOD0
  156. SEGACT, MMODEL
  157. NSOUS = MMODEL.KMODEL(/1)
  158. DO IM = 1, NSOUS
  159. IMODEL = MMODEL.KMODEL(IM)
  160. SEGACT, IMODEL
  161. ENDDO
  162. C
  163. C ACTIVATION DU MCHELM CONTENANT 'PRES'
  164. C
  165. IF (IPCHE1.NE.0) THEN
  166. MCHEL1 = IPCHE1
  167. ELSE
  168. MCHEL1 = IPCHE2
  169. ENDIF
  170. SEGACT, MCHEL1
  171. C
  172. C INITIALISATION DU MCHELM DE FORCES
  173. C
  174. N1 = NSOUS
  175. L1 = 6
  176. N3 = 5
  177. SEGINI, MCHELM
  178. IPCHE5 = MCHELM
  179. MCHELM.IFOCHE = IFOUR
  180. MCHELM.TITCHE = 'FORCES'
  181. C
  182. C=======================================================================
  183. C
  184. C BOUCLE SUR LES MODELES ELEMENTAIRES
  185. C
  186. C=======================================================================
  187. C
  188. ISOUS = 0
  189. C
  190. DO 200 KISOUS = 1, NSOUS
  191. C
  192. C INITIALISATION
  193. C
  194. IVAMAT=0
  195. IVACAR=0
  196. IVASTR=0
  197. IVAFOR=0
  198. MOMATR=0
  199. MOCARA=0
  200. MOSTRS=0
  201. MOFORC=0
  202. IPMINT=0
  203. IPMIN1=0
  204. C
  205. C TRAITEMENT DU MODELE
  206. C
  207. IMODEL = MMODEL.KMODEL(KISOUS)
  208. ISOUS = ISOUS+1
  209. MELE = IMODEL.NEFMOD
  210. C
  211. C PETITE VERIFICATION SUR LE TYPE D'ELEMENT
  212. C
  213. IF (MELE.EQ.0) THEN
  214. C
  215. C ERREUR : IMPOSSIBLE D UTILISER L OPERATEUR PRESSI POUR
  216. C LES ELEMENTS DE FORMULATION MELE
  217. C
  218. MOTERR(1:8)=NOMTP(MELE)
  219. CALL ERREUR(193)
  220. GOTO 9992
  221. ENDIF
  222. IPMAIL = IMODEL.IMAMOD
  223. CONM = IMODEL.CONMOD
  224. C
  225. C CREATION DU TABLEAU INFOS
  226. C
  227. CALL IDENT(IPMAIL,CONM,IPCHE1,IPCHE2,INFOS,IRTD)
  228. IF (IRTD.EQ.0) GOTO 9992
  229. C
  230. C NATURE DU MATERIAU
  231. C
  232. CMATE = CMATEE
  233. MATE = IMATEE
  234. INAT = INATUU
  235. C_______________________________________________________________________
  236. C
  237. C ACTIVATION DU MELEME
  238. C_______________________________________________________________________
  239. C
  240. MELEME = IPMAIL
  241. SEGACT, MELEME
  242. NBNN = MELEME.NUM(/1)
  243. NBELEM = MELEME.NUM(/2)
  244. C_______________________________________________________________________
  245. C
  246. C INFORMATIONS SUR L'ELEMENT FINI
  247. C_______________________________________________________________________
  248. C
  249. NBPGAU= INFELE(4)
  250. MINTE = INFMOD(5)
  251. MINTE1= INFMOD(8)
  252. MFR = INFELE(13)
  253. MFR2 = NUMMFR(MELE)
  254. NSTRS = INFELE(16)
  255. C
  256. IPMINT= MINTE
  257. IPMIN1= MINTE1
  258. SEGACT, MINTE
  259. IPPORE= 0
  260. IF (MFR2.EQ.33.OR.MFR2.EQ.57.OR.MFR2.EQ.59) IPPORE = NBNN
  261. C
  262. IMACHE(ISOUS) = IPMAIL
  263. INFCHE(ISOUS,1)=0
  264. INFCHE(ISOUS,2)=0
  265. INFCHE(ISOUS,3)=NIFOUR
  266. INFCHE(ISOUS,4)=0
  267. INFCHE(ISOUS,5)=0
  268. C_______________________________________________________________________
  269. C
  270. C NOMS DE COMPOSANTES DE CONTRAINTES
  271. C_______________________________________________________________________
  272. C
  273. IF (IPCHE1.NE.0) THEN
  274. MOSTRS=LNOMID(4)
  275. NOMID=MOSTRS
  276. SEGACT, NOMID
  277. NSTR=LESOBL(/2)
  278. NFAC=LESFAC(/2)
  279. C
  280. NBTYPE=1
  281. SEGINI, NOTYPE
  282. TYPE(1)='REAL*8'
  283. MOTYPE=NOTYPE
  284. C
  285. C VERIFICATION DE LEUR PRESENCE
  286. C
  287. CALL KOMCHA(IPCHE1,IPMAIL,CONM,MOSTRS,MOTYPE,1,INFOS,3,IVASTR)
  288. SEGSUP, NOTYPE
  289. IF (IERR.NE.0) GOTO 9991
  290. C
  291. IF (ISUP1.EQ.1) THEN
  292. NSTRS = 1
  293. CALL VALCHE(IVASTR,NSTRS,IPMINT,IPPORE,MOSTRS,MELE)
  294. ENDIF
  295. ELSE
  296. MOMATR=LNOMID(6)
  297. NOMID=MOMATR
  298. SEGACT, NOMID
  299. NMATR=LESOBL(/2)
  300. NMATF=LESFAC(/2)
  301. C
  302. NBTYPE=1
  303. SEGINI, NOTYPE
  304. TYPE(1)='REAL*8'
  305. MOTYPE=NOTYPE
  306. C
  307. C VERIFICATION DE LEUR PRESENCE
  308. C
  309. CALL KOMCHA(IPCHE2,IPMAIL,CONM,MOMATR,MOTYPE,1,INFOS,3,IVAMAT)
  310. SEGSUP, NOTYPE
  311. IF (IERR.NE.0) GOTO 9991
  312. C
  313. IF (ISUP2.EQ.1) THEN
  314. CALL VALCHE(IVAMAT,NMATR,IPMINT,IPPORE,MOMATR,MELE)
  315. ENDIF
  316. ENDIF
  317. C_______________________________________________________________________
  318. C
  319. C NOMS DE COMPOSANTES DE FORCES ET CREATION DU MCHAML DE FORCE
  320. C (CE MCHAML SERA TRANSFORME EN FIN DE SUBROUTINE EN CHPOINT)
  321. C_______________________________________________________________________
  322. C
  323. MOFORC = LNOMID(2)
  324. NOMID=MOFORC
  325. SEGACT, NOMID
  326. NFORC=LESOBL(/2)
  327. NFACF=LESFAC(/2)
  328. C
  329. N2=NFORC
  330. SEGINI, MCHAML
  331. ICHAML(ISOUS)=MCHAML
  332. C
  333. DO 110 ICOMP=1,NFORC
  334. NOMCHE(ICOMP)=LESOBL(ICOMP)
  335. TYPCHE(ICOMP)='REAL*8'
  336. 110 CONTINUE
  337. C
  338. IF (NFACF.NE.0) THEN
  339. IFAC = 0
  340. DO 111 ICOMP=(NFORC+1),N2
  341. IFAC = IFAC + 1
  342. NOMCHE(ICOMP)=LESFAC(IFAC)
  343. TYPCHE(ICOMP)='REAL*8'
  344. 111 CONTINUE
  345. ENDIF
  346. C
  347. C TAILLES DE MELVAL
  348. C
  349. N1EL=NBELEM
  350. N1PTEL=NBNN
  351. NBPTEL=NBPGAU
  352. NEL =N1EL
  353. C
  354. C CREATION DU MELVAL DE FORCES
  355. C
  356. NS=1
  357. NCOSOU=NFORC+NFACF
  358. SEGINI, MPTVAL
  359. IVAFOR=MPTVAL
  360. DO 100 ICOMP=1,NCOSOU
  361. N2PTEL=0
  362. N2EL=0
  363. SEGINI, MELVAL
  364. IELVAL(ICOMP)=MELVAL
  365. IVAL(ICOMP)=MELVAL
  366. 100 CONTINUE
  367. C_______________________________________________________________________
  368. C
  369. C NOMS DE COMPOSANTES DE CARACTERISTIQUES (FACULTATIF)
  370. C_______________________________________________________________________
  371. C
  372. NBROBL=0
  373. NBRFAC=0
  374. NOMID=0
  375. IVECT=0
  376. C
  377. C EPAISSEUR DANS LE CAS MASSIF EN CONTRAINTES PLANES
  378. C
  379. IF(MFR.EQ.72.AND.IFOUR.EQ.-2)THEN
  380. C
  381. NBRFAC=1
  382. SEGINI, NOMID
  383. LESFAC(1)='DIM3'
  384. C
  385. NBTYPE=1
  386. SEGINI, NOTYPE
  387. TYPE(1)='REAL*8'
  388. C
  389. C EPAISSEUR DANS LE CAS DES COQUES 2D COQ2
  390. C
  391. ELSEIF(MFR.EQ.74.AND.MELE.EQ.44.AND.IFOUR.EQ.-2)THEN
  392. C
  393. NBRFAC=1
  394. SEGINI, NOMID
  395. LESFAC(1)='DIM3'
  396. C
  397. NBTYPE=1
  398. SEGINI, NOTYPE
  399. TYPE(1)='REAL*8'
  400. C
  401. C EPAISSEUR DANS LE CAS DES COQUES EPAISSES
  402. C
  403. ELSEIF (MFR.EQ.74.AND.MFR2.EQ.5) THEN
  404. NBROBL=1
  405. NBRFAC=0
  406. SEGINI, NOMID
  407. LESOBL(1)='EPAI'
  408. C
  409. NBTYPE=1
  410. SEGINI, NOTYPE
  411. TYPE(1)='REAL*8'
  412. C
  413. C EPAISSEUR ET RAYON EXTERNE DANS LE CAS DES TUYAUX
  414. C
  415. ELSEIF (MFR.EQ.74.AND.MFR2.EQ.13) THEN
  416. NBROBL=2
  417. NBRFAC=2
  418. SEGINI, NOMID
  419. LESOBL(1)='EPAI'
  420. LESOBL(2)='RAYO'
  421. LESFAC(1)='RACO'
  422. LESFAC(2)='VECT'
  423. C
  424. NBTYPE=4
  425. SEGINI, NOTYPE
  426. TYPE(1)='REAL*8'
  427. TYPE(2)='REAL*8'
  428. TYPE(3)='REAL*8'
  429. TYPE(4)='POINTEURPOINT '
  430. C
  431. ENDIF
  432. MOCARA=NOMID
  433. MOTYPE=NOTYPE
  434. C
  435. NCARA=NBROBL
  436. NCARF=NBRFAC
  437. NCARR=NCARA+NCARF
  438. C
  439. IF (IPCHE2.NE.0) THEN
  440. IF (MOCARA.NE.0) THEN
  441. CALL KOMCHA(IPCHE2,IPMAIL,CONM,MOCARA,MOTYPE,1,INFOS,3,
  442. + IVACAR)
  443. SEGSUP, NOTYPE
  444. SEGSUP, NOMID
  445. IF (IERR.NE.0) GOTO 9990
  446. IF (ISUP2.EQ.1) THEN
  447. CALL VALCHE(IVACAR,NCARR,IPMINT,IPPORE,MOCARA,MELE)
  448. IF (IERR.NE.0)THEN
  449. ISUP2=0
  450. GOTO 9990
  451. ENDIF
  452. ENDIF
  453. ELSE
  454. SEGSUP, NOTYPE
  455. SEGSUP, NOMID
  456. ENDIF
  457. ELSE IF (NCARA.GT.0) THEN
  458. SEGSUP, NOTYPE
  459. SEGSUP, NOMID
  460. MOTERR(1:8)='CARACTER'
  461. MOTERR(9:12)=NOMTP(MELE)
  462. MOTERR(13:20)='FEQPR'
  463. CALL ERREUR(145)
  464. GOTO 9990
  465. ENDIF
  466. C_______________________________________________________________________
  467. C
  468. C CALCUL DES FORCES EQUIVALENTES
  469. C_______________________________________________________________________
  470. C
  471. IF (IPCHE1.NE.0) THEN
  472. MPTVAL=IVASTR
  473. ELSE
  474. MPTVAL=IVAMAT
  475. ENDIF
  476. IVAPRE = IVAL(1)
  477. C
  478. C - ELEMENTS DE FORMULATION MASSIF
  479. C
  480. IF (MFR2.EQ.1) THEN
  481. XP=0.D0
  482. IF (MELE.EQ.2.OR.MELE.EQ.3.OR.MELE.EQ.79.OR.MELE.EQ.80) THEN
  483. CALL FPMA2D(IVAPRE,IPMAIL,IPMINT,IVAFOR,IVACAR,XP)
  484. ELSE IF(MELE.EQ.4.OR.MELE.EQ.6.OR.MELE.EQ.8.OR.
  485. + MELE.EQ.10.OR.MELE.EQ.81.OR.MELE.EQ.82.OR.
  486. + MELE.EQ.83) THEN
  487. IF (IDIM.EQ.3) THEN
  488. CALL FPMA3D(IVAPRE,IPMAIL,IPMINT,IVAFOR,XP)
  489. ELSE
  490. C ERREUR, APPLICATION PRESSION SUR SURFACE DANS UN PB 2D
  491. CALL ERREUR(820)
  492. GOTO 9990
  493. ENDIF
  494. ELSE IF (MELE.EQ.45) THEN
  495. CALL FPMA1D(IVAPRE,IPMAIL,IPMINT,IVAFOR,XP)
  496. ELSE
  497. C ERREUR, ELEMENT NON IMPLEMENTE
  498. MOTERR(1:4)=NOMTP(MELE)
  499. MOTERR(5:12)='FEQPR '
  500. CALL ERREUR(86)
  501. GOTO 9990
  502. ENDIF
  503. C
  504. C - ELEMENTS DE FORMULATION COQUES
  505. C
  506. ELSE IF (MFR2.EQ.3.OR.MFR2.EQ.5.OR.MFR2.EQ.9) THEN
  507. C
  508. IF (MELE.EQ.27.OR.MELE.EQ.28.OR.MELE.EQ.45.OR.
  509. + MELE.EQ.93.OR.MELE.EQ.44.OR.MELE.EQ.49.OR.
  510. + MELE.EQ.41.OR.MELE.EQ.56) THEN
  511. C VERIFICATION DE L ORIENTATION DU IPMAIL
  512. CALL ECROBJ('MAILLAGE',IPMAIL)
  513. CALL VERSEN
  514. CALL LIROBJ('MAILLAGE',IPMAIL,1,IRETOU)
  515. IF (IERR.NE.0) GOTO 9990
  516. IF (MELE.EQ.27.OR.MELE.EQ.28.OR.MELE.EQ.45
  517. + .OR.MELE.EQ.93) THEN
  518. CALL FPCO3D(IVAPRE,IPMAIL,IVAFOR)
  519. ELSE IF (MELE.EQ.44) THEN
  520. CALL FPCO2D(IVAPRE,IPMAIL,IVAFOR,IVACAR)
  521. ELSE IF (MELE.EQ.49) THEN
  522. IPT1 = IPMAIL
  523. SEGACT, IPT1
  524. CALL FPCOQ4(IVAPRE,IPMAIL,IPMINT,IVAFOR)
  525. ELSE IF (MELE.EQ.41.OR.MELE.EQ.56) THEN
  526. IPT1 = IPMAIL
  527. SEGACT, IPT1
  528. CALL FPCOQ8(IVAPRE,IPMAIL,IPMINT,IVACAR,IPMIN1,IVAFOR)
  529. ENDIF
  530. ELSE
  531. C ERREUR, ELEMENT NON IMPLEMENTE
  532. MOTERR(1:4)=NOMTP(MELE)
  533. MOTERR(5:12)='FEQPR '
  534. CALL ERREUR(86)
  535. GOTO 9990
  536. ENDIF
  537. C
  538. ELSE IF (MFR2.EQ.13) THEN
  539. C
  540. C - ELEMENTS TUYAU
  541. C
  542. CALL FPELTU(IVAPRE,IVACAR,IPMAIL,I,IVAFOR)
  543. C
  544. C - SINON TENTATIVE D'UTILISATION D'UNE OPTION NON IMPLEMENTEE
  545. C
  546. ELSE
  547. CALL ERREUR(251)
  548. GOTO 9990
  549. ENDIF
  550. C
  551. C DESACTIVATION AVANT DE PASSER A LA SOUS ZONE SUIVANTE
  552. C
  553. C
  554. IF(ISUP1.EQ.1)THEN
  555. CALL DTMVAL(IVASTR,3)
  556. ELSE
  557. CALL DTMVAL(IVASTR,1)
  558. ENDIF
  559. C
  560. CALL DTMVAL(IVAFOR,1)
  561. C
  562. IF(ISUP2.EQ.1)THEN
  563. CALL DTMVAL(IVAMAT,3)
  564. CALL DTMVAL(IVACAR,3)
  565. ELSE
  566. CALL DTMVAL(IVAMAT,1)
  567. CALL DTMVAL(IVACAR,1)
  568. ENDIF
  569. C
  570. IF (IERR.NE.0) GO TO 9990
  571. C
  572. C=======================================================================
  573. C
  574. C FIN DE BOUCLE SUR LES MODELES ELEMENTAIRES
  575. C
  576. C=======================================================================
  577. 200 CONTINUE
  578. C_______________________________________________________________________
  579. C
  580. C TRANSFORMATION DU CHAMELEM EN CHPOINT
  581. C_______________________________________________________________________
  582. C
  583. CALL CHAMPO(IPCHE5,0,IPCHP4,IRETOU)
  584. CALL DTCHAM(IPCHE5)
  585. IF (IRETOU.EQ.0) GOTO 9000
  586. C
  587. C FIN NORMALE
  588. C
  589. IRET = 1
  590. GOTO 9000
  591. C_______________________________________________________________________
  592. C
  593. C ERREUR DANS UNE SOUS ZONE, DESACTIVATION ET RETOUR
  594. C_______________________________________________________________________
  595. C
  596. 9990 CONTINUE
  597. IF (MCHAML.NE.0) SEGSUP, MCHAML
  598. CALL DTMVAL(IVAFOR,3)
  599. C
  600. 9991 CONTINUE
  601. C
  602. 9992 CONTINUE
  603. IF (MCHELM.NE.0) SEGSUP, MCHELM
  604. IRET = 0
  605. C_______________________________________________________________________
  606. C
  607. C DERNIERES DESACTIVATION AVANT DE QUITTER
  608. C_______________________________________________________________________
  609. C
  610. 9000 CONTINUE
  611. END
  612.  
  613.  
  614.  

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