Télécharger dimno1.eso

Retour à la liste

Numérotation des lignes :

  1. C DIMNO1 SOURCE PV 16/11/17 21:59:01 9180
  2. SUBROUTINE DIMNO1 (IPRIGI,NOYAU)
  3. ************************************************************************
  4. *
  5. * D I M N O 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * DIMENSION DU NOYAU D'UN OBJET 'RIGIDITE'.
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL DIMNO1 (IPRIGI,NOYAU)
  17. *
  18. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  19. * -----------
  20. *
  21. * IPRIGI ENTIER (E) POINTEUR D'UNE 'RIGIDITE'.
  22. * NOYAU ENTIER (S) DIMENSION DU NOYAU DE LA 'RIGIDITE'.
  23. *
  24. * REMARQUES:
  25. * ----------
  26. *
  27. * LA VALEUR "NOYAU" RETOURNEE PEUT ETRE SUPERIEURE A LA REALITE:
  28. * VOIR LA DEFINITION DE "NENS", CALCULE DANS LE SOUS-PROGRAMME
  29. * TRAITANT DE LA DECOMPOSITION EN "L.D.LT".
  30. * (LA DETECTION D'UN PIVOT NUL -- AU LIEU DE PIVOT MAXIMUM NUL --
  31. * EST ABUSIVEMENT ASSIMILEE A UNE SINGULARITE DE MATRICE)
  32. *
  33. * AUTEUR, DATE DE CREATION:
  34. * -------------------------
  35. *
  36. * PASCAL MANIGOT 10 SEPTEMBRE 1985
  37. *
  38. * LANGAGE:
  39. * --------
  40. *
  41. * ESOPE + FORTRAN77
  42. *
  43. ************************************************************************
  44. *
  45. IMPLICIT INTEGER(I-N)
  46. -INC CCOPTIO
  47. -INC SMMATRI
  48. -INC SMRIGID
  49. *
  50. integer insym
  51. insym = 0
  52. MRIGID = IPRIGI
  53. SEGACT,MRIGID
  54. NRG = IRIGEL(/1)
  55. NBR = IRIGEL(/2)
  56. IPMATR = ICHOLE
  57. IF(NORINC.GT.0 .AND. NORIND.GT.0) THEN
  58. INSYM = 1
  59. ENDIF
  60. IF (NRG.GE.7) THEN
  61. DO 9 IN = 1,NBR
  62. IANTI=IRIGEL(7,IN)
  63. IF(IANTI.GT.0) THEN
  64. INSYM = 1
  65. ENDIF
  66. 9 CONTINUE
  67. ENDIF
  68. SEGDES,MRIGID
  69. *
  70. IF (IPMATR .EQ. 0) THEN
  71. IF (INSYM .EQ. 0) THEN
  72. CALL TRIANG (IPRIGI,1D-18,0)
  73. ELSE
  74. CALL ldmt1(IPRIGI,1d-18)
  75. ENDIF
  76. IF (IERR .NE. 0) RETURN
  77. MRIGID = IPRIGI
  78. SEGACT,MRIGID
  79. IPMATR = ICHOLE
  80. SEGDES,MRIGID
  81. END IF
  82. *
  83. MMATRI = IPMATR
  84. SEGACT,MMATRI
  85. NOYAU = NENS
  86. SEGDES,MMATRI
  87. *
  88. END
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  

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