Télécharger la plaquette Cast3M


fr en

Télécharger krchpt.eso

Retour à la liste

Numérotation des lignes : 

krchpt

  1. C KRCHPT    SOURCE    CB215821  25/04/23    21:15:26     12247          
  2.       SUBROUTINE KRCHPT(TYPI,IGEOM,NC,MCHPOI,MOT)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C*************************************************************************
  6. C
  7. C Ce SP cree un champoint type TRIO-EF
  8. C
  9. C*************************************************************************
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMCHPOI
  14. -INC SMCOORD
  15. -INC SMELEME
  16.       POINTEUR IGEOM.MELEME
  17.       CHARACTER*(*) TYPI
  18.       CHARACTER*8 TYPE
  19.       CHARACTER*(*) MOT(NC)
  20.  
  21.       TYPE='        '
  22.       TYPE=TYPI
  23.       MCHPOI=0
  24.       IF(IGEOM .LE. 0)THEN
  25.          NAT=2
  26.          NSOUPO=0
  27.          SEGINI MCHPOI
  28.          JATTRI(1)=2
  29.          IFOPOI = IFOUR
  30.          RETURN
  31.       ENDIF
  32.       SEGACT IGEOM
  33.       IF(IGEOM.ITYPEL.NE.1)THEN
  34.          WRITE(6,*)' Support geometrique incorrect '
  35.          RETURN
  36.       ENDIF
  37.       N=IGEOM.NUM(/2)
  38.       NSOUPO=1
  39.       NAT=1
  40.       SEGINI MCHPOI,MSOUPO,MPOVAL
  41.       JATTRI(1)=2
  42.       IFOPOI=IFOUR
  43.       MTYPOI=TYPE
  44.       MOCHDE='                                                  '
  45.       IPCHP(1)=MSOUPO
  46.       IGEOC=IGEOM
  47.       IPOVAL=MPOVAL
  48.          DO 1 I=1,NC
  49.             NOCOMP(I)=MOT(I)
  50.  1       CONTINUE
  51.       RETURN
  52.       END
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  

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