Télécharger dyne11.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE11 SOURCE CHAT 05/01/12 23:13:25 5004
  2. SUBROUTINE DYNE11(ICPC,IPCHPO,ICHT1,IDDL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E 1 1
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * CREATION DU VECTEUR DEPLACEMENTS IMPOSES
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * ICPC (E) POINTEUR SUR UN SEGMENT ICPR
  19. * IPCHPO (E) POINTEUR SUR LE CHPOINT DE DEPLACEMENTS IMPOSES
  20. * VEC (S) VECTEUR DEPLACEMENTS IMPOSES
  21. * IDDL (E) NOMBRE DE DDL LIES
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. * DENIS ROBERT, LE 14 DECEMBRE 1988.
  26. * REVU ET CORRIGE DECEMBRE 89 MP
  27. *
  28. * LANGAGE:
  29. * --------
  30. * ESOPE + FORTRAN77
  31. *
  32. ************************************************************************
  33. *
  34. * MODULES UTILISES:
  35. *
  36. -INC CCOPTIO
  37. -INC SMCOORD
  38. -INC SMCHPOI
  39. -INC SMELEME
  40. *
  41. SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))
  42. *
  43. SEGMENT,MCHT1
  44. REAL*8 VCC1(IDDL)
  45. ENDSEGMENT
  46. *
  47. * REAL*8 VEC(*)
  48. *
  49. MCHT1=ICHT1
  50. ICPR=ICPC
  51. MCHPOI=IPCHPO
  52. SEGACT,MCHPOI
  53. NSOUPO=IPCHP(/1)
  54. *
  55. *--- BOUCLE SUR LES PARTITIONS GEOMETRIQUES DU CHPOINT
  56. *
  57. IFOI=0
  58. DO 100 ISOUPO=1,NSOUPO
  59. MSOUPO=IPCHP(ISOUPO)
  60. SEGACT,MSOUPO
  61. MPOVAL=IPOVAL
  62. SEGACT,MPOVAL
  63. MELEME=IGEOC
  64. SEGACT,MELEME
  65. NBELEM=NUM(/2)
  66. *
  67. *--- BOUCLE SUR LES POI1 DU MAILLAGE CONSIDERE
  68. *
  69. DO 200 IPOI=1,NBELEM
  70. K=NUM(1,IPOI)
  71. *
  72. *--- ON RECHERCHE LA CORRESPONDANCE AVEC ICPC, REMPLI DANS DYNE02
  73. *
  74. DO 300 I=1,IDDL
  75. IF (ICPR(I).EQ.K) THEN
  76. * EME
  77. *--- LE POINT NUMERO IPOI EST LE I DDL LIE
  78. *
  79. IFOI=IFOI+1
  80. VCC1(I)=VPOCHA(IPOI,1)
  81. ENDIF
  82. 300 CONTINUE
  83. * END DO
  84. 200 CONTINUE
  85. * END DO
  86. SEGDES,MPOVAL,MELEME,MSOUPO
  87. 100 CONTINUE
  88. * END DO
  89. SEGDES,MCHPOI
  90. SEGSUP,ICPR
  91. *
  92. END
  93.  
  94.  

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