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

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