Télécharger chmcrc.eso

Retour à la liste

Numérotation des lignes :

  1. C CHMCRC SOURCE CHAT 05/01/12 21:58:44 5004
  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 SMLMOTS
  20. -INC CCOPTIO
  21. NSOUPO=1
  22. NAT=1
  23. SEGINI MCHPOI
  24. MTYPOI=' '
  25. MOCHDE=' CHPOIN CREE PAR CHIMI2 '
  26. IFOPOI=IFOUR
  27. JATTRI(1)=2
  28. SEGACT MLMOTS
  29. NC=MOTS(/2)
  30. SEGINI MSOUPO
  31. IPCHP(1)=MSOUPO
  32. DO 10 I=1,NC
  33. NOCOMP(I)=MOTS(I)
  34. NOHARM(I)=0
  35. 10 CONTINUE
  36. IGEOC=IGEOT
  37. N=NPN
  38. SEGINI MPOVAL
  39. IPOVAL=MPOVAL
  40. NB=N*NC
  41. CALL INITD(VPOCHA,NB,0.D0)
  42. RETURN
  43. END
  44.  
  45.  
  46.  
  47.  

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