Télécharger la plaquette Cast3M


fr en

Télécharger ftaill.eso

Retour à la liste

Numérotation des lignes : 

ftaill

  1. C FTAILL    SOURCE    CB215821  23/01/25    21:15:16     11573          
  2. C   
  3.       SUBROUTINE FTAILL(IPT3,MCHPOI)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5.       IMPLICIT INTEGER (I-N)
  6. C
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMCOORD
  10. -INC SMCHPOI
  11. -INC SMELEME
  12. C
  13.       SEGMENT ICPR(NBPTS)
  14. C
  15.       MSOUPO = MCHPOI.IPCHP(1)
  16.       NBCMP  = MSOUPO.NOCOMP(/2)
  17.       MPOVAL = MSOUPO.IPOVAL
  18.       MELEME = MSOUPO.IGEOC
  19.       NBCONT = MELEME.NUM(/2)
  20. C
  21.       NBNODE = IPT3.NUM(/1)
  22.       NBELTC = IPT3.NUM(/2)
  23.       SEGINI,ICPR
  24.       DO IEL = 1,NBELTC
  25.         ICPR(IPT3.NUM(1,IEL)) = IEL
  26.       ENDDO
  27. C
  28. C     Pour creer le nouveau maillage support
  29.       NBNN = 1
  30.       NBELEM = NBCONT
  31.       NBSOUS = 0
  32.       NBREF = 0
  33. C
  34. C     Pour creer les nouveaux msoupo et mpoval
  35.       N = NBCONT
  36.       NC = 1
  37.       NAT = MCHPOI.JATTRI(/1)
  38. C
  39. C     Mettre a jour le mchpoi actuel
  40.       NSOINI = MCHPOI.IPCHP(/1)
  41.       NSOUPO = NSOINI + 1
  42.       IF (IDIM.EQ.3) NSOUPO = NSOINI + 2
  43.       SEGADJ,MCHPOI
  44. C
  45.       IADD = 1
  46.       IPOSI = 0
  47.       IMF = NBNODE
  48.  100  CONTINUE 
  49. C
  50.       SEGINI,MSOUP1,MPOVA1,IPT1
  51. C 
  52.       IF (IPOSI.EQ.0) THEN
  53.         DO 10 ICOMP = 1,NBCMP
  54.           IF (NOCOMP(ICOMP).EQ.'TAIL') THEN
  55.             IPOSI = ICOMP
  56.             GOTO 11
  57.           ENDIF
  58.   10    CONTINUE
  59.   11    CONTINUE
  60.       ENDIF
  61. C
  62.       MSOUP1.NOCOMP(1) = 'TAIL'
  63.       MSOUP1.NOHARM(1) = MSOUPO.NOHARM(IPOSI)
  64.       MSOUP1.IGEOC  = IPT1
  65.       MSOUP1.IPOVAL = MPOVA1
  66. C
  67.       IPT1.ITYPEL = 1
  68. C
  69.       DO 20 IELT = 1,NBCONT
  70.         IELC = ICPR(MELEME.NUM(1,IELT))
  71.         IPT1.NUM(1,IELT) = IPT3.NUM(IMF,IELC)
  72.         MPOVA1.VPOCHA(IELT,1) = MPOVAL.VPOCHA(IELT,IPOSI) 
  73.   20  CONTINUE
  74. C
  75.       IPCHP(NSOINI+IADD) = MSOUP1
  76. C
  77.       IF (IDIM.EQ.3.AND.IADD.NE.2) THEN 
  78.         IADD = 2
  79.         IMF = NBNODE - 1
  80.         GOTO 100
  81.       ENDIF
  82. C
  83.       SEGSUP,ICPR
  84. C
  85.       RETURN
  86.       END
  87.  
  88.  

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