Télécharger la plaquette Cast3M


fr en

Télécharger meulti.eso

Retour à la liste

Numérotation des lignes : 

meulti

  1. C MEULTI    SOURCE    PV        20/03/24    21:19:29     10554          
  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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMELEME
  13.       POINTEUR MELETI.MELEME
  14. -INC SMCOORD
  15.  
  16.       MELETI=0
  17.       CALL ECROBJ('MAILLAGE',MELEME)
  18.       CALL ECRCHA('POI1')
  19.       CALL PRCHAN
  20.       CALL LIROBJ('MAILLAGE',MELETI,1,IRETOU)
  21.       IF(IRETOU.EQ.0)RETURN
  22.       segini,ipt1=meleti
  23.       meleti=ipt1
  24.       SEGACT MELETI*MOD
  25.       NPT=MELETI.NUM(/2)
  26.  
  27.       segact mcoord*mod
  28.       NBPT0=nbpts
  29.       NBPTS=NBPT0+NPT
  30.       SEGADJ MCOORD
  31.  
  32.       IP=NBPT0
  33.       DO 1 I=1,NPT
  34.       IP=IP+1
  35.       I1=MELETI.NUM(1,I)
  36.       DO 2 K=1,(IDIM+1)
  37.       XCOOR((IP-1)*(IDIM+1)    +K)=XCOOR((I1-1)*(IDIM+1)    +K)+AK(K)
  38.  2    CONTINUE
  39.       MELETI.NUM(1,I)=IP
  40.  1    CONTINUE
  41.       SEGDES MELETI
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  

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