Télécharger feqpr.eso

Retour à la liste

Numérotation des lignes :

  1. C FEQPR SOURCE CB215821 18/09/27 21:15:15 9936
  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. C SEGDES,IMODE1
  90. ENDDO
  91. N1 = N1 + 1
  92. 10 CONTINUE
  93. ENDDO
  94. C
  95. C CREATION DU MMODEL
  96. C
  97. J = 0
  98. SEGINI,MMODE1
  99. DO i = 1,NSOUS
  100. IF (LIMODL(I).GT.0) THEN
  101. j = j + 1
  102. MMODE1.KMODEL(J) = LIMODL(I)
  103. ENDIF
  104. ENDDO
  105. IPMOD0 = MMODE1
  106. C SEGDES, 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. C SEGDES, NOMID
  292. IF (IERR.NE.0) GOTO 9991
  293. C
  294. IF (ISUP1.EQ.1) THEN
  295. NSTRS = 1
  296. CALL VALCHE(IVASTR,NSTRS,IPMINT,IPPORE,MOSTRS,MELE)
  297. ENDIF
  298. ELSE
  299. MOMATR=LNOMID(6)
  300. NOMID=MOMATR
  301. SEGACT, NOMID
  302. NMATR=LESOBL(/2)
  303. NMATF=LESFAC(/2)
  304. C
  305. NBTYPE=1
  306. SEGINI, NOTYPE
  307. TYPE(1)='REAL*8'
  308. MOTYPE=NOTYPE
  309. C
  310. C VERIFICATION DE LEUR PRESENCE
  311. C
  312. CALL KOMCHA(IPCHE2,IPMAIL,CONM,MOMATR,MOTYPE,1,INFOS,3,IVAMAT)
  313. SEGSUP, NOTYPE
  314. C SEGDES, NOMID
  315. IF (IERR.NE.0) GOTO 9991
  316. C
  317. IF (ISUP2.EQ.1) THEN
  318. CALL VALCHE(IVAMAT,NMATR,IPMINT,IPPORE,MOMATR,MELE)
  319. ENDIF
  320. ENDIF
  321. C_______________________________________________________________________
  322. C
  323. C NOMS DE COMPOSANTES DE FORCES ET CREATION DU MCHAML DE FORCE
  324. C (CE MCHAML SERA TRANSFORME EN FIN DE SUBROUTINE EN CHPOINT)
  325. C_______________________________________________________________________
  326. C
  327. MOFORC = LNOMID(2)
  328. NOMID=MOFORC
  329. SEGACT, NOMID
  330. NFORC=LESOBL(/2)
  331. NFACF=LESFAC(/2)
  332. C
  333. N2=NFORC
  334. SEGINI, MCHAML
  335. ICHAML(ISOUS)=MCHAML
  336. C
  337. DO 110 ICOMP=1,NFORC
  338. NOMCHE(ICOMP)=LESOBL(ICOMP)
  339. TYPCHE(ICOMP)='REAL*8'
  340. 110 CONTINUE
  341. C
  342. IF (NFACF.NE.0) THEN
  343. IFAC = 0
  344. DO 111 ICOMP=(NFORC+1),N2
  345. IFAC = IFAC + 1
  346. NOMCHE(ICOMP)=LESFAC(IFAC)
  347. TYPCHE(ICOMP)='REAL*8'
  348. 111 CONTINUE
  349. ENDIF
  350. C
  351. C SEGDES, NOMID
  352. C
  353. C TAILLES DE MELVAL
  354. C
  355. N1EL=NBELEM
  356. N1PTEL=NBNN
  357. NBPTEL=NBPGAU
  358. NEL =N1EL
  359. C
  360. C CREATION DU MELVAL DE FORCES
  361. C
  362. NS=1
  363. NCOSOU=NFORC+NFACF
  364. SEGINI, MPTVAL
  365. IVAFOR=MPTVAL
  366. DO 100 ICOMP=1,NCOSOU
  367. N2PTEL=0
  368. N2EL=0
  369. SEGINI, MELVAL
  370. IELVAL(ICOMP)=MELVAL
  371. IVAL(ICOMP)=MELVAL
  372. 100 CONTINUE
  373. C_______________________________________________________________________
  374. C
  375. C NOMS DE COMPOSANTES DE CARACTERISTIQUES (FACULTATIF)
  376. C_______________________________________________________________________
  377. C
  378. NBROBL=0
  379. NBRFAC=0
  380. NOMID=0
  381. IVECT=0
  382. C
  383. C EPAISSEUR DANS LE CAS MASSIF EN CONTRAINTES PLANES
  384. C
  385. IF(MFR.EQ.72.AND.IFOUR.EQ.-2)THEN
  386. C
  387. NBRFAC=1
  388. SEGINI, NOMID
  389. LESFAC(1)='DIM3'
  390. C
  391. NBTYPE=1
  392. SEGINI, NOTYPE
  393. TYPE(1)='REAL*8'
  394. C
  395. C EPAISSEUR DANS LE CAS DES COQUES 2D COQ2
  396. C
  397. ELSEIF(MFR.EQ.74.AND.MELE.EQ.44.AND.IFOUR.EQ.-2)THEN
  398. C
  399. NBRFAC=1
  400. SEGINI, NOMID
  401. LESFAC(1)='DIM3'
  402. C
  403. NBTYPE=1
  404. SEGINI, NOTYPE
  405. TYPE(1)='REAL*8'
  406. C
  407. C EPAISSEUR DANS LE CAS DES COQUES EPAISSES
  408. C
  409. ELSEIF (MFR.EQ.74.AND.MFR2.EQ.5) THEN
  410. NBROBL=1
  411. NBRFAC=0
  412. SEGINI, NOMID
  413. LESOBL(1)='EPAI'
  414. C
  415. NBTYPE=1
  416. SEGINI, NOTYPE
  417. TYPE(1)='REAL*8'
  418. C
  419. C EPAISSEUR ET RAYON EXTERNE DANS LE CAS DES TUYAUX
  420. C
  421. ELSEIF (MFR.EQ.74.AND.MFR2.EQ.13) THEN
  422. NBROBL=2
  423. NBRFAC=2
  424. SEGINI, NOMID
  425. LESOBL(1)='EPAI'
  426. LESOBL(2)='RAYO'
  427. LESFAC(1)='RACO'
  428. LESFAC(2)='VECT'
  429. C
  430. NBTYPE=4
  431. SEGINI, NOTYPE
  432. TYPE(1)='REAL*8'
  433. TYPE(2)='REAL*8'
  434. TYPE(3)='REAL*8'
  435. TYPE(4)='POINTEURPOINT '
  436. C
  437. ENDIF
  438. MOCARA=NOMID
  439. MOTYPE=NOTYPE
  440. C
  441. NCARA=NBROBL
  442. NCARF=NBRFAC
  443. NCARR=NCARA+NCARF
  444. C
  445. IF (IPCHE2.NE.0) THEN
  446. IF (MOCARA.NE.0) THEN
  447. CALL KOMCHA(IPCHE2,IPMAIL,CONM,MOCARA,MOTYPE,1,INFOS,3,
  448. + IVACAR)
  449. SEGSUP, NOTYPE
  450. SEGSUP, NOMID
  451. IF (IERR.NE.0) GOTO 9990
  452. IF (ISUP2.EQ.1) THEN
  453. CALL VALCHE(IVACAR,NCARR,IPMINT,IPPORE,MOCARA,MELE)
  454. IF (IERR.NE.0)THEN
  455. ISUP2=0
  456. GOTO 9990
  457. ENDIF
  458. ENDIF
  459. ELSE
  460. SEGSUP, NOTYPE
  461. SEGSUP, NOMID
  462. ENDIF
  463. ELSE IF (NCARA.GT.0) THEN
  464. SEGSUP, NOTYPE
  465. SEGSUP, NOMID
  466. MOTERR(1:8)='CARACTER'
  467. MOTERR(9:12)=NOMTP(MELE)
  468. MOTERR(13:20)='FEQPR'
  469. CALL ERREUR(145)
  470. GOTO 9990
  471. ENDIF
  472. C_______________________________________________________________________
  473. C
  474. C CALCUL DES FORCES EQUIVALENTES
  475. C_______________________________________________________________________
  476. C
  477. IF (IPCHE1.NE.0) THEN
  478. MPTVAL=IVASTR
  479. ELSE
  480. MPTVAL=IVAMAT
  481. ENDIF
  482. IVAPRE = IVAL(1)
  483. C
  484. C - ELEMENTS DE FORMULATION MASSIF
  485. C
  486. IF (MFR2.EQ.1) THEN
  487. XP=0.D0
  488. IF (MELE.EQ.2.OR.MELE.EQ.3.OR.MELE.EQ.79.OR.MELE.EQ.80) THEN
  489. CALL FPMA2D(IVAPRE,IPMAIL,IPMINT,IVAFOR,IVACAR,XP)
  490. ELSE IF(MELE.EQ.4.OR.MELE.EQ.6.OR.MELE.EQ.8.OR.
  491. + MELE.EQ.10.OR.MELE.EQ.81.OR.MELE.EQ.82.OR.
  492. + MELE.EQ.83) THEN
  493. IF (IDIM.EQ.3) THEN
  494. CALL FPMA3D(IVAPRE,IPMAIL,IPMINT,IVAFOR,XP)
  495. ELSE
  496. C ERREUR, APPLICATION PRESSION SUR SURFACE DANS UN PB 2D
  497. CALL ERREUR(820)
  498. GOTO 9990
  499. ENDIF
  500. ELSE IF (MELE.EQ.45) THEN
  501. CALL FPMA1D(IVAPRE,IPMAIL,IPMINT,IVAFOR,XP)
  502. ELSE
  503. C ERREUR, ELEMENT NON IMPLEMENTE
  504. MOTERR(1:4)=NOMTP(MELE)
  505. MOTERR(5:12)='FEQPR '
  506. CALL ERREUR(86)
  507. GOTO 9990
  508. ENDIF
  509. C
  510. C - ELEMENTS DE FORMULATION COQUES
  511. C
  512. ELSE IF (MFR2.EQ.3.OR.MFR2.EQ.5.OR.MFR2.EQ.9) THEN
  513. C
  514. IF (MELE.EQ.27.OR.MELE.EQ.28.OR.MELE.EQ.45.OR.
  515. + MELE.EQ.93.OR.MELE.EQ.44.OR.MELE.EQ.49.OR.
  516. + MELE.EQ.41.OR.MELE.EQ.56) THEN
  517. C VERIFICATION DE L ORIENTATION DU IPMAIL
  518. CALL ECROBJ('MAILLAGE',IPMAIL)
  519. CALL VERSEN
  520. CALL LIROBJ('MAILLAGE',IPMAIL,1,IRETOU)
  521. IF (IERR.NE.0) GOTO 9990
  522. IF (MELE.EQ.27.OR.MELE.EQ.28.OR.MELE.EQ.45
  523. + .OR.MELE.EQ.93) THEN
  524. CALL FPCO3D(IVAPRE,IPMAIL,IVAFOR)
  525. ELSE IF (MELE.EQ.44) THEN
  526. CALL FPCO2D(IVAPRE,IPMAIL,IVAFOR,IVACAR)
  527. ELSE IF (MELE.EQ.49) THEN
  528. IPT1 = IPMAIL
  529. SEGACT, IPT1
  530. CALL FPCOQ4(IVAPRE,IPMAIL,IPMINT,IVAFOR)
  531. C SEGDES, IPT1
  532. ELSE IF (MELE.EQ.41.OR.MELE.EQ.56) THEN
  533. IPT1 = IPMAIL
  534. SEGACT, IPT1
  535. CALL FPCOQ8(IVAPRE,IPMAIL,IPMINT,IVACAR,IPMIN1,IVAFOR)
  536. C SEGDES, IPT1
  537. ENDIF
  538. ELSE
  539. C ERREUR, ELEMENT NON IMPLEMENTE
  540. MOTERR(1:4)=NOMTP(MELE)
  541. MOTERR(5:12)='FEQPR '
  542. CALL ERREUR(86)
  543. GOTO 9990
  544. ENDIF
  545. C
  546. ELSE IF (MFR2.EQ.13) THEN
  547. C
  548. C - ELEMENTS TUYAU
  549. C
  550. CALL FPELTU(IVAPRE,IVACAR,IPMAIL,I,IVAFOR)
  551. C
  552. C - SINON TENTATIVE D'UTILISATION D'UNE OPTION NON IMPLEMENTEE
  553. C
  554. ELSE
  555. CALL ERREUR(251)
  556. GOTO 9990
  557. ENDIF
  558. C
  559. C DESACTIVATION AVANT DE PASSER A LA SOUS ZONE SUIVANTE
  560. C
  561. C SEGDES, MELEME
  562. SEGDES, MINTE
  563. C
  564. IF(ISUP1.EQ.1)THEN
  565. CALL DTMVAL(IVASTR,3)
  566. ELSE
  567. CALL DTMVAL(IVASTR,1)
  568. ENDIF
  569. C
  570. CALL DTMVAL(IVAFOR,1)
  571. C
  572. IF(ISUP2.EQ.1)THEN
  573. CALL DTMVAL(IVAMAT,3)
  574. CALL DTMVAL(IVACAR,3)
  575. ELSE
  576. CALL DTMVAL(IVAMAT,1)
  577. CALL DTMVAL(IVACAR,1)
  578. ENDIF
  579. C
  580. IF (IERR.NE.0) GO TO 9990
  581. C
  582. C=======================================================================
  583. C
  584. C FIN DE BOUCLE SUR LES MODELES ELEMENTAIRES
  585. C
  586. C=======================================================================
  587. 200 CONTINUE
  588. C_______________________________________________________________________
  589. C
  590. C TRANSFORMATION DU CHAMELEM EN CHPOINT
  591. C_______________________________________________________________________
  592. C
  593. CALL CHAMPO(IPCHE5,0,IPCHP4,IRETOU)
  594. CALL DTCHAM(IPCHE5)
  595. IF (IRETOU.EQ.0) GOTO 9000
  596. C
  597. C FIN NORMALE
  598. C
  599. IRET = 1
  600. GOTO 9000
  601. C_______________________________________________________________________
  602. C
  603. C ERREUR DANS UNE SOUS ZONE, DESACTIVATION ET RETOUR
  604. C_______________________________________________________________________
  605. C
  606. 9990 CONTINUE
  607. IF (MCHAML.NE.0) SEGSUP, MCHAML
  608. CALL DTMVAL(IVAFOR,3)
  609. C
  610. 9991 CONTINUE
  611. SEGDES, MINTE
  612. C
  613. 9992 CONTINUE
  614. IF (MCHELM.NE.0) SEGSUP, MCHELM
  615. C SEGDES, MELEME
  616. IRET = 0
  617. C_______________________________________________________________________
  618. C
  619. C DERNIERES DESACTIVATION AVANT DE QUITTER
  620. C_______________________________________________________________________
  621. C
  622. 9000 CONTINUE
  623. END
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  

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