Télécharger la plaquette Cast3M


fr en

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