Télécharger fsurma.eso

Retour à la liste

Numérotation des lignes :

  1. C FSURMA SOURCE CB215821 16/04/15 21:15:27 8907
  2.  
  3. SUBROUTINE FSURMA(IPMODL,IPCHPS,IPVECT,JPMAIL,IPCARA, IPFTP)
  4.  
  5. C_______________________________________________________________________
  6. C
  7. C CALCULE LES FORCES SURFACIQUES APPLIQUEES SUR DES MASSIFS
  8. C
  9. C ENTREES :
  10. C ---------
  11. C
  12. C IPMODL OBJET MODELE SUR LEQUEL S APPLIQUE LA FORCE
  13. C IPCHPS CHPOINT CONTENANT LES VALEURS DES FORCES AUX NOEUDS
  14. C DE LA FACE D UN MASSIF, SINON 0 (ET IPVECT NON NUL)
  15. C IPVECT VECTEUR REPRESENTANT LA FORCE (=0 SI IPCHPS NON NUL)
  16. C JPMAIL POINTEUR SUR LE MAILLAGE SI ON A LU UN VECTEUR IPVECT
  17. C SINON 0 (IPCHPS NON NUL)
  18. C IPCARA MCHAML CONTENANT LES CARACTERISTIQUES UTILES
  19. C
  20. C SORTIES :
  21. C ----------
  22. C
  23. C IPFTP = CHPOINT DES FORCES NODALES EQUIVALENTES
  24. C 0 EN CAS D'ERREUR (IERR peut alors etre non nulle)
  25. C
  26. C_______________________________________________________________________
  27. C
  28. IMPLICIT INTEGER(I-N)
  29. IMPLICIT REAL*8(A-H,O-Z)
  30. C
  31. -INC CCOPTIO
  32. -INC CCHAMP
  33. C
  34. -INC SMCHAML
  35. -INC SMCHPOI
  36. -INC SMCOORD
  37. -INC SMELEME
  38. -INC SMINTE
  39. -INC SMMODEL
  40. C
  41. SEGMENT INFO
  42. integer INFELL(JG)
  43. ENDSEGMENT
  44. SEGMENT NOTYPE
  45. CHARACTER*16 TYPE(NBTYPE)
  46. ENDSEGMENT
  47. C
  48. SEGMENT MPTVAL
  49. INTEGER IPOS(NS) ,NSOF(NS)
  50. INTEGER IVAL(NCOSOU)
  51. CHARACTER*16 TYVAL(NCOSOU)
  52. ENDSEGMENT
  53. C
  54. DIMENSION VEC(3),IPT(3)
  55. CHARACTER*4 mfors(3)
  56. CHARACTER*4 MOSTRI,MOAPPU,MOGEOM
  57. CHARACTER*8 MOT
  58. CHARACTER*(NCONCH) CONM
  59. PARAMETER (NINF=3)
  60. DIMENSION INFOS(NINF)
  61. C
  62. PARAMETER (INTYPC = 3)
  63. C
  64. LOGICAL ltelq,lsupfo
  65. C
  66. DATA MOAPPU /'APPU'/, MOSTRI /'STRI'/, MOGEOM /'GEOM'/
  67. DATA MOT/'FORCES'/
  68.  
  69. C= LEFMAS Liste des numeros d'elements finis faces de MASSIFs
  70. C= NEFMAS Longueur de cette liste
  71. PARAMETER ( NEFMAS = 6 )
  72. DIMENSION LEFMAS(NEFMAS)
  73. C ============
  74. C Elements MASSIFs SEG2 SEG3 TRI3 QUA4 TRI6 QUA8
  75. DATA LEFMAS / 2, 3, 31, 32, 33, 34 /
  76. *
  77. * 0) QUELQUES INITIALISATIONS
  78. *
  79. IPFTP = 0
  80. MFR = 0
  81. NHRM = NIFOUR
  82. C= Composantes du CHPOINT IPCHPS a retenir (si besoin)
  83. IF (IFOMOD.EQ.2) THEN
  84. nfors = 3
  85. mfors(1) = 'FX '
  86. mfors(2) = 'FY '
  87. mfors(3) = 'FZ '
  88. ELSE IF (IFOMOD.EQ.-1) THEN
  89. nfors = 2
  90. mfors(1) = 'FX '
  91. mfors(2) = 'FY '
  92. mfors(3) = ' '
  93. ELSE IF (IFOMOD.EQ.0) THEN
  94. nfors = 2
  95. mfors(1) = 'FR '
  96. mfors(2) = 'FZ '
  97. mfors(3) = ' '
  98. ELSE IF (IFOMOD.EQ.1) THEN
  99. nfors = 3
  100. mfors(1) = 'FR '
  101. mfors(2) = 'FZ '
  102. mfors(3) = 'FT '
  103. ELSE
  104. CALL ERREUR(21)
  105. RETURN
  106. ENDIF
  107. C Cas des modes de calculs en DEFORMATIONS GENERALISEES
  108. IF (IFOUR.EQ.-3) THEN
  109. NDPGE = 3
  110. ELSE IF (IFOUR.EQ.11) THEN
  111. NDPGE = 2
  112. ELSE IF (IFOUR.EQ. 7.OR.IFOUR.EQ. 8.OR.IFOUR.EQ. 9.OR.
  113. & IFOUR.EQ.10.OR.IFOUR.EQ.14) THEN
  114. NDPGE = 1
  115. ELSE
  116. NDPGE = 0
  117. ENDIF
  118. *
  119. * ON RECUPERE LES COORDONNEES DU VECTEUR FORCE CONSTANT SI DONNE
  120. * TEST SI LE VECTEUR N'EST PAS NUL
  121. *
  122. IF (IPVECT.NE.0) THEN
  123. IREF = (IPVECT-1)*(IDIM+1)
  124. VEC(1) = XCOOR(IREF+1)
  125. VEC(2) = XCOOR(IREF+2)
  126. VECN = VEC(1)**2 + VEC(2)**2
  127. IF (IDIM.EQ.3) THEN
  128. VEC(3) = XCOOR(IREF+3)
  129. VECN = VECN + VEC(3)**2
  130. ENDIF
  131. C* VECN = SQRT(VECN)
  132. IF (VECN.LE.0.D0) THEN
  133. CALL ERREUR(277)
  134. RETURN
  135. ENDIF
  136. ELSE
  137. VEC(1) = 0.D0
  138. VEC(2) = 0.D0
  139. VEC(3) = 0.D0
  140. ENDIF
  141. C
  142. C ON CREE L OBJET GEOMETRIQUE CONTENANT TOUS LES PTS DU CHPOINT DE
  143. C FORCES IPCHPS S'IL EST FOURNI SINON ON SE SERVIRA DE JPMAIL
  144. C CE MAILLAGE SERA POINTE PAR LA VARIABLE IGEOM DANS LA SUITE
  145. C
  146. IF (JPMAIL.EQ.0) THEN
  147. IGEOM = 0
  148. ltelq = .false.
  149. MCHPOI = IPCHPS
  150. SEGACT,MCHPOI
  151. DO i = 1,IPCHP(/1)
  152. MSOUPO = IPCHP(i)
  153. SEGACT,MSOUPO
  154. NC = NOCOMP(/2)
  155. DO j = 1, NC
  156. CALL PLACE(mfors,nfors,imo,NOCOMP(j))
  157. IF (imo.NE.0) THEN
  158. IF (IGEOM.EQ.0) THEN
  159. IGEOM = IGEOC
  160. ELSE
  161. IPP2 = IGEOC
  162. CALL FUSE(IGEOM,IPP2,IPPT,ltelq)
  163. IF (IERR.NE.0) RETURN
  164. IGEOM = IPPT
  165. ENDIF
  166. GOTO 10
  167. ENDIF
  168. ENDDO
  169. 10 CONTINUE
  170. SEGDES,MSOUPO
  171. ENDDO
  172. SEGDES,MCHPOI
  173. IF (IGEOM.EQ.0) THEN
  174. CALL ERREUR(21)
  175. RETURN
  176. ENDIF
  177. ELSE
  178. IGEOM = JPMAIL
  179. ENDIF
  180. C
  181. C PRE-TRAITEMENT DU CHAMP DE CARACTERISTIQUES SI NECESSAIRE
  182. C - VERIFICATION DU LIEU SUPPORT DU MCHAML DE CARACTERISTIQUES
  183. C - DEFINITION DE SEGMENTS UTILES
  184. C
  185. ISUPCA = 0
  186. MOCARA = 0
  187. MOTYPC = 0
  188. NCARA = 0
  189. NCARF = 0
  190. C
  191. IF (IFOUR.EQ.-2) THEN
  192. IF (IPCARA.NE.0) THEN
  193. C
  194. CALL QUESUP(IPMODL,IPCARA,INTYPC,1,ISUPCA,iret)
  195. IF (IERR.NE.0 .OR. ISUPCA.GT.1) RETURN
  196. C
  197. NBROBL = 0
  198. NBRFAC = 1
  199. SEGINI,NOMID
  200. LESFAC(1) = 'DIM3'
  201. MOCARA = NOMID
  202. C
  203. NBTYPE = 1
  204. SEGINI,NOTYPE
  205. TYPE(1) = 'REAL*8'
  206. MOTYPC = NOTYPE
  207. C
  208. NCARA = NBROBL
  209. NCARF = NBRFAC
  210. ENDIF
  211. ENDIF
  212. C
  213. NCARR = NCARA + NCARF
  214. C
  215. C PRE-TRAITEMENT DES DONNEES :
  216. C - PETIT MODELE UTILE ASSOCIE A LA SURFACE ELEMENTAIRE TRAITEE
  217. C LE IMODEL EST MODIFIE PAR AJUSTEMENT DES QUE NECESSAIRE
  218. C
  219. N1 = 1
  220. SEGINI,MMODE1
  221. IPMOD1 = MMODE1
  222. NFOR = 0
  223. NMAT = 0
  224. MN3 = 0
  225. NOBMOD = 0
  226. SEGINI,IMODE1
  227. IMODE1.CMATEE = 'ISOTROPE'
  228. MMODE1.KMODEL(1) = IMODE1
  229. C
  230. C------------------------------------------- BOUCLE sur les SOUS-MODELES
  231. C
  232. MMODEL = IPMODL
  233. SEGACT,MMODEL
  234. NSOUS = KMODEL(/1)
  235. IRRT = 0
  236. C
  237. DO 100 ISOUS = 1, NSOUS
  238. C
  239. C ... ON RECUPERE L INFORMATION GENERALE
  240. C
  241. IMODEL = KMODEL(ISOUS)
  242. SEGACT,IMODEL
  243. C
  244. C TRAITEMENT DU SOUS-MODELE
  245. C
  246. IPMAIL= IMAMOD
  247. MELM = NEFMOD
  248. CONM = CONMOD
  249. C
  250. IF (MELM.EQ.22) GOTO 101
  251. C
  252. IVACAR = 0
  253. IVAFOR = 0
  254. lsupfo = .FALSE.
  255. IPTINT = 0
  256. C
  257. C ... ON RECUPERE L'"ENVELOPPE" DU MAILLAGE MASSIF DU SOUS-MODELE
  258. C
  259. CALL ECROBJ('MAILLAGE',IPMAIL)
  260. IF (IDIM.EQ.3) THEN
  261. CALL ENVELO
  262. ELSE IF (IDIM.EQ.2) THEN
  263. CALL PRCONT
  264. c* ELSE IF (IDIM.EQ.1) THEN
  265. ELSE
  266. CALL PREX1D
  267. ENDIF
  268. IF (IERR.NE.0) GOTO 101
  269. CALL LIROBJ('MAILLAGE',ienvel,1,iret)
  270. IF (IERR.NE.0) GOTO 101
  271. C
  272. C ... SI le CHPOINT de force IPCHPS a ete donne, on cherche la partie de
  273. C l'"enveloppe" s'appuyant strictement sur le support du CHPOINT.
  274. C ... SINON on cherche l'intersection entre l'enveloppe et JPMAIL=IGEOM.
  275. C
  276. IF (JPMAIL.EQ.0) THEN
  277. CALL ECROBJ('MAILLAGE',IGEOM)
  278. CALL ECRCHA(MOSTRI)
  279. CALL ECRCHA(MOAPPU)
  280. CALL ECROBJ('MAILLAGE',ienvel)
  281. CALL EXTREL(irr,0,iret)
  282. ELSE
  283. CALL INTERB(ienvel,IGEOM,irr,IPT3)
  284. ENDIF
  285. C
  286. C ... ON N'A PAS TROUVE D'ELEMENTS COMMUNS A IGEOM ET A IPMAIL
  287. C (IPMAIL = "ENVELOPPE" DU MAILLAGE DU SOUS-MODELE IMODEL)
  288. C
  289. IF (irr.GT.0) GOTO 101
  290. C
  291. C ... On recupere les elements communs a IGEOM et IPMAIL -> IPT3 !
  292. C
  293. IF (JPMAIL.EQ.0) THEN
  294. CALL LIROBJ('MAILLAGE',IPT3,1,iret)
  295. IF (IERR.NE.0) GOTO 101
  296. ENDIF
  297. C
  298. C RECHERCHE DES NOMS DE COMPOSANTES
  299. C
  300. IF (lnomid(2).NE.0) THEN
  301. MOFORC = lnomid(2)
  302. ELSE
  303. lsupfo = .TRUE.
  304. CALL IDFORC(MFR,IFOUR,MOFORC,NFORC,NFORF)
  305. endif
  306. nomid=MOFORC
  307. SEGACT,nomid
  308. NFORC = lesobl(/2)
  309. NFORF = 0
  310. NCOMP = NFORC - NDPGE
  311. C
  312. C Mise a jour de IMODE1 avec les donnees necessaires de IMODEL
  313. C
  314. NFOR = FORMOD(/2)
  315. NMAT = MATMOD(/2)
  316. SEGADJ,IMODE1
  317. IMODE1.CONMOD = CONM
  318. DO i = 1, NFOR
  319. IMODE1.FORMOD(i) = FORMOD(i)
  320. ENDDO
  321. DO i = 1, NMAT
  322. IMODE1.MATMOD(i) = MATMOD(i)
  323. ENDDO
  324. C
  325. C ON DETERMINE LA FORMULATION ASSOCIEE A L OBJET
  326. C GEOMETRIQUE ELEMENTAIRE DE SURFACE
  327. C
  328. SEGACT,IPT3
  329. MJB = IPT3.LISOUS(/1)
  330. IPT2 = IPT3
  331. C
  332. C BOUCLE SUR LES SOUS-ZONES DE LA PARTIE COMMUNE
  333. C
  334. DO 110 IB = 1,MAX(1,MJB)
  335. IRRT = IRRT + 1
  336. IF (MJB.NE.0) THEN
  337. IPT2 = IPT3.LISOUS(IB)
  338. SEGACT,IPT2
  339. ENDIF
  340. IPOGEO = IPT2
  341. NBEL = IPT2.NUM(/2)
  342. NBNN = IPT2.NUM(/1)
  343. LETYP = IPT2.ITYPEL
  344. *
  345. * PETIT TEST SUR LE TYPE
  346. *
  347. IF (LETYP.EQ.1 .AND. IDIM.NE.1) THEN
  348. CALL ERREUR(16)
  349. GOTO 102
  350. ENDIF
  351. *
  352. CALL TYPFAC(MELM,NBNN,MELE)
  353. C
  354. C ERREUR : IMPOSSIBLE D UTILISER L OPERATEUR FSUR POUR
  355. C LES ELEMENTS DE FORMULATION MELM
  356. C
  357. IF (MELE.EQ.0) THEN
  358. MOTERR(1:8) = NOMTP(MELM)
  359. CALL ERREUR(193)
  360. GOTO 102
  361. ENDIF
  362. * ERREUR L ELEMENT N EST PAS ENCORE IMPLEMENTE
  363. imo = 0
  364. CALL PLACE2(LEFMAS,NEFMAS,imo,MELE)
  365. IF (imo.EQ.0) THEN
  366. MOTERR(1:4) = NOMTP(MELE)
  367. MOTERR(5:12)='FSURMA '
  368. CALL ERREUR(86)
  369. GOTO 102
  370. ENDIF
  371. C
  372. C ON CREE L OBJET MODEL ASSOCIE A LA SURFACE ELEMENTAIRE
  373. C
  374. SEGACT,IMODE1*MOD
  375. IMODE1.IMAMOD=IPOGEO
  376. IMODE1.NEFMOD=MELE
  377. C
  378. C INFORMATION SUR L'ELEMENT FINI
  379. C
  380. CALL ELQUOI(MELE,0,INTYPC,IPINF,IMODE1)
  381. IF (IERR.NE.0) GOTO 102
  382. INFO = IPINF
  383. IPTINT=INFELL(11)
  384. MFR =INFELL(13)
  385. IPPORE=0
  386. IF (MFR.EQ.33) IPPORE=NBNN
  387. SEGSUP,INFO
  388. C
  389. MINTE=IPTINT
  390. IF (IPTINT.NE.0) SEGACT,MINTE
  391. *
  392. * ON TRANSFORME LE CHPOINT DE VECTEUR EN MCHAML
  393. *
  394. IPCHMS = 0
  395. IPT(1) = 0
  396. IPT(2) = 0
  397. IPT(3) = 0
  398. IF (IPCHPS.NE.0) THEN
  399. c* IF (IPVECT.EQ.0) THEN <- Test equivalent
  400. CALL CHAME1(0,IPMOD1,IPCHPS,' ',IPCHMS,1)
  401. IF (IERR.NE.0) GOTO 102
  402. MCHEL1 = IPCHMS
  403. SEGACT,MCHEL1
  404. * On ne doit avoir qu'une zone !
  405. IF (MCHEL1.ICHAML(/1).NE.1) THEN
  406. WRITE(IOIMP,*) 'Contacter le support (FSURMA 402)'
  407. CALL ERREUR(21)
  408. GOTO 102
  409. ENDIF
  410. MCHAM1 = MCHEL1.ICHAML(1)
  411. SEGACT,MCHAM1
  412. DO 15 i = 1, MCHAM1.NOMCHE(/2)
  413. CALL PLACE(mfors,nfors,imo,MCHAM1.NOMCHE(i))
  414. IF (imo.NE.0) THEN
  415. IPT(imo) = MCHAM1.IELVAL(i)
  416. c* segment active et desactive dans FSMA.D (ci-dessous)
  417. c* MELVA1 = IPT(imo)
  418. c* SEGACT,MELVA1
  419. ENDIF
  420. 15 CONTINUE
  421. SEGDES,MCHAM1,MCHEL1
  422. ENDIF
  423. C
  424. C INITIALISATION DU CHELEM ELEMENTAIRE DES FORCES NODALES
  425. C
  426. N1=1
  427. L1=6
  428. N3=5
  429. SEGINI MCHELM
  430. TITCHE='FORCES'
  431. IFOCHE=IFOUR
  432. IPCHEL=MCHELM
  433. C
  434. IMACHE(1)=IPOGEO
  435. INFCHE(1,1)=0
  436. INFCHE(1,2)=0
  437. INFCHE(1,3)=NHRM
  438. INFCHE(1,4)=IPTINT
  439. INFCHE(1,5)=0
  440. C
  441. C RECHERCHE DE LA TAILLE DES MELVALS
  442. C
  443. N1PTEL=NBNN
  444. N1EL =NBEL
  445. N2PTEL=0
  446. N2EL =0
  447. C
  448. C CREATION DU MCHAML DE LA SOUS ZONE
  449. C
  450. N2 = NCOMP
  451. SEGINI,MCHAML
  452. ICHAML(1)=MCHAML
  453. NS=1
  454. NCOSOU = NCOMP
  455. SEGINI,MPTVAL
  456. IVAFOR=MPTVAL
  457. NOMID=MOFORC
  458. DO ICOMP=1,NCOMP
  459. NOMCHE(ICOMP)=LESOBL(ICOMP)
  460. TYPCHE(ICOMP)='REAL*8'
  461. SEGINI,MELVAL
  462. IELVAL(ICOMP)=MELVAL
  463. IVAL(ICOMP)=MELVAL
  464. ENDDO
  465. *
  466. *____________________________________________________________________
  467. *
  468. * TRAITEMENT DU CHAMP DE CARACTERISTIQUES
  469. *____________________________________________________________________
  470. *
  471. IF (MOCARA.NE.0) THEN
  472. *
  473. * CREATION DU TABLEAU INFOS
  474. *
  475. CALL IDENT (IPMAIL,CONM,IPCARA,0,INFOS,IRTD)
  476. IF (IRTD.EQ.0) THEN
  477. SEGSUP MCHELM
  478. RETURN
  479. ENDIF
  480. *
  481. CALL KOMCHA(IPCARA,IPMAIL,CONM,MOCARA,MOTYPC,0,
  482. & INFOS,3,IVACAR)
  483. IF (IERR.NE.0) GOTO 9100
  484. *
  485. IF (ISUPCA.EQ.1) THEN
  486. CALL VALCHE(IVACAR,NCARR,IPTINT,IPPORE,MOCARA,MELE)
  487. ENDIF
  488. *
  489. ENDIF
  490. C
  491. C CALCUL DES FORCES NODALES EQUIVALENTES
  492. C BRANCHEMENT SUIVANT LE TYPE DES ELEMENTS
  493. C
  494. C CAS DES ELEMENTS MASSIFS BIDIMENSIONNELS
  495. C FACES ASSOCIEES SEG2 OU SEG3
  496. C
  497. IF (MELE.EQ.2 .OR. MELE.EQ.3) THEN
  498. C
  499. CALL FSMA2D(IPT,IPOGEO,IPTINT,IPVECT,VEC,IVAFOR,IVACAR)
  500. C
  501. C CAS DES ELEMENTS MASSIFS TRIDIMENSIONNELS
  502. C FACES ASSOCIEES FAC3,FAC4,FAC6 OU FAC8
  503. C
  504. ELSE IF (MELE.EQ.31 .OR. MELE.EQ.32 .OR. MELE.EQ.33 .OR.
  505. & MELE.EQ.34) THEN
  506. C
  507. CALL FSMA3D(IPT,IPOGEO,IPTINT,IPVECT,VEC,IVAFOR)
  508. C
  509. ELSE
  510. C
  511. C ERREUR L ELEMENT N EST PAS ENCORE IMPLEMENTE
  512. C
  513. GOTO 9100
  514. ENDIF
  515. C
  516. C ON TRANSFORME LE CHAM/ELEM EN CHAM/POIN
  517. C ET ON ADDITIONNE LES CHAM/POIN ELEMENTAIRES
  518. C
  519. CALL CHAMPO(IPCHEL,0,IPCHPO,IRET)
  520. C* CALL DTCHAM(IPCHEL)
  521. IF (IRET.EQ.0) THEN
  522. GOTO 9100
  523. ENDIF
  524. IF (IRRT.GT.1) THEN
  525. CALL ADCHPO(IPCHPO,IPFTP,IPPT,1.D0,1.D0)
  526. **** CALL ECRCHA(MOGEOM)
  527. CALL DTCHPO(IPCHPO)
  528. **** CALL ECRCHA(MOGEOM)
  529. CALL DTCHPO(IPFTP)
  530. IF (IPPT.EQ.0) THEN
  531. GOTO 9100
  532. ENDIF
  533. IPFTP=IPPT
  534. ELSE
  535. IPFTP=IPCHPO
  536. ENDIF
  537.  
  538. 9100 CONTINUE
  539. IF (IPTINT.NE.0) SEGDES,MINTE
  540. c* IF (IPCHMS.NE.0) CALL DTCHAM(IPCHMS)
  541. c* CALL DTMVAL(IVAFOR,3)
  542. IF (MOCARA.NE.0) THEN
  543. IF (ISUPCA.EQ.1) THEN
  544. CALL DTMVAL(IVACAR,3)
  545. ELSE
  546. CALL DTMVAL(IVACAR,1)
  547. ENDIF
  548. ENDIF
  549.  
  550. IF (MJB.NE.0) THEN
  551. SEGDES,IPT2
  552. ENDIF
  553. 110 CONTINUE
  554. *
  555. 102 CONTINUE
  556. IF (IPTINT.NE.0) SEGDES,MINTE
  557. nomid = MOFORC
  558. SEGDES,nomid
  559. IF (lsupfo) SEGSUP,nomid
  560. SEGDES,IPT3
  561. 101 CONTINUE
  562. SEGDES,IMODEL
  563. IF (IERR.NE.0) GOTO 900
  564. C
  565. 100 CONTINUE
  566. *--------------------------------- FIN de la BOUCLE sur les SOUS-MODELES
  567. *
  568. IF (IRRT.EQ.0) THEN
  569. IPFTP = 0
  570. CALL ERREUR(395)
  571. GOTO 900
  572. ENDIF
  573. C
  574. C
  575. C GESTION FINALE DES SEGMENTS
  576. C
  577. 900 CONTINUE
  578. IF (MOCARA.NE.0) THEN
  579. NOMID = MOCARA
  580. SEGSUP,NOMID
  581. NOTYPE = MOTYPC
  582. SEGSUP,NOTYPE
  583. ENDIF
  584. SEGSUP,IMODE1,MMODE1
  585. SEGDES,MMODEL
  586.  
  587. RETURN
  588. END
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  

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