Télécharger dimno1.eso

Retour à la liste

Numérotation des lignes :

dimno1
  1. C DIMNO1 SOURCE MB234859 21/11/17 21:15:06 11190
  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.  
  47. -INC PPARAM
  48. -INC CCOPTIO
  49. -INC SMMATRI
  50. -INC SMRIGID
  51. -INC CCREEL
  52. C
  53. CC INTEGER INSYM
  54. CC INSYM = 0
  55. MRIGID = IPRIGI
  56. SEGACT,MRIGID
  57. C
  58. IF (JRCOND.NE.0) THEN
  59. MRIGID=JRCOND
  60. SEGACT,MRIGID
  61. ENDIF
  62. C
  63. CC NRG = IRIGEL(/1)
  64. CC NBR = IRIGEL(/2)
  65. CC IPMATR = ICHOLE
  66. CC IF(NORINC.GT.0 .AND. NORIND.GT.0) THEN
  67. CC INSYM = 1
  68. CC ENDIF
  69. CC IF (NRG.GE.7) THEN
  70. CC DO 9 IN = 1,NBR
  71. CC IANTI=IRIGEL(7,IN)
  72. CC IF(IANTI.GT.0) THEN
  73. CC INSYM = 1
  74. CC ENDIF
  75. CC9 CONTINUE
  76. CC ENDIF
  77. CC SEGDES,MRIGID
  78. C
  79. CC IF (IPMATR .EQ. 0) THEN
  80. CC IF (INSYM .EQ. 0) THEN
  81. CC CALL TRIANG (IPRIGI,xspeti,0)
  82. CC ELSE
  83. CC CALL ldmt1(IPRIGI,xspeti)
  84. CC ENDIF
  85. CC IF (IERR .NE. 0) RETURN
  86. CC MRIGID = IPRIGI
  87. CC SEGACT,MRIGID
  88. CC IPMATR = ICHOLE
  89. CC SEGDES,MRIGID
  90. CC END IF
  91. C
  92. MMATRI = ICHOLE
  93. IF (MMATRI.EQ.0) THEN
  94. CALL ERREUR(990)
  95. ELSE
  96. SEGACT,MMATRI
  97. NOYAU = NENS
  98. SEGDES,MMATRI
  99. ENDIF
  100. SEGDES,MRIGID
  101. C
  102. END
  103.  
  104.  

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