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

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