Télécharger meulti.eso

Retour à la liste

Numérotation des lignes :

  1. C MEULTI SOURCE PV 13/04/15 21:15:05 7764
  2. SUBROUTINE MEULTI(MELEME,MELETI,TYPE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  6. CHARACTER*8 TYPE
  7. DIMENSION AK(4)
  8. DATA AK/1.D30,-1.D30,2.D24,0.D0/
  9. -INC CCOPTIO
  10. -INC SMELEME
  11. POINTEUR MELETI.MELEME
  12. -INC SMCOORD
  13.  
  14. MELETI=0
  15. CALL ECROBJ('MAILLAGE',MELEME)
  16. CALL ECRCHA('POI1')
  17. CALL PRCHAN
  18. CALL LIROBJ('MAILLAGE',MELETI,1,IRETOU)
  19. IF(IRETOU.EQ.0)RETURN
  20. segini,ipt1=meleti
  21. meleti=ipt1
  22. SEGACT MELETI*MOD
  23. NPT=MELETI.NUM(/2)
  24.  
  25. NBPT0=XCOOR(/1)/(IDIM+1)
  26. NBPTS=NBPT0+NPT
  27. SEGADJ MCOORD
  28.  
  29. IP=NBPT0
  30. DO 1 I=1,NPT
  31. IP=IP+1
  32. I1=MELETI.NUM(1,I)
  33. DO 2 K=1,(IDIM+1)
  34. XCOOR((IP-1)*(IDIM+1) +K)=XCOOR((I1-1)*(IDIM+1) +K)+AK(K)
  35. 2 CONTINUE
  36. MELETI.NUM(1,I)=IP
  37. 1 CONTINUE
  38. SEGDES MELETI
  39. RETURN
  40. END
  41.  
  42.  
  43.  
  44.  

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