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    FANDEUR   22/01/03    21:15:07     11136          
  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 SMELEME
  17.  
  18.       POINTEUR IGEOM.MELEME
  19.       CHARACTER*(*) TYPI,MOT(*)
  20.       CHARACTER*8 TYPE
  21.  
  22.       TYPE='        '
  23.       TYPE=TYPI
  24.       MCHPOI=0
  25.       IF(IGEOM .LE. 0)THEN
  26.          NAT=1
  27.          NSOUPO=0
  28.          SEGINI MCHPOI
  29.          IFOPOI = IFOUR
  30.          JATTRI(1)=2
  31.          RETURN
  32.       ENDIF
  33.       SEGACT IGEOM
  34.       IF(IGEOM.ITYPEL.NE.1)THEN
  35.          WRITE(6,*)' Support geometrique incorrect '
  36.          RETURN
  37.       ENDIF
  38.       N=IGEOM.NUM(/2)
  39.       NSOUPO=1
  40.       NAT=1
  41.       SEGINI MCHPOI,MSOUPO,MPOVAL
  42.       JATTRI(1)=2
  43.       IFOPOI=IFOUR
  44.       MTYPOI=TYPE
  45.       MOCHDE='                                                  '
  46.       IPCHP(1)=MSOUPO
  47.       IGEOC=IGEOM
  48.       IPOVAL=MPOVAL
  49.       DO 2 I=1,NC
  50.          NOCOMP(I)=MOT(I)
  51.  2    CONTINUE
  52.       END
  53.  
  54.  
  55.  

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