Télécharger la plaquette Cast3M


fr en

Télécharger crchpk.eso

Retour à la liste

Numérotation des lignes : 

crchpk

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

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