Télécharger dyne00.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE00 SOURCE PV 16/11/17 21:59:06 9180
  2. SUBROUTINE DYNE00(IPRIGM,IRSCPR,ICHOLX,LONVEC)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E 0 0
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * ASSEMBLAGE EVENTUEL DE LA MATRICE MASSE ET CREATION DE ICPR
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * IPRIGM (E) POINTEUR SUR L'OBJET RIGIDITE M ( LAISSE ACTIF )
  19. * IRSCPR (S) POINTEUR SUR LE SEGMENT ICPR ( LAISSE ACTIF )
  20. * ICHOLX (S) POINTEUR SUR LE SEGMENT MMATRI ( LAISSE ACTIF )
  21. * LONVEC (S) NOMBRE DE NOEUDS
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. * DENIS ROBERT, LE 16 NOVEMBRE 1988.
  26. *
  27. * LANGAGE:
  28. * --------
  29. * ESOPE + FORTRAN77
  30. *
  31. ************************************************************************
  32. *
  33. * MODULES UTILISES:
  34. *
  35. -INC CCOPTIO
  36. -INC SMRIGID
  37. -INC SMELEME
  38. -INC SMMATRI
  39. -INC SMCOORD
  40. *
  41. SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  42. *
  43. MRIGID=IPRIGM
  44. SEGACT,MRIGID
  45. IF (ICHOLE.EQ.0) THEN
  46. *
  47. *--- ASSEMBLAGE DE M
  48. *
  49. CALL ASSEM1(IPRIGM,MMATRX,INUINX,ITOPOX,IMINIX,IPOX,INCTRX
  50. * ,LL)
  51. CALL ASSEM2(IPRIGM,ITOPOX,INUINX,IMINIX,MMATRX,IPOX,INCTRX
  52. * ,LL)
  53. IF(IERR.NE.0) RETURN
  54. MRIGID=IPRIGM
  55. SEGACT,MRIGID
  56. ICHOLE=MMATRX
  57. ENDIF
  58. ICHOLX=ICHOLE
  59. *
  60. MMATRI=ICHOLX
  61. SEGACT,MMATRI
  62. MELEME=IGEOMA
  63. *
  64. *--- FABRICATION DE ICPR
  65. *
  66. SEGACT,MCOORD
  67. SEGINI,ICPR
  68. LX=ICPR(/1)
  69. DO 2 I=1,LX
  70. ICPR(I)=0
  71. 2 CONTINUE
  72. * END DO
  73. SEGACT,MELEME
  74. N1=NUM(/1)
  75. N2=NUM(/2)
  76. IK=0
  77. DO 3 I1=1,N1
  78. DO 3 I2=1,N2
  79. K=NUM(I1,I2)
  80. IF(ICPR(K).NE.0) GOTO 3
  81. IK=IK+1
  82. ICPR(K)=IK
  83. 3 CONTINUE
  84. * END DO
  85. *
  86. MILIGN=IILIGN
  87. SEGACT,MILIGN
  88. LONVEC=IPNO(/1)
  89. SEGDES,MILIGN
  90. *
  91. IRSCPR=ICPR
  92. *
  93. END
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  

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