Télécharger la plaquette Cast3M


fr en

Télécharger chmcrc.eso

Retour à la liste

Numérotation des lignes : 

chmcrc

  1. C CHMCRC    SOURCE    CB215821  25/04/23    21:15:03     12247          
  2.       SUBROUTINE CHMCRC(MLMOTS,IGEOT,NPN,MCHPOI,MPOVAL)
  3.       IMPLICIT INTEGER(I-N)
  4.         IMPLICIT REAL*8 (A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C       CREATION D'UN CHPOINT POUR LES SORTIES DE CHIMI2
  8. C
  9. C   ENTREES :
  10. C         MLMOTS POINTEUR LE LA LISTE DES NOMS DES COMPOSANTES
  11. C         IGEOT  POINTEUR DE LA GEOMETRIE
  12. C         NPN    NOMBRE DE POINTS
  13. C   SORTIES :
  14. C         MCHPOIN POINTEUR DU CHPOIN CREE
  15. C         MPOVAL POINTEUR DU TABLEAU DE VALEURS DE CE CHPOINT
  16. C
  17. C------------------------------------------------------------------
  18. -INC SMCHPOI
  19. -INC SMCOORD
  20. -INC SMLMOTS
  21.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24.       NSOUPO=1
  25.       NAT=1
  26.       SEGINI MCHPOI
  27.       MTYPOI='        '
  28.       MOCHDE='      CHPOIN CREE PAR CHIMI2                      '
  29.       IFOPOI=IFOUR
  30.       JATTRI(1)=2
  31.       SEGACT MLMOTS
  32.       NC=MOTS(/2)
  33.       SEGINI MSOUPO
  34.       IPCHP(1)=MSOUPO
  35.       DO 10 I=1,NC
  36.             NOCOMP(I)=MOTS(I)
  37.             NOHARM(I)=0
  38.    10 CONTINUE
  39.       IGEOC=IGEOT
  40.       N=NPN
  41.       SEGINI MPOVAL
  42.       IPOVAL=MPOVAL
  43.       NB=N*NC
  44.       CALL INITD(VPOCHA,NB,0.D0)
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  

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